Json是一种轻量级传输数据格式，广泛应用互联网和各应用中。json主要採用键值对来表示数据项。多个数据项之间用逗号分隔，也能够用于数组。以下注重介绍一下在delphi中使用json，在delphi中使用json经常使用superobject单元文件。该文件能够在网上下载，最初接触json是在2011年，好久没用这不刚好有项目要用到又折腾了好久，以下做了一个简单的Demo，方便以后忘了能随时查看。详细的json使用能够參看万一老师的博客，记录的非常详细，以下的demo主要是将数据库记录转换为json格式，然后进行解析。详细源代码例如以下。
新建一个delphi应用程序，在窗口上放置table组件，连接数据DBDEMOS。连接表customer.db，active设置为true。
详细文件例如以下：
delphiproject文件例如以下
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.
单元文件例如以下：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables; type TForm1 = class(TForm) mmo1: TMemo; tbl1: TTable; ds1: TDataSource; btn1: TButton; btn2: TButton; btn3: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses superobject; procedure TForm1.btn1Click(Sender: TObject); var jo,jt:ISuperObject; begin jo:=SO(); jt:=SO(); jo.S['xm']:='张三'; jo.I['age']:=25; jo.S['sex']:='男'; jt.O['person']:=jo; ShowMessage(jt.AsString); ShowMessage(jt.O['person'].S['xm']); end; procedure TForm1.btn2Click(Sender: TObject); var i:Integer; jfields,jitems,jo:ISuperObject; begin mmo1.Clear; jitems:=SA([]); jo:=SO(); with tbl1 do begin First; while not eof do begin
jfields:=SO(); for i:=0 to FieldCount-1 do begin if Fields[i].DataType=ftDateTime then jfields.S[Fields[i].FieldName]:=FormatDateTime('yyyy-mm-dd hh:mm:ss',Fields[i].AsDateTime) else jfields.S[Fields[i].FieldName]:=Fields[i].AsString; end; jitems.AsArray.Add(jfields); Next; end; end; jo.O['records']:=jitems; mmo1.Lines.Add(jo.AsString); end; procedure TForm1.btn3Click(Sender: TObject); var jo,m:ISuperobject; i,j:Integer; tt:TSuperArray; s:string; lst:TStringList; begin if mmo1.Text<>'' then begin lst:=TStringList.Create; jo:=so(mmo1.Text); tt:=jo.O['records'].AsArray; for i:=0 to tt.Length-1 do begin s:=''; for j:=0 to tbl1.FieldCount-1 do begin if s='' then s:=tt.O[i].S[tbl1.Fields[j].FieldName] else s:=s+' '+tt.O[i].S[tbl1.Fields[j].FieldName] end; lst.Add(s); end; ShowMessage(lst.Text) ; lst.Free; end; end; end.
dfm文件例如以下：
object Form1: TForm1 Left = 312 Top = 70 Width = 410 Height = 382 Caption = 'json读写' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object mmo1: TMemo Left = 0 Top = 0 Width = 394 Height = 249 Align = alTop TabOrder = 0 end object btn1: TButton Left = 23 Top = 264 Width = 75 Height = 25 Caption = '简单读写' TabOrder = 1 OnClick = btn1Click end object btn2: TButton Left = 121 Top = 264 Width = 105 Height = 25 Caption = '读数据库记录' TabOrder = 2 OnClick = btn2Click end object btn3: TButton Left = 253 Top = 263 Width = 75 Height = 25 Caption = '解析json' TabOrder = 3 OnClick = btn3Click end object tbl1: TTable Active = True DatabaseName = 'DBDEMOS' TableName = 'customer.db' Left = 288 Top = 152 end object ds1: TDataSource DataSet = tbl1 Left = 104 Top = 176 end end
当中有些版本号superobject的hash方法有编译指令，我使用时报错，将其去掉改为例如以下:
class function TSuperAvlEntry.Hash(const k: SOString): Cardinal; var h: cardinal; i: Integer; begin h := 0; for i := 1 to Length(k) do h := h*129 + ord(k[i]) + $9e370001; Result := h; end;
程序执行结果例如以下：
点击简单读写
读数据库记录
解析json
superobject单元还提供了很多方法，在此不一一列举使用，以后使用中再慢慢总结。