Question

我正在尝试使用Abbrevia来构建ZIP存档。代码如下所示：

procedure TMyClass.AddToArchive(archive: TAbZipArchive; const filename: string);
var
   fullname: string;
begin
   FReport.newStep(format('Preparing %s...', [filename]));
   if trim(filename) = '' then
      Exit;
   fullname := TPath.Combine(GetRootPath(), filename);
   if fileExists(fullname) then
      archive.AddFiles(filename, faAnyFile)
   else FMissingValues.add(ExtractFileName(fullname));
end;

procedure TMyClass.ZipProc(Sender : TObject; Item : TAbArchiveItem;
  OutStream : TStream);
begin
  AbZip(TAbZipArchive(Sender), TAbZipItem(Item), OutStream);
end;

procedure TMyClass.BuildArchive(const files, zipname: string);
var
   list: TStringList;
   archive: TAbZipArchive;
   filename, root: string;
begin
   archive := TAbZipArchive.Create(zipname, fmCreate);
   list := TStringList.Create;
   try
      archive.InsertHelper := ZipProc;
      root := GetRootPath();
      archive.BaseDirectory := root;
      list.Text := files;
      for filename in list do
         AddToArchive(archive, TPath.Combine(root, filename));
      archive.Save;
   finally
      archive.Free;
      list.free;
   end;
end;

我找回了一个有效的zip文件，除了一个问题。在生成的zip文件中，文件夹结构是相对于C：驱动器的根目录创建的，而不是相对于archive.BaseDirectory。（所有内容都存储在\ Users \ Mason \ Documents \ etc下......）显然，我误解了BaseDirectory属性的目的。如何获取相对于特定根文件夹存储的文件？

Answer 1

您不应该使用AddFiles的完整路径，只能使用BaseDirectory的相对路径。

如何在Abbrevia zip存档中设置基线文件夹？

1 个答案: