1

我正在尝试使用 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;

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

4

1 回答 1

3

您不应将完整路径与 AddFiles 一起使用，而应仅使用 BaseDirectory 的相对路径。

于 2014-02-06T16:26:35.537 回答