Процедура ПолучитьОтвет()
Соединение = Новый HTTPСоединение("maps.google.com",443,,,,,Новый ЗащищенноеСоединениеOpenSSL());
Запрос = Новый HTTPЗапрос(Ресурс);
Ответ = Соединение.Получить(Запрос);
ТекстОтвета = Ответ.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8);
СТруктураОтвета = СтрокуJSONВСтруктуру(ТекстОтвета );
КонцПроцедуры
Функция СтрокуJSONВСтруктуру(ТекстОтвета )
Попытка
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(Значение);
Результат = ПрочитатьJSON(ЧтениеJSON);
ЧтениеJSON.Закрыть();
Исключение
Результат = Неопределено;
КонецПопытки;
Возврат Результат;
КонецФункции