как выполнить такую команду? http запрос
☑
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);
ТекстОтвета = Ответ.ПолучитьТекст();
УдалитьФайлы(ФайлЗапроса);
УдалитьФайлы(ФайлРезультата);
Но что то не робит
1
ChAlex
07.05.14
✎
10:21
Ресурс = "?thisisapi=yes&moduleostgresql&mode=mode";
без слэша
2
Sova123
07.05.14
✎
15:33
спасибо!! заработало
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший