JSON 之 SuperObject(15): 实例 - 模拟 Google 搜索

最新推荐文章于 2022-07-11 07:35:00 发布
最新推荐文章于 2022-07-11 07:35:00 发布
阅读量114 收藏
点赞数
文章标签： 数据库 json 操作系统

本例测试效果图:

o_0910271.gif

代码文件: 
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": "『 Delphi园地』-源码,控件,文档,工具,免费下载,建设专业Delphi资源平台", "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": "Delphi，是Windows平台下的著名快速应用程序开发工具(Rapid Application Development ，简称RAD)。它的前身是在DOS下的产品BorlandTurbo Pascal，最早的版本由 ...", "title": "Delphi - 维基百科，自由的百科全书", "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": "DELPHI源代码、组件、例子、演示及相关工具下载，文档发布，全站包含论坛，笔记等功能 ，每天更新。", "title": "DELPHI盒子- Delphi源代码控件文档工具下载", "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": "普通文章, 第二章Delphi面向对象的编程方法（一）, 06-25. 普通文章 ... 普通文章, 用 Delphi制作以浏览器为界面的应用程序, 08-30. 普通文章, Delphi 中串口通讯的实现 ...", "title": "编程中国>> 技术教程>> 开发语言>> Delphi", "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": "Delphi is a leading global supplier for the automotive, computing ...", "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": "基于Delphi 的Rich Internet Application开发和应用平台 。 ... 61449, Delphi 7的 Property OldCreateOrder does not exist(1786字节), javer007, 2009-10-12 14:42:48 ...", "title": "delphi 窑洞", "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": "在Delphi数据库应用系统的数据录入过程中，有些数据是保存在Excel中的；有些是保存 ... 为了便于开发数据库应用程序，在Delphi集成开发环境中，提供了大量的数据库工具 ...", "title": "delphi专栏_软件开发_最专业的程序开发网站_开发者网络_软件_天极网", "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#,delphi,delphi控件,delphi源码,delphi书籍,商业源码,程序开发,源码 交易,开发,方案, ... Net,Java,PowerBuilder,PHP,ASP,PERL 免费源码下载,Delphi俱乐部 .", "title": "Delphi俱乐部", "unescapedUrl": "http:\/\/www.tommstudio.com\/" }] }, "responseDetails": null } )

