咏南 全新封装的键值对序列和数据集序列（包括二进制和JSON）助手 类

咏南 全新封装的键值对序列和数据集序列（包括二进制和JSON）助手 类

支持delphi和lazarus
支持delphi和lazarus所有的dataset

支持delphi和lazarus所有的网络通讯控件

支持delphi和lazarus所有的数据库引擎控件（ado,bde,zeos...）

调用演示

unit Unit1;
/// cxg 2022-4-14
///  数据集助手类 演示
///  支持delphi和lazarus

interface

uses  dataset.serialization.help,   //引用此单元
Variants,  system.JSON,
  keyValue.serialization, DB, Classes, SysUtils, Forms, Controls, Graphics,
  Dialogs, StdCtrls, Data.Win.ADODB, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
  FireDAC.DApt.Intf, FireDAC.Comp.DataSet, FireDAC.Comp.Client,
  FireDAC.Stan.StorageBin, Datasnap.DBClient, Vcl.Grids, Vcl.DBGrids,
  FireDAC.Stan.Async, FireDAC.DApt, FireDAC.UI.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.MSSQL, FireDAC.Phys.MSSQLDef,
  FireDAC.VCLUI.Wait, FireDAC.Phys.ODBCBase, MemDS, DBAccess, Uni;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    Button2: TButton;
    Memo1: TMemo;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    FDMemTable1: TFDMemTable;
    FDQuery1: TFDQuery;
    FDConnection1: TFDConnection;
    ClientDataSet1: TClientDataSet;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


{ TForm1 }

procedure TForm1.btn1Click(Sender: TObject);
//key-value序列2
var
  s, s2: tserial;
  b: tbytes;
begin
  s := tserial.create;
  s.AsInt['i'] := 1234;         //序列 delphi+lazarus's 简单数据类型
  s.asStr['s'] := '1中';
  b := s.marshal2;
  s.Free;

  s2 := tserial.create;
  s2.unMarshal(b);
  memo1.Lines.Add(s2.AsInt['i'].tostring);
  memo1.Lines.Add(s2.Asstr['s']);
end;

procedure TForm1.btn2Click(Sender: TObject);
//key-value序列3
var
  s, s2: tserial;
  b: rawbytestring;
begin
  s := tserial.create;
  s.AsInt['i'] := 1234;         //序列 delphi+lazarus's 简单数据类型
  s.asStr['s'] := '1中';
  b := s.marshal3;
  s.Free;

  s2 := tserial.create;
  s2.unMarshal(b);
  memo1.Lines.Add(s2.AsInt['i'].tostring);
  memo1.Lines.Add(s2.Asstr['s']);
end;

procedure TForm1.btn3Click(Sender: TObject);
//key-value序列4
var
  s, s2: tserial;
  b: OleVariant;
begin
  s := tserial.create;
  s.AsInt['i'] := 1234;         //序列 delphi+lazarus's 简单数据类型
  s.asStr['s'] := '1中';
  b := s.marshal5;
  s.Free;

  s2 := tserial.create;
  s2.unMarshal(b);
  memo1.Lines.Add(s2.AsInt['i'].tostring);
  memo1.Lines.Add(s2.Asstr['s']);
end;

procedure TForm1.Button1Click(Sender: TObject);
//key-value序列1
var
  s, s2: tserial;
  ms: tstream;
 // m: tmemorystream;
begin
  s := tserial.create;
  ms := tmemorystream.Create;
  s.AsInt['i'] := 1234;         //序列 delphi+lazarus's 简单数据类型
  s.asStr['s'] := '1中';
//  m:= tmemorystream.Create;     //序列 delphi+lazarus's 文件、图片...
//  m.LoadFromFile(ExtractFilePath(Application.ExeName) + 'test.exe');
//  s.asStream['f'] := m;
 // s.AsVariant['ds1'] := DataSetProvider1.Data;  //序列 delphi olevariant+clientdataset
//  FDQuery1.SaveToStream(ms, sfBinary);         //序列 delphi firedac+fdmemtable
//  s.asStream['ds2'] := ms;
//  SQLQuery1.SaveToStream(ms);   //序列 lazarus SQLDB+BufDataset
//  s.asStream['ds3'] := ms;
  s.marshal(ms);
  s.Free;


  s2 := tserial.create;
  s2.unMarshal(ms);
  memo1.Lines.Add(s2.AsInt['i'].tostring);
  memo1.Lines.Add(s2.Asstr['s']);
//  m2 := s2.asStream['f'];
//  tmemorystream(m2).SaveToFile(ExtractFilePath(Application.ExeName) +'1.exe');
 // ClientDataSet1.Data := s2.AsVariant['ds1'];
//  FDMemTable1.LoadFromStream(s2.asStream['ds2']);
//  BufDataset1.LoadFromStream(s2.asStream['ds3']);
  s2.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
//同firedac二进制序列较速
begin
  FDQuery1.Close;
  FDQuery1.SQL.Clear;
  FDQuery1.SQL.Text:='select top 40000 * from tunit';
  FDQuery1.Open;

  var b2: Cardinal := TThread.GetTickCount;
  var ms2:TMemoryStream:=TMemoryStream.Create;
  FDQuery1.SaveToStream(ms2, sfBinary);
  ms2.Position:=0;
  FDMemTable1.DisableControls;
  FDMemTable1.LoadFromStream(ms2, sfBinary);
  FDMemTable1.EnableControls;
  var e2: Cardinal := TThread.GetTickCount;
  Memo1.Lines.Add('firedac序列耗时: '+(e2-b2).ToString+'ms');
  Memo1.Lines.Add('数据序列后大小：'+ ms2.Size.ToString);
  ms2.Free;

  var b: Cardinal := TThread.GetTickCount;
  var bs: TBytes:= fdquery1.toBytes;
  FDMemTable1.fromBytes(bs);
  var e: Cardinal := TThread.GetTickCount;
  Memo1.Lines.Add('我的序列耗时: '+(e-b).ToString+'ms');
  Memo1.Lines.Add('数据序列后大小：'+Length(bs).ToString);
end;

procedure TForm1.Button3Click(Sender: TObject);
//json序列
begin
  FDQuery1.Close;
  FDQuery1.SQL.Clear;
  FDQuery1.SQL.Text:='select top 10 * from tunit';
  FDQuery1.Open;
  var ja: TJSONArray := FDQuery1.ToJSONArray();
  Memo1.Text := ja.ToJSON;
end;

procedure TForm1.Button4Click(Sender: TObject);
//json还原
begin
  FDMemTable1.Close;
  FDMemTable1.FieldDefs.Clear;
  FDMemTable1.FieldDefs.Add('unitid', ftString, 9);
  FDMemTable1.FieldDefs.Add('unitname', ftString, 9);
  FDMemTable1.CreateDataSet;
  FDMemTable1.LoadFromJSON(Memo1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FDMemTable1.CachedUpdates:=true;
  FDMemTable1.UpdateOptions.UpdateTableName:='tunit';
  FDMemTable1.UpdateOptions.KeyFields:='unitid';
  Memo1.Clear;
end;

end.

 键值对序列接口