Delphi 与 XML 示例（直接利用IXMLDocument）

(1)procedure TForm1.Button2Click(Sender: TObject);
var xmlDoc:IXMLDocument; aNode:IXMLNode;
begin
? xmlDoc := TXMLDocument.Create(nil);
? xmlDoc.Active := True;
? xmlDoc.Version := ''''1.0'''';
? xmlDoc.Encoding :=''''GB2312'''';
? try
??? //加入根结点
??? aNode:=xmlDoc.AddChild(''''bootDocNode'''');
??? //加入子结点
??? aNode:=aNode.AddChild(''''ChileNode1'''');
??? //设置接点属性
??? aNode.SetAttribute(''''ID'''', ''''22'''');
??? aNode.SetAttribute(''''Units'''', ''''元/m2'''');
??? aNode.SetAttribute(''''URL'''', ''''http://URL.c'''');
??? //设置结点内容
??? aNode.Text := ''''结点内容'''';
??? //子结点添加子结点
??? aNode:=aNode.AddChild(''''Child_ChileNode1'''') ;
??? aNode.Text := ''''Child_ChileNod内容'''';

??? memXML.Lines.Text := xmlDoc.XML.Text ;
? finally
??? xmlDoc := nil ;
? end;
end;

(2)procedure TForm1.Button3Click(Sender: TObject);? //从文件存取
var xmlDoc:IXMLDocument; rootNode,appSetN,aNode:IXMLNode;
begin
? xmlDoc := TXMLDocument.Create(nil);
? xmlDoc.Active := True;
? try
??? xmlDoc.LoadFromFile(''''D:\work\STUDY\XML\DOM\Web.config'''') ;
??? xmlDoc.Encoding :=''''GB2312'''';
??? rootNode := xmlDoc.ChildNodes.FindNode(''''configuration''''); //root Node
??? appSetN := rootNode.ChildNodes.FindNode(''''appSettings'''');
??? if appSetN=nil then
??? begin
????? appSetN:=rootNode.AddChild(''''appSettings'''') ;
????? aNode:=appSetN.AddChild(''''add'''');
??????? aNode.SetAttribute(''''key'''', ''''SNCode'''');
??????? aNode.SetAttribute(''''value'''', ''''testCodeSN'''');
??????? aNode.SetAttribute(''''A编号'''',''''0101'''');
????? aNode:=appSetN.AddChild(''''add'''');
??????? aNode.SetAttribute(''''key'''', ''''RegCode'''');
??????? aNode.SetAttribute(''''value'''', ''''testREGCode'''');
??? end else
??? begin

??? end;

??? memXML.Lines.Text := xmlDoc.XML.Text ;
??? xmlDoc.SaveToFile(''''D:\work\STUDY\XML\DOM\Web.config'''') ;
? finally
??? xmlDoc := nil ;
? end;
end;

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18