1:
2:
3:
4:
5:
6:

Buffer, DecBuffer: array of Byte;
...
SetLength(Buffer, {Komprimierte Größe in Byte});
SetLength(DecBuffer, {Unkomprimierte Größe in Byte});
... //Zwischenzeitlich wird Buffer vollständig mit Daten gefüllt
DecompressToUserBuf(@Buffer[0], Length(Buffer), @DecBuffer[0], Length(DecBuffer));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function CompressStream(inStream, outStream : TMemoryStream) : integer;
var
  Count, outCount : integer;
  outPtr : pointer;
begin
  Count := inStream.Size;
  Result := Count;
  CompressBuf(inStream.Memory, Count, outPtr, outCount);
  outStream.Write(outPtr^, outCount);
end;

procedure DecompressStream(inStream, outStream: TMemoryStream; FileSz : integer);
var
  Count : integer;
  outPtr : pointer;
begin
  Count := inStream.Size;
  FileSz := FileSz + 2048;
  GetMem(outPtr,FileSz);
  DecompressToUserBuf(inStream.Memory, Count, outPtr, FileSz);
  outStream.Write(outPtr^,FileSz);
  FreeMem(outPtr,FileSz);
end;