Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Besteht eine DFÜ-Verbindung? (https://www.delphipraxis.net/85582-besteht-eine-dfue-verbindung.html)

Delphi Star 1. Feb 2007 20:18


Besteht eine DFÜ-Verbindung?
 
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. :(

Pfoto 1. Feb 2007 20:25

Re: Besteht eine DFÜ-Verbindung?
 
Hi!

vielleicht bringt es was, wenn Du auf weitere
Verbindungsarten prüfst (läuft denn SkyDSL unter "Modem"?)

etwa so:
Delphi-Quellcode:
Verbindungsart:= INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
Gruß
Pfoto

Delphi Star 1. Feb 2007 20:34

Re: Besteht eine DFÜ-Verbindung?
 
1. Das habe ich schon probiert, ich komme allerdings zum gleichen Ergebnis.
2. Ja, die Internetverbindung wird durch eine DFÜ-Verbindung getunnelt. Diese wird als "Hergestellt" angezeigt, sobald die mitgelieferte Software eine ISDN-Verbindung aufgebaut und die Verbindung zum Satelliten sicher gestellt hat. Wenn man die Software deaktiviert, werden alle Verbindungen gekappt und die DFÜ-Verbindung wieder als "Getrennt" angezeigt.

//Edit:
Ich frage den Status nun mit obigen Code ab und überprüfe es zusätzlich noch über die Tray Icons. Es ist leider sehr schwer verschiedene Tests zu dem Problem durchzuführen, da es offenbar unregelmäßig auftritt.


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:42 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz