Delphi TZip处理超64k文件失败问题咨询

替换原生TZip为第三方ZIP库 #

原生TZip基于传统32位ZIP格式设计，索引采用16位整数，天然限制65535个文件。改用支持ZIP64标准的第三方库是最直接的解决办法：

• ZipForge：支持ZIP64，可直接处理超64K文件，能设置不压缩模式（将CompressionLevel设为clNone），代码改动量小，兼容Delphi各版本（包括11）。
• Abbrevia：开源库，原生支持ZIP64，可自定义打包逻辑，适合需要深度定制的场景。

使用示例（以ZipForge为例）：

var
  ZipForge1: TZipForge;
begin
  ZipForge1 := TZipForge.Create(nil);
  try
    ZipForge1.FileName := 'LargeArchive.zip';
    ZipForge1.OpenArchive(fmCreate);
    ZipForge1.Zip64Mode := zmAlways; // 强制启用ZIP64
    ZipForge1.CompressionLevel := clNone; // 不压缩
    // 添加文件逻辑...
    ZipForge1.CloseArchive;
  finally
    ZipForge1.Free;
  end;
end;

拆分ZIP归档文件 #

如果不想更换库，可将大归档拆分为多个小ZIP，每个文件数控制在65535以内：

• 按文件批次打包，比如每60000个文件生成一个ZIP。
• 程序处理时，遍历所有拆分后的ZIP文件，逐个读取内容。
  这种方案适合临时应急，无需深度修改代码，但会增加归档文件的管理复杂度。

自定义修改TZip支持ZIP64（进阶） #

若坚持使用原生TZip框架，需修改其内部实现：

• 将索引相关变量类型从Word改为Integer或Int64，突破16位范围限制。
• 增加ZIP64格式的头信息处理，包括中央目录的ZIP64扩展字段，确保归档能被标准解压工具识别。
  注意：此方案需要对ZIP文件格式有深入了解，且可能影响Delphi版本升级后的兼容性。

内容的提问来源于stack exchange，提问作者peardox