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 @   delphi中间件  阅读(464)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示