1

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

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

…………………………

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

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

尝试修改只读节点。

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

/布莱恩

4

2 回答 2

3

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

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，它只是界面周围的组件包装器。

于 2011-01-12T14:14:29.770 回答
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;

基于如何在 Delphi 中设置文档元素的前缀中提供的代码

于 2011-01-12T15:05:11.727 回答