Find EKSTERN ip

Sådan her måske..
http://delphi.about.com/library/weekly/aa103100a.htm

Jeg har prøvet, men får kun min interne ip (192.168.1.1) istedte for min eksterne 213.237.x.x

Hmm er det på Stofa net?

Prøv denne her..
http://80.62.91.114/uploadz/findip.zip

jeg får output:
Hostname: \"my_secret_box\"
IP: \"192.168.1.2\"

Nu er det sådan at det progam jeg bygger vil connecte til en server-app - og så skulle clienten (dette her) sende maskinens ip til serveren (så serveren kunne lave en database over ip\'er connected - lidt ligesom ICQ)..

men er der en måde, så server-app\'en kan chekke den IP connectionen kommer fra?

gå ind på http://www.espeedy.dk/eksperten/ og hent filen USock.pas

læg den i LIB eller i mappen dit program ligger i, og tilføj den i uses.

så kan du bruge denne kode til at få fat i alle IP\'er på computeren.

var
  s: String;
begin
USock.EnumInterfaces(s);
Memo1.Text := s;
end;


/SpEeDy

Eller brug denne lidt mindre kode ;)

Husk at tilføje WinSock i Uses

function GetIP(): string;
Var
  wsaData : TWSAData;
begin
  WSAStartup( 257, wsaData );
  Result := iNet_ntoa( PInAddr( GetHostByName( NIL )^.h_addr_list^ )^ );
  WSACleanup;
end;

/SpEeDy

jeg tror at du bliver nød til at lave noget med at du skal fx lave et asp eller php dokument på en server og så gå på den som så smider din ip tilbage i hoved på dig. jeg ihvertfald du skal til at tænke den vej, for det som speedy forslår virker ikke...

/ZIRON

jeg fandt en vej at krigle det uden at skulle finde den eksterne IP..

Men takker for jeres hjælp - jeg vil forsøge det med PHP-dokumentet...