Como obtener el IP público de conexión de Internet

[JDNA]

Necesito ayuda para saber como se puede saber cual es el IP de Internet de una máquina cuando se a conectado a Internet, en las conexiones dial-up los IPs generalmente son dinámicos y no son los mismos cada vez que nos conectamos a intenet y no se si habrá alguna forma de saber ese IP, no el IP local, el que necesito es el IP públco.

[Paoti]

-Crea una form (Form1) y pon en ella un TButton (Button1) y un TMemo (Memo1)
-Incluye 'Winsock' en la parte uses
-En el evento OnCreate de la form incluye éste código:

  procedure TForm1.FormCreate(Sender: TObject);
         var 
           wVersionRequested : WORD;
           wsaData : TWSAData;
         begin 
          {Start up WinSock}
           wVersionRequested := MAKEWORD(1, 1);
           WSAStartup(wVersionRequested, wsaData);
         end;

-En el evento OnClick del Button1 pon este código:

 procedure TForm1.Button1Click(Sender: TObject);
         var 
           p : PHostEnt;
           s : array[0..128] of char;
           p2 : pchar;
         begin 
          {Get the computer name}
           GetHostName(@s, 128);
           p := GetHostByName(@s);
           Memo1.Lines.Add(p^.h_Name);
          {Get the IpAddress}
           p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
           Memo1.Lines.Add(p2);
         end;

-Finalmente, en el evento OnDestroy de la Form1 pon este código:

  procedure TForm1.FormDestroy(Sender: TObject);
         begin 
          {Shut down WinSock}
           WSACleanup;
         end;

obtenido de trucomania para delphi www.q3.nu/trucomania/

espero te sirva




nos vemos

[JDNA]

Muchas gracias si funciona, pero quisiera saber como supiste como se hacia, he buscado la ayuda de los comandos y no hay en ningún lado. Otra pregunta como puedo saber que funciones tiene una DLL.

[CHiCoLiTa]

Esa solucion te daria la direccion IP, en caso de no tener tarjeta de red.
Si estas dentro de una red local, con ese ejemplo que te han comentado obtendrias tu IP de red, no la de internet.

Todas esas funciones estan en en winsock

[guillotmarc]

Empezado por JDNA

pero quisiera saber como supiste como se hacia, he buscado la ayuda de los comandos y no hay en ningún lado.

Empezado por Paoti

obtenido de trucomania para delphi www.q3.nu/trucomania/

Saludos.





.

[Paoti]

Hola!!! para la ayuda de estas funciones, no las vas a encontrar en Delphi directamente



pertenecen al Api de Windows, si tienes delphi 6 ... 7 en el menu help, encontraras la opcion "windows SDK" o directamnete del MSND....



P.S. Imaginenese si estuvieramos en VB, tendriamos que declarar manualmante los encabezados de todas estas funciones....


Que esten bien!