Zitat von
ghost007:
Delphi-Quellcode:
try
begin
idFTP1.Connect;
idFTP1.Get('example.exe','example.exe',true,true);
end;
except
begin
ShowMessage('keine internetverbindung vorhanden');
end;
Deine User werden dich hassen!!!
Was, wenn z.B. nur der
FTP-Server down ist ??
Dann kommt die Meldung "keine internetverbindung vorhanden"; was ja überhaupt nicht stimmt.
So ist es viel besser:
Delphi-Quellcode:
try
idFTP1.Connect;
idFTP1.Get('
example.exe','
example.exe',true,true);
except
on E:
Exception do
begin
E.
Message := '
Download vom FTP-Server '+idFTP1.Host++'
fehlgeschlagen!'#13#10+
E.
Message;
// orginale Fehlermeldung anhängen
if not IsInternetConnected
then
E.
Message := E.
Message+ #13#10+'
Bitte Internetverbindung prüfen.';
raise;
// Fehler neu auslösen
end;
end;