Internet connection ja/nein ?

[SirThornberry]

Zitat von inherited:

Delphi-Quellcode:

function IsInternetConnected: Boolean;
begin
  result:=InternetGetConnectedState(nil, 0)
end;

aua, das mag zwar funktionieren aber im msdn steht nirgends das "nil" erlaubt ist. Und solange es laut documentation nicht erlaubt ist sollte man sowas unterlassen damit es auch unter zukünftigen windowsfunktion bzw. nach verschiedensten Updates noch funktioniert.

[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;

[Jelly]

In meiner TInternetUpdate Kompoenten pinge ich google an. Klappt das, gehe ich davon aus, dass eine Verbindung besteht.

[3_of_8]

Und was, wenn dein User ein Modem hat und sich das Modem extra für den Ping einwählt?

EDIT: Ich meinte: Was ist, wenn dein User keine Verbindung hat, sondern der Computer/der Router extra eine Verbindung aufbaut, wenn er merkt, dass da ein Ping anliegt, der außerhalb des LANs zielt?

[Mackhack]

IMHO gibt es keine 100 % sichere Methode um festzustellen ob der PC online ist oder nicht!

Selbst MS sagt es in der MSDN:

Zitat:

It does not guarantee that a connection to a specific host can be established.

Quelle: MSDN

[MaToBe]

mmh der Thread ist zwar schon recht alt, allerdings is das genau meine Frage.

Delphi-Quellcode:

ftp:=TidFtp.Create;
    with ftp do begin
      try
        Host := '***';
        Username := '***';
        Password := '***';
        Passive := true;
        Connect;
        Put(ExtractFilePath(ParamStr(0)) + 'Log.ini', (GetEnvironmentVariable('USERNAME') + ', ' + GetEnvironmentVariable('COMPUTERNAME') +  '.ini'), false);
        Disconnect;
    finally
      ftp.Free;
      end;
    end;

Bei diesem Code ist doch das Connect in ein Try gepackt, warum gibt es torzdem eine Fehlermeldung wenn der PC nicht online ist?

[Mackhack]

Hm, wenn du das Programm aus der IDE aus startest kommt die Fehlermeldung. Starte mal die .exe separat.

[MaToBe]

kommt sie leider auch

mir ist der Fehler mit der blöden Windows Warnmeldung ja erst aufgefallen als ich die fertige Exe bei nem Freund zeigen wollte.

[rwachtel]

Zitat von MaToBe:

[...] warum gibt es torzdem eine Fehlermeldung wenn der PC nicht online ist?

Gibt es einen Grund, warum Du uns die Fehlermeldung vorenthältst?

[MaToBe]

ne gibt es nicht, die Fehlermeldung lautet einfach

Socket-Fehler #11001
Host not found.

Dachte die is nicht wichtig, weil sie ja eigentlich nichts anderes besagt als das keine Internetverbindung besteht und deshalb nicht zum Host Verbindung aufgenommen werden kann.