如何生成XML文件

Question

<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
xmlns:rs='urn:schemas-microsoft-com:rowset'
xmlns:z='#RowsetSchema'>
<s:Schema id='RowsetSchema'>
  <s:ElementType name='row' content='eltOnly' rs:updatable='true'>
     <s:AttributeType name='Field1' rs:number='1' rs:nullable='true' rs:write='true'    rs:basecatalog='database1'  rs:baseschema='PUBLIC'  rs:basetable='table01' rs:basecolumn='Field1'>
        <s:datatype dt:type='string' rs:dbtype='str' dt:maxLength='30'/>
     </s:AttributeType>  
     <s:extends type='rs:rowbase' /> 
  </s:ElementType>
</s:Schema>
-<rs:data>
    <z:row Field1='AAA' Field2'BBB'> 
</rs:data>
</xml>这个的格式Delphi怎样生成，需要使用什么控件

Answer 1

IXMLDOMDocument2，IXMLDOMSchemaCollection

Answer 2

XMLDocument1.XML.Clear;
XMLDocument1.Active:=true;   
XMLDocument1.Encoding:='GB2312';   
Root:=XMLDocument1.AddChild('rs:data');   
Parent_Node:=Root.AddChild('z:row');
Parent_Node.Attributes[sXTField]:=sValue;
XMLDocument1.SaveToFile('D01.xml');
XMLDocument1.Active:=False;
用这样的语句生成的xml文件有IE浏览器打开时提示rs:data无法识别的

Answer 3

IXMLDOMDocument2，IXMLDOMSchemaCollection
有没有具体的用法，是怎样用的，给个例子行不行

Answer 4

http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_21217206.html研究一下

Answer 5

这个应该是使用
ADOQuery1.SaveToFile('c:\aaa.xml',pfXML); //直接保存的

Answer 6

你可以把这个文件用DELPHI的XML解析器绑定一下，然后用它的接口生成，XML绑定菜单：New->Other->XML Data Binding

Answer 7

我现在是要生成XML文件，不是读XML文件

Answer 8

如果使用ADO，你可以直接保存啊！
ADOQuery1.SaveToFile('c:\aaa.xml',pfXML); //直接保存的

Answer 9

如果使用ADO，你可以直接保存啊！
ADOQuery1.SaveToFile('c:\aaa.xml',pfXML); 我要生成自己定制的格式，这样的直接保存应该不是我想要的格式

Answer 10

TClientDataSet定义需要的字段结构，
有一个XMLData得属性，可以读出xml格式的内容，然后用一个Stringlist就可以保存。大概的代码如下：var
  sXML: string;
  slXML: TStringList;
  //对字段赋值
  myClientDataSet.FieldByName('Re').AsString := ''Re'';
  .........
  sXML := myClientDataSet.XMLData;
  slXML.Clear;
  slXML.Text := XML;
  slXML.SaveToFile(xmlFile);

Answer 11

可以生成XML，但为什么字段值为空的时候，就不生成这个字段呢，可不可以全部字段都生成
<z:row D0121='631' D0101='售后服务支部' D0107='001.002.004' D0127='001.002'/>
<z:row D0121='631' D0144='20001112' D0101='软件测试支部' D0107='001.002.003' D0127='001.002'/>
第一行记录D0144值为空就不生成，可不可以生成D0144=''