IP-Adresse auf erreichbarkeit (FTP) überprüfen ?

[newuser01]

ich verbinde mich folgendermaßen über FTP

Delphi-Quellcode:

IdFTP1 := TIdFTP.Create(self);
IdFTP1.Username := 'username';
IdFTP1.Password := 'passwort';
IdFTP1.Host := e_IP.Text;
IdFTP1.Connect;

Wenn der Host also die IP nicht stimmt und eine verbindung nicht möglich ist, wollte ich das mit (Try Except) abfangen.

Delphi-Quellcode:

  IdFTP1 := TIdFTP.Create(self);
  IdFTP1.Username := 'username';
  IdFTP1.Password := 'passwort';
  IdFTP1.Host := e_IP.Text;

try

  IdFTP1.Connect;

except
MessageDlg('Fehler', mtWarning, [mbOK], 0);
end;

Leider funktioniert dies nicht so richtig, das Programm hägt sich auf und erst nach einer weile kommt die (Except Fehlermeldung). Gibt es nicht eine bessere Lösung, wie erreichbarkeit der IP über ein Ping oder sonstiges prüfen?

[ste_ett]

Was meinst du mit "einer Weile"?

Beim connect kann man einen Timeout-Wert als optionalen Parameter mit angeben.

[newuser01]

ein paar Sekunden dauert das schon

meinst du IdFTP1.TransferTimeout ?

[DeddyH]

IdFTP1.Connect(5000) //Timeout in msec

[newuser01]

habs gefunden IdFTP1.ConnectTimeout := 5000;


DANKE für die Hilfe