Bin ich drin ? Ist der eigene Rechner online ?

[CHackbart]

Die einfachste Variante wäre:

Delphi-Quellcode:

function IsInternet: boolean;
var LHTTP: TidHttp;
begin
 LHTTP := TidHttp.create(nil);
 try
  LHTTP.Get('https://www.google.de');
  result := true;
 except
  result := false;
 end;
LHTTP.free;
end;

Christian

[Sherlock]

Und wenn Google zufällig down ist? Oder gerade nicht vom DNS aufgelöst werden kann, warum auch immer?

Verbinde dich einfach dann dahin wo hin Du Dich verbinden musst, wenn es nötig ist. Wenn es klappt: gut, wenn nicht: nicht. Vorher ist eine Prüfung überflüssig und nachher sowieso.

Sherlock