Ver la Versión Completa : Detectar IP
Carliviris
17-04-2006, 18:06:11
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
17-04-2006, 18:23:45
Hola, agega Winsock en el uses.
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
17-04-2006, 19:05:18
ey sorry, estaba desconectado
pero voy a intentar hacer lo que me dijiste
gracias
Carliviris
17-04-2006, 19:18:26
ey sotrono
muchas gracias, esta perfecto
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.