Delphi XE SOAP SSL
我有一个在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; 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 2009 exe在您测试Delphi XE exe时从同一台PC“工作正常”,那么一些代码可能(很可能)在Delphi2009.exe编译时和编译DelphiXE的时间之间发生了变化.可执行程序.
要测试代码是否是问题,请尝试在Delphi 2009中重新编译新代码(来自Delphi XE版本),看看是否有效.如果它可以工作,那么Delphi XE可能会以与Delphi 2009不同的方式处理证书.如果它不起作用,那么代码已经发生了很大变化,在这种情况下,您需要调试从证书存储中获取证书的代码. 证书可以安装在内置Windows证书存储区中的各个位置.有时,人们只需双击,并在证书导入向导中保留默认值(从而选择自动选择证书位置),这可能导致证书安装在current_user的证书库中.如果发生这种情况,那么只有在相同的Windows用户帐户下运行时,exe才能获取证书. 您收到“需要授权”消息的事实表明存在证书问题.但是,如果您使用不同的PC进行测试,那么也可能存在防火墙/企业安全问题. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |