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.
