zlib + stream komprimieren

[the_seed]

hallo habe probleme mit der komprimierung eines streams, programm spukt nach ausführung einen fehler von wegen ungültige stream operation!? was mache ich falsch?

Code:

function komprimiere(input:TStream):tmemorystream;
var
  xx: TCompressionStream;
begin
   result:=tmemorystream.create;
    xx := TCompressionStream.Create(clmax, input);
    result.CopyFrom(xx, xx.Size);
    result.position:=0;
 end;

[md_mse]

In den TCompressionStream kannst du nur schreiben und nicht lesen!
Du versuchst mit
result.CopyFrom(xx, cs.Size); cs.Size-Bytes vom TCompressionStream xx nach result zu kopieren...

Richtig währe da:

Delphi-Quellcode:

function komprimiere(input:TStream):tmemorystream;
var
  xx: TCompressionStream;
begin
   result := tmemorystream.create;
   xx := TCompressionStream.Create(clmax, result);
   xx.CopyFrom(input, input.Size);
   xx.Free; // !! NIcht vergessen, da der interne Buffer des TCompr.Streams sonst nicht geflusht wird
   result.position:=0;
end;

[the_seed]

funktioniert prima, danke dir!

hmm habe jetzt probleme mit dem entpacken :/
ist doch die gleiche routine wie beim packen oder?

Code:

function dekomprimiere(input:TStream):tmemorystream;
var
  xx: TdeCompressionStream;
begin
   result := tmemorystream.create;
   xx := TdeCompressionStream.Create(result);
   xx.CopyFrom(input, input.Size);
   xx.Free; // !! NIcht vergessen, da der interne Buffer des TCompr.Streams sonst nicht geflusht wird
   result.position:=0;

[the_seed]

keiner nen tip?

[md_mse]

Nein, diesmal musst du aus "xx" Lesen, und nicht da reinschreiben...

Delphi-Quellcode:

   result := tmemorystream.create;
   xx := TdeCompressionStream.Create(>>>input<<<);
   >>>result<<<.CopyFrom(xx, xx.Size);
   xx.Free; // !! NIcht vergessen, da der interne Buffer des TCompr.Streams sonst nicht geflusht wird
   result.position:=0;

[the_seed]

das haut leider nicht hin :/ gibt nen fehler (Ungültige Stream Operation),
die position ist aber auf anfang gesetzt!

[md_mse]

Warscheinlich kann dir der TDecompresisonStream die Size nicht zurückgeben.
CopyFrom(xx, Orginalgröße); Die Größe müsstest du dann anders rausbekommen

[marabu]

Hallo ihr Beiden,

leider ist der Einsatz der Methode CopyFrom() beim Dekomprimieren nicht möglich, da diese generische Methode die Zugriffsbedingungen des TDecompressionStream verletzt.

Delphi-Quellcode:

uses
  ZLib;

const
  BUFSIZE = 1024 * 16;

procedure CompressStream(inStream, outStream: TStream);
var
  cs: TCompressionStream;
begin
  inStream.Position := 0;
  outStream.Size := 0;
  cs := TCompressionStream.Create(clDefault, outStream);
  cs.CopyFrom(inStream, 0); // copy all
  cs.Free;
end;

procedure DecompressStream(inStream, outStream: TStream);
var
  ds: TDecompressionStream;
  bytes: Int64;
  buf: string;
begin
  inStream.Position := 0;
  outStream.Size := 0;
  ds := TDecompressionStream.Create(inStream);
  repeat
    SetLength(buf, BUFSIZE);
    SetLength(buf, ds.Read(buf[1], BUFSIZE));
    outStream.Write(buf[1], Length(buf));
  until buf = '';
  ds.Free;
end;

Silvestergrüße vom marabu