Question

我正在压缩具有子目录的目录，并且我不需要的文件很少（在那些子目录中），你能修改下面的脚本以便它会跳过我想要的某些文件吗？

可以为PayPal支付高达20美元的辛苦工作： - ）

procedure DoProgress(Sender: TObject; Position, Total: Integer);
procedure DoCompressFile(Sender: TObject; const Filename: string);

...

procedure TJvZLibMultipleMainForm.DoCompressFile(Sender:TObject;const Filename:string);
begin
  lblFilename.Caption := Filename;
  Update;
end;

    procedure TJvZLibMultipleMainForm.btnCompressClick(Sender: TObject);
var
  z : TJvZlibMultiple;
begin
  ForceDirectories(ExtractFilePath(edFilename.Text));
  z := TJvZlibMultiple.Create(nil);
  Screen.Cursor := crHourGlass;
  try
    lblFilename.Caption := '';
    pbProgress.Position := 0;
    z.OnProgress := DoProgress;
    z.OnCompressingFile := DoCompressFile;
    z.CompressDirectory(edSrcFolder.Text,true,edFilename.Text);
  finally
    z.Free;
    Screen.Cursor := crDefault;
  end;
  pbProgress.Position := 0;
  lblFilename.Caption := 'Ready';
end;


procedure TJvZLibMultipleMainForm.DoProgress(Sender: TObject; Position, Total: Integer);
begin
  pbProgress.Max := Total;
  pbProgress.Position := Position;
  Update;
end;

Answer 1

在没有JVCL TJvZlibMultiple组件的真实文档的情况下，对JVCL源代码的回顾表明在TJvZlibMultiple级别没有可用于防止系统压缩的设置* all * 目录中的文件（！）。看起来甚至无法传递文件过滤器（如“* .PAS”）。

TJvZlibMultiple对象确实包含一些通知挂钩，例如 OnCompressingFile ，它在压缩文件之前调用，但驱动逻辑不测试处理程序的任何返回（事实上一个程序...），因此我们不能使用此设备来表示该文件应该被怀疑。

鉴于这种情况，你有三个主要选择：

由GJ建议，您可以在较低级别工作，提供要单独压缩的文件
```
Pseudo code:
   -manually initializing the archive 
   -iterate for each file in the directory (ies) (recursively if needed)
      -decide if file is to be added
      -adding it individually with the TJvZlibMultiple.AddFile() procedure
    -close the archive
    
```
简而言之，“没有乐趣”:-(这实际上需要从TJvZlibMultiple派生一个类，因为一些程序受到保护，而另一些程序则依赖于某些私有/受保护变量进行初始化......

内置自定义版本的JVCL ，特别是更改为TJvZlibMultiple.pas文件（如果你做得好，可以将其提交回JVCL项目的主干）

Essentially the Notification events, in particular OnCompressingFile would 
return a value, either by beying a true function (or a procedure with side
effect, for backward compatibilty), and such return would be tested by the
CompressDirectory logic, to skip files (and possibly other features such as
'abort', 'use an alternate file', whatever...).

预处理目录

by [temporarilly] moving the undesired files elsewhere. (and then calling the unmodified CompressDirectory(), and then moving the files back...)

实际上，这些解决方案都没有吸引力。恕我直言，中间的一个可能是最快的，但你的代码将从官方的JVCL分支出来，除非你努力将mods提交给开源项目）

第四种选择可能是使用另一种ZIP库，并以某种方式将其与您的UI集成。

玩得开心; - ）

Answer 2

您必须走到目录和所有子目录并搜索所有文件名。如果文件名不在该列表中，则将任何文件名或文件扩展名与“不压缩”列表进行比较，并使用TJvZlibMultiple.AddFile将其添加到zip文件中。

Answer 3

如何压缩整个目录，然后从ZIP中删除这些文件？当然效率不高，但它完成了工作。

I use TZipMaster，并做了类似的事情。它是一个可视组件，但也可以用作运行时组件。它是开源的。

压缩所有文件但跳过一个

3 个答案: