Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Netzwerkerkennung (LAN) ? (https://www.delphipraxis.net/95487-netzwerkerkennung-lan.html)

newuser01 7. Jul 2007 12:23


Netzwerkerkennung (LAN) ?
 
Hallo

Wie kann ich erkennen in was für einen Netzwerk ich mich gerade befinde ?

Funktionieren sollte es in etwa so

1. erst alle nötigen LAN-Einstellungen holen wie IP-Adresse,Subnetmaske,Standardgateway,DNS-Server
2. dann die entsprechenden Werte bestimmten Variablen übergeben zb. (s_gateway := Standardgateway) und so weiter
3. überprüfen ob ein Router angeschlossen ist und wenn ja überprüfen welche IP-Adresse dieser hat dies ebenfalls einer variablen übergeben zb. (s_router := Router-IP)


vielleicht könnt ihr mir ja mit ein paar Tipps weiterhelfen

Phoenix 7. Jul 2007 12:34

Re: Netzwerkerkennung (LAN) ?
 
Hrm.

Ist das Subnetz in verschiedenen LAN's schon eindeutig ist die Sache klar.
Bei gleichem Subnetz kann die IP des Gateways das Netz identifizieren.
Ist die IP auch gleich schaut man am besten auf die MAC-Adresse des Gateways. Die sollte idealerweise pro Gerät eineindeutig sein und damit das Netz auch definitiv identifizieren.

Wenn das mit der MAC nicht gewünscht ist könnte man auf optionale DHCP-INformationen ausweichen: Ein DHCP-Server kann z.B. NTP-Server bekanntmachen, DNS-Server sowieso, ggf. WINS-Server etc.

Also interessant sind vor allem (und in etwa in der Reihenfolge): Subnetz, IP-Adresse des Gateways, MAC-Adresse des Gateways, per DHCP übergebene Dienste (NTP-Server, DNS-Server).

mkinzler 7. Jul 2007 12:35

Re: Netzwerkerkennung (LAN) ?
 
Schau dir mal JclSysInfo an.
BTW. der Router ist der Standardgateway, anhand der IP-Adresse kannst du versuchen zu zu erkennen ob der Router lokal. Wenn dieser SNMP oder UPnP unterstützt kannst du ihn so erkennen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:20 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