Use zlib to compress and transmit datasetprovider. Data Packets

Uses datasnap. dsintf

Set zlib compression level (zcfastest indicates the fastest compression speed)
Zcompressstream (M, M0, zcfastest );

Obtains the volume of data packets before and after compression.
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]);

obtain the test data of the two groups:
compression ratio before compression
57203 9292 15 ms 6.15
25572 3700 16 Ms 6.91