Besteht eine Internetverbindung?

[Luckie]

Na dann prüf doch drei Seiten:

• www.microsoft.com
• www.borland.com
• www.google.de

Es werden ja wohl nicht alle dieser großen Seiten gleichzeitig offline sein .

[DeCodeGuru]

Hi Leute,

erstmal ein Danke an euch alle, die mir ne Antwort geschrieben haben.

Ich denk auch, dass eine der drei Seiten, die Luckie genannt hat, immer online sein wird. Aber: Der Test darf halt nicht so lange dauern. Ich möchte eigentlich nicht 2-5 Sekunden warten, bis ich das Ergebnis habe.

Verständlich, oder?

[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.

[Luckie]

Hehe, du hast Glück, du machst dich keiner Copyrightverletzung schuldig, denn so weit ich mich erinnern kann, ist sie von dir .

[MathiasSimmack]

Wirklich?
Peinlich, dass ich mich daran nicht erinnern kann ... aber bei dem vielen Code, den ich schon geklau... äh, gefunden habe. Ich weiß nur, dass sie in meinem WebSetup steckt. Aber das sie auch von mir war ... eyh, ich bin ja ein Genie!

Aber die wichtigere Frage: klappt´s denn nun auch mit dem Router

[thomasdrewermann]

Benutzt du eigentlich als router eine FLI4L version?
Wenn ja, kannst du einfach das Paket httpd herunterladen auspacken und im Verzeichnis Config die datei http mit yes versehen. Dann zeigt dein FLI4L Webserver unter der IP des Servers den Status der Verbindung an.

Ich habe mal einen Code entworfen, mit dem du den inhalt auswerten kannst, auflegen kannst, und auf wählen kannst

LINKS LEIDER DOWN

DAS PROGRAMM (NUR MIT FLI4L ROUTERN!!) @Daniel_B läuft auch unter NT/2000/2002

Um es neu zu compiliren brauchst du noch eine Kompo:


Viel Spass (wenn du was mit anfangen kannst? )

[czapie]

Ich weiß das Thema gibts jetzt schon nen Augenblick, aber wo komme ich an diese Uses WinInet ?
Danke,
Czapie.

[Daniel B]

Hi czapie,

schreib doch einfach unter "uses": WinInet!

Grüsse, Daniel