Danke für die Infos.
Allerdings komme ich hier nicht weiter.
Ich habe versucht, mich hier entsprechend zu informieren, allerdings bin ich jetzt total verwirrt.
Ich habe mal folgendes ausprobiert .
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
| procedure Decompress(InputFileName, OutputFileName: string);
var
InputStream, OutputStream : TFileStream;
DeCompressionStream : TDeCompressionStream;
a : ^byte;
i : Integer;
begin
InputStream := TFileStream.Create(InputFileName, fmOpenRead);
GetMem(a,655360);
try
OutputStream := TFileStream.Create(OutputFileName, fmCreate);
try
DecompressionStream := TDecompressionStream.Create(InputStream);
try
repeat
i:=DecompressionStream.Read(a^,655360);
if i>0 then OutputStream.Write(a^,i);
until i<655360;
FreeMem(a);
finally
DecompressionStream.Free;
end;
finally
OutputStream.Free;
end;
finally
InputStream.Free;
end;
end; |
Dies rufe ich auf mit
Decompress('C:\test.gz','C:\test.csv');
Hier bekomme ich aber eine Fehlermeldung
Was mache ich hier falsch ?
Ist das denn so schwierig, eine Datei zu entpacken ?
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt.
