Delphi JSON总结

 Delphi 解析JSON的方法，就我已知的，有三种：

      1. Qjson

      2. SuperObject

      3. System.JSON   (Delphi XE 自带)

    为方便看效果， 使用Delphi 2007演示Qjson和SuperObject的使用，使用Delphi XE 10.1Berlin演示System.JSON的使用。

1. Delphi 2007使用Qjson(uses Qjson)和SuperObjec(uses superobject)生成JSON和解析JSON

    界面如下:

    

   选择ISuperObject(节点顺序有点无法把控)，生成如下JSON:

{"msg":"Success","datas":[{"age":10,"id":1,"name":"测试1"},{"age":10,"id":2,"name":"测试2"},{"age":10,"id":3,"name":"测试3"},{"age":10,"id":4,"name":"测试4"},{"age":10,"id":5,"name":"测试5"}],"time":"2020-12-03 11:18:08","code":0,"check":true}
    选择Qjson，生成如下JSON:

{
  "code":0,
  "msg":"Success",
  "check":true,
  "datas":[
    {
      "id":1,
      "name":"测试1",
      "age":10
    },
    {
      "id":2,
      "name":"测试2",
      "age":10
    },
    {
      "id":3,
      "name":"测试3",
      "age":10
    },
    {
      "id":4,
      "name":"测试4",
      "age":10
    },
    {
      "id":5,
      "name":"测试5",
      "age":10
    }
  ],
  "time":"2020-12-03 11:19:08"
}
    可以采用Qjson解析，也可以选择ISuperObject解析：

    

    窗体代码如下:

unit uFrmMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, superobject, qjson;
 
const
  fmt= '{"id": %d, "name": "测试%d", "age": %d}';
  icount= 5;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    FType: Integer;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  json: ISuperObject;
  jsonArr: TSuperArray;
  js, jsArr: TQJson;
  I: Integer;
begin
  Memo1.Lines.Clear;
  case FType of
    0: begin
      json:= SO();
      json.S['time']:= FormatDateTime('yyyy-MM-dd hh:mm:ss', Now);
      json.B['check']:= True;
      json['datas']:= SA([]);
      for I := 1 to icount do
        json.A['datas'].Add(SO(format(fmt, [I, I, 10])));
      json.S['msg']:= 'Success';
      json.I['code']:= 0;
      Memo1.Lines.Text:= json.AsString;
    end;
    1: begin
      js:= TQJson.Create;
      try
        js.AddVariant('code', 0);         //等价于 js.Add('code').AsInteger:= 0;
        js.AddVariant('msg', 'Success');  //等价于 js.Add('msg').AsString:= 'Success';
        js.AddVariant('check', True);     //等价于 js.Add('check').AsBoolean:= True;
        jsArr:= js.AddArray('datas');
        for I := 1 to icount do
        begin
          /// <summary>添加一个数组</summary>
          /// <param name="AName">要添加的对象的结点名称</param>
          /// <param name="AItems">要添加的数组内容</param>
          /// <returns>返回创建的结点实例</returns>
          jsArr.Add('', format(fmt, [I, I, 10]));
        end;
        js.AddVariant('time', FormatDateTime('yyyy-MM-dd hh:mm:ss', Now));
        Memo1.Lines.Text:= js.AsString;
      finally
        FreeAndNil(js);
      end;
    end;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  json: ISuperObject;
  jsonArr: TSuperArray;
  js, jsArr: TQjson;
  I: Integer;
  sJson: string;
  lst: TStringList;
