SSL с помощью Indy

[GRAY]

Где можно найти руководство или пример создания SSL-соединения в Delphi с помощью библиотеки Indy? В примерах к библиотеке Indy я не нашел.
Я пробовал к HTTP-серверу добавить IOHandler IdServerIOHandlerSSL. При запуске прога говорит, что не может загрузить SSLLibrary. В папке Windows\system32 лежат файлы ssleay32.dll и libeay32.dll от OpenSSL 0.9.7C. Что ей еще надо?

 

[admin]

GRAY
дебагить надо.
это ж indy. open source. там полувину надо самому дописывать.

 

[gray]

<!--QuoteBegin-Серёга+22:03:2004, 20:36 -->
<span class="vbquote">(Серёга @ 22:03:2004, 20:36 )</span><!--QuoteEBegin-->GRAY
дебагить надо.
это ж indy. open source. там полувину надо самому дописывать.[/quote]
В исходниках еще разбираться надо, а мне нужно срочно. Может пример какой есть попроще, чтобы разобраться, вдруг я что-то сделал не так

 

[admin]

gray
Я ничего с SSL не днелал. Но если коды выложишь можно что-нить сказать будет. Я ещё раз говорю. В indy проблем множество. Не зря новую версию с 0 пишут.

 

[gray]

Я писал текст чисто интуитивно (может быть чего-то не хватает).
Текст примерно такой:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdServerIOHandler, IdSSLOpenSSL, IdBaseComponent,
IdComponent, IdTCPServer, IdCustomHTTPServer, IdHTTPServer;

type
TForm1 = class(TForm)
IdHTTPServer1: TIdHTTPServer;
IdServerIOHandlerSSL1: TIdServerIOHandlerSSL;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
IdHTTPServer1.IOHandler:=IdServerIOHandlerSSL1;
IdHTTPServer1.Active:=true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
IdHTTPServer1.Active:=false;
end;

end.

 

[admin]

gray
хмм. что-то маловато как-то. никаких инициализаций и прочего.
знаешь что. у тебя есть примеры с Indy? погляди как там реализована работа в сервером. там вроде было. просто delphi пока нету и сказать точно не могу.

 

[gray]

Я смотрел примеры и знаю как работает сервер, но примеров с SSL там нет.

 

[gray]

Я смотрел примеры и знаю как работает сервер, но примеров с SSL там нет.

 

[admin]

gray
честно говоря даже не знаю
зайди на delphi.mastak.ru там на форуме много опытных дельфийцев.

 

[Loeron]

Сделай
IdHTTPServer1.IOHandler.Open;
после присоединения оному IdServerIOHandlerSSL1.