JSON 之 SuperObject(1)_H5之家 - 中国HTML5教程资源分享第一站

您现在的位置：天新网 > 软件开发 > 开发语言 > Delphi开发 > Delphi技巧

JSON 之 SuperObject(1)

2009年10月23日博客园万一

　　一直盼着 Delphi 能够直接支持 "正则表达式" 与 "JSON";

　　Delphi 2009 刚来的时候, 有了 JSON, 但不好, 那时尝试过一点. 这是以前的链接: 什么是 JSON?

　　Delphi 2010 带了两个相关单元: DBXJSON、DBXJSONReflect 貌似很强大, 但主要是给 DataSnap 准备的; 尝试了半天, 也很失望: 可能给 DataSnap 网络数据传递够用了, 但太简陋了, 好像是没写完, 对中文支持也有问题.

　　我想不等了, 找第三方吧, 真的找到了惊喜: JSON – SuperObject v1.1(简介、下载), Henri Gourvest 的大作!

　　里面还有 XML 相关的一个单元, 慢慢看吧.

　　先来个简单测试:

unit　Unit1;　
　
interface　
　
uses　
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　
　Dialogs,　StdCtrls;　
　
type　
　TForm1　=　class(TForm)　
　　Button1:　TButton;　
　　Button2:　TButton;　
　　procedure　Button1Click(Sender:　TObject);　
　　procedure　Button2Click(Sender:　TObject);　
　end;　
　
var　
　Form1:　TForm1;　
　
implementation　
　
{$R　*.dfm}　　
　
uses　SuperObject;　
　
//SuperObject　提倡使用接口;　ParseString　是　TSuperObject　类的　Class　方法　
procedure　TForm1.Button1Click(Sender:　TObject);　
var　
　jo:　ISuperObject;　
begin　
　jo　:=　TSuperObject.ParseString('{"No1":"张三",　"No2":"李四"}');　
　ShowMessage(jo['No1'].AsString);　{张三}　
end;　
　
//有个共用函数　SO,　可方便实现接口　
procedure　TForm1.Button2Click(Sender:　TObject);　
var　
　jo:　ISuperObject;　
begin　
　jo　:=　SO('{"No1":"张三",　"No2":"李四"}');　
　ShowMessage(jo['No2'].AsString);　//李四　
end;　
　
end.　

　　为什么以用接口为主?

　　我猜是: 一个 JSON 对象中可能包含的子对象太多, 用接口释放比较方便, 因为是自动释放;

　　另外, Delphi 2010 新给的 IOUntils 单元的功能是用结构的方式给出, 结构也是自释放的;

　　自动释放! 这会是个方向吗? 不过这样的确会少写很多代码.

上一篇： JSON 之 SuperObject(2): 构建方式与 AsJSon
下一篇： JSON 之 SuperObject(3): 访问