begin
  sJson:= Memo1.Lines.Text;
  case FType of
    0: begin
      json:= SO(sJson);
      if json= nil then
        Exit;
      lst:= TStringList.Create;
      try
        lst.Add(Format('%u', [json.I['code']]));
        if json.B['check'] then
          lst.Add('True')
        else
          lst.Add('False');
        lst.Add(json.S['msg']);
        jsonArr:= json.O['datas'].AsArray;
        for I := 0 to jsonArr.Length - 1 do
          lst.Add(Format('%u %s %u', [jsonArr.O[I].I['id'], jsonArr.O[I].S['name'], jsonArr.O[I].I['age']]));
        lst.Add(json.S['time']);
        showmessage(lst.text);
      finally
        FreeAndNil(lst);
      end;
    end;
    1: begin
      js:= TQJson.Create;
      lst:= TStringList.Create;
      try
        js.Parse(sJson);
        lst.Add(Format('%d', [js.IntByName('code', -1)]));
        if js.BoolByName('check', false) then
          lst.Add('True')
        else
          lst.Add('False');
        lst.Add(js.ValueByName('msg', ''));
        jsArr:= js.ItemByName('datas');
        for I := 0 to jsArr.Count - 1 do
          lst.Add(Format('%u %s %u', [jsArr.Items[I].IntByName('id', 0)
            , jsArr.Items[I].ValueByName('name', '')
            , jsArr.Items[I].IntByName('age', 0)]));
        lst.Add(js.ValueByName('time', ''));
        ShowMessage(lst.Text);
      finally
        FreeAndNil(js);
        FreeAndNil(lst);
      end;
    end;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FType:= 0;
end;
 
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  FType:= 1;
end;
 
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  FType:= 0;
end;
 
end.
2. Delphi XE 10.1 Berlin 使用TJSONObject(uses System.JSON)生成JSON和解析JSON

    界面如下:

    

    生成如下JSON:

{"code":0,"msg":"Success","check":true,"datas":["{\"id\":1,\"name\":\"测试1\",\"age\":10}","{\"id\":2,\"name\":\"测试2\",\"age\":10}","{\"id\":3,\"name\":\"测试3\",\"age\":10}","{\"id\":4,\"name\":\"测试4\",\"age\":10}","{\"id\":5,\"name\":\"测试5\",\"age\":10}"],"time":"2020-12-03 11:26:12"}
    解析效果：

    

    窗体代码如下:

unit uFrmMain;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.JSON;
 
const
  fmt= '{"id":%d,"name":"测试%d","age":%d}';
  icount= 5;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    GroupBox1: TGroupBox;
    RadioButton2: TRadioButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  js: TJSONObject;
  jsArr: TJSONArray;
  I: Integer;
begin
  Memo1.Lines.Clear;
  js:= TJSONObject.Create;
  jsArr:= TJSONArray.Create;
  try
    js.AddPair('code', TJSONNumber.Create(0));     //TJSONNumber支持Double、Integer、Int64
    js.AddPair('msg', 'Success');                  //默认字符
    js.AddPair('check', TJSONTrue.Create);         //boolean类型  TJSONTrue TJSONFalse
    for I := 1 to icount do
      jsArr.Add(format(fmt, [I, I, 10]));
    js.AddPair('datas', jsArr);
    js.AddPair('time', FormatDateTime('yyyy-MM-dd hh:mm:ss', Now));
    Memo1.Lines.Add(js.ToString);
  finally
    js:= nil;
    jsArr:= nil;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  js, jsItem: TJSONObject;
  jsArr: TJSONArray;
  item: TJSONValue;
  I: Integer;
  sJson: string;
  lst: TStringList;
begin
  sJson:= Memo1.Lines.Text;
  if sJson= '' then
    Exit;
  lst:= TStringList.Create;
  try
    js:= (TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(sJson), 0)) as TJSONObject;
    lst.Add(js.GetValue('code').Value);
    lst.Add(js.GetValue('msg').Value);
    if js.GetValue('check') is TJSONTrue then
      lst.Add('True')
    else
      lst.Add('False');
    jsArr:= js.GetValue('datas') as TJSONArray;
    for I := 0 to jsArr.Size- 1 do
    begin
      //jsArr.Get(I) as TJSONObject 竟然报错Invalid class typecast 不知道什么原因
      jsItem:= (TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(jsArr.Get(I).Value), 0)) as TJSONObject;
      lst.Add(Format('%d %s %d', [
        (jsItem.GetValue('id') as TJSONNumber).AsInt,
        jsItem.GetValue('name').Value,
        (jsItem.GetValue('age') as TJSONNumber).AsInt]));
    end;
    lst.Add(js.GetValue('time').Value);
    ShowMessage(lst.Text);
  finally
    FreeAndNil(lst);
  end;
end;
 
end.
————————————————
版权声明：本文为CSDN博主「ceaningking」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/ceaningking/article/details/110522777