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