mORMot Open Source

  InputDataSize := Integer(CurrentBufPtr)-Integer(FBuffer);
  if TabArchiver.CompressionLevel=FlexCompress.clNone then begin
    CompressedSize := SynLZcompress1(FBuffer, InputDataSize, SynLZBuffer);
    ArchMemStream.WriteBuffer(SynLZBuffer^, CompressedSize); 
  end else
    ArchMemStream.WriteBuffer(FBuffer^, InputDataSize); 

  TabArchiver.ExtractToStream(FileName, LoadStream);
  L:=LoadStream.Size;
  if TabArchiver.LastCompressionMode=0 then begin
    P:=LoadStream.Memory;
    aUnCompressedSize:=SynLZdecompressdestlen(P);
    SynLZStream.Size := aUnCompressedSize;
    if (SynLZdecompress1(P,L,SynLZStream.Memory)<>aUnCompressedSize) then 
      RaiseMsgError('Invalid SynLZ decompress');
    CurrentBufPtr:=SynLZStream.Memory;
    L:=SynLZStream.Size;
  end else
    CurrentBufPtr:=LoadStream.Memory;