Функция ПолучитьJSON(Сервер, Порт, Путь, ТаймаутСек = 30) Экспорт
    
    Соединение = Новый HTTPСоединение(Сервер, Порт, , , , ТаймаутСек);
    Запрос = Новый HTTPЗапрос(Путь);
    Запрос.Заголовки.Вставить("Accept", "application/json");
    
    Ответ = Соединение.Получить(Запрос);
    
    Если Ответ.КодСостояния >= 300 Тогда
        ВызватьИсключение "HTTP " + Ответ.КодСостояния + ": " + Ответ.ПолучитьТелоКакСтроку();
    КонецЕсли;
    
    ЧтениеJSON = Новый ЧтениеJSON;
    ЧтениеJSON.УстановитьСтроку(Ответ.ПолучитьТелоКакСтроку());
    Возврат ПрочитатьJSON(Чтение);
    
КонецФункции