mORMot Open Source

uses SynCommons;

....

var
  i:DWORD;
begin
  i:=GetTickCount;
  FileSynLZ('.\001.jpg','.\s1.lz',Hash32('vbz007'));
  ShowMessage(IntToStr(GetTickCount-i));
end;

{{ in-memory ZLib DEFLATE compression }
function CompressMem(src, dst: pointer; srcLen, dstLen: integer;
 
  CompressionLevel: integer=6; ZipFormat: Boolean=false) : integer;
 
/// in-memory ZLib INFLATE decompression
function UnCompressMem(src, dst: pointer; srcLen, dstLen: integer) : integer;
 
/// ZLib DEFLATE compression from memory into a stream
function CompressStream(src: pointer; srcLen: integer;
  aStream: TStream; CompressionLevel:integer=6; ZipFormat: Boolean=false): cardinal;
 
/// ZLib INFLATE decompression from memory into a stream
// - return the number of bytes written into the stream
// - if checkCRC if not nil, it will contain thecrc32  (if aStream is nil, it will
// fast calculate the crc of the the uncompressed memory block)
function UnCompressStream(src: pointer; srcLen: integer; aStream: TStream; checkCRC: PCardinal): cardinal;

var
  fm:TFileStream;
  s:AnsiString;
begin
  fm:=TFileStream.Create(ExtractFilePath(ParamStr(0))+'4.zlib',fmCreate or fmOpenReadWrite);
  try
    s:='this is test!';
    CompressStream(@s[1],Length(s),fm);
  finally
    FreeAndNil(fm);
  end;
end;

Error:
fm.size=0;

function CompressString(const data: RawByteString; failIfGrow: boolean = false;
  CompressionLevel: integer=6) : RawByteString;