Decompress einer gz-Datei mit NULL-Zeichen

**philipp.hofmann**

Hi,

bisher decompresse ich gz-Dateien mit folgendem Code:

Delphi-Quellcode:

			uses System.Zlib;

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);

   Result.LoadFromStream(LUnzip);

   LUnZip.Free;

   LInput.Free;

end;

Jetzt funktioniert dies leider nicht mit gz-Dateien, wo ein NULL-Zeichen enthalten ist. Dort enthält das Result dann nur den File-Inhalt bis zum NULL-Zeichen.
Wenn ich den Umweg über eine Datei gehe, welche ich dann in einem zweiten Schritt einlese, geht es zwar, ist aber inperformant, das mache ich eigentlich nur das riesen gz-Files:

zusammenfalten · markieren

Delphi-Quellcode:

			class procedure TStringUtils.gzUnzipToFile(readFile,writeFile:String);

var

   LInput,LOutput:TFileStream;

   LUnZip:TZDecompressionStream;

begin

   LOutput:=TFileStream.Create(writeFile,fmCreate);

   LInput:=TFileStream.Create(readFile,fmOpenRead+fmShareDenyNone);

   LUnZip:=TZDecompressionStream.Create(LInput,15+32);

   LOutput.CopyFrom(LUnZip,0);

   LUnZip.Free;

   LInput.Free;

   LOutput.Free();

end;

Wie bekomme ich es hin, dass ich ohne den Umweg über eine Datei das gz-File komplett in meine TStringList bekomme?

Grüße, Philipp

Decompress einer gz-Datei mit NULL-Zeichen

Decompress einer gz-Datei mit NULL-Zeichen

Forumregeln