怎么样用Delphi生成xml文件

Question

怎么样用Delphi生成xml文件

Answer 1

Delphi里面有一大堆xml控件，查看相关的帮助即可，另Delphi自带的演示里也有。

Answer 2

用写字板都可以生成xml文件，
关键是你拿xml文件做什么？

Answer 3

var root,node,childnode,filenode:Ixmlnode;
    i,j:integer;
    XslFile,NewXsl:string;
    XmlList:Tstringlist;
begin
xmldoc1.Create(filename);//XmlDoc1 为 TXmlDocumnet控件
xmldoc1.DocumentElement :=xmldoc1.CreateElement('addrlist','');
root:=xmldoc1.DocumentElement;
root.SetAttribute('version','3');//root.SetAttribute('version','1');
node:=xmldoc1.CreateNode(' .............',ntcomment,'');
root.ChildNodes.Add(node);
.........
end;

Answer 4

你作一个WEBSERVICE程序
然后，编译，运行然后建立虚拟WEB目录然后在ie上面访问这个，就可以得到xml文档了。
具体的可以和我联系，
qq379622

Answer 5

一个笨方法if SaveDialog1.Execute then
        begin
          with XMLDocument2.XML do            begin
              //Add('<?xml version="1.0" standalone="yes"?>');
              Add('<Courseware>');
              Add('<RefFiles>');
                   begin
                     Add('<src>');
                     Add(ListView1.Selected.Caption);
                     Add('</src>');
                     Add('<begin>');
                     Add(ListView1.Selected.SubItems.Strings[0]);
                     Add('</begin>');
                     Add('<dur>');
                     Add(ListView1.Selected.SubItems.Strings[1]);
                     Add('</dur>');
                     Add('<title>');
                     Add(ListView1.Selected.SubItems.Strings[2]);
                     Add('</title>');
                   end;
              Add('</RefFiles>');
              Add('</Courseware>');
            end;            XMLDocument2.Active := true;
            XMLDocument2.Encoding:='GB2312';
            XMLDocument2.SaveToFile(SaveDialog1.FileName);
        end

Answer 6

对于数据库的表，可以用TClientDataSet的SaveToFile方法，只要将文件的扩展名设置为.xml就可以了！