Процедура ВыполнитьHTTPЗапросПростой(МетодЗапроса, АдресХоста, АдресРесурса, ТекстЗапроса = "", ПутьКФайлу = "") Экспорт
//Получение токена авторизации
ТокенАвторизации = "1234567890abcdef1234567890abcdef";
ЗаголовкиHTTP = Новый Соответствие();
ЗаголовкиHTTP.Вставить("Accept", "application/json");
ЗаголовкиHTTP.Вставить("Content-Type", "application/json");
ЗаголовкиHTTP.Вставить("Authorization", "Bearer " + ТокенАвторизации);
HTTPЗапрос = Новый HTTPЗапрос(АдресРесурса, ЗаголовкиHTTP);
Если Не ПустаяСтрока(ТекстЗапроса) Тогда
HTTPЗапрос.УстановитьТелоИзСтроки(ТекстЗапроса, КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать);
ИначеЕсли Не ПустаяСтрока(ПутьКФайлу) Тогда
HTTPЗапрос.УстановитьИмяФайлаТела(ПутьКФайлу);
КонецЕсли;
ЗащищенноеСоединениеSSL = Новый ЗащищенноеСоединениеOpenSSL(Новый СертификатКлиентаWindows, Новый СертификатыУдостоверяющихЦентровWindows);
Соединение = Новый HTTPСоединение(АдресХоста,,,,,, ЗащищенноеСоединениеSSL);
Попытка
Ответ = Соединение.ВызватьHTTPМетод(МетодЗапроса, HTTPЗапрос);
Сообщить("Код ответа: " + Ответ.КодСостояния);
Сообщить("Ответ: " + Ответ.ПолучитьТелоКакСтроку("UTF-8"));
Исключение
Сообщить("Ошибка выполнения запроса!" + Символы.ПС + ОписаниеОшибки());
КонецПопытки;
КонецПроцедуры