3

我正在从 Delphi 2005 升级到 Delphi 2010。我遇到了这个问题：以下过程在 D2005 上运行良好，但在 D2010 上我总是得到结果：

<HTML><HEAD><TITLE>401 Unauthorized</TITLE></HEAD>
<BODY><H1>401 Unauthorized</H1>
Your client does not have permission to get URL /axis-cgi/date.cgi from this server.
</BODY></HTML>

在程序上，我尝试连接两次，因为在D2005上，有时我第一次尝试得到未经授权的答案，然后我可以在第二次连接时没有问题。使用 D2010，我总是得到未经授权的答案。

Url = 'http://user:pass@xxx.xxx.xxx.xxx/axis-cgi/date.cgi?action=get'

function TViewCameraForm.HttpGet(idHTTP : TidHTTP; Url : AnsiString): AnsiString;
Var
  Res : AnsiString;
Begin
  idHTTP1.Disconnect;
  try
    Res := idHTTP1.Get(Url);
    If Pos('Unauthorized', Res) > 0 Then
        Res := idHTTP1.Get(Url);
    Result := Res;
  except
    on E: EIdHTTPProtocolException do begin
        Result := E.ErrorMessage
    end;
    on E: Exception do begin
        Result := E.message;
    end;
  end;

End;

谢谢山姆

4

1 回答 1

7

您是否尝试使用基本身份验证进行身份验证？

  ...
  idHTTP1.Request.BasicAuthentication := True;
  idHTTP1.Request.Username := 'user';
  idHTTP1.Request.Password := 'pass';
  Res := idHTTP1.Get(Url);

（使用 user:pass@website 不符合 HTTP 规范顺便说一句）

于 2011-07-18T13:38:14.817 回答