如何使用 TXMLDocument (Delphi 2006) 手动构建肥皂信封答案

【问题标题】：How to construct a Soap Envelope manually using TXMLDocument (Delphi 2006)如何使用 TXMLDocument (Delphi 2006) 手动构建肥皂信封
【发布时间】：2011-01-12 09:27:17
【问题描述】：

我已经有这个问题很长时间了，我无法自己解决。我也尝试过搜索 Google、Bing 和 stackOverflow？运气不好...

我正在尝试使用 Delphi 2006 的 TXMLDocument 组件手动构建一个肥皂头：

... ... ... ... ... ...

我正在做的是构建一个名为“soap:Envelope”的新元素。在这个新元素中，我创建了三个属性：“xmlns:soap”、“xmlns:xsd”和“xmlns:xsi”。

当我尝试在三个属性中的任何一个中写入值时，我会收到以下错误：

尝试修改只读节点。

有人知道如何使用 TXMLDocument 来完成这项任务吗？

/布莱恩

【问题讨论】：

schemas.xmlsoap.org/soap/envelope" xmlns:xsd="w3.org/2001/XMLSchema" xmlns:xsi="w3.org/2001/XMLSchema-instance">
... .. . ...
... ... ...

标签： xml delphi delphi-2006 txmldocument

【解决方案1】：

以下代码在这里可以正常工作：

procedure WriteSoapFile;
var
  Document: IXMLDocument;
  Envelope: IXMLNode;
  Body: IXMLNode;
begin
  Document := NewXMLDocument;
  Envelope := Document.AddChild('soap:Envelope');
  Envelope.Attributes['xmlns:soap'] := 'schemas.xmlsoap.org/soap/envelope/';
  Envelope.Attributes['xmlns:xsd']  := 'w3.org/2001/XMLSchema';
  Envelope.Attributes['xmlns:xsi']  := 'w3.org/2001/XMLSchema-instance';
  Body := Envelope.AddChild('soap:Body');
  Document.SaveToFile('Test.xml');
end;

您应该可以使用TXMLDocument 而不是IXMLDocument，它只是接口周围的组件包装器。

【讨论】：

哇。这样可行。非常感谢！！！我试图使用属性 NodeValue := ....; 设置值我使用了以下语义（非常简单）： MyNode := Document.CreateNode(....); MyNode.NodeValue := ....; /布莱恩

【解决方案2】：

这是我的解决方案，它使用 DeclareNamespace 来声明命名空间：

procedure WriteSoapFile;
const
  NS_SOAP = 'schemas.xmlsoap.org/soap/envelope/';
var
  Document: IXMLDocument;
  Envelope: IXMLNode;
  Body: IXMLNode;
begin
  Document := NewXMLDocument;
  Envelope := Document.CreateElement('soap:Envelope', NS_SOAP);
  Envelope.DeclareNamespace('soap', NS_SOAP);
  Envelope.DeclareNamespace('xsd', 'w3.org/2001/XMLSchema');
  Envelope.DeclareNamespace('xsi', 'w3.org/2001/XMLSchema-instance');
  Body := Envelope.AddChild('Body');
  Document.DocumentElement := Envelope;
  Document.SaveToFile('Test.xml');
end;

基于How to set the prefix of a document element in Delphi中提供的代码

【讨论】：

也感谢您提供此解决方案。我爱你们（哦；谢谢。谢谢。谢谢！！！
由于问题只是关于标题我没有设置命名空间，但您的解决方案当然更干净。