RSS订阅 | 匿名投稿
您的位置:网站首页 > 压缩 > 正文

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

作者:admin 来源: 日期:2013/1/24 13:16:31 人气: 标签:

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

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: