Есть ссылка некий ресурс, например:
info.eks.com/eservice.aspx?username=123456789, к которому необходимо послать POST запрос.
Написал процедуру:
ИмяСервера = "info.eks.com";
HTTP = Новый HTTPСоединение(ИмяСервера,);
// Получим временный файл для передачи в теле POST запроса
ФайлТелаЗапроса = ПолучитьИмяВременногоФайла();
ОбъектЗапись = Новый ЗаписьXML;
ОбъектЗапись.ОткрытьФайл(ФайлТелаЗапроса);
ОбъектЗапись.ЗаписатьОбъявлениеXML();
ОбъектЗапись.ЗаписатьНачалоЭлемента("xml");
ОбъектЗапись.ЗаписатьНачалоЭлемента("info");
ОбъектЗапись.ЗаписатьНачалоЭлемента("requestType");
ОбъектЗапись.ЗаписатьТекст("1");
ОбъектЗапись.ЗаписатьКонецЭлемента();
ОбъектЗапись.ЗаписатьКонецЭлемента();
ОбъектЗапись.ЗаписатьНачалоЭлемента("request");
ОбъектЗапись.ЗаписатьНачалоЭлемента("inn");
ОбъектЗапись.ЗаписатьТекст("078596354");
ОбъектЗапись.ЗаписатьКонецЭлемента();
ОбъектЗапись.ЗаписатьКонецЭлемента();
ОбъектЗапись.ЗаписатьКонецЭлемента();
ОбъектЗапись.Закрыть();
//
// Получим временный файл — тело ответа POST запроса
ФайлРезультат = ПолучитьИмяВременногоФайла();
// Отсылаем POST запрос на обработку.
Логин = "123456789";
HTTPЗапрос = Новый HTTPЗапрос("/eservice.aspx");
HTTPЗапрос.УстановитьТелоИзСтроки("?username=" + Логин);
HTTPЗапрос.УстановитьИмяФайлаТела(ФайлТелаЗапроса);
Результат = HTTP.ОтправитьДляОбработки(HTTPЗапрос,ФайлРезультат);
Но почему-то не работает, в чем я мог ошибиться?
Средний
