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

Данные > Примеры кода 1С > 1С 8.3 HTTP

ПРИМЕРЫ КОДА 1С

Перейти в раздел примеры кода 1С 8.3:

HTTP

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
Иначе
//обработчик ошибочных кодов
КонецЕсли;

КонецПроцедуры

отзывы

____________________

Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник