Internet connection ja/nein ?

[shmia]

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;