Uncompresses a gzipped data buffer which was compressed with the ZipCompressGzip2 function.
Zip.bdh
ZipUncompressGzip2( in sSource : string, out sDest : string ) : boolean;
true if successful
false otherwise
Parameter | Description |
---|---|
sSource | Source buffer to be uncompressed. |
sDest | Destination buffer used to store the uncompressed data. |
transaction TMain var sUnzipped: string; sZipped : string; i : number; nUnzipped: number; nZipped : number; begin nUnzipped := sizeof(sUnzipped); for i := 1 to sizeof(sUnzipped) do sUnzipped[i] := chr(ord('a') + ((i-1) mod 26)); end; ZipCompressGzip2(sUnzipped, sZipped); nZipped := sizeof(sZipped); WriteLn("Size of unzipped buffer: " + string(nUnzipped)); WriteLn("Size of zipped buffer: " + string(nZipped)); ZipUncompressGzip2(sZipped,sUnzipped); WriteData(sUnzipped); endTMain;
Size of unzipped buffer: 254 Size of zipped buffer: 49 abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrst