Zitat von
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:
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!
Dabei fällt mir gerade so auf:
Wenn ich bei FormCreate Result:=True setze, kommt keine Fehlermeldung...