gzip entpacken

[Phistev]

Zwei Fragen:
Erstens, muss die Seite auf der Festplatte zwischengespeichert werden? Ansonsten würde sich ein TMemorystream anbieten.
Zweitens (hab grade kein Delphi, um nachzugucken), ist der Stream nach Get noch geöffnet? Meine Funktion kann das (noch) nicht überprüfen.

/edit: Evtl. ist es auch ein input.Seek(0, soFromBeginning), was vor dem TDecompressionStream.Create fehlt.

[Crishnu]

Der Stream muss nicht auf der Festplatte zwischengespeichert werden
und ich denke mal, dass der Stream nach dem get noch offen ist, wird doch direkt der Funktion übergeben!?

Edit: Mit dem input.Seek(0, soFromBeginning) bekomme ich einen ECompressionError

[Phistev]

Mir ist gerade aufgefallen, dass die Indys auch eine ZLib-Implementation haben... Wieso ist mir das nicht aufgefallen?Mit dem neuen Wissen ausgerüstet:

Delphi-Quellcode:

uses ..., IdZlibEx;
{...}
function GZipStreamToString(const input: TStream): string;
var temp: TMemorystream;
begin
  input.Seek(0, soFromBeginning);
  temp:= TMemorystream.Create;
  ZDecompressStream(input, temp);
  SetLength(result, temp.Size);
  temp.Read(@result[1], temp.Size);
end;

Ist wieder untested.

[Crishnu]

Werds gleich testen, muss erst arbeiten,
editiere das dann rein, wenns geht.

THX

Edit:
Also, damit der code läuft musste ich hier:
temp.Read(@result[1], temp.Size); das @ weglassen.

Und wenn ich das dann durchlaufen lasse, kommt folgender Fehler:

EZDecompressionError with Message 'data error'.