TIdHTTPを使用してダウンロードを停止（キャンセル）する方法

Question

スレッドでTIdHTTP.Getプロシージャを使用してファイルをダウンロードしています。私の質問は、ファイルのダウンロードを停止（キャンセル）する方法です。

Answer 1

あなたは...

Answer 2

を既定の手順idhttp1.Disconnectを使用することができ、私はTIdHTTP.OnWorkイベントでAbort方法を使用してサイレント例外をスローし、それをキャンセルしようとするだろう。このイベントは読み取り/書き込み操作のために起動されるため、ダウンロードの進行中にも起動されます。

type 
    TDownloadThread = class(TThread) 
    private 
    FIdHTTP: TIdHTTP; 
    FCancel: boolean; 
    procedure OnWorkHandler(ASender: TObject; AWorkMode: TWorkMode; 
     AWorkCount: Integer); 
    public 
    constructor Create(CreateSuspended: Boolean); 
    property Cancel: boolean read FCancel write FCancel; 
    end; 

constructor TDownloadThread.Create(CreateSuspended: Boolean); 
begin 
    inherited Create(CreateSuspended); 
    FIdHTTP := TIdHTTP.Create(nil); 
    FIdHTTP.OnWork := OnWorkHandler; 
end; 

procedure TDownloadThread.OnWorkHandler(ASender: TObject; AWorkMode: TWorkMode; 
    AWorkCount: Integer); 
begin 
    if FCancel then 
    begin 
    FCancel := False; 
    Abort; 
    end; 
end; 

またはそれはあなたが同じイベントにDisconnect方法を使用することができ、直接切断のために、ここで言及したように。

procedure TDownloadThread.OnWorkHandler(ASender: TObject; AWorkMode: TWorkMode; 
    AWorkCount: Integer); 
begin 
    if FCancel then 
    begin 
    FCancel := False; 
    FIdHTTP.Disconnect; 
    end; 
end;