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
