Eigene IP Adresse ermitteln

[Astat]

Hallo Cicaro.

Zitat von Cicaro:

Möglichst kurz und einfach sollte es sein, damit man es verstehen kann.

Windows arbeitet mit Adaptoren, dh. Pro Netzwerkkarte gibt es einen Netzwerkadapter.
Es gibt Hardware und Software Adaptoren (virtuelle Adaptoren).
Virtuelle Adaptoren können mittels API in fast beliebiger Anzahl erstellt werden.
Jeder Adapter erhält eine MAC-Adresse und IP.
Also wenn Du die IP ermitteln möchtest, musst du wissen von welchem Adapter du diese auslesen willst.

Beispiel Notebook:
W-Lan, NIC, ISDN, ADSL, Firewalls, Virenscanner, BlueTooth usw.
Hier kann es möglich sein, dass bis zu 7 IP's (Adaptoren) vorhanden sind.

Also Kurz und einfach, ohne sich genauer mit der Materie zu beschäftigen, wirds nicht gehen!

Wenn Du Komponenten wie "ScktComp" verwendest, wird immer die IP des an den Adapter gebundenen Sockets ausgegeben.

Bei Verwendung von "komplizierter" Socket-API oder IPHelper-API ist es jederzeit möglich alle IP's korrekt zu ermitteln!

Oder man verwendet die "kurz und knackige Java Funktion", und weiss anschliessend nicht was man eigentlich getan hat!

Zitat von Cicaro:

Wie kommt man an die eigene IP in einer Konsolen-Anwendung.

Mit den genannten API's!

http://msdn.microsoft.com/en-us/library/aa366073(VS.85).aspx
http://msdn.microsoft.com/en-us/library/ms740506(VS.85).aspx

lg. Astat

[Schwedenbitter]

Auf den Zug will/muss ich mal aufspringen:

Zitat von Astat:

... Also wenn Du die IP ermitteln möchtest, musst du wissen von welchem Adapter du diese auslesen willst.

Beispiel Notebook:
W-Lan, NIC, ISDN, ADSL, Firewalls, Virenscanner, BlueTooth usw.
Hier kann es möglich sein, dass bis zu 7 IP's (Adaptoren) vorhanden sind.

Also Kurz und einfach, ohne sich genauer mit der Materie zu beschäftigen, wirds nicht gehen!

Wie kann ich das herausfinden?
Ich brauche genau den Adaptor, mit dem ich im lokalen Netz verbunden bin. Folgende Funktion liefert mir zwar mehrere IP. Dass die letzte nicht immer die passende sein muss, ist mir dabei klar. Aber wie löse ich dieses Zuordnungsproblem?

Delphi-Quellcode:

Function GetLocalIP: String;
Type
   TaPInAddr      = Array [0..10] Of PInAddr;
   PaPInAddr      =^TaPInAddr;
Var
   Buffer         : PAnsiChar;
   aWSAData         : TWSAData;
   aHostEnt         : PHostEnt;
   pptr            : PaPInAddr;
   I               : Integer;
Begin
   Result:= '';
   Buffer:= Addr(Result[1]);
   If (WSAStartup($0101, aWSAData) = 0) Then
   Try
      If (GetHostName(buffer, MAX_PATH) <> 0) Then
      Begin
         aHostEnt:= GetHostByName(buffer);
         If (aHostEnt <> nil) Then
         Begin
            pPtr:= PaPInAddr(aHostEnt^.h_addr_list);
            I:= 0;
            While (pPtr^[I] <> nil) Do
            Begin
               Result:= String(inet_ntoa(pptr^[I]^));
               Inc(I);
            End;
         End;
      End;
   Finally
      WSACleanup;
   End;
End;

Ich habe übrigens 3 IP-Adressen: 1x LAN, 1x WLAN, 1x VirtualBox-Adapter. Das Problem dabei ist, dass ich an 2 Laptops mit gleicher Konfiguration unterschiedliche Ergebnisse bekomme. Ich vermute, dass es allein an der Installationsreihenfolge der Treiber liegt.

P.S. Ich finde übrigens diese überall zu findende Funktion nicht so furchtbar, dass man sich nach Java flüchten müsste.

[Valle]

Das Problem an deine Aufgabe ist, dass es nicht den Adapter mit der IP gibt.

Ein Adapter kann problemlos mehrere IPs haben. Und du kannst über mehrere Adapter auch mit mehreren Netzen verbunden sein. Du solltest immer davon ausgehen, dass sowas vorkommen kann. Bring deinem Programm bei, mit allen Umständen umgehen zu können. Es wäre unheimlich ärgerlich, wenn dein Programm nicht benutzbar wäre, weil du dachtes, es sei einfacher für den Benutzer, wenn er keinerlei Auswahlmöglichkeit hat.

Ansonsten, für einen "Einfachen Modus" oder als Standardauswahl: Nimm den Adapter mit dem Netz, der zuständig für die Standardroute (0.0.0.0 mit Maske 0.0.0.0) ist:

Code:

C:\Users\Valentin>route PRINT -4

[...]

