本文整理自网络，侵删。
delphi 使用ZLIB对datasetProvider.data数据包进行压缩传输的测试
uses Datasnap.DSIntf
设置ZLIB压缩等级(zcFastest表示最快的压缩速度)
ZCompressStream(M, M0, zcFastest);
获取压缩前和压缩后的数据包的体积
iTest := DataPacketSize(VarToDataPacket(aDsp[i].Data));
iB := GetTickCount;
v[i] := CompressData(aDsp[i].Data);
iTime := GetTickCount - iB;
ShowMessage(IntToStr(iTime));
iTest := DataPacketSize(VarToDataPacket(v[i]));
获得俩组测试数据:
压缩前体积 压缩后体积 压缩用时 压缩比
57203 9292 15ms 6.15
25572 3700 16ms 6.91
相关阅读 >>
Delphi一个非常完整的取windows os 版本信息的函数
Delphi 利用datasnap进行数据流(tstream)的传递
Delphi让tedit控件的内容居中或右对齐，限制位数，仅允许输入数字
Delphi ansiendstext 用法之一(路径结尾自动加\)
更多相关阅读请进入《Delphi》频道 >>
