如何在XMLDocument中增加xmlns:xsi和xsi:schemaLocation等信息？

Question

 标准的XML文档中有如下信息，我要在一个空XML中加入以下信息，如何做呢？<Manifest xsi:schemaLocation="urn:Declaration:datamodel:standard:CN:[Name]:1 Manifest_Declare_Export.xsd" xmlns="urn:Declaration:datamodel:standard:CN:[Name]:1" xmlns:Declaration="Declaration" xmlns:Head="Head" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">

Answer 1

procedure TForm1.Button1Click(Sender: TObject); 
var 
 XMLDoc: IXMLDOMDocument; 
 XMLNode, TDNode: IXMLDOMNode; 
 function CreateAttributes(Node: IXMLDOMNode; AttrName, 
 AttrValue: string): IXMLDOMAttribute; 
 var 
   Attr : IXMLDOMAttribute; 
 begin 
   Attr := XMLDoc.createAttribute(AttrName); 
   Attr.value := AttrValue; 
   Node.attributes.setNamedItem(Attr); 
   Result := Attr; 
 end; 
 function CreateNode(ParentNode: IXMLDOMNode; 
                            NodeName,NodeValue: String): IXMLDOMNode; 
 var 
   Node: IXMLDOMNode; 
 begin 
   Node := XMLDoc.createElement(NodeName); 
   Node.appendChild(XMLDoc.createTextNode(NodeValue)); 
   ParentNode.appendChild(Node); 
   Result := Node; 
 end; 
begin 
 XMLDoc := CreateDOMDocument; 
 XMLDoc.load('****.xml'); 
 XMLNode := XMLDoc.selectSingleNode('data'); 
 TDNode := CreateNode(XMLNode,'record',''); 
 CreateAttributes(TDNode, 'jgmc', 'dsf'); 
 CreateAttributes(TDNode, 'jgbm', '53454'); 
 ..... 
 xmlDoc.save('***.xml'); 
end;