Bin ich drin ? Ist der eigene Rechner online ?

[creehawk]

Moin Moin!

Wie kann ich via Delphi prüfen ob mein Rechner online ist?

Kein Gelächter bitte.

creehawk

[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

[HintByError]

Folgende Datei herunterladen und den Inhalt überprüfen:

http://www.msftconnecttest.com/connecttest.txt

Der Inhalt sollte

Code:

Microsoft Connect Test

sein.

Vergleiche folgenden Artikel bei "The Old New Thing" und den dort weiterführenden Hyperlink:

https://devblogs.microsoft.com/oldne...5-00/?p=107399

[Sherlock]

Was nutzt das, wenn der Server, den man eigentlich erreichen möchte, nicht online ist? Oder was nutzt das in 5 Minuten...oder 5 Sekunden? Die Verbindung kann jederzeit gestört werden.

Sherlock

[CHackbart]

Es geht natürlich auch so (unter Windows zumindest):

Delphi-Quellcode:

function HasInternet: boolean; //WinInet
var dwConnectionTypes: DWord;
begin
   dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

Christian

[creehawk]

@chackbart

Genau das hatte ich gemeint.

Alle anderen Dinge wie existiert die Downloaddatei, der Server, steht die Verbindung etc. werden bearbeitet.

Nur die simple Frage : hat der eigene Rechner Internet - das fehlte mir.

Dank an alle!!!

creehawk