1С 8.3 GET запрос к HTTP серверу - Программист 1С Минск. Автоматизация бизнеса.

Перейти к контенту

1С 8.3 GET запрос к HTTP серверу

Перейти в раздел примеры кода 1С 8.3:
Get запрос к серверу в 1С 8.3:
&НаКлиенте
Процедура GetЗапрос()

   
ЗаголовкиЗапроса = Новый Соответствие;
   
ЗаголовкиЗапроса.Вставить("Data", "format=woff2");
   
ЗаголовкиЗапроса.Вставить("Base", "1C");
   
ЗаголовкиЗапроса.Вставить("Cookie", "session=701");

   
HTTPЗапрос=Новый HTTPЗапрос();
   
HTTPЗапрос.Заголовки=ЗаголовкиЗапроса;
   
HTTPЗапрос.АдресРесурса="clients/list";


   
//Новый HTTPСоединение(Сервер, Порт, Пользователь, Пароль, Прокси, Таймаут, ЗащищенноеСоединение, ИспользоватьАутентификациюОС)
    // c таймаутом 60 секунд
   
HTTPСоединение=Новый HTTPСоединение("api.yourserver.by",,,,,30);//полный URL в запросе http://api.yourserver.ru/clients/list
   
СервераОтвет=HTTPСоединение.Получить(HTTPЗапрос);
   
ОтветSRV=СервераОтвет.ПолучитьТелоКакСтроку();
   
КодSRV=СервераОтвет.КодСостояния;

    Если
КодSRV=200 тогда
       
ReadXML=Новый ЧтениеXML;
       
ReadXML.УстановитьСтроку(ОтветSRV);
        Попытка
           
КонтрагентыСписокXDTO=ФабрикаXDTO.ПрочитатьXML(ReadXML,ФабрикаXDTO.Тип("http://api.yourserver.ru/xdto","ClientList"));
        Исключение
           
Сообщить(ИнформацияОбОшибке());
           
Предупреждение("Сервер прислал плохие данные!");
            Возврат;
        КонецПопытки;
       
//обработчик объекта XDTO
   
Иначе
       
//обработчик ошибочных кодов
   
КонецЕсли;

КонецПроцедуры
0
отзывы
____________________
Copyright©, «Программист 1С в г.Минске», 26.03.2021
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник
Назад к содержимому