Windows平台Delphi TZipfile创建的Zip文件跨平台不兼容问题求助

我之前碰到过好几个开发者遇到类似的情况——用Delphi做的Zip工具在Windows上一切正常，但拿到iOS上就丢了目录结构，本质上是跨平台Zip格式兼容性的问题，下面给你拆解原因和具体的解决办法：

核心原因分析 #

Windows和类Unix系统（包括iOS）对Zip包的条目路径格式要求不一样：

• Windows习惯用\作为路径分隔符，而Zip标准和类Unix系统统一要求用/
• iOS的解压工具对Zip条目的路径规范更严格，任何不符合标准的路径都会被当作文件名处理，直接丢到根目录

具体解决步骤 #

1. 统一路径分隔符为/ #

在添加文件到Zip包之前，把所有路径里的\替换成/，确保条目路径符合Zip标准。
示例代码（假设使用Delphi自带的TZipFile组件）：

function GetZipCompatiblePath(const AFilePath: string; ARootDir: string): string;
var
  RelPath: string;
begin
  // 先获取文件相对于根目录的相对路径
  RelPath := ExtractRelativePath(ARootDir, AFilePath);
  // 替换分隔符为/
  Result := StringReplace(RelPath, '\', '/', [rfReplaceAll]);
end;

// 使用方式
ZipFile.Add(GetZipCompatiblePath(CurrentFile, RootDir), CurrentFile);

2. 手动添加空目录条目 #

如果你的目录树里包含空文件夹，很多Delphi Zip组件默认不会把空目录写入Zip包，但iOS需要明确的目录条目才能识别结构。
添加空目录的示例代码：

procedure AddEmptyDirToZip(ZipFile: TZipFile; const ADirPath: string; ARootDir: string);
var
  ZipDirPath: string;
begin
  ZipDirPath := GetZipCompatiblePath(ADirPath, ARootDir);
  // 确保路径以/结尾，标识这是一个目录
  ZipDirPath := IncludeTrailingPathDelimiter(ZipDirPath);
  ZipFile.AddDirectory(ZipDirPath);
end;

3. 避免使用绝对路径作为条目名称 #

绝对路径会被iOS的解压工具忽略目录结构，必须使用相对于压缩根目录的相对路径。比如你要压缩D:\Projects\MyApp\，那么里面的D:\Projects\MyApp\Images\Logo.png应该以Images/Logo.png的形式添加，而不是完整的绝对路径。

4. 启用UTF-8编码存储条目名称 #

如果你的路径里包含中文、特殊字符等非ASCII内容，默认的ANSI编码会导致iOS解析路径错误，看起来像是目录丢失。在Delphi 10.3及以上版本，可以给TZipFile启用UTF-8编码：

ZipFile.Options := ZipFile.Options + [TZipOption.EncodeUTF8];

验证方法 #

修改代码后生成Zip包，用7-Zip或WinRAR打开，查看每个条目的路径是否都是/分隔的相对路径，并且空目录也被正确添加。然后把这个Zip包传到iOS上，用系统自带的“文件”应用解压，就能看到完整的目录结构了。

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