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 поставляется в качестве источника, поэтому вы можете самостоятельно изучить исходный код, чтобы разработать детали, такие как это.