2

前段时间我问了另一个与 SOAP 相关的问题，它要求为 Delphi XE 及更高版本提供一个工作的 Soap 客户端和服务器。

没有人有开箱即用的解决方案，所以我将 Delphi 2007 时代的演示恢复为 Delphi XE 和 XE2 的工作状态。我有演示工作，我有一个基于 INDY VCL 表单的服务器（在 Indy 上运行的独立 HTTP 服务器）和一个 Soap 服务器。服务器演示的两个部分是“自定义方法”（普通的soap 函数调用）和“远程数据集”。这是我无法工作的远程数据集。

当我将客户端数据集设置为活动时，我遇到的错误出现在客户端表单中，当我在演示客户端中执行此行时，服务器发回异常：

  ClientDataSet1.Open;

这又会通过这个 RIO 调用进入 DBClient.pas 代码， TDataSet.OpenCursor调用 DoGetRecords试图从中读取的ProviderName = 'XMLTransformProvider1'调用：

  Result := AppServer.AS_GetRecords(ProviderName, Count, RecsOut, Options,
     CommandText, Params, OwnerData);
  // ProviderName = 'XMLTransformProvider1', Count = -1,
  // CommandText = '', Params = NULL, OwnerData = Unassigned

这会以典型MessageBox形式显示此异常：

`ERemotableException: XML Parse error...`. 
    ERemotableException 
    'XML Parse Error:
     Reason: The system cannot locate the object specified.
     '.

Indy Soap 数据模块的服务器端异常调用堆栈如下所示：

xmlutil.DocParseError(TMSDOMDocument($292C994) as IDOMDocument)
xmlutil.LoadDocFromFile(???)
Xmlxform.TXMLTransform.GetData
Xmlxform.TXMLTransformProvider.InternalGetRecords(???,???,[grMetaData],'',Null)
Provider.TCustomProvider.DoGetRecords(-1,0,1,'',Null,Null)
Provider.TCustomProvider.GetRecords(???,0,1,'',Null,Null)
SOAPDm.TSoapDataModule.GetRecords('XMLTransformProvider1',-1,0,1,'',Null,Null)
SOAPDm.TSoapDataModule.SAS_GetRecords('XMLTransformProvider1',-1,0,1,'',Null,Null)
Invoker.TInterfaceInvoker.Invoke(???,('IDataMod', 'DataMod_U', (('', ccReg, 0, 0, nil, nil, (), False), ('', ccReg, 0, 0, nil, nil, (), False), ('', ccReg, 0, 0, nil, nil, (), False), ('SAS_ApplyUpdates', ccStdCall, 3, 5, $401314, $628D50, (([pfConst], 'ProviderName', $4012DC), ([pfReference], 'Delta', $401314), ([], 'MaxErrors', $4010A0), ([pfOut], 'ErrorCount', $4010A0), ([pfVar,pfReference], 'OwnerData', $401314), ([], '', nil)), True), ('SAS_GetRecords', ccStdCall, 4, 7, $401314, $628D50, (([pfConst], 'ProviderName', $4012DC), ([], 'Count', $4010A0), ([pfOut], 'RecsOut', $4010A0), ([], 'Options', $4010A0), ([pfConst], 'CommandText', $4012DC), ([pfVar,pfReference], 'Params', $401314), ([pfVar,pfReference], 'OwnerData', $401314), ([], '', nil)), True), ('SAS_DataRequest', ccStdCall, 5, 2, $401314, $628D50, (([pfConst], 'ProviderName', $4012DC), ([pfReference], 'Data', $401314), ([], '', nil)), True), ('SAS_GetProviderNames', ccStdCall, 6, 0, $40BC38, $628D50, (([], '', nil)), True), ('SAS_GetParams', ccStdCall, 7, 2, $401314, $628D50, (([pfConst], 'ProviderName', $4012DC), ([pfVar,pfReference], 'OwnerData', $401314), ([], '', nil)), True), ('SAS_RowRequest', ccStdCall, 8, 4, $401314, $628D50, (([pfConst], 'ProviderName', $4012DC), ([pfReference], 'Row', $401314), ([], 'RequestType', $4010A0), ([pfVar,pfReference], 'OwnerData', $401314), ([], '', nil)), True), ('SAS_Execute', ccStdCall, 9, 4, nil, $628D50, (([pfConst], 'ProviderName', $4012DC), ([pfConst], 'CommandText', $4012DC), ([pfVar,pfReference], 'Params', $401314), ([pfVar,pfReference], 'OwnerData', $401314), ([], '', nil)), True), ('CustomMethod', ccStdCall, 10, 0, $4012CC, $62E668, (([], '', nil)), True)), (45872836, 16917, 16768, (153, 166, 192, 149, 84, 207, 120, 216)), $62E668, $628D50, 10),4,$2942270)
SOAPPasInv.TSoapPascalInvoker.Invoke(???,???,'',$28F3700,$28F36A0,???)
SOAPHTTPPasInv.THTTPSoapPascalInvoker.DispatchSOAP('/SOAPDMServerWAD.Sample/soap/IDataMod',???,$28F3700,$28F36A0,btSoap)
WebBrokerSOAP.THTTPSoapDispatcher.DispatchRequest(???,???,$29421C8)
HTTPApp.DispatchHandler($28E4140,THTTPSoapDispatcher($291687C) as IWebDispatch,$290FEA0,$29421C8,False)
HTTPApp.TCustomWebDispatcher.DispatchAction($290FEA0,$29421C8)
HTTPApp.TCustomWebDispatcher.HandleRequest(???,???)
HTTPApp.TDefaultWebAppServices.InvokeDispatcher
HTTPApp.TDefaultWebAppServices.HandleRequest
WebReq.TWebRequestHandler.HandleRequest($290FEA0,$29421C8)
IdHTTPWebBrokerBridge.TIdHTTPWebBrokerBridgeRequestHandler.Run(???,$28851B0,???)
IdHTTPWebBrokerBridge.TIdHTTPWebBrokerBridge.DoCommandGet(???,???,???)
IdCustomHTTPServer.TIdCustomHTTPServer.DoExecute($293AB30)
IdContext.TIdContext.Run
IdTask.TIdTask.DoRun
IdThread.TIdThreadWithTask.Run
IdThread.TIdThread.Execute
Classes.ThreadProc($28A1FE0)

