Como obtengo la direccion ip de internet???

[danytorres]

Buenos dia compañeros del foro, necesito de su ayuda, como puedo ver la direccion ip con la que estoy conectado???

[josemmerida]

www.cualesmiip.com

Saludos

[rafita]

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

[danytorres]

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.

[rafita]

Buscando por ahí encontré esto
http://www.delphifaq.com/fq/q2056.shtml

creo que te puede servir

Ciao

[danytorres]

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.

[[__hector]]

Busca ese mismo topico en el foro de Internet, que se ha tocado varias veces antes.

[danytorres]

Gracias por la sugerencia hector lo e buscado pero solo consigo codigos para obtener el IP Local.

[[__hector]]

...y eso es porque no has buscado bien.

Este es uno de los enlaces:

http://www.clubdelphi.com/foros/showthread.php?t=5807

[danytorres]

Gracias hertor por la ayuda que me has prestado, observe el codigo pero no se que componente usas y donde encontrarlo??

[[__hector]]

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