XML学习笔记(五)--Delphi读写xml例子
例子一：
在form上加上XMLDocument控件name为mXML
从文件读取xml文档:
mXML.LoadFromFile(FILENAME);
然后可以用mXml.DocumentElement[NODENAME]读取数据，
或用mXml.DocumentElement[NODENAME]:=...改变或添加数据，
最后，将文档保存到文件mXML.SaveToFile(FILENAME);
如果想在程序中直接生成xml文档，
可以参考下面的代码：
mXMl.xml:='<xml></xml>';//设置ROOTNAME;
mXMl.active:=true;
mXml.DocumentElement[NODENAME]:=....;//赋值
mXMl.SaveToFile(FILENAME);
以上的都是根下的node的值的获得和修改，对于Xml的树形结构，可以参考下面的代码：
xmlnode:=mXMl.DocumentElement.ChildNodes.FindNode(NODENAME); //获得name为NODENAME的node
childnode:=xmlnode.ChildNodes.FindNode(CHILDNAME); //获得xmlnode的name为CHILDNAME的childnode;
然后,用TTreeView来显示XML文档的所有树结构:
procedure TForm1.ReadXMLTree(RootTreeNode:TTreeNode; XMLTreeNode:IXMLNode);
var
i:integer;
c:TTreeNode;
begin
for i:=0 to XMLTreeNode.ChildNodes.Count-1 do
begin
c:=xmltree.Items.AddChild(RootTreeNode,XMLTreeNode.ChildNodes.Nodes[i].NodeName);
ReadXMLTree(c,XMLTreeNode.ChildNodes.Nodes[i]);
end;
end;
例子二：
unit concfg;
interface
uses
Windows, Messages, SysUtils, Classes,IcXMLStrings, IcXMLParser;
Type
TConcfg = class
applicationname: string;
provider: string;
connectTimeout: string;
datasource: string;
initialCatalog: string;
userid: string;
version: string;
password: String;
function GetConnectString: string;
constructor Create(AFilename: string);
end;
implementation
constructor TConcfg.Create(AFilename: string);
var
text: TIcXMLText;
ele: TIcXMLElement;
par: TIcXMLParser;
doc : TIcXMLDocument;
begin
par := TIcXMLParser.Create(nil);
doc := TIcXMLDocument.Create;
//doc.SetEncoding('UTF-8');
Try
par.Parse(AFilename,doc);
ele := doc.GetDocumentElement;
version := ele.GetAttribute('version');
ele := ele.GetFirstChild;
while ele <> nil do
begin
if (ele.TagName = 'ApplicationName') then
if ele.HasCharData then
begin
text := ele.GetFirstCharData;
applicationname := trim(text.GetValue);
end;
if (ele.TagName = 'Provider') then
if ele.HasCharData then
begin
text := ele.GetFirstCharData;
provider := trim(text.GetValue);
end;
if (ele.TagName = 'DataSource') then
if ele.HasCharData then
begin
text := ele.GetFirstCharData;
datasource := trim(text.GetValue);
end;
if (ele.TagName = 'InitialCatalog') then
if ele.HasCharData then
begin
text := ele.GetFirstCharData;
InitialCatalog := trim(text.GetValue);
end;
if (ele.TagName = 'UserID') then
if ele.HasCharData then
begin
text := ele.GetFirstCharData;
UserID := trim(text.GetValue);
end;
if (ele.TagName = 'Password') then
if ele.HasCharData then
begin
text := ele.GetFirstCharData;
Password := trim(text.GetValue);
end;
ele := ele.NextSibling;
end; //end while
if length(Trim(UserID)) = 0 then
UserID := 'sa';
if length(Trim(Provider)) = 0 then
Provider := 'SQLOLEDB.1';
if length(Trim(initialcatalog)) = 0 then
initialcatalog := 'hszxdata';
if length(Trim(DataSource)) = 0 then
DataSource := '192.168.0.3';
Finally
doc.clear;
doc.Free;
end;
end;
function TConcfg.GetConnectString: string;
begin
esult := 'Provider=' + provider + ';Password=' + password +
';Persist Security Info=True;User ID=' + userid +
';Initial Catalog=' + initialcatalog +
';Data Source=' + DataSource;
end;
end.