Имя: Пароль:
1C
1С v8
Выполнить команду из 1с
0 Sova123
 
05.05.14
13:56
Как можно при нажатии кнопки выпонлнить вот такую команду
http://192.***.**.***/?thisisapi=yes&module=postgresql&mode=off
1 Godofsin
 
05.05.14
13:58
чо там?
2 Sova123
 
05.05.14
14:00
это страничка возвращает ок
Нужно просто прочитать, но не открывать страницу
3 fisher
 
05.05.14
14:00
Мне мама не велела по таким ссылкам ходить.
4 ДенисЧ
 
05.05.14
14:00
Хоть через КомандаСистемы(), или ЗапуститьПРиложение(), или HTTPСоединение.Получить()
5 ДенисЧ
 
05.05.14
14:00
(2) Если получить, то третий вариант
6 Sova123
 
05.05.14
14:13
А я думала вот это

Соединение = Новый HTTPСоединение("http://myTestServer";, 8080);

Заголовки = Новый Соответсвие();
Заголовки.Вставить("host", "http://192.**.";);  

Запрос = Новый HTTPЗапрос("/?thisisapi=yes&module=postgresql&mode=off", Заголовки);
Запрос.УстановитьТелоИзСтроки("<order>My new order</order>");
Соединение.Записать(Запрос);
ТОлько не пойму как толком рапсиать
7 Sova123
 
07.05.14
08:27
как выполнить такую команду?
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);
ТекстОтвета = Ответ.ПолучитьТекст();
УдалитьФайлы(ФайлЗапроса);
УдалитьФайлы(ФайлРезультата);

Но что то не робит