1,593
社区成员
发帖
与我相关
我的任务
分享
https://www.sojson.com/open/api/weather/xml.shtml?city=北京
procedure TForm1.Button1Click(Sender: TObject);
var
jo: ISuperObject;
url,outStr: string;
begin
url:='https://www.sojson.com/open/api/weather/json.shtml?city=哈尔滨';
outStr:=UTF8Decode(IdHTTP1.Get(Edit1.Text));
Edit1.Text:=outStr;
IdHTTP1.Free;
end;