Delphi 11.3基于Indy摘要认证的Windows应用间歇性401授权失败

可能的原因 #

• 重复认证配置冲突：代码同时在OnAuthorization事件和IdHTTP.Request中设置用户名密码，可能导致Indy的认证逻辑混乱，不同机器的时序差异触发了该问题。
• Indy认证缓存/会话复用问题：启用hoInProcessAuth后，Indy会复用之前的认证上下文，但部分机器的网络波动（如延迟、丢包）导致认证握手不完整，缓存的无效认证信息被复用，引发401。
• Indy版本兼容性bug：你使用的Indy 10.6.2.0版本较旧，存在Digest认证在不同Windows环境下的行为差异，部分系统上的认证参数生成逻辑有问题。
• 设备端会话限制：生物识别设备可能对同一客户端的并发请求或会话超时有严格限制，不同机器的请求时序差异触发了设备的未授权响应。

解决方案 #

1. 清理重复的认证配置 #

移除Button1Click中对IdHTTP.Request.Username和IdHTTP.Request.Password的赋值，仅保留OnAuthorization事件中的设置，避免逻辑冲突：

procedure TForm1.Button1Click(Sender: TObject);
Var
  fs: TStringStream;
begin
  Memo1.Lines.Clear();

  fs:=TStringStream.Create();
  try
    IdHTTP1.Request.BasicAuthentication := False;
    // 移除重复的用户名密码赋值
    // IdHTTP1.Request.Username:='xxxxxx';
    // IdHTTP1.Request.Password:='xxxxxx';

    IdHTTP1.Get('http://192.168.0.147/ISAPI/System/capabilities', fs);

    fs.Position:=0;
    Memo1.Lines.Clear();
    Memo1.Lines.LoadFromStream(fs, TEncoding.UTF8);
  finally
    fs.Free();
  end;
end;

2. 重置认证状态，避免缓存无效信息 #

每次请求前重置Indy的认证上下文，强制重新进行Digest握手：

procedure TForm1.Button1Click(Sender: TObject);
Var
  fs: TStringStream;
begin
  Memo1.Lines.Clear();

  fs:=TStringStream.Create();
  try
    IdHTTP1.Request.BasicAuthentication := False;
    // 重置认证状态
    IdHTTP1.Request.ClearAuthentication;
    IdHTTP1.Response.Clear();

    IdHTTP1.Get('http://192.168.0.147/ISAPI/System/capabilities', fs);

    fs.Position:=0;
    Memo1.Lines.Clear();
    Memo1.Lines.LoadFromStream(fs, TEncoding.UTF8);
  finally
    fs.Free();
  end;
end;

3. 升级Indy组件版本 #

Indy 10.6.2.0存在多个已知的Digest认证修复，升级到最新的Indy 10稳定版本（如10.6.3.5970及以上），可解决部分环境兼容性问题。

4. 添加401自动重试逻辑 #

针对间歇性的401错误，添加重试机制，应对网络波动导致的握手失败：

procedure TForm1.Button1Click(Sender: TObject);
Var
  fs: TStringStream;
  RetryCount: Integer;
begin
  Memo1.Lines.Clear();
  RetryCount := 0;
  fs:=TStringStream.Create();
  try
    while RetryCount < 3 do
    begin
      try
        IdHTTP1.Request.BasicAuthentication := False;
        IdHTTP1.Request.ClearAuthentication;
        IdHTTP1.Response.Clear();

        IdHTTP1.Get('http://192.168.0.147/ISAPI/System/capabilities', fs);
        // 请求成功，退出循环
        Break;
      except
        on E: EIdHTTPProtocolException do
        begin
          if E.ErrorCode = 401 then
          begin
            Inc(RetryCount);
            Sleep(500); // 等待500ms后重试
          end
          else
            raise; // 其他错误抛出
        end;
      end;
    end;

    if RetryCount < 3 then
    begin
      fs.Position:=0;
      Memo1.Lines.Clear();
      Memo1.Lines.LoadFromStream(fs, TEncoding.UTF8);
    end
    else
      Memo1.Lines.Add('请求失败，重试3次后仍返回401');
  finally
    fs.Free();
  end;
end;

5. 检查设备端日志 #

登录生物识别设备的管理后台，查看访问日志，确认401错误的具体原因（如nonce过期、认证参数不匹配），帮助定位设备端的限制逻辑。

内容的提问来源于stack exchange，提问作者ogalonzo