Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Mostrar mi IP en una ventana DELPHI. (https://www.clubdelphi.com/foros/showthread.php?t=55283)

JUANRS 12-04-2008 16:18:44

Mostrar mi IP en una ventana DELPHI.
 
Hola a tod@s, haciendo una aplicación en delphi, me ha surgido una idea y a la vez la duda como hacerla, os comento:
Me gustaría crear una ventanita donde en un edit (por ejemplo) me saliera el número de IP de mi máquina local, en caso de que esté en un dominio, pues la IP que tenga mi máquina dentro de ese dominio, o en su caso de una red local.Ya os digo que lo que quiero es que salga la IP de mi máquina, aquella que podemos obtener con un IPCONFIG desde el ms-dos, pero no se si desde DELPHI podemos obtenerla y mostrarla, es mi duda.
Si a alguien se le ocurre o sabe como va, pues me ayudaria bastante. Gracias-

marcoszorrilla 12-04-2008 17:32:55

Yo utilizo esta función:

Código Delphi [-]
function IPLocal: String;
var
  p: PHostEnt;
  s: array[0..128] of char;
  p2: pchar;
  wVersionRequested: WORD;
  wsaData: TWSAData;
begin
  // Arranca la librería WinSock
  wVersionRequested := MAKEWORD( 1, 1 );
  WSAStartup( wVersionRequested, wsaData );

  // Obtiene el nombre del PC
  GetHostName( @s, 128 );
  p := GetHostByName( @s );

  // Obtiene la dirección IP y libera la librería WinSock
  p2 := iNet_ntoa( PInAddr( p^.h_addr_list^ )^ );
  Result := Result + p2;
  WSACleanup;
end;

Un Saludo.

JUANRS 13-04-2008 21:09:30

Perfecto, muchas gracias, funciona a la perfección.
Solo hace falta además añadir : Uses Winsock


La franja horaria es GMT +2. Ahora son las 07:05:04.

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