Internet IP durch LAN

**Kendor**

also mein Problem ist das ermitteln der aktuellen Internet-IP auch wenn man sich über einen Router o.ä. einloggt...
bei PC's die sich über das Telefonnetz einwählen habe ich bisher folgende methode angewandt:

zusammenfalten · markieren

Delphi-Quellcode:

			uses ..., winsock;

function getIPAdress: 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;

Wenn mein PC aber im LAN steht, dann erhalte ich hier nur das übliche 192.168.1.x oder so...
wer kann helfen?
Danke euch!
es grüsst Kendor

PS: Happy New Year

Internet IP durch LAN

Internet IP durch LAN

Forumregeln