使用带有身份验证的 Web 服务总是给出消息 Authentication required

Question

我尝试在 Delphi 2010 中使用消费一项 Web 服务。 此 Web 服务位于端口 8000 上并进行身份验证。

我实现了

function TForm4.EncodeLoginPW(const ALogin, APW: string): string;
begin
  Result := EncdDecd.EncodeString(ALogin + ':' + APW); // EncdDecd is not documented in 
end;


procedure TForm4.HTTPRIO1HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp;
  Data: Pointer);
var
  s: string;
begin
  s := 'Authorization: Basic ' + EncodeLoginPW(UserName, Password);
  if not HttpAddRequestHeaders(Data, PChar(s), Length(s), HTTP_ADDREQ_FLAG_ADD) then
    ShowMessage('HttpAddRequestHeaders' + SysErrorMessage(GetLastError()));
end;

，但仍然有消息“需要身份验证”。

我做错了什么吗？

Answer 1

对于基本身份验证，这应该有效：

Basic Authentication in Delphi 7 SOAP

如上所述在这篇文章中，较新版本的Delphi也允许使用

HTTPRio.HTTPWebNode.UserName := Username;
HTTPRio.HTTPWebNode.Password := Password;

Answer 2

如果仍然不起作用，您可以尝试不同的客户端（.Net 或 Java），并借助本地代理（Fiddler 或 Don's Proxy）或嗅探器 (WireShark)，找出相关的差异。