Einzelnen Beitrag anzeigen

philipp.hofmann

Registriert seit: 21. Mär 2012
Ort: Hannover
888 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Decompress GZ Dateien

  Alt 17. Jul 2020, 08:24
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;
  Mit Zitat antworten Zitat