Detectar IP

[Carliviris]

Necesito saber como detecto una ip en una red con conexion lan por medio de codigo en delphi y de que manera podria hacer comparaciones con esta.

Por ejemplo: si direccion_ip = campo_ip then
algo asi.

please, respondan si tienen conocimientos acerca de esto.

[Sotrono]

Hola, agega Winsock en el uses.

Código Delphi [-]
function ObtenerIp :string; //Es el truco 82 de trucomania (editado)
var
  wVersionRequested : WORD;
  wsaData : TWSAData;
  p : PHostEnt;
  s : array[0..128] of char;
begin
  wVersionRequested := MAKEWORD(1, 1);
  WSAStartup(wVersionRequested, wsaData);
  GetHostName(@s, 128);
  p := GetHostByName(@s);
  Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
  WSACleanUP;
end;

También podes usar algun componente TCP, y chequear la propiedad LocalIp o algo así. Pero te conviene utilizar la función ObtenerIp porque el componente te puede traer problemas cuando lo quieras instalar en otra pc.

Bytes..

[Carliviris]

ey sorry, estaba desconectado
pero voy a intentar hacer lo que me dijiste
gracias

[Carliviris]

ey sotrono
muchas gracias, esta perfecto