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 strtohexstr 字符串转换hex

Delphi提取exe,dll文件的icon图标

Delphi2010安装twordapplication控件

Delphi xe 版本 示例原码下载

Delphi 获取分解时间日期的年月日

Delphi xe5发送短信以及读取短信代码

Delphi实现的sunday字符串搜索算法

Delphi窗口显示于parent控件上

Delphi 替换指定字符串的函数

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...