德尔福 XE + SOAP + SSL答案

【问题标题】：Delphi XE + SOAP + SSL德尔福 XE + SOAP + SSL
【发布时间】：2011-05-11 12:29:18
【问题描述】：

我有一个在 Delphi 2009 上编写的程序。它使用 SOAP over HTTP over SSL。因此，触发 HTTP 请求的是 SOAP 请求，该请求由 Microsoft Internet Explorer 通过 DLL 处理。 MSIE 然后会弹出一个要求登录的窗口。

但是现在我需要在 Delphi XE 中编译它，我遇到了问题。程序不想登录 SSL。根本没有弹出窗口。所以，触发器似乎不想工作。

错误出现在这段代码的第二行：

mantis:=GetMantisConnectPortType(false, mantisurl);
mi := mantis.mc_issue_get(username,password,MantisIssue);

错误是

Project IssueReporter.exe raised exception class ESOAPHTTPException with message 'Authorization Required (401) - 'https://***/mantis/api/soap/mantisconnect.php''.

列出的连接程序是

function GetMantisConnectPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): MantisConnectPortType;
const
  defWSDL = 'https://***/mantis/api/soap/mantisconnect.php?wsdl';
  defURL  = 'https://***/mantis/api/soap/mantisconnect.php';
  defSvc  = 'MantisConnect';
  defPrt  = 'MantisConnectPort';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as MantisConnectPortType);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;

mc_issue_get 是

的一部分

MantisConnectPortType = interface(IInvokable)

有声明：

function  mc_issue_get(const username: string; const password: string; const issue_id: Int64): IssueData; stdcall;

在浏览器和 2009 年编译的旧 exe 中一切正常。请帮助解决这个问题。基辅塔拉斯

【问题讨论】：

检查您的证书应该在哪里......并向我们展示客户获取证书的代码。

标签： delphi soap ssl https wsdl

【解决方案1】：

如果 Delphi 2009 exe“工作正常”来自同一台电脑，因为您正在测试 Delphi XE exe，那么某些代码可能（很可能）已更改在编译 Delphi2009.exe 和编译 DelphiXE.exe 之间。

要测试代码是否有问题，请尝试在 Delphi 2009 中重新编译新代码（来自 Delphi XE 版本），看看是否有效。如果它有效，那么 Delphi XE 处理证书的方式可能与 Delphi 2009 不同。如果它不起作用，则代码已发生重大变化，在这种情况下，您需要调试从证书存储中获取证书的代码。

证书可以安装到内置 Windows 证书存储中的不同位置。有时，人们只需双击并保留证书导入向导中的默认值（从而选择自动选择证书位置），这可能会导致证书安装在 current_user 的证书存储中。如果发生这种情况，那么只有在相同的 Windows 用户帐户下运行时，exe 才能获取证书。

您收到需要授权消息的事实表明存在证书问题。但是，如果您在不同的 PC 上进行测试，那么也可能存在防火墙/企业安全问题。

【讨论】：

【解决方案2】：

您的代码在 Delphi XE2 中也可以正常工作，并且“需要授权”可能是您无法登录 mantis 可能是您在 mantis 帐户中更改了自己的密码。

【讨论】：