ZLib / ZLibEx ThreadSave...

[Mavarik]

Naja das war ja nicht so viel Source!

Delphi-Quellcode:

Procedure TTask_Packer.Execute;
var
  CS : TZCompressionStream;
begin
  CS := TZCompressionStream.Create(Sout,zcMax);
  CS.CopyFrom(Sin,Sin.Size);
  CS.Free;
end;

Mavarik