Hallo,
ich würde gerne , falls eine Verbindung mit den 1.
FTP Logindaten nicht funktioniert, den Login mit dem 2.
FTP Login Daten ausführen.
Wenn man das Programm startet und die 1. Login nicht funktionieren, erscheint erst einmal die 1. ShowMessage. Dann folgen vom Debugger die Fehlermeldungen Socket Fehler # 11001Host nicht gefunden und Socket Fehler Zeitüberschreitung beim Verbinden. Diese erscheinen beim Ausführen ohne Debugger nicht. Bestätigt man auch diese wird aber trotzdem keine Verbindung mit dem 2. Logindaten versucht. Die letzte ShowMessage wird auch nicht mehr angezeigt. Ich denke, dass es an dem 2. Connect liegt. Muss man da, bevor man ein weiteres mal versucht zu connecten erst etwas zurücksetzen?
Delphi-Quellcode:
begin
try
FTP1.Host := 'server1';
FTP1.Username := 'adresse1.de';
FTP1.Password := 'passwort';
FTP1.Port := ;
FTP1.Connect;
except
ShowMessage('Except Block wird ausgeführt.');
FTP1.Host := 'server2';
FTP1.Username := 'adresse2';
FTP1.Password := 'passwort';
FTP1.Connect;
ShowMessage('Diese Meldung wird nicht angezeigt.');
end;
end;