Hi
ich benutze
Indy 10.5.8.0 und die neusten SSL Files von
http://indy.fulgan.com/SSL/
Connecten und einen einfachen Befehl senden tue ich folgendermaßen:
Delphi-Quellcode:
procedure TForm1.Button10Click(Sender: TObject);
var
ftp2: TIdFTP;
sslio2: TIdSSLIOHandlerSocketOpenSSL;
begin
ftp2 := TIdFTP.Create;
sslIo2 := TIdSSLIOHandlerSocketOpenSSL.Create;
try
ftp2.Username := '
test';
ftp2.Password := '
123';
ftp2.Host := '
IP';
ftp2.Port := 1234;
sslIo2.SSLOptions.Method := sslvSSLv23;
sslIo2.SSLOptions.Mode := sslmBoth;
sslIo2.Port := 21;
sslIo2.PassThrough := false;
ftp2.IOHandler := sslIo;
ftp2.UseTLS := utUseExplicitTLS;
ftp2.AUTHCmd := tAuto;
ftp2.DataPortProtection := ftpdpsClear;
ftp2.Passive := true;
ftp2.Connect;
ftp2.SendCmd('
SITE USERS');
Memo1.Lines.Assign( ftp2.LastCmdResult.Text );
ftp2.Disconnect;
finally
ftp2.Free;
sslIo2.Free;
end;
end;
Beim ersten mal geht alles ohne Probleme, aber beim 2ten Versuch kommt die Meldung:
"
Exception-Klasse EIdTLSClientCanNotSetWhileConnected mit Meldung 'Dieser Wert kann nicht gesetzt werden, während der Client verbunden ist."
Dabei sollte doch alles geschlossen und freigegeben sein!?!?!
Kann wer da helfen?
