我怎么能用绝地的JCLCompression来创建一个7z档案呢？

Question

我正在尝试创建一个7z档案的某些文件使用Delphi 2009。

下面的代码似乎可以工作，但是产生的7z文件中的所有项都是零大小的。存档中的所有文件名都是正确的，但它们不应该是零大小的。

如何使用JCLCompression正确地将文件添加到7z存档中？

var
  fname, archiveFileName: string;
  arch: TJclUpdateArchive;
  archiveclass: TJCLUpdateArchiveClass;
  sr: TSearchRec;
begin
  fname := GetDesktop + 'Support.7z';

  archiveclass := GetArchiveFormats.FindUpdateFormat(fname);

  if not Assigned(archiveclass) then
    raise Exception.Create('Could not determine the Format of ' + fname);

  arch := archiveclass.Create(fname);
  try
    with arch do
    begin

      if FindFirst(uFolder + '*.*', faAnyFile, sr) = 0 then
      begin
        repeat
          AddFile(ExtractFileName(sr.Name), sr.Name);
        until FindNext(sr) <> 0;

        FindClose(sr);
      end;

      Compress;
    end;
  finally
    arch.free;
  end;
end;

Answer 1

永远不要，从来没有，我的回答可能是完全错误的，但你不需要指定文件夹的某个地方吗？您只是在添加文件名。