OK, danke euch. Das hat soweit geklappt.
Aber jetzt habe ich das Problem, dass ich einen Fehler beim ausführen des Programms in der Prozedur:
Delphi-Quellcode:
procedure Decompress(InputFileName, OutputFileName:
string);
var InputStream, OutputStream: TFileStream;
DeCompressionStream:
ZLib.TDeCompressionStream;
Buf:
array[0..4095]
of Byte;
Count: Integer;
begin
InputStream:=TFileStream.Create(InputFileName, fmOpenRead);
try
OutputStream:=TFileStream.Create(OutputFileName, fmCreate);
try
DecompressionStream := TDecompressionStream.Create(InputStream);
try
while true
do
begin
Count := DecompressionStream.
Read(Buf[0], SizeOf(Buf));
if Count = 0
then
break
else
OutputStream.
Write(Buf[0], Count);
end;
finally
DecompressionStream.Free;
end;
finally
OutputStream.Free;
end;
finally
InputStream.Free;
end;
end;
An der Stelle
Count := DecompressionStream.Read(Buf[0], SizeOf(Buf));
erscheint als Fehler: "Fehler."
Und ich würde gerne wissen, warum.
Funktionsaufruf:
decompress('C:\Dokumente und Einstellungen\...\test.php','C:\Dokumente und Einstellungen\...\test2.php');
Was ist falsch, oder warum geht es nicht?