使用TZCompressionStream截断数据

Question

我有以下声明：

stmCompressor: TZCompressionStream;
stmCompressed: TMemoryStream;
stmBlob: TStream;

我有以下代码：

stmBlob := qry.CreateBlobStream(qry.FieldByName(sFieldName), bmRead);
stmCompressed := TMemoryStream.Create;
stmCompressor := TZCompressionStream.Create(stmCompressed); 
stmBlob.Position := 0;
stmCompressor.CopyFrom(stmBlob, stmBlob.Size);
stmCompressed.Position := 0;
stmCompressed.SaveToFile('C:\Temp\CompressedData2.zip');

我正在尝试从数据库压缩图像数据并将结果放在内存流stmCompressed中。然后我将stmCompressed保存到文件中，以便我可以检查结果。结果似乎是截止形式的应该是什么。如果压缩数据大于80000H，则文件将截断为此大小。如果数据大于B0000H，则文件将被截断为此大小。

有趣的是，如果我将stmCompressed从TMemoryStream更改为TFileStream，那么它可以完美地工作（代码不完全一样 - 如果它有帮助我可以发布它）。

我需要将结果放在内存流中，所以我很感激任何人都能提供的帮助。我正在使用XE2附带的标准ZLib库。

感谢。

Answer 1

您必须释放TZCompressionStream以将剩余的字节刷新到内存流中。