idFTP Alternativlogin

[Smaraner]

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;

[Jumpy]

Hat die benutzte FTP-Komponente die Eigenschaft Connected oder IsConnected oder sowas?
Dann könntest du erst Variante 1 versuchen, dabei eventuelle exception abfangen.
Dann auf Connected prüfen, und falls das False ist die zweite Variante versuchen.
Erst wenn du auch da eine Exception bekommst gibst du das weiter.