解决方法
实际上,尽管我上面的评论,我发现最简单的方法不是使用DeclareNamespace.
这是一个甚至在表单上都不使用TXMLDocument的示例.只需将xmldom,XMLIntf和XMLDoc添加到您的implementation uses子句(Xml的Xml.xmldom,Xml.XMLIntf和Xml.XMLDoc),然后这样就可以了:
procedure TForm1.Button1Click(Sender: TObject); var TheDoc: IXmlDocument; iNode: IXmlNode; xmlText: DOMString; begin TheDoc := NewXMLDocument; TheDoc.Version := '1.0'; TheDoc.Encoding := 'UTF-16'; iNode := TheDoc.AddChild('test:test_file'); iNode.SetAttributeNS('xmlns:test','','http://www.foo.com' ); iNode.SetAttributeNS('xmlns:xsi','http://www.w3.org/2001/XMLSchema'); TheDoc.SavetoXML(xmlText); Memo1.Lines.Text := xmlText; end;
以上结果在TMemo中输出:
<?xml version="1.0" encoding="UTF-16"?> <test:test_file xmlns:test="http://www.foo.com" xmlns:xsi="http://www.w3.org/2001/XMLSchema"/>