Delphi与XML专题之三 ----- Delphi与XML

转载 2006年05月28日 21:04:00



http://blog.csdn.net/tianguanleiok/
创建IXMLDOMDocument对象的三种方法:
(1)[方法1] 直接创建 IXMLDOMDocument  , 例(1)
   uses msxml;
   var DOC:IXMLDOMDocument;
   doc := CoDOMDocument.create;
   .....
   Doc := nil;
 A)doc.load('C:/temp.xml');  //从文件载入
 B) 动态创建
   var aElement,aElement2: IXMLDOMElement;  // [ aNode:IXMLDOMNode ==>  .AppendChild() ]

   //加入版本信息 ‘<?xml version="1.0" ?> ’
   doc.AppendChild(doc.CreateProcessingInstruction('xml', 'version="1.0" encoding="GB2312"'));
     (*)因为此函数返回结果不包含 'encoding="GB2312"' 故须保存前注意.
   //加入根结点
   doc.AppendChild(doc.CreateElement('bootDocNode')); //// == aElement 
   //加入子结点
   aElement:=IXMLDOMElement(Doc.DocumentElement.AppendChild(Doc.CreateElement('ChileNode1')));
   //设置接点属性
   aElement.SetAttribute('ID', '11');
   aElement.SetAttribute('Units', '元/m2');
   //设置结点内容
   aElement.AppendChild(Doc.CreateTextNode('结点内容'));
   //子结点添加子结点
   aElement2:=IXMLDOMElement(aElement.AppendChild(Doc.CreateElement('Child_ChileNode1')));

(2) [方法2] 直接创建 IXMLDocument ( 不是IXMLDOMDocument )
  uses XMLIntf,XMLDoc;
  var xmlDoc:IXMLDocument; aNode:IXMLNode;  s:string;

  xmlDoc := TXMLDocument.Create(nil);
  try
    //加入版本信息 ‘<?xml version="1.0" encoding="GB2312" ?> ’
    xmlDoc.Active := True;   xmlDoc.Version := '1.0';  xmlDoc.Encoding :='GB2312';
    //加入根结点
    aNode:=xmlDoc.AddChild('bootDocNode');
    //加入子结点
    aNode:=aNode.AddChild('ChileNode1');
    //设置接点属性
    aNode.SetAttribute('ID', '22');
    aNode.SetAttribute('Units', '元/m2');
    //设置结点内容
    aNode.Text := '结点内容';
    //子结点添加子结点
    aNode:=aNode.AddChild('Child_ChileNode1') ;
    aNode.Text := 'Child_ChileNod内容';
  
    s := xmlDoc.XML.Text ;  //  .XML 返回的是 Tstrings
  finally
    xmlDoc := nil ;
  end;

(3)利用 XMLDataBinding
    I) 准备好XML文件,此XML文件有较强的代表性,保证程序中所用的结点及其关系都存在
   II)利用 file-->new-->XML Data Binding
  III)创建XML对象
   A)v:string; //XML文件内容
    Doc : IXMLBudgetDocTyp; //IXMLBudgetDocTyp是XML文件的根结点
    Doc := LoadXMLData(v).GetDocBinding('BudgetDoc', TXMLBudgetDocType) as IXMLBudgetDocType;
   B)Doc := LoadBudgetDoc('C:/temp.xml');
  IV) 应用
    Doc.ChildNodes.FindNode('Docfile') as IXMLDocfileType;

(4)利用TXMLDocument控件
    XMLDocument1.fileName:='C:/temp.xml';
    XMLDocument1.active:=true;  // XMLDocument1 相当于 Doc

(5)XML对象的其他方法
   IXMLNodeList.FindNode(NodeName: DOMString): IXMLNode;
   IXMLNodeList.FindNode(NodeName, NamespaceURI: DOMString): IXMLNode;
   IXMLNodeList.FindNode(ChildNodeType: TGuid): IXMLNode;
   IXMLNodeList.FindSibling(const Node: IXMLNode; Delta: Integer): IXMLNode;
   IXMLNodeList.First: IXMLNode;
   IXMLNodeList.Last: IXMLNode;
   ... ...
   
