FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como obtengo la direccion ip de internet???
Buenos dia compañeros del foro, necesito de su ayuda, como puedo ver la direccion ip con la que estoy conectado???
__________________
____________________________ Un saludo a todos... |
#2
|
|||
|
|||
Ahí lo tienes
|
#3
|
|||
|
|||
Desde Delphi, no tengo ni idea, pero utilizando tu navegador puedes conectarte a un montón de páginas que te dan esa utilidad, ahora sólo se me ocurre la de ADSL FOR EVER : http://www.adsl4ever.com
Ciao
__________________
Rafita. |
#4
|
|||
|
|||
Gracias por responderme, pero creo que no me explique bien lo que yo deseo es realizar una aplicacion que mede mi direccion ip por la cual me conecto a internet , el codigo que tengo para saber la ip local y el name de la maquina es el siguiente;
Code: _______________________________________________________________ procedure TForm1.FormCreate(Sender: TObject); Var wVersionRequested : WORD; wsaData : TWSAData; begin {Start up WinSock} wVersionRequested := MAKEWORD(1, 1); WSAStartup(wVersionRequested, wsaData); end; 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; ________________________________________________________________ mi pregunta es como puedeo hacer atreves de delphi saber mi direccion ip de internet. agradesco su ayuda.
__________________
____________________________ Un saludo a todos... |
#5
|
|||
|
|||
Buscando por ahí encontré esto
http://www.delphifaq.com/fq/q2056.shtml creo que te puede servir Ciao
__________________
Rafita. |
#6
|
|||
|
|||
Disculpen la molestia pero no logro obtener la direccion Ip de internet el codigo que me recomendaron fue este pero me da una direccion errada
Code ________________________________________________________________ function My_IP_Address : longint; var buf : array [0..255] of char; RemoteHost : PHostEnt; begin Winsock.GetHostName(@buf, 255); RemoteHost:=Winsock.GetHostByName(buf); if RemoteHost=NIL then My_IP_Address := winsock.htonl($07000001) { 127.0.0.1 } else My_IP_Address := longint(pointer(RemoteHost^.h_addr_list^)^); Result := Winsock.ntohl(Result); end; procedure TForm1.Button2Click(Sender: TObject); begin Memo1.Lines.Add(IntToStr(My_IP_Address)); end; _______________________________________________________________ El resultado de este codgo es el siguiente: -1062731739 y mi direccion Ip es: 200.89.56.56 esta direccion es dinamica. Que le falta a este codigo o si tienen uno que me pueda ayudar?? Gracias.
__________________
____________________________ Un saludo a todos... |
#7
|
||||
|
||||
Busca ese mismo topico en el foro de Internet, que se ha tocado varias veces antes.
__________________
Héctor Geraldino Software Engineer |
#8
|
|||
|
|||
Gracias por la sugerencia hector lo e buscado pero solo consigo codigos para obtener el IP Local.
__________________
____________________________ Un saludo a todos... |
#9
|
||||
|
||||
...y eso es porque no has buscado bien.
Este es uno de los enlaces: http://www.clubdelphi.com/foros/showthread.php?t=5807
__________________
Héctor Geraldino Software Engineer |
#10
|
|||
|
|||
Gracias hertor por la ayuda que me has prestado, observe el codigo pero no se que componente usas y donde encontrarlo??
__________________
____________________________ Un saludo a todos... |
#11
|
||||
|
||||
Componente ClientSocket que viene en cualquier instalacion de delphi (al menos en la 4 & 5, que son las que uso)
Si no los tienes, puedes traducirlo con el uso de las Indy, y los metodos que tenga para envio de texto y captura de eventos de texto recibido. Cualquier cosa, F1
__________________
Héctor Geraldino Software Engineer |
|
|
|