[Помогите!] Показать IP

[stexsis]

Помогать как показать ip через delphi когда я нажимаю button1 ip появилось в ladel1 зарание спасибо

[Dinmaite]

Host и IPaddr - TLabel.

procedure GetHostAndIP;
var
  wVerReq: WORD;
  wsaData: TWSAData;
  i: pchar;
  h: PHostEnt;
  c: array[0..128] of char;
begin
with form1 do
  begin
    wVerReq := MAKEWORD(1, 1);
    WSAStartup(wVerReq, wsaData);
    GetHostName(@c, 128);
    h := GetHostByName(@c);
    Host.Caption := h^.h_Name;
    i := iNet_ntoa(PInAddr(h^.h_addr_list^)^);
    IPaddr.Caption := i;
    WSACleanup;
  end;
end;

[PSHacks]

Можно просто гет запрос на 2ip и от туда спарсить айпи и вывести в лейбел) это нужно?

[windust]

Вот через Get запрос

procedure TForm1.Button1Click(Sender: TObject);
var
html:string;
begin
html:=IdHTTP1.Get('http://2ip.ru/');
Delete(html,1,pos('id="d_clip_button">',html)+length('id="d_clip_button">')-1);
Delete(html,pos('<', html),length(html));
Label1.Caption:=html;
end;