delphi - JclCompression，如何中止或停止

有谁知道在使用JclCompression时如何停止/中止压缩或解压缩？

最佳答案

您需要实现一个进度处理程序，并通过OnProgress事件处理程序将其附加到压缩类。然后，在进度处理程序中，将CancelCurrentOperation设置为True。传递给进度处理程序的第一个参数是TJclCompressionArchive实例。

您的处理程序可能如下所示：

procedure TMyClass.CompressionArchiveProgress(Sender: TObject;
    const Value, MaxValue: Int64);
begin
  if FAborted then
    (Sender as TJclCompressionArchive).CancelCurrentOperation := True;
end;

我假设您正在使用TJclCompressionArchive的后代之一。



JEDI代码作为源提供，因此您可以自己检查源代码以制定诸如此类的详细信息。