Testen ob Internet-Verbindung besteht

[Christian Seehase]

Moin Xero,

schau Dir noch mal die Doku zu InternetGetConnectedState an.
Der erste Parameter wird von der Funktion gefüllt, es spielt eigentlich keine Rolle, was Du übergibst.

Übrigens:
Den Registry Value "Remote Connection" habe ich nicht. (den Key davor schon).
Damit dürfte ich auch nicht alleine dastehen.

[Delphi-Padawan]

Vielen Dank für eure Bemühungen!
Die werde ich jetzt alle mal direkt ausprobieren!

[Karstadt]

Hallo. Diese funtion funtioniert dann nicht, wenn ich den Steckerziehe und wieder einstecke.

Dann wird imme FALSE geliefert obwhol ich eine IP von DHCP bekommen habe und serve kann..

Delphi-Quellcode:

function Tf_Datenuebertragung.IsInternetConnected: Boolean;
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes :=
    INTERNET_CONNECTION_MODEM +
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

[Luckie]

Lies mal: http://www.marian-aldenhoevel.de/dojo/internet.html

[Karstadt]

Das ist eine sehr traurige geschichte