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

Ahí lo tienes
 

www.cualesmiip.com

Saludos

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

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

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

creo que te puede servir

Ciao

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

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

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

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

Este es uno de los enlaces:

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

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

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