2012-01-08 11 views

答えて

4

進捗ハンドラを実装し、OnProgressイベントハンドラを介して圧縮クラスにアタッチする必要があります。次に、進行状況ハンドラでCancelCurrentOperationTrueに設定します。進捗ハンドラに渡される最初のパラメータは、TJclCompressionArchiveインスタンスです。

あなたのハンドラは次のようになります。

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

私はあなたがTJclCompressionArchiveの子孫のいずれかを使用していることを想定しています。


JEDIコードはソースとして提供されているので、ソースコードを自分で調べて、このような詳細を調べることができます。

+0

David ありがとうございました。 これはまさに私が探していたものです –

+1

@ETLManので、[この回答を受け入れる]ことを躊躇しないでください(http://meta.stackexchange.com/a/5235);) – TLama

関連する問題