使用 JCLCompression 解压缩多卷 SevenZip 文件

Question

我正在使用以下代码从 SevenZIP 存档中提取文件。它适用于单卷存档，但不适用于多卷。

procedure TMyClass.ExtractArchive(AInputFile:String;AOutputDir:String);
var
 LArchive:TJcl7zDecompressArchive;
begin
 LArchive:=TJcl7zDecompressArchive.Create(AInputFile);
 try
  LArchive.OnProgress:=ExtractProgress;
  LArchive.ListFiles();
  try
   LArchive.ExtractAll(AOutputDir);
  except
   on e:Exception do
    LogError(e);
  end;
 finally
  LArchive.Free();
 end;
end;

SevenZip 的卷似乎只是分成两半的文件（与 RAR 和 ZIP 档案相反）。我是否必须自己手动准备组合流（所有卷为一个）？还是 JCL 会以某种方式自动处理？

Answer 1

Jcl 7zip 类不能很好地处理读取现有的拆分档案。它具有获取卷名的回调，但如果它们不在单独的可移动驱动器上，最简单的方法是在打开之前手动添加所有卷：

if AnsiEndsText(AInputFile, '.001') then
begin 
  LArchive := TJcl7zDecompressArchive.Create(AInputFile, GetFileSize(AInputFile, nil));
  for VolumeIndex := 2 to 999 do begin
    VolumeName := ChangeFileExt(AInputFile, Format('.%.3d', [VolumeIndex]));
    VolumeSize := GetFileSize(VolumeName, nil);
    if VolumeSize = INVALID_FILE_SIZE then
      Break;
    LArchive.AddVolume(VolumeName, VolumeSize);
  end
end
else
  LArchive := TJcl7zDecompressArchive.Create(AInputFile);