Delphi TIDHttp.Authentication用法

Delphi TIDHttp 组件可以用来发送 HTTP 请求。如果你需要执行需要身份验证（Authentication）的请求，可以使用 TIdAuthenticationManager 类来实现。

以下是一个简单的例子，演示如何使用 TIdAuthenticationManager：

uses
  IdHttp, IdAuthentication;

procedure TForm1.Button1Click(Sender: TObject);
var
  Http: TIdHttp;
  AuthManager: TIdAuthenticationManager;
  Response: string;
begin
  Http := TIdHttp.Create(nil);
  AuthManager := TIdAuthenticationManager.Create(nil);
  try
    // 设置身份验证信息
    AuthManager.Username := 'your_username';
    AuthManager.Password := 'your_password';
    AuthManager.Authentication := TIdBasicAuthentication.Create;

    // 设置 Http 组件的属性
    Http.Request.Authentication := AuthManager;
    Http.AllowCookies := True;

    // 发送请求
    Response := Http.Get('http://www.example.com');

    // 处理响应
    Memo1.Lines.Text := Response;
  finally
    AuthManager.Free;
    Http.Free;
  end;
end;

在上面的代码中，我们创建了一个 TIdHttp 组件和一个 TIdAuthenticationManager 组件。然后，我们设置了身份验证信息，并将 TIdAuthenticationManager 分配给 Http.Request.Authentication 属性。最后，我们发送了一个 GET 请求，并将响应显示在 Memo1 控件中。

注意，在这个例子中，我们使用了 TIdBasicAuthentication 类来进行身份验证。如果你需要使用其他类型的身份验证，可以创建相应的类，并将它分配给 AuthManager.Authentication 属性。