HTTP-запросы в 1С — работа с API

Функция ВыполнитьGETЗапрос(URL) Экспорт
    
    // Парсим URL
    СтруктураURL = ОбщегоНазначенияКлиентСервер.СтруктураURI(URL);
    
    // Создаём соединение
    Если СтруктураURL.Схема = "https" Тогда
        Соединение = Новый HTTPСоединение(
            СтруктураURL.Хост, 443, , , , 30,
            Новый ЗащищенноеСоединениеOpenSSL);
    Иначе
        Соединение = Новый HTTPСоединение(СтруктураURL.Хост, 80);
    КонецЕсли;
    
    // Формируем запрос
    Запрос = Новый HTTPЗапрос(СтруктураURL.ПутьНаСервере);
    
    // Выполняем
    Ответ = Соединение.Получить(Запрос);
    
    Возврат Ответ.ПолучитьТелоКакСтроку();
    
КонецФункции

Функция ВыполнитьPOSTЗапрос(Хост, Путь, ТелоЗапроса, Заголовки = Неопределено) Экспорт
    
    Соединение = Новый HTTPСоединение(Хост, 443, , , , 30,
        Новый ЗащищенноеСоединениеOpenSSL);
    
    Если Заголовки = Неопределено Тогда
        Заголовки = Новый Соответствие;
    КонецЕсли;
    Заголовки.Вставить("Content-Type", "application/json");
    
    Запрос = Новый HTTPЗапрос(Путь, Заголовки);
    Запрос.УстановитьТелоИзСтроки(ТелоЗапроса, КодировкаТекста.UTF8);
    
    Ответ = Соединение.ВызватьHTTPМетод("POST", Запрос);
    
    Возврат Новый Структура("КодСостояния, Тело",
        Ответ.КодСостояния,
        Ответ.ПолучитьТелоКакСтроку());
    
КонецФункции

Функция СтруктураВJSON(Данные) Экспорт
    ЗаписьJSON = Новый ЗаписьJSON;
    ЗаписьJSON.УстановитьСтроку();
    ЗаписатьJSON(ЗаписьJSON, Данные);
    Возврат ЗаписьJSON.Закрыть();
КонецФункции

Функция JSONВСтруктуру(СтрокаJSON) Экспорт
    ЧтениеJSON = Новый ЧтениеJSON;
    ЧтениеJSON.УстановитьСтроку(СтрокаJSON);
    Данные = ПрочитатьJSON(ЧтениеJSON);
    ЧтениеJSON.Закрыть();
    Возврат Данные;
КонецФункции

Заголовки = Новый Соответствие;
Заголовки.Вставить("Authorization", "Bearer " + ВашТокен);
Заголовки.Вставить("Content-Type", "application/json");

Запрос = Новый HTTPЗапрос("/api/data", Заголовки);

// Логин:пароль в Base64
Credentials = Base64Строка(ПолучитьДвоичныеДанныеИзСтроки(
    Логин + ":" + Пароль, КодировкаТекста.UTF8));

Заголовки = Новый Соответствие;
Заголовки.Вставить("Authorization", "Basic " + Credentials);

// Для Ozon
Заголовки.Вставить("Client-Id", ClientId);
Заголовки.Вставить("Api-Key", ApiKey);

// Для Wildberries
Заголовки.Вставить("Authorization", ApiKey);

Процедура ОтправитьВТелеграм(Токен, ChatId, Сообщение) Экспорт
    
    Соединение = Новый HTTPСоединение("api.telegram.org", 443, , , , 30,
        Новый ЗащищенноеСоединениеOpenSSL);
    
    Путь = "/bot" + Токен + "/sendMessage";
    
    ТелоЗапроса = Новый Структура;
    ТелоЗапроса.Вставить("chat_id", ChatId);
    ТелоЗапроса.Вставить("text", Сообщение);
    ТелоЗапроса.Вставить("parse_mode", "HTML");
    
    Заголовки = Новый Соответствие;
    Заголовки.Вставить("Content-Type", "application/json");
    
    Запрос = Новый HTTPЗапрос(Путь, Заголовки);
    Запрос.УстановитьТелоИзСтроки(СтруктураВJSON(ТелоЗапроса));
    
    Ответ = Соединение.ВызватьHTTPМетод("POST", Запрос);
    
    Если Ответ.КодСостояния <> 200 Тогда
        ВызватьИсключение "Ошибка отправки: " + Ответ.ПолучитьТелоКакСтроку();
    КонецЕсли;
    
КонецПроцедуры

Попытка
    Ответ = Соединение.Получить(Запрос);
Исключение
    // Ошибка соединения
    ЗаписьЖурналаРегистрации("HTTP", 
        УровеньЖурналаРегистрации.Ошибка, , ,
        ОписаниеОшибки());
    Возврат Неопределено;
КонецПопытки;

// Проверка кода ответа
Если Ответ.КодСостояния >= 400 Тогда
    // 4xx - ошибка клиента, 5xx - ошибка сервера
    ВызватьИсключение "HTTP " + Ответ.КодСостояния;
КонецЕсли;