System.Zip.TZipFile.ExtractZipFile 对某些文件抛出错误。为什么？

Question

使用System.Zip.TZipFile解压ZIP文件时：

System.Zip.TZipFile.ExtractZipFile('C:\test.zip', 'R:\_TEST\');

对于特定的 ZIP 文件，我收到此错误消息框：

流读取错误。

为什么？

重现错误的 zip 文件，base64 编码：

UEsDBC0ACAAIAHyDiEcAAAAA ////////// 8WABQATmV1ZXMgVGV4dGRva3VtZW50LnR4dAEAEAAA AAAAAAAAAAIAAAAAAAAAAwBQSwcIAAAAAAIAAAAAAAAAAAAAAAAAAABQSwECLQstAAgACAB8g4hH AAAAAP ////////// FgA4AAAAAAABAAAAAAAAAAAATmV1ZXMgVGV4dGRva3VtZW50LnR4dAEAEAAA AAAAAAAAAAIAAAAAAAAACgAgAAAAAAABABgA1LFkAs0x0QHUsWQCzTHRAdSxZALNMdEBUEsFBgAA AAABAAEAfAAAAGIAAAAAAA == P>

转到http://www.motobit.com/util/base64-decoder-encoder.asp

将此解码到本地存储为 test.zip（不要更改字符集）

解码后的二进制文件的MD5必须是：

7357193E8F27FE1FB5AF2B8B6AF1F24C

Answer 1

参考：The structure of a PKZip file by Florian Buchholz.

您的 ZIP 文件使用该格式的 ZIP64 扩展变体存储。 Delphi 邮政编码不支持 ZIP64。

我通过查看本地文件头推断该文件是 ZIP64。压缩和未压缩的大小字段都是0xffffffff。从上面的参考：

• 压缩后的大小：如果压缩包是ZIP64格式，这个字段是0xffffffff，长度存储在额外字段中
• 未压缩大小：如果压缩包为ZIP64格式，则该字段为0xffffffff，长度存储在额外字段中

对于支持 ZIP64 的库，它需要检测这些条件并从附加标头中读取 64 位值。 Delphi 代码不尝试读取不存在的0xffffffff 字节。

您需要找到一个不同的 ZIP 文件库，一个支持 ZIP64 的库，才能对此类 ZIP 文件进行操作。或者，如果您可以安排创建 ZIP 文件的任何内容都使用纯 ZIP 格式，您可以回避这个问题。