[delphi] IP ale nie child IP

Jak można uzyskać swoje IP(zewnętrzne) jeżeli ma się zainstalowaną kartę sieciową z maską podsieci i numerem child I {glowa}
P???--Le murdoc

Może o to chodzi:

procedure TFrmGlowna.BtnCzytajClick(Sender: TObject);
var
p:PHostEnt;
s:array[0..128] of char;
p2:pchar;
begin
GetHostName(@s, 128);
p := GetHostByName(@s);
p2 := iNet_ntoa(PInAddr(p^.h_addr_list)^);
end;

MBK.

nie wiem czy działa bo chyba trzeba coś do uses dodać..........

{glowa} --Le murdoc

chiba Ci murdoc nie oto chodzilo
BTW co ty w tajemnicy przede mną klecisz w tym Delphi?? :-)

--
[email protected]
POZDRAWIAM
DELPHI RULEZ
NIECH MOCz BĘDZIE Z WAMI
:-))

Jak by co to:

uses winsock;

MBK

Grosse dzięki mbr..................{brawo}--Le murdoc

.........................MBk of course :P --Le murdoc