Progress beim komprimieren mit CompressBuf anzeigen

[Zacherl]

Hallo,
wie kann ich es realisieren, dass:

1. Das Programm beim komprimieren vongrößeren Dateien nicht einfriert.
2. Eine Fortschrittanzeige einbauen

Ich benutze diesen Code:

Delphi-Quellcode:

procedure CompressStream(inpStream, outStream: TStream); 
var 
  InpBuf, OutBuf: Pointer; 
  InpBytes, OutBytes: Integer; 
begin 
  InpBuf := nil; 
  OutBuf := nil; 
  try 
    GetMem(InpBuf, inpStream.Size); 
    inpStream.Position := 0; 
    InpBytes := inpStream.Read(InpBuf^, inpStream.Size); 
    CompressBuf(InpBuf, InpBytes, OutBuf, OutBytes); 
    outStream.Write(OutBuf^, OutBytes); 
  finally 
    if InpBuf <> nil then FreeMem(InpBuf); 
    if OutBuf <> nil then FreeMem(OutBuf); 
  end; 

procedure DecompressStream(inpStream, outStream: TStream); 
var 
  InpBuf, OutBuf: Pointer; 
  OutBytes, sz: Integer; 
begin 
  InpBuf := nil; 
  OutBuf := nil; 
  sz     := inpStream.Size - inpStream.Position; 
  if sz > 0 then  
    try 
      GetMem(InpBuf, sz); 
      inpStream.Read(InpBuf^, sz); 
      DecompressBuf(InpBuf, sz, 0, OutBuf, OutBytes); 
      outStream.Write(OutBuf^, OutBytes); 
    finally 
      if InpBuf <> nil then FreeMem(InpBuf); 
      if OutBuf <> nil then FreeMem(OutBuf); 
    end; 
  outStream.Position := 0; 
end;

Florian

[DGL-luke]

für ersteres wirst du es in einen thread auslagern müssen. für zweiteres wirst du um eine schätzung der zeit nicht rumkommen....

EDIT: es sei denn, du zerteilst deinen buffer in hundert gleich große teile und dekomprismierst die einzeln. dann wäre das recht einfach zu lösen.

[Zacherl]

Ja, daran hab ich auch schon gedacht!
Nur leider kenne ich mich mit Threads nicht so gut aus. (meine 1. versuche sind alle gescheitert)
Und das Aufteilen des Buffers traue ich mir auch nicht zu.

Und wie kann man das machen, das das Programm nicht weitermacht ohne einzugfrieren, bis der Thread fertig ist?

Kannst du vielleicht Quelltext posten? :-D

Florian

[DGL-luke]

da ham wir nen experten namens luckie, der hat da n tut dazu geschrieben:

http://luckie-online.de/Tutorials/

und n working example:

http://luckie-online.de/Delphi/Sonst...Nachricht.html

du müsstest allerdings noch mit pointern arbeiten, wie das geht, weiss ich nicht. habs zumindest nach (einmaliger) lektüre des tuts nicht gescheckt. :gruebel:

[Zacherl]

Danke, ich werd's mir mal ansehen.

Aber wie mache ich das mit dem Aufteilen des Bufs? :gruebel:

Florian

[DGL-luke]

na deine compressbuf-funktion fragt dich doch bei den inpbytes, wie viel sie komprimieren soll, oder? (outbuf und outbytes sind dann ja wohl var-parameter, oder?)
ich hab jetzt n bisschen rumprobiert, aber ohne die compressbuf-funktion komm ich nicht weiter.

[Zacherl]

die compressbuf funktion ist bei d7 in der unit zlib enthalten!

Mann müsste praktisch den buf von byte 1 - 100, dann von 100 - 200, usw komprmieren und dann wieder zusammensetzen.

Florian

[marabu]

Hallo Florian,

das Komprimieren mit statistischer Kodierung (ZIP) entfaltet seine Vorteile erst bei größeren Blöcken. Außerdem ist ein Progressbar bei kleinen Wartezeiten eher nervig. Sowas macht man erst, wenn richtige Wartezeiten enstehen - deutlich jenseits der 2-Sekunden Grenze. Dann solltest du auch den CompressionStream und nicht CompressBuf() verwenden. Der Stream kennt das Ereignis OnProgress, mit dem du deinen ProgressBar steuern kannst.

Grüße vom marabu

[Zacherl]

Kannst du mir ein Beispiel geben, wie ich den Oberen Code einfach umschreiben kann? (Parameter, etc sollen gleich bleiben, da der Code in einem unfassenden Projekt verankert ist)
Ich hab bis jetzt noch nie mit CompressionStream gearbeitet ...

Florian

[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

[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! :cry: :wall: :gruebel:

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! :wall:

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. :-D

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

Delphi-Quellcode:

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

Delphi-Quellcode:

cs := TDecompressionStream.Create(instream)

auf z.b.

Delphi-Quellcode:

cs.Size

zugreife! :wall:

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;