Delphi和Indy使用SSL

var
  Http: TIdHTTP;
begin
  Http := TIdHTTP.Create(nil);
  try
    Http.HandleRedirects := True;
    Http.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(Http.IOHandler);
    Http.IOHandler.UseOpenSSL := True;
    Http.Request.BasicAuthentication := True;
    Http.Request.Username := 'username';
    Http.Request.Password := 'password';

    // 使用 HTTP 请求
    ...
  finally
    FreeAndNil(Http);
  end;
end;

var
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create(nil);
  try
    IdHTTP.HandleRedirects := True;
    IdHTTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP.IOHandler);
    IdHTTP.IOHandler.UseOpenSSL := True;

    // 使用 HTTP 请求
    ...
  finally
    FreeAndNil(IdHTTP);
  end;
end;