Ich habe es jetzt nicht ausprobiert, aber mein Code sieht leicht anders aus und das Kommentar zu "15+32" sieht auch danach aus, als ob es bei mir nötig gewesen wäre:
Delphi-Quellcode:
class function TStringUtils.gzUnzip(filename:String):TStringList;
var
LInput:TFileStream;
LUnZip:TZDecompressionStream;
begin
Result:=TStringList.Create(true);
LInput:=TFileStream.Create(filename,fmOpenRead + fmShareDenyNone);
LUnZip:=TZDecompressionStream.Create(LInput,15+32); // '15+32' macht den Unterschied zwischen data-error und 'juhu'
Result.LoadFromStream(LUnzip);
LUnZip.Free;
LInput.Free;
end;