我相信正在发生的是我们得到一个空的 HTTP 响应。如果没有任何效果，这对我来说非常有意义，并且我们正在访问的 HTTP url 不起作用。我们正在访问的网址是，并且可以通过网络浏览器访问：

http://localhost:8088/?intf=IDataMod

返回到导致错误消息的客户端的 XML 如下所示：

<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/">
 <SOAP-ENV:Body>
  <SOAP-ENV:Fault>
   <faultcode>SOAP-ENV:Server</faultcode>
   <faultstring>XML Parse Error:'#$D#$A#$D#$A'Reason: The system cannot locate the object specified.'#$D#$A#$D#$A#$D#$A'</faultstring>
   <faultactor/>
</SOAP-ENV:Fault>
</SOAP-ENV:Body></SOAP-ENV:Envelope>

我的问题是：这个 SOAP 错误的真正含义是什么，为什么会发生，你如何解决它？

4

1 回答 1

1

在这种情况下，这意味着客户端收到了服务器端发生异常的通知。由于服务器端的异常是由于演示代码的问题引起的，解决方法是修复演示服务器，使其正常运行。

对于 Delphi 2007 附带的 SOAP 服务器，在 SoapDataModule 示例文件夹中，它的问题是它没有错误检查；如果它无法加载 XML 示例数据（因为数据文件夹已移动或丢失），那么它会在服务器端出现未处理的异常而爆炸。

SOAP 具有为您自动化工作的好特性；客户端收到我们收到了soap调用的通知，我们得到了soap异常而不是真正的响应。这里不能怪 SOAP，Delphi SOAP RTL 实际上使用起来非常友好。但是这里要指出的一点是，soap 服务的实现者应该在soap 服务器启动时对其进行一些健全性检查，以便可以在错误对SOAP 请求造成致命之前进行修复。

学过的知识; 当您构建 SOAP 服务器时，请将配置错误处理和致命错误检测视为您的第一个 SOAP 服务器会话之前的启动任务。

于 2012-03-27T17:05:33.907 回答