weixin_33991418
关注
用Netty实现物联网01：XML-RPC和JSON-RPC
分享专业、有用、有趣的技术、产品、运营和管理知识。
02-24 417
和（移动）互联网不同，物联网针对的主要是一些资源有限的硬件设备，比如监控探头、烟雾感应器、温湿度感应器、车载OBD诊断器、智能电表、智能血压计等。这些硬件设备既不像个人PC电脑那样拥有较为齐全的配套支持，也不像手机那样灵活、方便、可操控，它们除了能够接受输入指令以及向外输出响应数据之外，基本上就是等于是「沉默的大多数」。所以，为了实现这些「沉默」的电子设备之间的「物物相连」和「人物相连」，实现对它们的感知、识别和管理，物联网（Internet of Things）就因此而诞生了。
人工智能大模型技术基础系列之：分布式模型存储与加载
最新发布
程序员光剑
11-01 253
随着人工智能技术的快速发展，大规模语言模型（Large Language Models, LLMs）如GPT-3、BERT、T5等在自然语言处理领域取得了突破性进展。这些模型通常包含数十亿甚至上千亿个参数，为了有效地存储、加载和推理如此庞大的模型，分布式技术成为了不可或缺的解决方案。本文将深入探讨大模型分布式存储与加载的核心技术，包括模型并行、张量并行、流水线并行等关键概念，以及它们在实际应用中的实现方法和优化策略。
superobject1.5.rar
06-30
CHANGES: * V1.5 * + 修正indent[aaa,bbb] 的问题 ,后面没换行的问题，主要是美化。 * + 2014-2-18 by xuweihang czmagic@163.com * V1.4 * + 修正D7下关闭溢出出错的问题{.$.Q-} * + 2014-2-18 by xuweihang czmagic@163.com * V1.3 * + Add support to Delphi XE2 * + Delphi XE2 RTTI marshalling * + 2013-08-17 by xuweihang czmagic@163.com * v1.2 * + support of currency data type * + right trim unquoted string * + read Unicode Files and streams (Litle Endian with BOM) * + Fix bug on javadate functions + windows nt compatibility * + Now you can force to parse only the canonical syntax of JSON using the stric parameter * + Delphi 2010 RTTI marshalling * v1.1 * + Double licence MPL or LGPL. * + Delphi 2009 compatibility & Unicode support. * + AsString return a string instead of PChar. * + Escaped and Unascaped JSON serialiser. * + Missed FormFeed added \f * - Removed @ trick, uses forcepath() method instead. * + Fixed parse error with uppercase E symbol in numbers. * + Fixed possible buffer overflow when enlarging array. * + Added "delete", "pack", "insert" methods for arrays and/or objects * + Multi parametters when calling methods * + Delphi Enumerator (for obj1 in obj2 do ...) * + Format method ex: obj.format('%tab[1]%') * + ParseFile and ParseStream methods * + Parser now understand hexdecimal c syntax ex: \xFF * + Null Object Design Patern (ex: for obj in values.N['path'] do ...)
SuperObject(Delphi最好的JSON简析类) 扩展功能----排序(4)最终揭秘 解决sosmAdd模式不能查找的问题...
02-26 292
经过对代码的更深入的跟踪理解，发现了superobject采用的是平衡二叉树的方式保存数据的。 首先看看保存数据的类 TSuperAvlEntry = class private FGt, FLt: TSuperAvlEntry; FGt和FLt分别是保存通过比较(比较hash或者比较key的asc)大的保存在Gt,小的保存在Lt，是一个二叉树链表。 ...
superobject.rar
06-06
支持delphi6的json处理单元。资源找了好久，可用，留给有需要的人，具体用法网上搜，还是没有C#好用
Delphi SuperObject 解决节点乱序问题
11-15
SuperObject Delphi 的 JSON 操作类改造 - 关于属性顺序的问题。（原创资源） Delphi 的 ISuperObject 属性顺序为随机。但是很多时候，是需要按加入顺序进行读取。我也看了网上很多人有类似需求。也有人问过原作者，作者答复为：JSON协议规定为无序。看了我真是无语。 也看过网上一些人自己的修改，但是修改后有两个问题： 1. 性能急剧下降。原作者是用二叉树对性能做了极大的优化。但是网上修改的方法性能不行。 2. 属性数大于 32 时会出错。（原来用的是二叉树，修改后部分算法未修改，导致此问题）。 我采用的是重写遍历器的方法，和原版性能接近。 * 执行 500*500 数据的节点变更后，性能和原版差别不太大。 * * 原始性能 0.280 秒 * 旧的稳定改版性能 15.774 秒 * 新的稳定改版性能 0.535 秒 * * 性能是原版的 1.9 倍左右。而之前将二叉树变为链表的方法，导致性能变为 56 分之一。 * 温涛，于 2018-10-26。邮箱 delphi2006@163.com
superobject 1.25
05-02
superobject 1.25 ------------------ SuperObject提供了两个类库文件SuperObject.pas，superxmlparser.pas，其中SuperObject.pas就是用于操作json数据，而superxmlparser.pas用与从XML数据中解析出json数据。
：实用 FRIDA 进阶 --- objection ：内存漫游、hook anywhere、抓包
墨鱼菜鸡
07-11 4367
转载：实用FRIDA进阶：内存漫游、hook anywhere、抓包：https://www.anquanke.com/post/id/197657 frida github 地址：https://github.com/frida/frida objection github：https://github.com/sensepost/objection...
python语言实例-Python代码样例列表
weixin_37988176的博客
11-01 3685
├─algorithm│ Python用户推荐系统曼哈顿算法实现.py│ NFA引擎,Python正则测试工具应用示例.py│ Python datetime计时程序的实现方法.py│ python du熊学斐波那契实现.py│ python lambda实现求素数的简短代码.py│ Python localtime()方法计算今天是一...
Android数据解析基础：JSON数据解析入门
JSON（JavaScript Object Notation）是一种轻量级的数据交换格式，易于人阅读和编写，也易于机器解析和生成。它基于JavaScript编程语言的子集，独立于编程语言，并使用键值对的方式存储数据。 ## 1.2 JSON数据结构...
Delphi中UTF-8,Unicode格式转换
08-06
delphi7调用delphi2009生成的dll文件会出现乱码问题。是unicode的原因 终于找到了UTF-8、Unicode格式转换函数
JSON 之 SuperObject(8): 关于乱码的几种情况 - 向 Henri Gourvest 大师报告
weixin_34206899的博客
09-26 179
为什么80%的码农都做不了架构师？>>> ...
Delphi7中idhttp和superobject获取网页中文乱码解决办法
qq_21968455的博客
01-13 1559
Delphi7及其以下版本的 VCL 只支持 Ansi, 所以在使用WideString 与 UTF8String (定义与 AnsiString 相同) 并没有办法正确的在 VCL 中显示 Delphi7自带的utf-8转换函数遇到其无法识别的字符串就返回空。 新建一个util_utf8.pas,然后引用这个转换函数可以解决这个bug unit util_utf8; interface uses Windows; type UTF8String = Ans...
json源数据中间汉字的地方是乱码
itkeyuan的专栏
03-26 987
最近捡起丢了10年的Delphi来玩，想试试对json的数据处理。 试了TSuperObject和TlkJSONobject，都发现拉回的数据是乱码，运行exe就报错。 测试发现获取的json源数据中间汉字的地方是乱码，导致引号不配对，引发内存错误。 后来找了文章，发现是TIdHttp在获取数据之前，要将定义的TStringStream的Encoding设置为UTF8，才可以。   贴一
SuperObject 使用心得
dieba6990的博客
02-23 253
SuperObject 已经支持Delphi2010, 使用起来觉得很方便，也比较少出现错误，具体的使用方法在万一的博客上已经说的很清楚! 下面是我遇到问题的产生原因与解决方法 类型声明： type TNRA=record end; TNRB=record A:String; B:Integer; end; TNRTest=reco...
superobject 序列数据集
weixin_30888413的博客
05-22 160
unit uDBJson; interface {$HINTS OFF} uses SysUtils, Classes, Variants, DB, DBClient, SuperObject; type TTableJSon = class private const cstFieldType = 'FieldType'; const cstFieldName...
Delphi7通过superobject解析JSON
mpqz1065ok的专栏
06-21 6489
1、通过delphi程序访问PHP事先写好的webservice（查询功能），webservice返回json格式数据。2、通过superobject读取json数据得到效果如下：
Java与JSON的深度整合：JSON-Lib使用及解析
本文主要介绍了JSON（JavaScript Object Notation）作为数据交换格式在Java中的应用，以及如何在Java中处理JSON数据。JSON因其轻量级、易读易写的特点，常用于服务器与前端脚本之间的数据交互。在Java中，可以通过...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值