1С 8.3 GET запрос к HTTP серверу
Данные > Примеры кода 1С > 1С 8.3 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
Иначе
//обработчик ошибочных кодов
КонецЕсли;
КонецПроцедуры
Процедура 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
отзывы
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник