Einzelnen Beitrag anzeigen

Benutzerbild von Delphi-Narr
Delphi-Narr

Registriert seit: 29. Aug 2009
Ort: Duisburg
437 Beiträge
 
Delphi 2007 Professional
 
#1

Internetverbindung feststellen mit Delphi 5

  Alt 18. Okt 2009, 16:43
Hallo, ich möchte mir ein eigenes Downloadprogramm pogrammieren.
Dazu soll getestet werden ob eine Verbindung zum Internet besteht.

Habe dazu folgendes verwendet:

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:

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!
  Mit Zitat antworten Zitat