DELPHI7下用superobject读取中国天气网的JSON数据的天气预报

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, StdCtrls,msxml;type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    HttpReq: IXMLHttpRequest;
  end;var
  Form1: TForm1;implementation
uses DateUtils,superobject;
{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
  url: string;
  vJson: ISuperObject;
begin  HttpReq := CoXMLHTTPRequest.Create;  url := 'http://m.weather.com.cn/data/101270401.html';
  HttpReq.open('Get', Url, False, EmptyParam, EmptyParam);
  HttpReq.send(EmptyParam);//开始搜索
  Url := HttpReq.responseText;
  vjson:=so(url);  Memo1.Lines.Clear;
  if vJson['weatherinfo'].AsString<>'' then
  begin
    vjson:=so(vJson['weatherinfo'].AsString);
    memo1.Lines.Add('城市:'+vJson['city'].AsString );
    Memo1.Lines.Add('今日天气('+vJson['date_y'].AsString+' '+vjson['week'].asstring+')：');
    Memo1.Lines.Add('     温度：'+vjson['temp1'].asstring);
    Memo1.Lines.Add('     天气：'+vjson['weather1'].asstring);
    Memo1.Lines.Add('     风力：'+vjson['wind1'].asstring);    Memo1.Lines.Add('明日天气('+FormatDateTime('YYYY年MM月DD日 ',DateUtils.IncDay(now))+')：');
    Memo1.Lines.Add('     温度：'+vjson['temp2'].asstring);
    Memo1.Lines.Add('     天气：'+vjson['weather2'].asstring);
    Memo1.Lines.Add('     风力：'+vjson['wind2'].asstring);    Memo1.Lines.Add(FormatDateTime('YYYY年MM月DD日 ',DateUtils.IncDay(now,2))+'：');
    Memo1.Lines.Add('     温度：'+vjson['temp3'].asstring);
    Memo1.Lines.Add('     天气：'+vjson['weather3'].asstring);
    Memo1.Lines.Add('     风力：'+vjson['wind3'].asstring);    Memo1.Lines.Add(FormatDateTime('YYYY年MM月DD日 ',DateUtils.IncDay(now,3))+'：');
    Memo1.Lines.Add('     温度：'+vjson['temp4'].asstring);
    Memo1.Lines.Add('     天气：'+vjson['weather4'].asstring);
    Memo1.Lines.Add('     风力：'+vjson['wind4'].asstring);    Memo1.Lines.Add(FormatDateTime('YYYY年MM月DD日 ',DateUtils.IncDay(now,4))+'：');
    Memo1.Lines.Add('     温度：'+vjson['temp5'].asstring);
    Memo1.Lines.Add('     天气：'+vjson['weather5'].asstring);
    Memo1.Lines.Add('     风力：'+vjson['wind5'].asstring);
  end;end;
end.