Besteht eine Internetverbindung?

[MathiasSimmack]

Musst du doch nicht. Wenn eine der Seiten gefunden ist, brauchst du die anderen doch nicht prüfen und brichst stattdessen die Funktion mit einem positiven Ergebnis ab.

Und wenn du online bist, sollte dieser Test relativ schnell gehen. Also, keine 2 bis 5 Sekunden dauern.

Kennt jemand diese Funktion hier. Ich möchte behaupten, ich hab´ sie aus´m DF, aber ich weiß nicht mehr von wem. (Nicht, dass ich das am Ende selbst war. Das wär´ ja was. ):

Code:

uses
  WinSock;

function IsOnline: boolean;
var
  wsadata : TWsaData;
  hostent : pHostent;
begin
  Result  := (InternetGetConnectedState(nil,0));

  if(Result) then
    if(WsaStartup(MAKEWORD(1,0),wsadata) = 0) then
      begin
        hostent := GetHostByName('www.microsoft.com');
        Result  := assigned(hostent);

        WsaCleanup;
      end;
end;

Es würde mich interessieren, wie sich diese Funktion bei einem Router verhält. Kann das mal einer testen, der einen hat. Eine Router, meine ich.