2
MWWRuza
гуру
01.02.23
✎
16:34
|
(0) Не понял, Вам пример самого запроса нужен под 7.7 - ?
Тогда вот:
Функция глXmlHttp_ВыполнитьЗапрос(ТипЗапроса="POST", Url, сзJSONЗапрос, КлючСессии="", сзЗаголовки="", СтрОшибка="") Экспорт
Объект = СоздатьОбъект("msxml2.serverxmlhttp.6.0");
Объект.SetTimeouts(10000, 10000, 100000, 10000);
Объект.Open(ТипЗапроса, Url, 0);
Объект.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT");
Объект.SetRequestHeader("Pragma", "no-cache");
Объект.SetRequestHeader("Cache-Control", "no-cache");
Если ПустоеЗначение(ключСессии) = 0 Тогда
Объект.setRequestHeader("Authorization", "Bearer " + КлючСессии);
КонецЕсли;
Если ПустоеЗначение(сзЗаголовки) = 0 Тогда
СчЦикла = 0;
Для СчЦикла = 1 По сзЗаголовки.РазмерСписка() Цикл
ИмяЗаголовка = "";
ЗначениеЗаголовка = сзЗаголовки.ПолучитьЗначение(СчЦикла,ИмяЗаголовка);
Если (ПустоеЗначение(ИмяЗаголовка) = 0) И (ПустоеЗначение(ЗначениеЗаголовка) = 0) Тогда
Объект.SetRequestHeader (ИмяЗаголовка, ЗначениеЗаголовка);
КонецЕсли;
КонецЦикла;
КонецЕсли;
Попытка
Если ПустоеЗначение(сзJSONЗапрос) = 1 Тогда
Объект.Send();
Иначе
Объект.Send(сзJSONЗапрос);
КонецЕсли;
Стат = Объект.Status;
Ответ = Объект.ResponseText;
Исключение
ОписаниеРезультата = "Ошибка отправки запроса: " + РазделительСтрок + ОписаниеОшибки();
Ответ = "";
КонецПопытки;
Возврат Ответ;
КонецФункции
|
|