小编Tar*_*ras的帖子

我有一个在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 …