Besteht Internetverbindung? Software gesucht

[hathor]

Ping ist viel zu aufwändig.

Besser: GetHostByName
http://msdn.microsoft.com/de-de/libr...=vs.85%29.aspx

Alternative: getaddrinfo
http://msdn.microsoft.com/de-de/libr...=vs.85%29.aspx

Delphi-Quellcode:

uses WinSock;

function GHBN(const str: Ansistring): Boolean; //GetHostByName
var PHE : PHostEnt;
begin
  PHE:= NIL; 
  PHE := GetHostByName(PAnsiChar(str));
if PHE<>NIL then 
BEGIN
   LOGFILE(DateTimeToStr(now));
   LOGFILE('Internet: Connected'); Result:=true; // evtl. NICHT speichern
END
else
BEGIN 
   LOGFILE(DateTimeToStr(now));
   LOGFILE('Internet: NOT Connected'); Result:=false; // evtl. nur DIES speichern
END;
end;

Aufruf:
procedure TForm1.Timer1Timer(Sender: TObject); // Timer1.Interval:= 3000;
begin
   GHBN('www.google.de');
end;