Hallo,
ich habe mehrere Probleme mit der Funktion mit Progress. Das komprmieren an sich funktioniert, nur wird das OnProgress Ereigniss nie abgearbeitet!
Beim Dekomprimieren (aus dem Code oben selbst zusammengefriemelt) bekomme ich immer, wenn ich auf eine eigenschaft des dekompressionstreams zugreifen will den Fehler: Ungültige Stream Operation!
Meine Funktion
Delphi-Quellcode:
procedure deCompressStream(inStream, outStream: TStream);
var
cs: deTCompressionStream;
begin
Form1.ProgressBar2.Max := inStream.Size;
cs := TdeCompressionStream.Create(inStream);
outstream.CopyFrom(cs, cs.Size);
cs.OnProgress := Form1.OnDecompressProgress;
cs.Free;
end;
Florian