TMemoryStream komprimieren

g1o2k4 · Beiträge: 493

hallo.

ich habe analog zu einem zlib beispiel, die zlib einen memorystream komprimieren zu lassen, allerdings bekomme ich einen "Stream-LeseFehler".
der code bis jetzt:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  InputStream, OutputStream: TMemoryStream;
  CompressionStream: TZCompressionStream;
begin
  InputStream := TMemoryStream.Create;
  OutputStream := TMemoryStream.Create;
  Image1.Picture.Graphic.SaveToStream(InputStream);
  CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest);
  CompressionStream.CopyFrom(InputStream, InputStream.Size); <---Fehler...!?
  CompressionStream.Free;
  InputStream.Free;

im outputstream soll also das komprimierte bild von image1 liegen und damit will ich weiter verfahren.
muss ich eine andere funktion benutzen um das bild als memorystream zu speichern?

alzaimar · Verfasst: Sa 12.09.09 16:24

Versuche Folgendes:

markieren

Delphi-Quelltext

1:
2:

...
  CompressionStream.CopyFrom(InputStream, 0); // Sonderfall: Kompletten Stream kopieren und vorher zurücksetzen

Ach, und den OutputStream sollte man auch noch freigeben...

_________________
Na denn, dann. Bis dann, denn.

g1o2k4 · Beiträge: 493

alzaimar hat folgendes geschrieben :

Ach, und den OutputStream sollte man auch noch freigeben...

jo klar hab ich nicht vergessen ^^ wie gesagt ich arbeite mit outputstream dann noch weiter.

edit: ich hab deinen vorschlag jetzt ausprobiert aber ich bekomme eine exception beim dekomprimieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TForm2.Button1Click(Sender: TObject);
var
  InputStream, OutputStream: TMemoryStream;
  DeCompressionStream: TZDecompressionStream;
  CompressionStream: TZCompressionStream;
  InputFileName, OutputFileName: string;
begin
  Image1.Canvas.Pixels[1,1] := clblack;


  InputStream := TMemoryStream.Create;
  Image1.Picture.Graphic.SaveToStream(inputstream);

  OutputStream := TMemoryStream.Create;
  CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest);
  CompressionStream.CopyFrom(InputStream, 0);
  CompressionStream.Free;
  InputStream.Free;

  OutputStream.SaveToFile('.\test.jpg.bzip');

 // decompress
  Outputstream.Position := 0;
  InputStream := TMemoryStream.Create;
  Inputstream := Outputstream;
  Outputstream.Free;
  Outputstream := TMemoryStream.Create;
  DecompressionStream := TZDecompressionStream.Create(InputStream);
  OutputStream.CopyFrom(DecompressionStream, 0);
  Outputstream.SaveToFile('.\test2.jpg');
  DecompressionStream.Free;
  OutputStream.Free;
  InputStream.Free;

end;

das ist die gesamte testprozedur. ich kann jede anweisung ausführen aber am ende komm trotzdem eine exception die sagt "ungültige zeigeroperation". und die test2.jpg ist 0kb groß, das bzip archiv ist 4kb groß also das könnte bei ner fast weißen bitmap schon hinkommen.
aber wie dekomprimieren?

edit2: es geht, Inputstream := Outputstream; ist natürlich vollkommener blödsinn

also so geht es jetzt, für alle die es auch brauchen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TForm2.Button1Click(Sender: TObject);
var
  InputStream, OutputStream: TMemoryStream;
  DeCompressionStream: TZDecompressionStream;
  CompressionStream: TZCompressionStream;
  InputFileName, OutputFileName: string;
begin
  Image1.Canvas.Pixels[1,1] := clblack;


  InputStream := TMemoryStream.Create;
  Image1.Picture.Graphic.SaveToStream(inputstream);

  OutputStream := TMemoryStream.Create;
  CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest);
  CompressionStream.CopyFrom(InputStream, 0);
  CompressionStream.Free;
  InputStream.Free;

  OutputStream.SaveToFile('.\test.jpg.bzip');

 // decompress
  Outputstream.Position := 0;
  InputStream := TMemoryStream.Create;
  Outputstream.SaveToStream(inputstream);
  Outputstream.Free;
  Outputstream := TMemoryStream.Create;
  DecompressionStream := TZDecompressionStream.Create(InputStream);
  OutputStream.CopyFrom(DecompressionStream, 0);
  Outputstream.SaveToFile('.\test2.jpg');
  DecompressionStream.Free;
  OutputStream.Free;
  InputStream.Free;

end;

jaenicke · Verfasst: So 13.09.09 08:49

Und hier nochmal ohne Speicherleck bei einem Fehler. Und ohne russisches Roulette mit dem Speicherpfad, denn bei dir weißt du ja gar nicht, in welchem Pfad du das eigentlich speicherst.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

procedure TForm2.Button1Click(Sender: TObject);
var
  InputStream, OutputStream: TMemoryStream;
  DeCompressionStream: TZDecompressionStream;
  CompressionStream: TZCompressionStream;
  InputFileName, OutputFileName: string;
begin
  Image1.Canvas.Pixels[1,1] := clblack;


  OutputStream := TMemoryStream.Create;
  try
    InputStream := TMemoryStream.Create;
    try
      Image1.Picture.Graphic.SaveToStream(inputstream);

      CompressionStream := TZCompressionStream.Create(OutputStream, zcFastest);
      try
        CompressionStream.CopyFrom(InputStream, 0);
      finally
        CompressionStream.Free;
      end;
    finally    
      InputStream.Free;
    end;

    OutputStream.SaveToFile(ExtractFilePath(ParamStr(0)) + 'test.jpg.bzip');

 // decompress
    Outputstream.Position := 0;
    InputStream := TMemoryStream.Create;
    try
      Outputstream.SaveToStream(inputstream);
    
      Outputstream.Size := 0; // Leeren reicht statt neu erzeugen auch
      DecompressionStream := TZDecompressionStream.Create(InputStream);
      try
        OutputStream.CopyFrom(DecompressionStream, 0);
        Outputstream.SaveToFile(ExtractFilePath(ParamStr(0)) + 'test2.jpg');
      finally
        DecompressionStream.Free;
      end;
    finally
      InputStream.Free;
    end;
  finally
    OutputStream.Free;
  end;
end;

g1o2k4 · Beiträge: 493

danke werde ich umbauen, aber ich speichere das ganze nicht, das war nur zum debuggen um zu sehen ob was angekommt usw...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme