como obtengo la IP?

[federiconqn21]

Hola:quisiera saber como obtener mi direccion IP desde mi aplicacion delphi.
Gracias a quien me pueda ayudar

[[Bicho]]

Prueba esto a ver que tal:

Código Delphi [-]
function GetIP : String;
var p : PHostEnt;
    s : array[0..128] of char;
    wVersionRequested : WORD;
    wsaData : TWSAData;
begin
  wVersionRequested := MAKEWORD(1, 1);
  WSAStartup(wVersionRequested, wsaData);
  GetHostName(@s, 128);
  p := GetHostByName(@s);
  Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
  WSACleanup;
end;

Saludos

[federiconqn21]

hola:no me reconoce el parametro PHostEnt.
tengo que utilizar alguna unit?

[[Bicho]]

Upss!! perdona!

Tienes que incluir Winsock

Tabien puedes usar el componente TCP que tienes en la paleta de componentes de
internet y bastará con que leas sus propiedades LocalHostName y LocalIp

Por ejemplo:

Código Delphi [-]
  Memo1.Lines.Add(TCP1.LocalHostName);
  Memo1.Lines.Add(TCP1.LocalIp);

Pero piensa que es un OCX que luego da más complicaciones a la
hora de instalarlo en otra máquina

Saludos