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.