Stream komprimieren / dekomprimieren

[ToZie]

Hallo,

irgendwie hab ich ein Problem mit dem Verständnis der Funktion von TCompressionStream / TDecompressionStream der zlib. Ich versuche folgendes:

Code:

function compressStream(smIn, smOut: TStream; level: TCompressionLevel = clDefault): int64;
var
  smCmp: TCompressionStream;
begin
  try
    smCmp:=TCompressionStream.Create(level, smOut);
    result:=smCmp.CopyFrom(smIn, 0);
  finally
    smCmp.Free;
  end;
end;

function decompressStream(smIn, smOut: TStream): int64;
var
  smDec: TDeCompressionStream;
begin
  try
    smIn.Position:=0;
    smDec:=TDeCompressionStream.Create(smIn);
    result:=smOut.CopyFrom(smDec, 0);
  finally
    smDec.Free;
  end;
end;

procedure Test;
var
  smIn, smOut, smDec: TMemoryStream;
begin
  try
    smIn:=TMemoryStream.Create;
    smOut:=TMemoryStream.Create;
    smDec:=TMemoryStream.Create;

    smIn.ReadFromFile('irgendwas.txt');
    compressStream(smIn, smOut);
    decompressStream(smOut, smDec);
  finally
    smIm.Free;
    smOut.Free;
    smDec.Free;
  end;
end;

Beim dekomprimieren tritt bei smOut.CopyFrom(smDec, 0) eine 'Ungültige Stream Operation' auf, weiss jemand warum?


Vielen Dank

Torsten

[CCRDude]

Wenn ich mich recht erinnere, braucht TDecompressionStream die Größe des entpackten Streams. Solltest Du also z.B. vorab unkomprimiert speichern und auslesen.

[stahli]

vielleicht hilft Dir das weiter: http://www.delphipraxis.net/152827-z...ompressed.html

[ToZie]

Zitat von CCRDude:

Wenn ich mich recht erinnere, braucht TDecompressionStream die Größe des entpackten Streams. Solltest Du also z.B. vorab unkomprimiert speichern und auslesen.

Tatsache, mit Angabe der ungepackten Größe funktioniert das. Da ich den gepackten Stream per socket übers Netzwerk versende muss ich diese wohl irgendwie mit transportieren - oder..

Zitat von stahli:

vielleicht hilft Dir das weiter: http://www.delphipraxis.net/152827-z...ompressed.html

diese tolle Lösung verwenden

Vielen Dank Euch beiden

Torsten