Thema: Delphi gzip entpacken

Einzelnen Beitrag anzeigen

Phistev
(Gast)

n/a Beiträge
 
#4

Re: gzip entpacken

  Alt 22. Sep 2005, 16:28
Wenn du die komprimeirten Daten in einem Stream hast:
Delphi-Quellcode:
uses ..., ZLib;
{...}
function GZipStreamToString(const input: TStream): string;
var str: TDecompressionStream;
    buffer: array[0..2000] of char;
    count: Longint;
begin
  str:= TDecompressionStream.Create(input);
  repeat
    count:= str.Read(buffer, 2000);
    result:= result + buffer;
  until count < 2000;
  str.Free
end;
Is' aber untested.

/edit: Code in eine Funktion gepackt
  Mit Zitat antworten Zitat