D6的解压缩问题? 问题已经解决！ 呵呵。 我在压缩的时候写错文件大小了。 缺分的进来 ( 积分: 200 )

//各位大侠，请问一下d6 那个解压缩的控件怎么死在下面有 *****
procedure DeCompressStream(InStream: TStream; OutStream: TStream);
var
zlibDeCompressor: TDeCompressionStream;
fBuffer: array[0..16383] of byte;
fBufLen: integer;
begin
zlibDeCompressor := TDeCompressionStream.create(InStream);
try
zlibDeCompressor.Position := 0;
OutStream.Size := 0;
fBufLen := zlibDeCompressor.Read(fBuffer, SizeOf(fBuffer)); //有问题吗？******* 死在这里了.
while fBufLen > 0 do
begin
OutStream.Write(fBuffer, fBufLen);
fBufLen := zlibDeCompressor.Read(fBuffer, SizeOf(fBuffer));
end;
OutStream.Position := 0;
finally
FreeAndNil(zlibDeCompressor);
end;
end;

问题已经解决！ 呵呵。 我在压缩的时候写错文件大小了。 缺分的进来
准备散分了。 ^_^

恭喜已经解决！！

多人接受答案了。