Software components for data protection, secure storage and transfer
procedure ZLibCompress(InStream, OutStream: TStream);
BytesLeft, Size, OutSize: cardinal;
Buffer, OutBuffer: ByteArray;
BytesLeft := InStream.Size - InStream.Position;
while BytesLeft > 0 do begin
Size := InStream.Read(Buffer, Min(BLOCK_SIZE, BytesLeft));
OutSize := BLOCK_SIZE;
CompressEx(Context, @Buffer, Size, @OutBuffer, OutSize);
FinalizeCompressionEx(Context, @OutBuffer, OutSize);
if OutSize > 0 then OutStream.Write(OutBuffer, OutSize);
Number of guests: 1, registered members: 0,
in total hidden: 0
Copyright (c) 2017, /n software, inc.
As of July 15, 2016 EldoS business operates as a division of /n software, inc. For more information, please read the announcement.