Delphi 2005 Web 服务问题

我在尝试通过 Delphi 访问 Web 服务时遇到问题。我使用了 2007 版 WSDLimp 工具的 java WSDL，看起来它已正确创建了所有对象。然而，当我制作一个调用该服务的测试程序时，每个对象都是空的。如果我在 HTTPRIOAfterExecute 方法中转储 SOAPResponse 对象，我可以看到我已经返回了一个格式正确的 XML Soap 数据包，其中包含我期望的所有数据，但我无法通过对象访问它。那么我缺少什么吗？

Web 服务响应包含每个属性的别名命名空间。这些别名未在 WSDL 中定义。例如，WSDL 包含命名空间“http://www.example.com/SomeService http://www.example.com/SomeService" 并且请求别名在顶级节点中动态为 xmlns:ns3="http://www.example.com/SomeService"。因此响应中的属性看起来像 ns3:somePropertyName="[value] ”。

在 OPToSOAPDomConv 单元中的 TSOAPDomConv.InitObjectFromSOAP 中，它尝试查找不带名称空间前缀的属性名称。这导致查找失败并且对象属性留空。即使使用 2007 年的源文件也会发生这种情况。

我能看到的最好的解决方法是修改 InitObjectFromSOAP 例程。

在第 4181 行周围添加：

  RemTypeRegistry.InfoToURI(PropList[i].PropType^, NS, PropName, IsScalar);

并更改 AttrNode.HasAttribute 以将 NS 变量作为第二个参数传递，如下所示：

  if AttrNode.HasAttribute(ExternalPropName, NS) then

另外，下面几行是 SetObjectPropFromText 调用。最后一个参数是属性值，您需要将 Attr.Attributes[ExternalPropName] 更改为

SetObjectPropFromText(Instance, PropList[I], AttrNode.GetAttributeNS(ExternalPropName, NS))

当然还要声明 NS、PropName 和 IsScalar 变量。