Имя: Пароль:
1C
1C 7.7
v7: Помогите перевести примеры авторизации с cURL на XMLHTTP
0 OnePrg
 
01.02.23
14:55
1 Kassern
 
01.02.23
14:58
(0) С курла можете через постман в удобный для вас вид перевести.
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;
    Исключение
        ОписаниеРезультата = "Ошибка отправки запроса: " + РазделительСтрок + ОписаниеОшибки();
        Ответ     = "";
    КонецПопытки;    
    Возврат Ответ;
КонецФункции