德尔福 XE +肥皂+ SSL协议

Question

我有一个在 Delphi 2009 上编写的程序。它使用 SOAP over HTTP over SSL。因此，正是 SOAP 请求触发了 HTTP 请求，该请求由 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;

的一部分

MantisConnectPortType = interface(IInvokable)

mc_issue_get 是声明

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

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

Answer 1

如果 Delphi 2009 exe 在您测试 Delphi XE exe 时在同一台电脑上“工作正常”，那么某些代码可能（很可能）在这段时间发生了变化编译Delphi2009.exe的时间和编译DelphiXE.exe的时间相同。

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

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

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

Answer 2

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