SSL с помощью Indy

  • Автор темы GRAY
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

GRAY

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

admin

Well-Known Member
08.08.2003
2 754
1
#2
GRAY
дебагить надо.
это ж indy. open source. там полувину надо самому дописывать.
 
G

gray

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

admin

Well-Known Member
08.08.2003
2 754
1
#4
gray
Я ничего с SSL не днелал. Но если коды выложишь можно что-нить сказать будет. Я ещё раз говорю. В indy проблем множество. Не зря новую версию с 0 пишут.
 
G

gray

Гость
#5
Я писал текст чисто интуитивно (может быть чего-то не хватает).
Текст примерно такой:
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

Well-Known Member
08.08.2003
2 754
1
#6
gray
хмм. что-то маловато как-то. никаких инициализаций и прочего.
знаешь что. у тебя есть примеры с Indy? погляди как там реализована работа в сервером. там вроде было. просто delphi пока нету и сказать точно не могу.
 
G

gray

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

gray

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

admin

Well-Known Member
08.08.2003
2 754
1
#9
gray
честно говоря даже не знаю
зайди на delphi.mastak.ru там на форуме много опытных дельфийцев.
 
L

Loeron

Гость
#10
Сделай
IdHTTPServer1.IOHandler.Open;
после присоединения оному IdServerIOHandlerSSL1.
 
Статус
Закрыто для дальнейших ответов.