Delphi访问XML文件（1）-使用NativeXml

    近日在做一个基于XML文件操作的项目。开发的语言用Delphi.使用了一个包，NativeXml，把它的操作方法写出来。以备查看。

     1.创建XML文件

 

Code
var Doc: TNativeXml;//声明上下文对象
var filepath:string;//文件路径
DOC:=TNativeXml.CreateName('root');
Doc.EncodingString:='gb2312';
DOC.XmlFormat:=xfReadable;
DOC.SaveToFile(filepath);

 

2.创建新节点

 

Code
//先在根节点下创建一个节点名为userInfo的节点，然后给该节点写一个属性为loginname，属性值为ceshiyong  
DOC.Root.NodeNew('userInfo').WriteAttributeString('loginname','ceshiyong');

 

3.更新节点

 

Code
     with Doc.Root.NodeByName('sysconfig').NodeByName('netconfig').NodeByName('webserviceconfig') do
     begin
          WriteString('serverurl',model.serverurl);
          WriteString('serverport',model.serverport);
     end;
     DOC.SaveToFile(filepath);

 

3.在父节点下创建子节点

 

Code
  //在根节点下查找属性loginname='ceshiyong'节点，并在该节点下创建节点名为baseinfo节点    
with Doc.Root.NodeByAttributeValue('userInfo','loginname','ceshiyong').NodeNew('baseinfo') do
       begin
           WriteString('id','');
           WriteString('name','');
           WriteString('loginname','');
           WriteString('shenfen','');
           WriteString('nickname','');
           WriteString('email','');
           WriteString('qq','');
           WriteString('mobile','');
           WriteString('officephone','');
           WriteString('HomePhone','');
           WriteString('Address','');
           WriteString('birthday','');
           WriteString('sex','');
       end;

 

4.节点查找（查找多个节点）

 

Code
var AList: TXmlNodeList;
ALIST:=TXmlNodeList.Create;
Doc.Root.FindNodes('userInfo',AList);

 

 

     

转载于:https://www.cnblogs.com/wxf82610/archive/2009/02/24/1397163.html