blob: 1c3ccb2788e98e6b99458ce8480431b1a8f083b5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{$ASSERTIONS ON}
uses zstream, sysutils, classes;
var
fEncoder : zstream.Tcompressionstream;
fDecoder : zstream.Tdecompressionstream;
fExpectedString : Shortstring;
fCompressedStream : TStream;
fBuffer : array[0..9] of Char;
begin
fCompressedStream := TMemoryStream.Create();
fExpectedString := 'test me test me I hope this is compressible test me compressible is test me';
fEncoder := zstream.Tcompressionstream.Create(clMax, fCompressedStream);
fEncoder.Write(fExpectedString[1], Length(fExpectedString));
FreeAndNil(fEncoder);
fCompressedStream.Position := 0;
fDecoder := zstream.Tdecompressionstream.Create(fCompressedStream);
fDecoder.Read(fBuffer, 10);
assert(fDecoder.Position = 10);
end.
|
