Progress beim komprimieren mit CompressBuf anzeigen

[Zacherl]

Ja, vielen Dank!
Zum dekomprimieren muss ich dann TDecompressionStream verwenden, oder?

Florian

[marabu]

Falls du noch eine Antwort erwartest - Ja.

marabu

[Zacherl]

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

[marabu]

Abgesehen von den Tippfehlern - der Code für das OnProgress-Ereignis muss vor dem CopyFrom angegeben werden, sonst kommst du nach der Feier.

marabu

[Luckie]

Oder porbier mal den TStreamProgressAdaper: http://www.luckie-online.de/Delphi/Sonstiges/

[Zacherl]

Stimmt!
Das OnProgress Ereigniss wird jetzt aufgerufen und die Datei komprimiert.

Aber entweder ist meine ZLib Unit fehlerhaft, oder es gibt irgend einen Trick, wie ich den TDecompressionStream verwenden muss. Auch wenn ich vorher OnDecompressProgress zuweise kommt spätestens bei
OutStream.CopyFrom(cs, cs.Size) der Fehler: "Ungültige Stream Operation".

Ich habe ein wenig runprobiert und der Fehler kommt z.B. auch wenn ich nach cs := TDecompressionStream.Create(instream) auf z.b. cs.Size zugreife!

Fals ihr denkt, dass es an der ZLib liegt, könnte einer die Hochladen?
Weil z.b. der hier angegebene Code zur String Kompression klappt bei anderen aber bei mir kommt eine Fehlermeldung.

Florian

[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;