同时支持DELPHI和LAZARUS的二进制序列

同时支持DELPHI和LAZARUS的二进制序列

DELPHI演示

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
unit Unit1;
/// <author>cxg 2022-4-14</author>
///  数据集助手类 演示
///  支持delphi和lazarus
 
interface
 
uses  dataset.serialize.help, keyValue.serialize,
Variants,  system.JSON,
   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;
    Button2: TButton;
    Memo1: TMemo;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    FDMemTable1: TFDMemTable;
    FDQuery1: TFDQuery;
    FDConnection1: TFDConnection;
    ClientDataSet1: TClientDataSet;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
//序列
  var s: TSerialize := TSerialize.Create;
  FDQuery1.Close;
  FDQuery1.SQL.Clear;
  FDQuery1.SQL.Text:='select * from tgoods';
  FDQuery1.Open;
  var ms: TStream := FDQuery1.toStream;
  s.asstream['ds1'] :=ms;   //序列数据集一
  ms.Free;
  FDQuery1.Close;
  FDQuery1.SQL.Clear;
  FDQuery1.SQL.Text:='select top 10000 * from tunit';
  FDQuery1.Open;
  ms :=  FDQuery1.toStream;
  s.asstream['ds2'] := ms;  //序列数据集二
  ms.Free;
  var bs: TBytes := s.marshal2;
  s.Free;
  //网络传输
  //还原
  var s2: TSerialize := TSerialize.Create;
  s2.unMarshal(bs);
  ClientDataSet1.fromBytes(s2.asBytes['ds1']);
  FDMemTable1.fromBytes(s2.asBytes['ds2'] ) ;
  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 ms: TStream:= fdquery1.tostream;
//  ClientDataSet1.fromStream(bs);          // 719ms
  FDMemTable1.fromstream(ms);                //125ms
  var e: Cardinal := TThread.GetTickCount;
  Memo1.Lines.Add('我的序列耗时: '+(e-b).ToString+'ms');
  Memo1.Lines.Add('数据序列后大小：'+ms.Size.ToString);
  ms.Free;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  var S: TSerialize := TSerialize.Create;
  s.Free;
end;
 
end.

　　LAZARUS演示

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  keyValue.serialize, dataset.serialize.help,
  BufDataset, DB, Classes, SysUtils, Forms,
  Controls, Graphics, Dialogs, StdCtrls, DBGrids, Uni, SQLServerUniProvider;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    BufDataset1: TBufDataset;
    BufDataset2: TBufDataset;
    Button2: TButton;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Memo1: TMemo;
    SQLServerUniProvider1: TSQLServerUniProvider;
    UniConnection1: TUniConnection;
    UniQuery1: TUniQuery;
    UniQuery2: TUniQuery;
    procedure Button2Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button2Click(Sender: TObject);
//键值对序列data
var
  s, s2: tserialize;
  bs: tbytes;
  ms: tstream;
  i: integer;
  str: rawbytestring;
  Data: tbytes;
begin
  //序列
  s := TSerialize.Create;
  uniquery1.Close;
  uniquery1.SQL.Clear;
  uniquery1.SQL.Text := 'select * from tgoods';
  uniquery1.Open;
  ms := uniquery1.toStream;
  s.asstream['ds1'] := ms;   //序列数据集一
  ms.Free;
  uniquery1.Close;
  uniquery1.SQL.Clear;
  uniquery1.SQL.Text := 'select top 40000 * from tunit';
  uniquery1.Open;
  ms := uniquery1.toStream;
  s.asstream['ds2'] := ms;  //序列数据集二
  ms.Free;
  bs := s.marshal2;
  s.Free;
  //网络传输
  //还原
  s2 := TSerialize.Create;
  s2.unMarshal(bs);
  bufdataset1.fromBytes(s2.asBytes['ds1']);
  bufdataset2.fromBytes(s2.asBytes['ds2']);
  s2.Free;
end;
 
end.

　　

posted @   delphi中间件  阅读(259)  评论(0)  编辑  收藏  举报
相关博文：
· 咏南 全新封装的键值对序列和数据集序列（包括二进制和JSON）助手 类
· lazarus数据序列为二进制
· DELPHI XE 10.1 BERLIN 使用FIREDAC连接数据库(SQL SERVER, MYSQL, SQLITE)
· delphi模拟redis单元
· DELPHI 10.3使用FireDAC连接MSSQL数据库测试
阅读排行：
· DeepSeek 开源周回顾「GitHub 热点速览」
· 物流快递公司核心技术能力-地址解析分单基础技术分享
· .NET 10首个预览版发布：重大改进与新特性概览！
· AI与.NET技术实操系列（二）：开始使用ML.NET
· 单线程的Redis速度为什么快？
历史上的今天：
2021-06-02 mormot json主从表
2021-06-02 json主从表
2015-06-02 socket对于大数据的发送和接收
点击右上角即可分享
微信分享提示
AI FOR CODE 大赛