JclCompression，如何中止或停止

Question

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

Answer 1

您需要实现进度处理程序并通过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代码作为源提供，因此您可以自己检查源代码以找出详细信息。