Имя: Пароль:
1C
1С v8
как выполнить такую команду? http запрос
0 Sova123
 
07.05.14
08:57
как выполнить такую команду?
http://***/?thisisapi=yes&module=postgresql&mode=off

вот что получилось

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

HTTP.ОтправитьДляОбработки(ФайлЗапроса, Ресурс, ФайлРезультата, ЗаголовокHTTP);
Ответ = Новый ТекстовыйДокумент();
Ответ.Прочитать(ФайлРезультата, КодировкаТекста.UTF8);
ТекстОтвета = Ответ.ПолучитьТекст();
УдалитьФайлы(ФайлЗапроса);
УдалитьФайлы(ФайлРезультата);

Но что то не робит
1 ChAlex
 
07.05.14
10:21
Ресурс = "?thisisapi=yes&moduleostgresql&mode=mode";

без слэша
2 Sova123
 
07.05.14
15:33
спасибо!! заработало