Delphi 案的 JSON

╰半橙微兮° 2022-09-28 15:25 90阅读 0赞

# [JSON 之 SuperObject(1)][JSON _ SuperObject_1] #

http://www.cnblogs.com/del/archive/2009/10/22/1588384.html

一直盼着 Delphi 能够直接支持 "正则表达式" 与 "JSON";  
  
Delphi 2009 刚来的时候, 有了 JSON, 但不好, 那时尝试过一点. [这是以前的链接: 什么是 JSON?][_ JSON]  
  
Delphi 2010 带了两个相关单元: DBXJSON、DBXJSONReflect 貌似很强大, 但主要是给 DataSnap 准备的; 尝试了半天, 也很失望: 可能给 DataSnap 网络数据传递够用了, 但太简陋了, 好像是没写完, 对中文支持也有问题.  
  
我想不等了, 找第三方吧, 真的找到了惊喜: JSON – SuperObject v1.1([简介][Link 1] 、[下载][Link 2] ), 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_1]: http://www.cnblogs.com/del/archive/2009/10/22/1588384.html
[_ JSON]: http://www.cnblogs.com/del/archive/2008/08/06/1261583.html
[Link 1]: http://www.progdigy.com/?p=28
[Link 2]: http://www.progdigy.com/files/superobject.zip