使用 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 以将剩余字节刷新到内存流中。