delphi 使用ZLIB对datasetProvider.data数据包进行压缩传输的测试

本文整理自网络，侵删。

 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 阿里云发送短信的Delphi单元

Delphi 释放资源文件

Delphi 判断 文本文件 utf-8 bom头

Delphi tadodataset 加载数据到fdmemtable1

Delphi tms web core 判断是否包含汉字

Delphi mscomm 比较完整的用法例子

Delphi源码一个对字符加密解密的实例

Delphi7 中tstringlist的delimiter delimitedtext有bug，字符串分割有问题

Delphi 让子窗体显示在任务栏上

Delphi 解决strtodatetime（）不是有效日期类型的问题

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 使用ZLIB对datasetProvider.data数据包进行压缩传输的测试