0
Sova123
07.05.14
✎
08:57
|
как выполнить такую команду?
вот что получилось
Сервер = ".***";
Ресурс = "/?thisisapi=yes&moduleostgresql&mode=mode";
HTTP = Новый HTTPСоединение(Сервер,80,,,,Ложь);
HTTP.Прокси.НеИспользоватьПроксиДляЛокальныхАдресов = Истина;
ФайлЗапроса = ПолучитьИмяВременногоФайла();
ТекстовыйФайл = Новый ТекстовыйДокумент;
ТекстовыйФайл.УстановитьТекст("&mode=off");
ТекстовыйФайл.Записать(ФайлЗапроса, КодировкаТекста.UTF8);
ФайлРезультата = ПолучитьИмяВременногоФайла();
ЗаголовокHTTP = Новый Соответствие();
ЗаголовокHTTP.Вставить("Content-Type","text/html;charset=utf-8");
HTTP.ОтправитьДляОбработки(ФайлЗапроса, Ресурс, ФайлРезультата, ЗаголовокHTTP);
Ответ = Новый ТекстовыйДокумент();
Ответ.Прочитать(ФайлРезультата, КодировкаТекста.UTF8);
ТекстОтвета = Ответ.ПолучитьТекст();
УдалитьФайлы(ФайлЗапроса);
УдалитьФайлы(ФайлРезультата);
Но что то не робит
|
|