JSON 之 SuperObject(16): 实例

同上例类似, 通过 'http://clients1.google.cn/complete/search?&q=' + "关键字" 可以获取 Google 的关键字搜索排名.

我用 Delphi 为关键字得到的结果是:
window.google.ac.h(  ["Delphi",[      ["delphi 教程", "375,000 结果", "0"],      ["delphi盒子", "74,900 结果", "1"],      ["delphi 下载", "1,580,000 结果", "2"],      ["delphi7 下载", "1,600,000 结果", "3"],      ["delphi是什么", "497,000 结果", "4"],      ["delphi 字符串函数", "352,000 结果", "5"],      ["delphi7 序列号", "302,000 结果", "6"],      ["delphi2009下载", "20,600 结果", "7"],      ["delphi7", "1,330,000 结果","8"],      ["delphi2009正式版下载", "5,710 结果", "9"]    ]  ])

上面结果以 window.google.ac.h(...) 的形式给出, 下面的操作关键就是给 ISuperObject 一个名为 "window.google.ac.h" 的方法, 并指向自定义的过程, 并在过程中完成解析.

---

运行效果图:

---

代码文件:

---

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Memo1: TMemo;    Edit1: TEdit;    Button1: TButton;    procedure Button1Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}uses MsXML, SuperObject;function ToUTF8Encode(str: string): string;var  b: Byte;begin  for b in BytesOf(UTF8Encode(str)) do    Result := Format('%s%s%.2x', [Result, '%', b]);end;procedure Proc(const This, Params: ISuperObject; var Result: ISuperObject);var  jo: ISuperObject;begin  Form1.Memo1.Clear;  for jo in Params['1'] do with Form1.Memo1.Lines do    Form1.Memo1.Lines.Add(jo.format('%2%: %0% - %1%'));end;procedure TForm1.Button1Click(Sender: TObject);const  u = 'http://clients1.google.cn/complete/search?&q=';var  jo: ISuperObject;  req: IXMLHTTPRequest;  url: WideString;begin  jo := SO;  jo.M['window.google.ac.h'] := @Proc;  url := u + ToUTF8Encode(Edit1.Text);  req := CoXMLHTTP.Create;  req.open('Get', url, False, EmptyParam, EmptyParam);  req.send(EmptyParam);  jo[req.responseText];end;end.