0
Black Dragon
25.06.13
✎
18:29
|
Доброго дня!
не могу понять что у меня не так:
ИмяФайлаЗапроса = "C:/log/request.txt";
Сообщить("Имя файла запроса " + ИмяФайлаЗапроса);
ФайлЗапроса = Новый ТекстовыйДокумент;
Результ = "TYPE = AUTH";
ФайлЗапроса.ДобавитьСтроку(Результ);
Результ = "AUTH_FORM = Y";
ФайлЗапроса.ДобавитьСтроку(Результ);
Результ = "login = yes";
ФайлЗапроса.ДобавитьСтроку(Результ);
Результ = "pass = Ok";
ФайлЗапроса.ДобавитьСтроку(Результ);
Результ = "USER_LOGIN = ''";
ФайлЗапроса.ДобавитьСтроку(Результ);
Результ = "USER_PASSWORD = ''";
ФайлЗапроса.ДобавитьСтроку(Результ);
Результ = "Dept = 1";
ФайлЗапроса.ДобавитьСтроку(Результ);
ФайлЗапроса.Записать(ИмяФайлаЗапроса);
СерверИсточник = "http://portal.dengisrazy.ru";
РесурсНаСервере = "payments/webservice.php";
ПроксиСервер = Новый ИнтернетПрокси;
ПроксиСервер.Установить("http",СерверИсточник);
Boundary = СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-", "");
ЗаголовокHTTP = Новый Соответствие();
ЗаголовокHTTP.Вставить("Content-Type", "text/plain; boundary=" + Boundary);
//При необходимости зададим Referer, например таким образом
СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();
СерверИсточник = НСтр(СтрокаСоединения, "Srvr") + НСтр(СтрокаСоединения, "Ref");
ЗаголовокHTTP.Вставить("Referer", СерверИсточник);
Попытка
Соединение = Новый HTTPСоединение(СерверИсточник);
Исключение
Сообщить(ИнформацияОбОшибке().Описание, СтатусСообщения.Важное);
Возврат;
КонецПопытки;
Если Соединение = Неопределено Тогда
Сообщить("Ошибка установки соединения с " + СерверИсточник + ОписаниеОшибки());
Возврат;
КонецЕсли;
ФайлРезультата = "C:/log/answer.txt";
Попытка
Соединение.ОтправитьДляОбработки(ИмяФайлаЗапроса, РесурсНаСервере, ФайлРезультата);
Исключение
Сообщить(ИнформацияОбОшибке().Описание, СтатусСообщения.Важное);
Возврат;
КонецПопытки;
КонецПроцедуры
выдает сообщения:
ошибка при вызове метода контекста ОтправитьДляОбработки
полдня мучаюсь, не могу понять
|
|