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代码是作为源代码提供的，因此您可以自己检查源代码以计算出详细信息。