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

Question

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

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

情况是different than this question通过以下方式:

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

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

3. 不知何故，我认为我需要对 WinInet 进行一些 API 调用，以告诉它不要弹出它所具有的 InternetErrorDlg (某些版本的 Windows 称 Windows 安全选项)来询问用户。

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

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

我遵循的一些死胡同:

PLUGIN_AUTH_FLAGS_CAN_HANDLE_UI 的 WinInet MSDN 文档 - 似乎不适用于 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 调用失败，或者引发异常，而不是弹出消息框？

Answer 1

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

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

当然，HTTPS 和身份验证将以类似的方式处理。但您必须提示输入用户名和密码，并根据请求更新 HTTP header 。请参阅this link .

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

您可以看看our Open Source classes猜测 WinINet 和 WinHTTP 之间的 API 差异有多大(大多数代码在链接单元中共享)。