DELPHI获取宽带IP

DELPHI获取宽带IP

 

DELPHI获取宽带IP

procedure TForm1.Button1Click(Sender: TObject);
var
url: string;
begin
url := 'http://pv.sohu.com/cityjson?ie=utf-8';
Memo1.Text := IdHTTP1.Get(url);
end;

http://whois.pconline.com.cn/ipJson.jsp 这个URL也能获取。