JSON 之 SuperObject(15): 实例 - 模拟 Google 搜索
本例测试效果图:
代码文件:
unit Unit1; interface uses 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; //这是将字符串转换成 UTF 编码的函数, 这里用于 Google 的搜索地址 function ToUTF8Encode(str: string): string; var b: Byte; begin for b in BytesOf(UTF8Encode(str)) do Result := Format('%s%s%.2x', [Result, '%', b]); end; //这是给 ISuperObject 准备的方法 procedure Proc(const This, Params: ISuperObject; var Result: ISuperObject); var jo: ISuperObject; begin Form1.Memo1.Clear; for jo in Params['responseData.results'] do with Form1.Memo1.Lines do begin Add(jo.Format('%titleNoFormatting%:')); Add(jo.Format('%unescapedUrl%')); Add(EmptyStr); end; end; procedure TForm1.Button1Click(Sender: TObject); const u = 'http://www.google.cn/uds/GwebSearch?callback=response&rsz=large&v=1.0&q='; var jo: ISuperObject; req: IXMLHTTPRequest; url: WideString; begin jo := SO; jo.M['response'] := @Proc; {搜索结果将是类似 response(...) 函数格式的字符串} url := u + ToUTF8Encode(Edit1.Text); {准备搜索地址} //搜索 req := CoXMLHTTP.Create; req.open('Get', url, False, EmptyParam, EmptyParam); req.send(EmptyParam); //搜索结果在 req.responseText(后付其全部内容), 下面语句将调用上面的 Proc 过程. jo[req.responseText]; {这是在本系列"方法"一节用到的第二种调用方法} end; end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 358 ClientWidth = 547 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Memo1: TMemo Left = 0 Top = 0 Width = 412 Height = 358 Align = alLeft Lines.Strings = ( 'Memo1') ScrollBars = ssBoth TabOrder = 0 ExplicitHeight = 346 end object Button1: TButton Left = 440 Top = 72 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 1 OnClick = Button1Click end object Edit1: TEdit Left = 418 Top = 24 Width = 121 Height = 21 TabOrder = 2 Text = 'Delphi' end end
下面是我以 "Delphi" 为关键字搜索返回的 responseText, 可以做个搜索工具了:
response( { "responseStatus": 200, "responseData": { "cursor": { "pages": [ { "label": 1, "start": "0" },{ "label": 2, "start": "8" },{ "label": 3, "start": "16" },{ "label": 4, "start": "24" },{ "label": 5, "start": "32" },{ "label": 6, "start": "40" },{ "label": 7, "start": "48" },{ "label": 8, "start": "56" }], "currentPageIndex": 0, "estimatedResultCount": "6050000", "moreResultsUrl": "http:\/\/www.google.cn\/search?oe=utf8&ie=utf8&source=uds&start=0&hl=zh-CN&q=Delphi" }, "results": [ { "titleNoFormatting": "『Delphi园地』-源码,控件,文档,工具,免费下载,建设专业Delphi资源平台", "url": "http:\/\/www.delphifans.com\/", "cacheUrl": "http:\/\/www.google.com\/search?q=cache:gxlSlu0OTqQJ:www.delphifans.com", "GsearchResultClass": "GwebSearch", "visibleUrl": "www.delphifans.com", "content": "提供Delhpi技巧文章、源码、控件、文档、工具等。", "title": "『<b>Delphi<\/b>园地』-源码,控件,文档,工具,免费下载,建设专业<b>Delphi<\/b>资源平台", "unescapedUrl": "http:\/\/www.delphifans.com\/" },{ "titleNoFormatting": "Delphi - 维基百科，自由的百科全书", "url": "http:\/\/zh.wikipedia.org\/wiki\/Delphi", "cacheUrl": "http:\/\/www.google.com\/search?q=cache:KPWnJZ_ZuuQJ:zh.wikipedia.org", "GsearchResultClass": "GwebSearch", "visibleUrl": "zh.wikipedia.org", "content": "<b>Delphi<\/b>，是Windows平台下的著名快速应用程序开发工具(Rapid Application Development ，简称RAD)。它的前身是在DOS下的产品BorlandTurbo Pascal，最早的版本由 <b>...<\/b>", "title": "<b>Delphi<\/b> - 维基百科，自由的百科全书", "unescapedUrl": "http:\/\/zh.wikipedia.org\/wiki\/Delphi" },{ "titleNoFormatting": "DELPHI盒子- Delphi源代码控件文档工具下载", "url": "http:\/\/www.2ccc.com\/", "cacheUrl": "http:\/\/www.google.com\/search?q=cache:CF650RgvoJkJ:www.2ccc.com", "GsearchResultClass": "GwebSearch", "visibleUrl": "www.2ccc.com", "content": "<b>DELPHI<\/b>源代码、组件、例子、演示及相关工具下载，文档发布，全站包含论坛，笔记等功能 ，每天更新。", "title": "<b>DELPHI<\/b>盒子- <b>Delphi<\/b>源代码控件文档工具下载", "unescapedUrl": "http:\/\/www.2ccc.com\/" },{ "titleNoFormatting": "编程中国>> 技术教程>> 开发语言>> Delphi", "url": "http:\/\/www.bccn.net\/Article\/kfyy\/delphi\/", "cacheUrl": "http:\/\/www.google.com\/search?q=cache:vjiBcr2xV14J:www.bccn.net", "GsearchResultClass": "GwebSearch", "visibleUrl": "www.bccn.net", "content": "普通文章, 第二章<b>Delphi<\/b>面向对象的编程方法（一）, 06-25. 普通文章 <b>...<\/b> 普通文章, 用 <b>Delphi<\/b>制作以浏览器为界面的应用程序, 08-30. 普通文章, <b>Delphi<\/b> 中串口通讯的实现 <b>...<\/b>", "title": "编程中国>> 技术教程>> 开发语言>> <b>Delphi<\/b>", "unescapedUrl": "http:\/\/www.bccn.net\/Article\/kfyy\/delphi\/" },{ "titleNoFormatting": "Delphi is a leading global supplier for the automotive, computing ...", "url": "http:\/\/www.delphi.com\/", "cacheUrl": "http:\/\/www.google.com\/search?q=cache:r5kD35m3Ns0J:www.delphi.com", "GsearchResultClass": "GwebSearch", "visibleUrl": "www.delphi.com", "content": "Supplier of audio systems, modules, and components to manufacturers and replacement parts to the after market worldwide.", "title": "<b>Delphi<\/b> is a leading global supplier for the automotive, computing <b>...<\/b>", "unescapedUrl": "http:\/\/www.delphi.com\/" },{ "titleNoFormatting": "delphi 窑洞", "url": "http:\/\/www.51delphi.com\/", "cacheUrl": "http:\/\/www.google.com\/search?q=cache:Kgv5hBXmSFgJ:www.51delphi.com", "GsearchResultClass": "GwebSearch", "visibleUrl": "www.51delphi.com", "content": "基于<b>Delphi<\/b> 的Rich Internet Application开发和应用平台 。 <b>...<\/b> 61449, <b>Delphi<\/b> 7的 Property OldCreateOrder does not exist(1786字节), javer007, 2009-10-12 14:42:48 <b>...<\/b>", "title": "<b>delphi<\/b> 窑洞", "unescapedUrl": "http:\/\/www.51delphi.com\/" },{ "titleNoFormatting": "delphi专栏_软件开发_最专业的程序开发网站_开发者网络_软件_天极网", "url": "http:\/\/dev.yesky.com\/ysdevdelphi\/", "cacheUrl": "http:\/\/www.google.com\/search?q=cache:j-qd-w9ESrwJ:dev.yesky.com", "GsearchResultClass": "GwebSearch", "visibleUrl": "dev.yesky.com", "content": "在<b>Delphi<\/b>数据库应用系统的数据录入过程中，有些数据是保存在Excel中的；有些是保存 <b>...<\/b> 为了便于开发数据库应用程序，在<b>Delphi<\/b>集成开发环境中，提供了大量的数据库工具 <b>...<\/b>", "title": "<b>delphi<\/b>专栏_软件开发_最专业的程序开发网站_开发者网络_软件_天极网", "unescapedUrl": "http:\/\/dev.yesky.com\/ysdevdelphi\/" },{ "titleNoFormatting": "Delphi俱乐部", "url": "http:\/\/www.tommstudio.com\/", "cacheUrl": "http:\/\/www.google.com\/search?q=cache:9JQ4L48RA1QJ:www.tommstudio.com", "GsearchResultClass": "GwebSearch", "visibleUrl": "www.tommstudio.com", "content": "dephi俱乐部,c#,<b>delphi<\/b>,<b>delphi<\/b>控件,<b>delphi<\/b>源码,<b>delphi<\/b>书籍,商业源码,程序开发,源码 交易,开发,方案, <b>...<\/b> Net,Java,PowerBuilder,PHP,ASP,PERL 免费源码下载,<b>Delphi<\/b>俱乐部 .", "title": "<b>Delphi<\/b>俱乐部", "unescapedUrl": "http:\/\/www.tommstudio.com\/" }] }, "responseDetails": null } )
