Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-04-2006
Carliviris Carliviris is offline
Miembro
 
Registrado: abr 2006
Posts: 93
Poder: 18
Carliviris Va por buen camino
Detectar IP

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.
Responder Con Cita
  #2  
Antiguo 17-04-2006
Avatar de Sotrono
Sotrono Sotrono is offline
Miembro
 
Registrado: abr 2004
Ubicación: Buenos Aires - Argentina
Posts: 396
Poder: 20
Sotrono Va por buen camino
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..
Responder Con Cita
  #3  
Antiguo 17-04-2006
Carliviris Carliviris is offline
Miembro
 
Registrado: abr 2006
Posts: 93
Poder: 18
Carliviris Va por buen camino
ey sorry, estaba desconectado
pero voy a intentar hacer lo que me dijiste
gracias
Responder Con Cita
  #4  
Antiguo 17-04-2006
Carliviris Carliviris is offline
Miembro
 
Registrado: abr 2006
Posts: 93
Poder: 18
Carliviris Va por buen camino
ey sotrono
muchas gracias, esta perfecto
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Detectar finalización de un exe pablomg8 API de Windows 4 14-11-2005 15:32:22
Detectar Hora AM-PM AGAG4 Varios 4 22-10-2004 21:34:18
Detectar Interbase softdelphi Firebird e Interbase 3 31-08-2004 09:22:20
detectar spysoft maruenda Varios 3 17-06-2004 16:33:04
detectar un sonido ebeltete Varios 1 04-03-2004 14:01:03


La franja horaria es GMT +2. Ahora son las 19:25:18.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi