使用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]));