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;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678