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;

  

posted @   delphi中间件  阅读(1096)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示