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?