如何在XML文档中创建xmlns:xsi和xsd信息

Question

我有一个Delphi XE应用程序,它读取经过验证的XML文件,修改它然后保存它.可以验证保存的版本.我使用SML Spy来创建文件并对其进行验证.

现在我需要在内存中创建一个文档并保存它.问题是我无法弄清楚如何为文档生成xmlns和xsd信息属性,以便可以验证它.

Answer 1

实际上,尽管我上面的评论,我发现最简单的方法不是DeclareNamespace.

这是一个甚至不在TXMLDocument表单上使用a的示例.只需添加xmldom,XMLIntf和XMLDoc 您实现使用条款(Xml.xmldom,Xml.XMLIntf,和Xml.XMLDoc为XE2),然后这个工程:

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"/>