Delphi 与 XML 示例(直接利用IXMLDocument)

2008-04-09 04:24:31来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

(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;

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:优化代码,看看哪个执行速度更快!!!

下一篇:生成GBK码表