如何在Delphi中使用http身份验证打开URL？

uses
  IdHTTP,
  IdSSLOpenSSL,
  IdAuthentication,
  IdCredentials;

var
  HTTPClient: TIdHTTP;
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
  Username: string;
  Password: string;
begin
  Username := 'your_username';
  Password := 'your_password';

  HTTPClient := TIdHTTP.Create(nil);
  try
    SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    try
      HTTPClient.IOHandler := SSLHandler;
      HTTPClient.Request.BasicAuthentication := True;
      HTTPClient.Request.Username := Username;
      HTTPClient.Request.Password := Password;

      // 打开URL
      HTTPClient.Get('https://your_url_here');
    finally
      SSLHandler.Free;
    end;
  finally
    HTTPClient.Free;
  end;