Hi,
erstmal danke für deine Hilfe. Ich habe das nun wie folgt eingebaut, aber im FTPLog steht immer noch: 2025-03-12 11:41:55,676 mod_tls/2.9.2[4886]: unable to open data connection: TLS negotiation failed
Ich habe das wie folgt eingebunden:
Delphi-Quellcode:
FtpClient.HostName := '
pc238.lan';
// FTP-Server-Adresse
FtpClient.UserName := '
ftpusr';
// FTP-Benutzername
FtpClient.PassWord := '
123456';
// FTP-Passwort
FtpClient.SslType:= sslTypeAuthTls;
FtpClient.SslContext:= TSslContext.Create(
nil);
FtpClient.SslContext.SslVerifyPeer := False;
// Kein Zertifikatscheck
FTPClient.Passive:=True;
writeln('
Verbinde mit FTP-Server...');
FtpClient.Connect;
writeln('
Verbunden!');
ReqDone:=False;
FtpClient.PBSZSize:=0;
FtpClient.PbszAsync;
while (
not ReqDone )
do begin
Application.ProcessMessages;
Sleep(100);
end;
Und im FtpClientRequestDone:
Delphi-Quellcode:
if ( RqType=ftpPbszAsync ) then begin
FtpClient.ProtLevel:='P';
FtpClient.ProtAsync;
end else
if ( RqType=ftpProtAsync ) then begin
ReqDone:=True;
end;
Damit müsste ja sicher gestellt sein das die 2 sachen durch sind. Naja und beim FtpClient.Put kommt immer noch 425 (siehe FTPLog). Ist Falsch was ich gemacht habe? Oder fehlt noch etwas?
Edit: Ich gehe über mitm und kann sehen das die eigenglich Verbindung über TLS läuft. Aber die Daten werden im Klartext gesendet.