CompressBuf verwenden

[marabu]

Hallo Florian,

etwa so könnte das aussehen:

Delphi-Quellcode:

var
  buf: pointer;
  buflen: integer;
begin
  with fStream do
    CompressBuf(memory, size, buf, buflen);
  // ...
  FreeMem(buf);
end;

Grüße vom marabu