IPv4-Routentabelle
===========================================================================
Aktive Routen:
     Netzwerkziel    Netzwerkmaske          Gateway    Schnittstelle Metrik
          0.0.0.0          0.0.0.0      192.168.1.1     192.168.1.50     10   <-- Standardroute mit Gateway- und Adapter-IP
        127.0.0.0        255.0.0.0   Auf Verbindung         127.0.0.1    306
        127.0.0.1  255.255.255.255   Auf Verbindung         127.0.0.1    306
  127.255.255.255  255.255.255.255   Auf Verbindung         127.0.0.1    306
      169.254.0.0      255.255.0.0   Auf Verbindung    169.254.168.57    266
   169.254.168.57  255.255.255.255   Auf Verbindung    169.254.168.57    266
  169.254.255.255  255.255.255.255   Auf Verbindung    169.254.168.57    266
      192.168.1.0    255.255.255.0   Auf Verbindung      192.168.1.50    266
     192.168.1.50  255.255.255.255   Auf Verbindung      192.168.1.50    266
    192.168.1.255  255.255.255.255   Auf Verbindung      192.168.1.50    266
        224.0.0.0        240.0.0.0   Auf Verbindung         127.0.0.1    306
        224.0.0.0        240.0.0.0   Auf Verbindung    169.254.168.57    266
        224.0.0.0        240.0.0.0   Auf Verbindung      192.168.1.50    266
  255.255.255.255  255.255.255.255   Auf Verbindung         127.0.0.1    306
  255.255.255.255  255.255.255.255   Auf Verbindung    169.254.168.57    266
  255.255.255.255  255.255.255.255   Auf Verbindung      192.168.1.50    266
===========================================================================
Ständige Routen:
  Keine

Obacht: es kann auch mehrere Standardrouten geben. Nimm die mit höchster Priorität (kleinster Metrik).

[BoolString]

Was ist mit so was:
code10.info IP Adapter

Hab so was vor Jahren auch mal gebraucht und dort öffentlich gestellt...

Jan

[Schwedenbitter]

Zitat von Valle:

... Ansonsten, für einen "Einfachen Modus" oder als Standardauswahl: Nimm den Adapter mit dem Netz, der zuständig für die Standardroute (0.0.0.0 mit Maske 0.0.0.0) ist:

Code:

C:\Users\Valentin>route PRINT -4
(...)

Obacht: es kann auch mehrere Standardrouten geben. Nimm die mit höchster Priorität (kleinster Metrik).

Das gefällt mir.
Nach welchen Befehlen kann ich das mit Delphi realisieren? Wonach muss ich suchen?
Ich wollte das ungern über einen Shell-Aufruf mit anschließendem Einlesen und Auswerten einer externen Datei.

Zitat von BoolString:

Was ist mit so was:
code10.info IP Adapter

Hab so was vor Jahren auch mal gebraucht und dort öffentlich gestellt...

Jan

So etwas weiß ich zu schätzen. Ich schaue mir das mal an. Metric scheint es in tNetworkInterface auf den ersten Blick dort nicht zu geben...

Danke soweit erstmal für Eure tollen Antworten!

[Schwedenbitter]

Zitat von Schwedenbitter:

... Ich schaue mir das mal an...

Mit Copy & Paste kann man den Code schnell testen.
In Delphi XE5 hagelt es aber Hinweise bzgl. PChar und PAnsiChar sowie zu impliziten String-Umwandlungen. Ein paar schönheitsfehler im Code und am Ende dann aber der Punkt, dass die Funktion immer True zurückgibt. Gibt es dafür einen Grund?
Und am Ende werden von 5 Adaptern auch nur 2 gefunden, wobei der mit der richtigen IP fehlt.

Die von mir eingangs gepostete Funktion liefert das gebrauchte ja auch schon zurück. Ich muss also bloß herausfinden, was die höchste Metric hat, wie man das programmtechnisch mit Delphi umsetzt und dann wäre ich fertig.

[Valle]

Ihr verwechselt hier etwas. Die Funktion von BoolString interiert nur die Adapter. Dort gibt es keine Standardgateways und auch keine Metriken.

Du musst die IPv4 Routingtabelle iterieren. Wie du schon sagst, ist es natürlich besser, das nicht per CLI zu machen!

Ich habe keine Ahnung wie du das mit Delphi machst. Ich denke aber, dass WMI ein Ansatz ist. Google hat mir das hier gezeigt. Suchbegriff ist vor allem "routing table", da findest du sicherlich noch was.

[Schwedenbitter]

Auch das werde ich mir ansehen. Vielleicht hat sich ja schon jemand die Mühe gemacht, das in Delphi umzusetzen. Ich selbst bin bloß Laie und kenne meine Grenzen ganz gut

Allerdings bin ich ein Stück weiter:
Bei meiner teils diffusen Suche bin ich immerhin auf z.B. das und das gestoßen. So ziemlich am Ende steht etwas von einer APIPA-Adresse nach dem Muster 169.254.x.x. Ich habe jetzt festgestellt, dass die anderen Adapter genau eine solche bekommen. Die filtere ich also einfach aus und habe meine Adresse.

So ist jedenfalls mein aktueller Ansatz. Das mit der Metric sehe ich mir aber trotzdem an. Denn es kann auch 2 aktive Adapter geben, wenn man z.B. als Rechner 2 Subnetzen - einmal per LAN, einmal per WLAN oder gar per VPN - angehört. Ich hätte schon gern ein berechnebares Ergebnis der Funktion.