Internetverbindung feststellen mit Delphi 5

**Delphi-Narr**

Hallo, ich möchte mir ein eigenes Downloadprogramm pogrammieren.
Dazu soll getestet werden ob eine Verbindung zum Internet besteht.

Habe dazu folgendes verwendet:

markieren

Delphi-Quellcode:

			function TLoading.IsInternetConnected: Boolean; 

begin 

      Result:= InternetCheckConnection(nil, 0,0) 

end;

Bei Uses habe ich noch WinINet hinzugefügt.
Diese Prozedur ruft die Funktion auf:

markieren

Delphi-Quellcode:

			IsInternetConnected;

        if result=false then begin

           showmessage('Error! No Connection found');

           exit;

        end;

Ich bekomme jedoch immer diese Fehlermeldung, warum?

Ich habe habe sowohl ein DSL-Kabel am Laptop, als auch WLAN.
Die Verbindung besteht auf jeden Fall.
Findet jemand den Fehler?

Liebe Grüße!

Internetverbindung feststellen mit Delphi 5

Internetverbindung feststellen mit Delphi 5

Forumregeln