Ich habe ein merkwürdiges Problem: Meine Internetverbindung (Teles skyDSL) wird durch eine DFÜ-Verbindung getunnelt. Wenn ich mit folgendem Code herauszufinden versuche, ob eine Verbindung besteht, bekomme ich hin und wieder sehr merkwürdige Ergebnisse. Manchmal zeigt er an, dass die Verbindung getrennt sei, obwohl sie im Netzwerkverbindungen-Dialog als "Hergestellt" angezeigt wird.
Delphi-Quellcode:
uses
WinInet;
var
Verbindungsart: DWORD;
Result: boolean;
Verbindungsart := INTERNET_CONNECTION_MODEM;
if InternetGetConnectedState(@Verbindungsart, 0) then
Result := verbindungsart = 81;
if Result then
showmessage('Die Verbindung ist hergestellt :-)');
Kann ich den Status der Verbindung irgendwie zuverlässiger abfragen? Als Notlösung könnte ich mir noch vorstellen, einfach alle Trayicons mit Titel aufzulisten und die Informationen dort heraus zu bekommen. Das wäre allerdings wirklich nur eine sehr notdürftige Notlösung.