Имя: Пароль:
1C
1С v8
выполнить xml запрос к сайту
,
0 ambez
 
02.12.14
04:50
необходимо получить в 1с8 резултат выполнения такого запроса
innum.ru/cgi-bin/info.pl?number=79193410000
должно возвращать xml
поделитесь кодом на эту тему
1 Лодырь
 
02.12.14
04:53
наверное это все же не xml запрос.
2 ambez
 
02.12.14
04:58
(1) ну не важно. код есть?
3 Лодырь
 
02.12.14
05:01
(2) есть
4 ambez
 
02.12.14
05:03
(3) ну так напиши
5 Лодырь
 
02.12.14
05:03
Соединение = Новый HTTPСоединение("innum.ru");
    
    ИмяФайлаОтправки = ПолучитьИмяВременногоФайла("txt");
    POSTПараметры = Новый ЗаписьТекста(ИмяФайлаОтправки, КодировкаТекста.UTF8,, Истина, Символы.ПС);
    POSTПараметры.Записать("number=" + "79193410000");
    POSTПараметры.Закрыть();
    
    Заголовки = Новый Соответствие();
    Заголовки.Вставить("POST /Query HTTP/1.1");
    Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");
    
    Запрос = Новый HTTPЗапрос("cgi-bin/info.pl", Заголовки);
    Запрос.УстановитьИмяФайлаТела(ИмяФайлаОтправки);
    
    HTTPОтвет = Соединение.ОтправитьДляОбработки(Запрос);
    Ответ = HTTPОтвет.ПолучитьТелоКакСтроку();
6 ambez
 
02.12.14
05:07
Спасибо! Оно
7 Поpyчик-4
 
02.12.14
08:01
(5) Нафига вы все для запроса используете временный файл, если можно обойтись без него?
8 Лодырь
 
02.12.14
13:01
(7) Не знаю как щаз. А раньше были проблемы с кодировками.
9 Лодырь
 
02.12.14
13:02
(7) Так что методом копипасты код гуляет и гуляет. Перерабатывать его нет желания.
10 Поpyчик-4
 
02.12.14
13:15
(9) Года два уже со времён 8.2.18 можно обходиться без файлов для POST-запроса, а всякую тупню до сих пор суют.
11 ambez
 
02.12.14
15:05
(10) поделитесь может своим варинтом
12 Гёдза
 
02.12.14
15:11
а почему пост? ведь гет же
13 ambez
 
02.12.14
17:30
с параметрами походу
14 Лодырь
 
03.12.14
06:42
(11)
Соединение = Новый HTTPСоединение("innum.ru");
    
    Заголовки = Новый Соответствие();
    Заголовки.Вставить("POST /Query HTTP/1.1");
    Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded");
    
    Запрос = Новый HTTPЗапрос("cgi-bin/info.pl", Заголовки);
    Запрос.УстановитьТелоИзСтроки("&number=79193410000","UTF-8");
    
    HTTPОтвет = Соединение.ОтправитьДляОбработки(Запрос);
    Ответ = HTTPОтвет.ПолучитьТелоКакСтроку();
        
    Возврат Ответ;
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс