Pegar IP da minha máquina

Delphi

02/02/2004

como pegar meu ip quando meu computador estiver na internet ou em alguma rede local??????


valew....


::d::a::m::m::i::t::

::d::a::m::m::i::t::

Curtidas 0

Respostas

Chico Gois

Chico Gois

02/02/2004

Beleza!

Achei isso aki:

uses Winsock;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  wVersionRequested : WORD;
  wsaData : TWSAData;

begin
  wVersionRequested := MAKEWORD(1, 1);
  WSAStartup(wVersionRequested, wsaData);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  WSACleanup;
end;

procedure TForm1.BtnIPClick(Sender: TObject);
var
   p : PHostEnt;
   s : array[0..128] of char;
   p2 : pchar;

begin
     GetHostName(@s, 128);
     p := GetHostByName(@s);
     Memo1.Lines.Add(p^.h_Name);
     p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
     Memo1.Lines.Add(p2);
end;
end.



Inté+


GOSTEI 0
::d::a::m::m::i::t::

::d::a::m::m::i::t::

02/02/2004

valew meu galo...... hehehe :lol:


GOSTEI 0
Fcmjr

Fcmjr

02/02/2004

Esse codigo acima só informa o nome da maquina e o IP dela na rede local. Como posso conseguir o IP na internet?

Obrigado.


GOSTEI 0
::d::a::m::m::i::t::

::d::a::m::m::i::t::

02/02/2004

aki no meu PC funcionou na internet......


GOSTEI 0
POSTAR