Hallo,
ich habe folgende Procedure zum entpacken einer GZip datei (*.gz) :
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:
| Str1 := 'C:\test.gz'); if FileExists(Str1) = False then exit;
FileIn := TFileStream.Create(Str1, fmOpenRead); try DecompressionStream:=TDecompressionStream.Create(FileIn, 15+16); try FileOut := TFileStream.Create(Str1 + '.txt', fmCreate); try FileOut.CopyFrom(DecompressionStream,DecompressionStream.Size); finally FileOut.free; end; finally DecompressionStream.free; end; finally FileIn.free; end; |
Die orginale Text Datei im gz ist 15 Mb gross, die FileOut Datei aber nur 300kb. Mehrere hundert Zeilen sind einfach verschwunden. Wenn ich mit windows entpacke, hab ich die richtige grösse. Woran kann das liegen ?
Danke
Moderiert von Narses: Beiträge zusammengefasstImmer noch keine Antwort. Um das problem zu umgehen, entpacke ich meine Datei per WinRar command line. WVielleicht gibt es noch eine bessere lösung ?
Moderiert von Christian S.: Topic aus Internet / Netzwerk verschoben am Sa 19.01.2019 um 21:27