Ich würde gerne mit einer Progressbar den Status angeben, während eine große Datei mit der Delphi Fast
Zlib v.1.1.2
Unit De-/Komprimiert wird. Dazu habe ich mal folgendes probiert:
Code:
CStream := TZCompressionStream.Create(m);
CStream.OnProgress := ZipOnProgress;
CStream.CopyFrom(InpStream, InpStream.Size);
CStream.Free;
m.SaveToStream(OutStream);
Doch leider wird dann ZipOnProgress nich ein einziges mal aufgerufen. Wer kann mir helfen? Ist ein bisschen doof, den User ne Minute ohne Statusmeldung rumhocken zu lassen.