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