Progress beim komprimieren mit CompressBuf anzeigen

[Sharky]

Hai Florian,

wenn Du noch keine Lösung gefunden hast versuche es mal so:

Delphi-Quellcode:

procedure DeCompressStream(inStream, outStream: TStream);
var
  cs:    TDeCompressionStream;
  Buf:   array[0..4095] of byte;
  Count: integer;
begin
  inStream.Position := 0;
  cs := TDeCompressionStream.Create(inStream);
  cs.OnProgress := nil;
  cs.Position := 0;
  repeat
    Count := cs.Read(Buf[0], SizeOf(Buf));
    if Count > 0 then
    begin
      outStream.Write(Buf[0], Count)
    end;
  until (Count = 0);
  cs.Free;
end;