Delphi Soap https认证失败弹出对话框

我们有一个使用 SOAP（THTTPRIO 等）通信的 delphi XE 应用程序，默认情况下，该应用程序（在 delphi 中）通过 WinInet.dll 工作。我们修复了身份验证代码，使其可以使用 https 身份验证，并且当 https 的用户名和密码正确时，一切都很好。

问题是，当身份验证详细信息不正确时，您会从 Windows 收到一个消息框，该消息框可能是由 WinInet.dll 本身弹出的。我想让那个对话框消失。我不知道如何更改我的 Delphi SOAP，这样密码就不会出现。

情况是与这个问题不同 https://stackoverflow.com/questions/2287219/how-to-prevent-dialog-basic-authentication-prompt-during-call-of-webservice通过以下方式：

1. 我正在做他正在做的所有事情，包括调用 InternetSetOption(...) 来设置用户名和密码。

2. 我没有使用带有自签名证书的服务器，因此 soIgnoreInvalidCerts 标志不适用于我的情况。

3. 不知何故，我想我需要对 WinInet 进行一些 API 调用来告诉它不要弹出InternetErrorDlg它有（某些版本的 Windows 称“Windows 安全选项”）会弹出询问用户。

4. 就我而言，我们使用的配置文件中的用户名和密码是错误的（已过时），因此我们希望 WinInet 代码仅返回错误而不是弹出对话框。

也许另一个问题这个人确实弄清楚了如何做到这一点，但该问题的细节不足以看出他是如何做到的。接受的答案对我不起作用。

我遇到过一些死胡同：

WinInet MSDN 文档PLUGIN_AUTH_FLAGS_CAN_HANDLE_UI- 这似乎不适用于 WinInet 用户，而是适用于插件。

WinInet MSDN 文档讨论了 InternetSetOption，一些新闻组引导我找到以下 on-before-post 事件处理程序代码：

procedure TMyDevice.HTTPWebNodeOnBeforePost(
  const HTTPReqResp: SOAPHTTPTrans.THTTPReqResp; Data: Pointer);
var
 SecurityFlagsLen:DWORD;
 SecurityFlags:DWORD;
begin
  { authentication, NTLM+HTTPS, WinInet authentication set via WinInet SET INTERNET OPTION API.
    This approach recommended on newsgroups for https basic authentication.  }

    if fUserName<>'' then
   if not InternetSetOption(Data,
               INTERNET_OPTION_USERNAME,
               PChar(fUserName),
               Length(fUserName)) then
     raise EWebServiceAuthException.Create(SysErrorMessage(Windows.GetLastError));

   if fPassword<>'' then
  if not InternetSetOption(Data,
               INTERNET_OPTION_PASSWORD,
               PChar(fPassword),
               Length (fPassword)) then
     raise EWebServiceAuthException.Create(SysErrorMessage(Windows.GetLastError));

      { possible type of hackage: WinInet Security option flags to stop password box? }
     SecurityFlagsLen := SizeOf(SecurityFlags);
      InternetQueryOption({Request}data, INTERNET_OPTION_SECURITY_FLAGS,
      Pointer(@SecurityFlags), SecurityFlagsLen);
      SecurityFlags := SecurityFlags or SECURITY_FLAG_something;
      InternetSetOption({Request}data, INTERNET_OPTION_SECURITY_FLAGS,
      Pointer(@SecurityFlags), SecurityFlagsLen);
end;

这段代码使密码起作用，但是当用户输入的密码错误时，如何使 SOAP 调用失败或引发异常，而不是弹出消息框？

将 WinINet 替换为 WinHTTP 组件。两者都有非常接近的 API，第二个不会创建任何 UI 交互，但会返回错误代码，就像任何其他 API 一样。 WinINet 的 UI 部分对于某些软件来说可能是个好主意，但听起来并不符合您的需求。

See http://msdn.microsoft.com/en-us/library/windows/desktop/aa384068(v=vs.85).aspx http://msdn.microsoft.com/en-us/library/windows/desktop/aa384068(v=vs.85).aspx

当然，HTTPS 和身份验证将以类似的方式处理。但您必须提示输入用户名和密码，并根据请求更新 HTTP 标头。看这个链接 http://msdn.microsoft.com/en-us/library/windows/desktop/aa384068%28v=vs.85%29.aspx#_auth.

从我们的测试来看，WinHTTP 比 WinINet 快得多（当然是因为它没有实现任何 UI 部分，并且没有链接到 Internet Explorer 库）。

你可以看一下我们的开源课程 http://blog.synopse.info/post/2011/07/04/WinINet-vs-WinHTTP猜测 WinINet 和 WinHTTP 之间的 API 差异有多大（大多数代码在链接单元中共享）。