Hi
Das gibts gar nich ich schaffe es einfach nicht eine SSL Verbindung aufzubauen. Es gibt aber auch nirgendwo was vernünftiges dazu zu finden.
Ich hab mir nur um erstmal überhaupt n bisschen mit SSL zu testen eine Client Anwendung und eine Server Anwendung geschrieben.
Der Client besteht nur aus einer Form mit einem Memo (Zum eingeben des Textes der an den Server geschickt werden soll) und einem Senden Button. Dazu habe ich noch die IdTCPClient und IdSSLIOHandlerSocketOpenSSL mit drauf gepackt.
Der Server ist ähmlich aufgebaut nur halt ohne button und einem Memo das den vom Client gesendeten Text anzeigen soll. Zudem ist noch die IdTCPServer und IdServerIOHandlerSSLOpenSSL mit dabei.
Ohne die SSLHandler klappt es einwandfrei
Code:
Server:
Delphi-Quellcode:
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
begin
with AContext.Connection do
begin
memo1.text:=AContext.Connection.IOHandler.ReadLn;
end;
end;
Client:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
with IdTCPClient1
do
try
Connect;
try
IdTCPClient1.IOHandler.WriteLn(memo1.text);
ShowMessage('
Gesendet.');
finally
Disconnect;
end;
except
on E:
Exception do
begin
if e
is EIdOSSLCouldNotLoadSSLLibrary
then
ShowMessage('
SSL Library nicht gefunden!')
else if e
is EIdOSSLConnectError
then
ShowMessage('
Fehler beim Verbinden mit SSL!')
else if e
is EIdOSSLLoadingKeyError
then
ShowMessage('
Fehler beim Verbinden mit SSL (kein Passwort)!')
else
ShowMessage('
Fehler beim Verbinden!');
end;
end;
end;
Ich habe mir nach der
Anleitung die Zertifikat Dateien erstellt und mit in den Handlern angegeben.
Beim Server gibts keine Probleme. Wenn ich aber versuche mit dem Client was zu schicken, dann kommt immer die Meldung "Fehler beim Verbinden mit SSL!"
Weiß einer was ich da ganu einstellen muss? Wahrscheinlich liegt es wieder an so einer Kleinigkeit...
Gruß