Необходимо настроить получение данных по защищенному соединению SSL.
Исходные данные: есть работающий ресурс (без SSL) и тестовый, на который планируется переход, который защищен SSL.
РесурсНаСервере = Строка("НекотораяСтрока");
РесурсБезSSL = "НекоторыйРесурс1"; //сейчас работаем с ним
РесурсСSSL = "НекоторыйРесурс2"; //тестовый, на который планируется переход
//-------------------Без SSL
Сообщить("-------ТЕСТ БЕЗ SSL-------");
Соединение = Новый HTTPСоединение(НекоторыйРесурс1);
Запрос = Новый HTTPЗапрос(РесурсНаСервере);
HTTPОтвет = Соединение.Получить(Запрос);
Если HTTPОтвет.КодСостояния=Число(200) Тогда
Сообщить("ОК!");
Иначе
Сообщить("НЕ ОК!");
Сообщить("КодСостояния=" + HTTPОтвет.КодСостояния);
КонецЕсли;
//-------------------SSL
Сообщить("-------ТЕСТ SSL-------");
ssl = Новый ЗащищенноеСоединениеOpenSSL;
Соединение = Новый HTTPСоединение(РесурсСSSL,,,,,,ssl);
Запрос = Новый HTTPЗапрос(РесурсНаСервере);
HTTPОтвет = Соединение.Получить(Запрос);
Если HTTPОтвет.КодСостояния=Число(200) Тогда
Сообщить("ОК!");
Иначе
Сообщить("НЕ ОК!");
Сообщить("КодСостояния=" + HTTPОтвет.КодСостояния);
КонецЕсли;
Эта ошибка может говорить о чем угодно. У меня на этой неделе была такая же ошибка. Работало нормально, а потом хлоп и ошибка 500 в какой-то момент. В итоге интернет провайдер что-то у себя переконфигурировал и пошло нормально. Так же обратите внимание, что объект ЗащищенноеСоединениеOpenSSL может создаваться разными с пособами, с указанием разных параметров (в СП, кажется, 4 примера создания описано).
А так?
ssl = Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Неопределено);
Соединение = Новый HTTPСоединение(РесурсСSSL,443,,,,,ssl);
Похоже, заработало, по крайней мере ошибок не выдает, и результат возвращает.
А как проверить, что защита и правда стала надежней? Админ со своей стороны все сделал, я со своей стороны в коде сделал.
Тестировщика у нас по SSL нет Хакера приглашать, - с распиской о неразглашении?
Новую тему не начинаю, потому что ситуация точно такая же.
Сайт переводят с HTTP на HTTPS.
Переделываю обработку обмена.
Запрос
ssl = Новый ЗащищенноеСоединениеOpenSSL(Неопределено,Неопределено);
HTTP = Новый HTTPСоединение(Сайт,443,,,,ssl); //подключение
HTTPЗапрос = Новый HTTPЗапрос("cml/1c_exchange.php?type=catalog&mode=import&filename=offers.xml");
HTTPОтвет = HTTP.Получить(HTTPЗапрос, );
Мичман Харитонов @ Today, 11:40
,
Еще одну запятую...
HTTP = Новый HTTPСоединение(Сайт, 443,,,,, ssl);
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua