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