clientdataset(fdmemtable).delta(data)序列为JSON
clientdataset(fdmemtable).delta(data)序列为JSON
clientdataset和fdmemtable,都是DELPHI官方提供的内存表控件,许多的3层客户端都使用它们作数据集,因为3层客户端需要内存表数据集。
clientdataset的时代,REST API尚不流行。因此clientdataset只支持序列为二进制和XML,不支持序列为JSON。
firedac fdmemtable出来的时候,提倡物联网时代,REST API已经开始大行,因此fdmemtable支持序列为二进制、XML和JSON。
但是fdmemtable自带方法序列出来的JSON,非常不友好,一点儿都不人性。如果使用fdmemtable自带方法序列出的JSON,进行跨平台(语言)之间进行REST API对接,
据说是会被对方骂的。
鉴于此,咏南封装了clientdataset(fdmemtable).data序列为JSON,clientdataset(fdmemtable).delta序列为JSON的方法,使clientdataset和fdmemtable序列出来的JSON是一样的。
带来的好处是,使DELPHI最常用的二种内存表数据集,可以真正方便地同其他开发语言通过REST API进行三方对接,从而真正实现跨平台、跨设备之间进行互联的物联网初衷。
delta序列为json:
新增、修改和删除后的数据都会序列为JSON。
data序列为json
procedure TForm1.Button1Click(Sender: TObject); begin ClientDataSet1.Append; ClientDataSet1['unitid'] := '1'; ClientDataSet1['unitname'] := '个'; ClientDataSet1.Post; ClientDataSet1.Append; ClientDataSet1['unitid'] := '2'; ClientDataSet1['unitname'] := '双'; ClientDataSet1.Post; var jo: TynJsonCross := TynJsonCross.Create; Memo1.Text := jo.DeltaToJson(ClientDataSet1.Delta, 'tunit', '', 'unitid'); jo.Free; end; procedure TForm1.Button2Click(Sender: TObject); begin FDMemTable1.Append; FDMemTable1['unitid'] := '1'; FDMemTable1['unitname'] := '个'; FDMemTable1.Post; FDMemTable1.Append; FDMemTable1['unitid'] := '2'; FDMemTable1['unitname'] := '双'; FDMemTable1.Post; var jo: TynJsonCross := TynJsonCross.Create; Memo1.Text := jo.DeltaToJson(FDMemTable1, 'tunit', '', 'unitid'); jo.Free; end; procedure TForm1.Button3Click(Sender: TObject); begin ClientDataSet1.Append; ClientDataSet1['unitid'] := '1'; ClientDataSet1['unitname'] := '个'; ClientDataSet1.Post; ClientDataSet1.Append; ClientDataSet1['unitid'] := '2'; ClientDataSet1['unitname'] := '双'; ClientDataSet1.Post; var jo: TynJsonCross := TynJsonCross.Create; Memo1.Text := jo.DataSetToJson(ClientDataSet1); jo.Free; end; procedure TForm1.Button4Click(Sender: TObject); begin FDMemTable1.Append; FDMemTable1['unitid'] := '1'; FDMemTable1['unitname'] := '个'; FDMemTable1.Post; FDMemTable1.Append; FDMemTable1['unitid'] := '2'; FDMemTable1['unitname'] := '双'; FDMemTable1.Post; var jo: TynJsonCross := TynJsonCross.Create; Memo1.Text := jo.DataSetToJson(FDMemTable1); jo.Free; end; procedure TForm1.FormCreate(Sender: TObject); begin ClientDataSet1.CreateDataSet; FDMemTable1.CreateDataSet; FDMemTable1.CachedUpdates := True; end;
本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/p/12530299.html