Foros Club Delphi - como veo la ip a la que se conecta el Router?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)

- - como veo la ip a la que se conecta el Router? (https://www.clubdelphi.com/foros/showthread.php?t=8516)

como veo la ip a la que se conecta el Router?

De antemano Gracias A todos

Tengo una conexion Adsl/Infinitum y un router realiza la conexion atomaticamente, la ip es dinamica.

¿como puedo desde delphi ver que ip me asigna el servidor?

con o sin router

La ip que le asigna a tu pc, o al router (si es que la tiene, claro... )

Por fin un temita al que puedo responder :p , carlosmoralesm, este tema me parece que ya se ha tocado por los foros...

Te adjunto una solución de Trucomanía, el truco 82

Código:

-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:

  

        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:

 

        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:

 

        Código:


        
         procedure TForm1.FormDestroy(Sender: TObject);

         begin 

          {Shut down WinSock}

           WSACleanup;

         end;


 y ya está...

no lo que nececito es el DNS

De antemano gracias

lo que nececito es obtener la direccion IP o DNS que me asigna el Servidor de Interneto (ISP).

Esto me lo enseñó cadetill, pues yo tengo el mismo problema que tu: Tu ip "de internet" (como yo la llamo) la puedes conseguir en Ms-Dos a través del comando ipconfig /all .

ya tengo una respuesta

me conecto a una pagina web http://www.myip.dk/ que en el titulo me da mi ip publico

y de ahi saco el dato

http://www.faqts.com/knowledge_base/.../23120/fid/175

lo encontre en