Progress beim komprimieren mit CompressBuf anzeigen

[marabu]

Auf die Schnelle - kommst du damit zurecht?

Delphi-Quellcode:

procedure TForm1.OnProgress(Sender: TObject);
begin
  with Sender as TCompressionStream do begin
    ProgressBar.Position := Position;
    Application.ProcessMessages;
  end;
end;

procedure CompressStream(inStream, outStream: TStream);
var
  cs: TCompressionStream;
begin
  Form1.ProgressBar.Max := inStream.Size;
  cs := TCompressionStream.Create(clDefault, outStream);
  cs.CopyFrom(inStream, inStream.Size);
  cs.OnProgress := Form1.OnProgress;
  cs.Free;
end;

marabu