Wie bekomme ich meine eigene IP?

[Flax]

Aber auch wieder nur locale IP!

Kommt man wohl nicht rum die Internet-IP über einen zweiten Rechner zu ermitteln?

weil wenn hinter Router, kennt NUR der Router die IP nach außen hin ???

[SirThornberry]

@flax: Das ist nicht nur die lokale sondern die wirklichen IP's. Die Variante die webseite im I-Net aufzurufen gibt ja nicht wirklich die Internet IP zurück sondern die IP welche die seite aufruft, und dies kann ein Proxy, router etc. sein, und genau das ist ja nicht die eigene IP sonder die von dem Router oder dem Proxy etc.

Wenn deine Mutter dich einkaufen schickt dann sagt die Verkäuferin doch auch nicht das du Mutter XYY bist. Dann bist du nur der Bote (eben wie sonst der Router etc.). Laut deiner Erklärung könnte deine Mutter folgende Behauptung dann aber ausfstellen: "Ich schick mal meinen Sohn bei dir vorbei dann weißt du wer ich bin" - und eben das ist schwachsinn...

[Flax]

Richtig.
Die eigene IP des Rechners ist entweder fest eingestellt oder wird dem eigenen Rechner von einem anderen Rechner im selben LAN zugewiesen. Geht man per DFÜ ins Internet bekommt man eine klare IP zugewiesen vom ISP (hab ich Internet IP genannt). Somit hat man also zwei IPs.

- IP im LAN (z.b. 192.168.0.2)
- IP im WAN (z.b. 82.82.156.156)

Benutzt man aber über LAN einen Internetzugang eines Routers, "weiß" nur der die WAN-IP.

Da stellt sich die Frage, wie man diese am EINFACHSTEN und SICHERSTEN ermitteln kann?

Eine Möglichkeit wurde ja bereits vorgestellt mit dem Abfragen der IP über einen anderen Rechner im Internet.

[freak4fun]

Ja, aber hab ich denn einen anderen Rechner im Internet?

Was weiß ich den wo meine HP drauf liegt? Aber da kann man kein delphiprog laufen lassen.

Vielleicht findet sich ja noch eine "bessere" Lösung.

MfG
fR34k

[chrisw]

Delphi-Quellcode:

uses ...winsock;
function GetLocalIpAddress: string;
var phoste: PHostEnt;
  Buffer: array [0..100] of char;
  WSAData: TWSADATA;
begin
  result:='';
  if WSAStartup($0101, WSAData) <> 0 then exit;
  GetHostName(Buffer,Sizeof(Buffer));
  phoste:=GetHostByName(buffer);
  if phoste = nil then result:='127.0.0.1'
  else result:=StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
  WSACleanup;
end;

[Flax]

@freak4fun: Ja über einen anderen Rechner im Internet der einem die eigene IP flüstert! Genauso. Scheint mir bisher das beste zu sein. Also per DNS resolver.

@chrisw: Die lokal ermittelten IPs sind nur WAN-IP wenn man per DFÜ sich ins Internet einwählt (auch bei DSL)! Ist man aber über Router im Internet, kennt eben nur der die WAN-IP (die dem per ISP zugewiesen wurde).

--

Toll wäre wenn :
Ethernet-Verbindung ermitteln
Herausbekommen über welchen Router/PC die Internetverbindung (Gateway) besteht
Den Gateway-Router/PC abfragen welche WAN-IP der besitzt

Könnte das so gehen?