IdHTTPProxyServer HTTPS -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.217.37]

Соблюдайте общие правила форума

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.

Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image

MSDN Library user posted image

FAQ раздела user posted image

Поиск по разделу user posted image

Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image

Krid,

Rouse_

Модераторы: Krid, Rouse_

Новое голосование

IdHTTPProxyServer HTTPS , HTTPS Прокси сервер на Indy

xapm

Сообщ. #1 , 05.06.13, 13:24

Unregistered

Hi,

Вот пробую написать HTTPS сервер,

На форме стандартный IdHTTPProxyServer1 без изменений свойств
далее обрабатываю событие OnBeforeCommand, подключаю через прокси браузер, и наблюдаю картину того что страницы загружаются только на половину.
В чем дело ?

......

IdHTTPProxyServer1.DefaultPort:= 8080;

IdHTTPProxyServer1.Active := true;

.......

procedure TForm1.IdHTTPProxyServer1HTTPBeforeCommand(AContext: TIdHTTPProxyServerContext);

var SSLClienteOut : TIdSSLIOHandlerSocketOpenSSL;

begin

if TIdTCPClient(AContext.OutboundClient).Port=443 then

begin

AContext.OutboundClient.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(AContext.OutboundClient);

AContext.OutboundClient.IOHandler.ReadTimeout:=5000; {}

SSLClienteOut := TIdSSLIOHandlerSocketOpenSSL(AContext.OutboundClient.IOHandler);

SSLClienteOut.SSLOptions.Method := sslvSSLv23;// (sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1)

SSLClienteOut.SSLOptions.SSLVersions := [sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1];

SSLClienteOut.SSLOptions.Mode := sslmBoth; //(sslmUnassigned, sslmClient, sslmServer, sslmBoth);

SSLClienteOut.SSLOptions.VerifyMode := [];

SSLClienteOut.PassThrough := True;

end;

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0.0728 ] [ 16 queries used ] [ Generated: 24.10.26, 04:29 GMT ]