- i ist unnütz
- das Copy() auch
- Resourcenschutzblock empfehlenswert
Delphi-Quellcode:
function GZipDecode(const Input: TStream): string;
var
DS: TZDecompressionStream;
begin
DS := TZDecompressionStream.Create(Input);
Try
SetLength(Result, DS.Size);
DS.Read(Result[1], DS.Size);
Finally
DS.Free;
End;
end;