delphi和json

一直盼着 Delphi 能夠直接支持 "正則表達式" 與 "JSON";

Delphi 2009 剛來的時候, 有了 JSON, 但不好, 那時嘗試過一點. 這是以前的鏈接: 什麼是 JSON?

Delphi 2010 帶了兩個相關單元: DBXJSON、DBXJSONReflect 貌似很強大, 但主要是給 DataSnap 準備的; 嘗試了半天, 也很失望: 可能給 DataSnap 網絡數據傳遞夠用了, 但太簡陋了, 好像是沒寫完, 對中文支持也有問題.

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

裏面還有 XML 相關的一個單元, 慢慢看吧.

---

先來個簡單測試:

---

unit Unit1;
interfaceuses
  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 單元的功能是用結構的方式給出, 結構也是自釋放的;

自動釋放! 這會是個方向嗎? 不過這樣的確會少寫很多代碼.

SuperObject 構建一個 JSON 的常用方法: 從字符串、從文件、從流.

---

unit Unit1;
interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  end;
var
  Form1: TForm1;
implementation{$R *.dfm}uses SuperObject;
const JsonStr = '{"No1":"張三", "No2":"李四"}';
//從字符串構建procedure TForm1.Button1Click(Sender: TObject);
var
  jo: ISuperObject;
begin
  jo := SO(JsonStr);
  {或者用使用下面語句, SO 函數就是調用了 TSuperObject.ParseString}//jo := TSuperObject.ParseString(JsonStr);
  ShowMessage(jo.AsJSon(True, False));
end;
//從文件構建procedure TForm1.Button2Click(Sender: TObject);
const
  path = 'c:\temp\json.txt';
var
  jo: ISuperObject;
begin{產生個測試文件; SuperObject 對中文支持也不太好, 讀取它自己保存的文件吧}
  SO(JsonStr).SaveTo(path); {這就產生並保存了 json 文件}
  jo := TSuperObject.ParseFile(path);
  ShowMessage(jo.AsJSon(True, False));
end;
//從流構建procedure TForm1.Button3Click(Sender: TObject);
var
  jo: ISuperObject;
  stm: TStream;
  b: Byte;
begin{模擬個測試流; 看看它能接受的編碼夠原始的, 它存取文件也是如此}
  stm := TStringStream.Create('{"No2":"\u674e\u56db","No1":"\u5f20\u4e09"}');
  jo := TSuperObject.ParseStream(stm);
  ShowMessage(jo.AsJSon(True, False));
  stm.Free;
end;
//AsJSon 的參數procedure TForm1.Button4Click(Sender: TObject);
var
  jo: ISuperObject;
begin
  jo := SO(JsonStr);
  ShowMessage(jo.AsJSon);
  ShowMessage(jo.AsJSon(True));
  ShowMessage(jo.AsJSon(True, False));
  ShowMessage(jo.AsJSon(False, False));
end;
end.
更多內容：http://www.cnblogs.com/del/category/215158.html