Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Besteht eine Internetverbindung? (https://www.delphipraxis.net/46-besteht-eine-internetverbindung.html)

Luckie 9. Jun 2002 14:37

Na dann prüf doch drei Seiten:
Es werden ja wohl nicht alle dieser großen Seiten gleichzeitig offline sein :mrgreen:.

DeCodeGuru 9. Jun 2002 14:51

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 9. Jun 2002 15:46

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. :oops:):
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 9. Jun 2002 15:52

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

MathiasSimmack 9. Jun 2002 21:36

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

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

thomasdrewermann 10. Jun 2002 19:58

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 :lol:

LINKS LEIDER DOWN :oops:

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

Um es neu zu compiliren brauchst du noch eine Kompo:


Viel Spass (wenn du was mit anfangen kannst? :wink: ) :D

czapie 3. Dez 2002 22:32

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

Daniel B 3. Dez 2002 22:35

Hi czapie,

schreib doch einfach unter "uses": WinInet! ;)

Grüsse, Daniel :hi:


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:39 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz