如何对此 HTTPS SOAP 服务进行身份验证？

Question

我正在尝试创建一个小工具来监控我已经使用了多少带宽以及我的 ISP 还剩多少带宽。他们有一个 SOAP 服务，我必须验证我的用户名和密码并验证客户端，然后我将获得 2 个 GUID，必须将其传递到将从数组返回使用统计信息的函数中。然后这些会被缓存 1 小时，我必须再次进行身份验证。

我在 Delphi 2010 中使用了 WSDL Importer，它为我生成了一个单元。 （我不太确定我应该发布这个，因为它很大）？

我尝试使用以下代码使用我的用户名和密码验证第一部分：

procedure TForm1.btnAuthClick(Sender: TObject);
var
  fGUID: string;
begin
  HTTPRIO1.URL := 'https://webservices.zen.co.uk/broadband/v3.11/serviceengine.asmx?WSDL';
  try
    fGUID := (HTTPRIO1 as ServiceEngineSoap).Authenticate(edtUserName.Text,edtPassword.Text);
    Label1.Caption := fGUID;
  except
    on E: Exception do
    Memo1.Lines.Text := E.Message;
  end;
end;

上面的代码始终返回以下错误：

标题 http://schemas.xmlsoap.org/ws/2004/08 /addressing:最终收件人的操作是必需的，但未出现在消息中。

我尝试使用 WSDLLocation 代替服务和端口：

procedure TForm1.btnAuthClick(Sender: TObject);
var
  fGUID: string;
begin
  HTTPRIO1.WSDLLocation := 'https://webservices.zen.co.uk/broadband/v3.11/serviceengine.asmx?WSDL';
  HTTPRIO1.Service := 'ServiceEngine';
  HTTPRIO1.Port := 'ServiceEngineSoap';
  try
    fGUID := (HTTPRIO1 as ServiceEngineSoap).Authenticate(edtUserName.Text,edtPassword.Text);
    Label1.Caption := fGUID;
  except
    on E: Exception do
    Memo1.Lines.Text := E.Message;
  end;
end; 

这将始终生成以下错误：

无法从 WSDL“https://webservices.zen.co.uk/broadband/v3.11/serviceengine.asmx?WSDL”检索服务/端口“ServiceEngine”/“ServiceEngineSoap”的 URL 端点

我是什么这里做错了吗？如果我实际上应该发送一个标头，那么我将如何执行此操作来向服务验证自己的身份？

Answer 1

根据 文档

如果服务器需要身份验证，请使用
THTTPReqResp对象提供必要的信息

您可以在 THTTPReqResp 对象中设置用户/密码 (HTTPRIO1.HTTPWebNode.UserName := 'xxx'; HTTPRIO1.HTTPWebNode.Password := 'yyy')

另请注意有关使用 HTTPS 的文档:

THTTPReqResp 使用 WinInet 建立与服务器的连接。
Wininet.dll 必须安装在客户端系统上。 wininet.dll 是
如果您有 IE3 或更高版本，可在 Windows 系统目录中找到
安装。 WinInet 的优点是它提供支持
安全连接 (https)。要使用 WinInet，请编译您的项目
没有定义 USE_INDY 符号

但是，根据下面的帖子，看起来这个用户/密码只能在代理情况下使用。如果 Jean-Marie Babet 的链接仍未修复此问题，请访问 2007 年给出的原始解决方法：

https://forums.codegear.com/thread.jspa?threadID=58755&tstart=0

这是解决方法：

您所要做的就是处理 OnBeforePost 事件
HTTPRIO.HTTPWebNode 组件并使用 InternetSetOption。这是一个
与 MapPoint 对话的示例中的示例（MapPoint.NET 使用
“摘要”身份验证 - “基本”身份验证的变体）：

procedure TTestMapPointRender.HTTPRIO1HTTPWebNode1BeforePost(
  const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  UserName: string;
  PassWord: string;
begin
  UserName := GetWSToken('MapPoint', 'UserName');
  Password := GetWSToken('MapPoint', 'Password');
  if not InternetSetOption(Data,
               INTERNET_OPTION_USERNAME,
               PChar(UserName),
               Length(UserName)) then
     raiseException(SysErrorMessage(GetLastError));

  if not InternetSetOption(Data,
               INTERNET_OPTION_PASSWORD,
               PChar(Password),
               Length (Password)) then
     raiseException(SysErrorMessage(GetLastError));
end;