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也能获取。

posted @ 2017-10-26 13:20  delphi中间件  阅读(463)  评论(0编辑  收藏  举报