На страрых версиях обмена может быть такая проблема, когда не подключается по защищщенному соединению.
Для этого поменял код :
Для этого поменял код :
| Код |
|---|
//Порт = ?(ЗначениеЗаполнено(СтруктураПараметровСайта.Порт), СтруктураПараметровСайта.Порт, 80);
//Попытка
//
// Соединение = Новый HTTPСоединение(СтруктураПараметровСайта.Сервер, Порт, СтруктураПараметровСайта.ИмяПользователя, СтруктураПараметровСайта.Пароль, ИнтернетПрокси);
//
//Исключение
//
// ОбщегоНазначения.СообщитьОбОшибке("Не удалось установить соединение с сервером " + СтруктураПараметровСайта.Сервер + ":" + Строка(СтруктураПараметровСайта.Порт) + ".
// |Проверьте правильность адреса сервера, порт, имя пользователя и пароль.");
//
// Соединение = Неопределено;
//
//Конецпопытки;
// ФАН 25.07.06 - Переделал предыдущий блок
// Настройка параметров соединения
Порт = ?(ЗначениеЗаполнено(СтруктураПараметровСайта.Порт), СтруктураПараметровСайта.Порт, Неопределено);
Таймаут = 0; // Таймаут по умолчанию 30 секунд
Если СтруктураПараметровСайта.ЗащищенноеСоединение Тогда
// Создаем объект для защищенного соединения
SSL = Новый ЗащищенноеСоединениеOpenSSL(
Новый СертификатКлиентаWindows(СпособВыбораСертификатаWindows.Выбирать),
Новый СертификатыУдостоверяющихЦентровWindows()
);
Иначе
SSL = Неопределено;
КонецЕсли;
Попытка
Соединение = Новый HTTPСоединение(
СтруктураПараметровСайта.Сервер, // Сервер
Порт, // Порт (по умолчанию 80/443)
СтруктураПараметровСайта.ИмяПользователя, // Пользователь
СтруктураПараметровСайта.Пароль, // Пароль
ИнтернетПрокси, // Прокси
Таймаут, // Таймаут (сек)
SSL, // SSL параметры
//Ложь // Использовать аутентификацию ОС
);
Исключение
ОбщегоНазначения.СообщитьОбОшибке("Не удалось установить соединение с сервером " +
СтруктураПараметровСайта.Сервер +
?(ЗначениеЗаполнено(Порт), ":" + Строка(Порт), "") + ".
|Проверьте:
|- правильность адреса сервера
|- доступность порта
|- имя пользователя и пароль"
+ ?(SSL <> Неопределено, "|- сертификат безопасности", ""));
Соединение = Неопределено;
КонецПопытки;
Возврат Соединение;
|