delphi - 在 ZipForge 中手动创建事件处理程序

Question

我曾经删除TZipForge表单上的组件，以便我可以使用它的事件处理程序。现在，我使用多个线程 worker 来提取一些 zip 文件，因此我创建 TZipForge 类的实例作为局部变量。如何在对象检查器中创建没有“事件”选项卡的事件处理程序？

Answer 1

要手动创建事件处理程序，您必须创建一个与目标事件的声明相匹配的过程，然后将该过程的地址分配给该类的事件，例如，如果您想要为 OnFileProgress 创建事件句柄如果发生这种情况，您必须在类中创建这样的过程。

procedure  FileProgress(Sender: TObject; FileName: string;
Progress: Double; Operation: TZFProcessOperation;
ProgressPhase: TZFProgressPhase; var Cancel: Boolean);

检查此示例

procedure TForm1.FileProgress(Sender: TObject; FileName: string;
  Progress: Double; Operation: TZFProcessOperation;
  ProgressPhase: TZFProgressPhase; var Cancel: Boolean);
begin
     //do your stuff here
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Archiver : TZipForge;
begin
  Archiver := TZipForge.Create(nil);
  try          
      Archiver.OnFileProgress:=FileProgress;//<- Here the event handler is assigned
      Archiver.FileName := 'compressedfile.zip';
      Archiver.OpenArchive(fmOpenRead);
      try
        Archiver.BaseDir := 'C\Foo';
        Archiver.ExtractFiles('*.*');
      finally
        Archiver.CloseArchive();
      end;
  finally
    Archiver.Free;
  end;
end;