CompressBuf verwenden

[Zacherl]

Hallo,
kann mir jemand sagen, wie ich die Methode CompressBuf/DecompressBuf aufrufen muss, wenn ich folgenden Quellcode habe:

Delphi-Quellcode:

var buf: pointer;
begin
buf := fstream.memory;
// hier compressbuf

Florian

[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

[Zacherl]

Vielen Dank,
es klappt jetzt! :-D

Florian