Delphi 11中能否通过多线程从TZipFile提取文件？

问题根源：TZipFile的线程安全性 #

最初的代码无法运行的核心原因是TZipFile实例不是线程安全的，不能在多个并行线程中共享同一个TZipFile对象调用Extract方法，这会引发资源竞争、数据损坏或运行异常。

正确的多线程实现方式 #

每个并行线程需要独立创建、打开和释放专属的TZipFile实例，彻底避免共享资源冲突。以下是可运行的测试代码：

多线程提取实现 #

const
  ZipTo = 'E:\Temp\ZipTest';
  ZipFile = 'e:\temp\temp.zip';

procedure TForm32.Button3Click(Sender: TObject);
begin
  // 预先获取压缩包内文件总数，避免线程重复执行打开操作
  var z := TZipFile.Create;
  z.Open(ZipFile, TZipMode.zmRead);
  var FileCount := z.FileCount;
  z.Free;

  var sw := TStopwatch.StartNew;
  // 并行遍历每个文件索引
  TParallel.For(0, FileCount - 1,
    procedure (i : integer)
    begin
      // 每个线程独立创建并管理TZipFile实例
      var z := TZipFile.Create;
      try
        z.Open(ZipFile, TZipMode.zmRead);
        z.Extract(i, ZipTo);
      finally
        z.Free;
      end;
    end
  );
  ShowMessage('多线程耗时：' + sw.ElapsedMilliseconds.ToString + 'ms');
end;

单线程对比实现 #

procedure TForm32.Button4Click(Sender: TObject);
begin
  var sw := TStopwatch.StartNew;
  TZipFile.ExtractZipFile(ZipFile, ZipTo);
  ShowMessage('单线程耗时：' + sw.ElapsedMilliseconds.ToString + 'ms');
end;

测试结果与优化建议 #

• 耗时对比：针对1GB压缩包（含6个视频文件）测试，单线程耗时3783ms，多线程耗时1591ms，性能提升约2.4倍
• 线程数优化：最优线程数约为4，具体需根据磁盘IO速度、压缩包内容调整（小文件密集型压缩包的最优线程数可能更高）
• 磁盘缓存影响：可使用SysInternals的CacheSet工具清理磁盘缓存，测试中缓存对耗时的影响约100ms

关键注意事项 #

• 必须保证每个线程独立管理TZipFile的生命周期，绝对禁止跨线程共享实例
• 并行提取的性能提升高度依赖磁盘的多IO处理能力，SSD比机械硬盘的提升效果更显著
• 若压缩包内包含大量小文件，可考虑批量分组提取，平衡线程创建开销与IO效率

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