////////////////////////////////////////////////////////////////////////
//例(1)
uses msxml;  
    doc:IXMLDOMDocument;
    budgetdoc:ixmlDomNode;
    Rela:IxmlDOMNode;
    rs:ixmldomnodelist;

//建立或取得XML结点
  doc := CoDOMDocument.create;
  doc.load('C:/temp.xml');
  budgetDoc := doc.selectSingleNode('BudgetDoc');
  rela := budgetdoc.SelectSingleNode('Relation');

//创建XML子结点 
  if not assigned(rela) then
  begin
    rela :=  doc.createElement('Relation');
    rela.setAttribute('BudgetId',0);
    rela.setAttribute('name','名称');
    budgetdoc.appendChild(rela);
  end;

//取子结点(序列)
  rs := rela.selectNodes('Rela[@BudgetId="2" and @TaskId="8"]');
  for i := 0 to rs.length -1 do
  begin
    s:= s + rs[i].attributes.getnameditem('NewRate').nodeValue;
  end;
 
  rela:=doc.ChildNodes.FindNode('DOMNode') as IxmlDOMNode;

//移除子结点
    for i := rs.length -1 downto 1 do
      rela.removeChild(rs[i])

//取父结点
    if assigned(anode.parentNode) and (Anode.parentNode.nodeName='Task') then
      result := Anode.parentNode;

//取属性
  DOC.DocumentElement.Attributes['Name']
  rela.Attributes['Name']
  rs.Nodes[i].Attributes['Name']

  Ajob:ixmldomnode;jobs:ixmldomNodeList;
  jobs := Ajob.selectNodes('RCJ[@Attrib="'+AAttrib+'"]')

Delphi语言如何对自定义类进行持久化保存及恢复 (性能远比json/xml高)

Delphi的RTL自身就带有一套很好的资源持久化保存(IDE设计窗体时,保存为DFM格式及编译到EXE里面的资源文件)及恢复机制(EXE启动时对窗体资源的加载),那么应没必要再额外用xml/json...
  • rocklee
  • rocklee
  • 2016年03月18日 11:40
  • 832

Delphi 读写XML文件方式

unit UCreateXML;//delphi 写xml文件方式 interface uses Windows, Messages, SysUtils, Variants, Classes,...

Delphi直接读写XML修改版

unit Unit3; interface uses SysUtils, Variants, Classes, Forms, Windows, msxmldom, XMLDoc, ...
  • fyl_077
  • fyl_077
  • 2013年07月26日 21:23
  • 571

delphi 操作 XML (二)

四、符号引用(Symbol Reference) 4.1.类(Classes) 4.1.1.TComponentAccess类   TComponentAccess = class(TCompo...

delphi实现删除XML结点

 遇到了点问题,竟然没办法删除掉,到底是哪里出了问题呢???
  • Z_Quan
  • Z_Quan
  • 2011年04月19日 19:32
  • 947

php与delphi通过XML进行数据交互

require_once 'xt_var.php'; /* * 返回值说明:     1000: 接收数据成功;     1001: 接收数据失败,失败原因:菜品名称不能为空;     ...

简析Delphi中的XML编程

====================================================== 注:本文源代码点此下载 =============================...

Delphi操作xml

====================================================== 注:本文源代码点此下载 =============================...

Delphi 7验证XML合法性(利用DTD、XSD)

拥有正确语法的XML被称为“形式良好”的XML。通过DTD验证的XML是“合法”的XML。DTD(文档类型定义)的作用是定义XML 文档的合法构建模块。它使用一系列的合法元素来定义文档结构。XML S...

用DELPHI的RTTI实现对象的XML持久化 【转】

去年我花了很多时间尝试用DELPHI进行基于XML的WEB应用开发。起初的设想是很美好的,但结果做出来的东西很简陋。一部分原因就在于XML到Object之间的数据绑定实现太麻烦(另一部分是因为对XSL...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi与XML专题之三 ----- Delphi与XML
举报原因:
原因补充:

(最多只允许输入30个字)