如何使用TIdHTTP停止（取消）下載

Question

我在一個線程中使用TIdHTTP.Get過程來下載文件。 我的問題是如何停止（取消）下載文件？

Answer 1

我會嘗試通過在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;

Answer 2

你可以使用默認程序idhttp1.Disconnect ...