Delphi 对XML的支持---TXMLDocument类
       Delphi7 支持对XML文档的操作，可以通过TXMLDocument类来实现对XML文档的读写。可以利用TXMLDocument把XML文档读到内存中，从而可以进行编辑、保存操作。TXMLDocument类是通过DOM(文档对象模型)接口来访问XML文档中的各个元素的。对于DOM接口的实现有多种方式，Delphi支持的方式有：1)微软的MSXML SDK，这种方式是通过COM对象来实现；2) Apache 的Xerces的实现方式；3)另外一种是开源OpenXML实现方式。对于不同的接口实现方式可以通过设定TXMLDocument的DOMVender来进行控制。
  支持XML的Delphi单元主要存在与…\Borland\Delphi7\Source\Xml目录下，主要包括：XMLIntf，XMLDoc，xmldom，msxmldom，xercesxmldom，xdom，oxmldom等单元。
l  XMLIntf――包括了Borland自己定义的XML文档的接口；
l  XMLDoc――是对XMLIntf中所定义接口的Borland实现；
l  Xmldom――定义了DOM（文档对象模型）接口，这里对DOM接口进行了Borland的实现；
l  Msxmldom――实现微软对Xmldom中定义的接口的实现，主要调用微软的COM对象来实现，对Xmldom中定义接口的封装；
l  Xercesxmldom――Borland通过Xerces XML DOM方式来实现对Xmldom中定义接口的封装；
l  Oxmldom――Borland通过使用OpenXML来实现对Xmldom中定义接口的封装；
TXMLDocument类的属性，请参考Borland的帮助文件；
读写XML文档
l    读取XML文档
通常情况下不通过直接使用TXMLDocument对象来进行XML文件的读取，而是使用XMLDoc单元中提供的几个有用的函数来读取XML文档，这些函数包括：
function LoadXMLDocument(const FileName: DOMString): IXMLDocument;
function LoadXMLData(const XMLData: DOMString): IXMLDocument; overload;
function LoadXMLData(const XMLData: string): IXMLDocument; overload;
function NewXMLDocument(Version: DOMString = \'1.0\'): IXMLDocument;
可以看出这些函数全部返回的是IXMLDocument接口，得到了IXMLDocument接口在进行文档的操作；
这些函数都是通过创建TXMLDocument对象来实现对XML文档的读取的；其中NewXMLDocument仅仅创建一个IXMLDocument接口。
可以这样利用NewXMLDocument来读取XML文档：
    XMLDoc := NewXMLDocument;
XMLDoc.LoadFromFile(FileName);
l         保存XML文档
可以通过下面的方式来保存XML文档：
           XMLDoc := NewXMLDocument;
           iRoot := IXMLDoc.CreateNode(\'TestXMLDocument’);
           XMLDoc.DocumentElement := iRoot;
           …
           XMLDoc.SaveToFile(FileName);       
       可以看出通过接口来操作XML文档是非常方便的；
选用不同类型的XML解析方式
       上面已经提到有三种方式实现DOM，也就是可以应用Borland提供的３种不同的XML解析器来对XML文档进行解析；
l         三种解析器
１、微软的解析器（MSXML SDK）
微软解析器主要应用在Windows中，在安装MSXML SDK的时候会安装解析器，同时IE浏览器也提供了解析器，这个解析器是一个COM。
２、Apache的Xerces解析器
Borland自己实现了一个Xerces解析器，这个可以通过调用xercesxmldom.dll模块来实现；如果使用这个解析器可能需要同应用程序一起进行分发xercesxmldom.dll，XercesLib.dll，CC3260MT.DLL三个DLL文件
３、OpenXML解析器
这个解析器的源代码存在于xdom.pas单元中，这个可以通过http://www.philo.de/xml/进行跟新下载，这个是一个德国人写的XML解析器；
l         使用不同解析器的比较
对于三种方式的解析器比较如下：
１、微软的解析器
微软的解析器当然好了，但是也不能排除存在的意外情况，在我个人的经验中，至少我们公司对于XML解析的方式，只有在IE6.0以上的版本才能够正常的工作；
至于，Borland同样是通过引入MSXML.DLL的接口来实现的，所以可以推理出，同样存在同样的问题；这个通过研究TMSDOMImplementation(msxmldom单元中)的实现方式可以得到证明，实现的过程中通过调用CoCreateInstance函数接口来实现解析的；
在发布解析XML的代码的时候可能就会存在由于IE的本版的不同，需要把IE6.0一同发布，比较麻烦；
２、Borland的Xerces解析器
这种方式的解析器是通过　LoadLibrary(PChar(LibName));函数，LibName的内容是xercesxmldom.dll（Windows平台），libxercesxmldom.so.1（Linux平台）。那么就需要随同应用程序一起发布的Dll,就包括了xercesxmldom.dll，XercesLib.dll，CC3260MT.DLL；
这个发布相对于发布不同版本的IE6.0来说要相对简单一些；
３、OpenXML解析器
由于存在xdom.pas单元，这个单元中包含了完全的XML解析的源代码，那么应用这种方式，可以避免软件发布的种种问题，这是由于解析的代码被静态编译在应用程序内部。唯一不好的地方就是应用程序的体积可能要大一些；
l         如何使用不同的解析器
我们可以写一个函数来使用不同的解析器；
function NewDiffXmlDocument(DOMVender: string;
  Version: DOMString = \'1.0\'): IXMLDocument;
var
  XMLDoc : TXMLDocument;
begin
  XMLDoc := TXMLDocument.Create(nil);
  XMLDoc.DOMVendor := GetDOMVendor(DOMVender);
  Result := XMLDoc;
  Result.Active := True;
  if Version <> \'\' then
    Result.Version := Version;
end;
其中DOMVender如果用Borland提供的三种方式进行解析的话，分别取值是：
       Microsoft――存在于msxmldom.pas单元中的SMSXML常量；
       Xerces――存在于xercesxmldom .pas单元中的SXercesXML常量；
       OpenXML――存在于oxmldom.pas单元中的SOpenXML常量；
这个是由于在msxmldom，xercesxmldom，oxmldom三个单元的initailization部分，都通过调用RegisterDOMVendor函数，注册了不同的解析器接口；
当然，Borland同样提供了一种可以灵活进行扩展的机制来扩展用户自己的解析器，这个需要继承，TDOMVendor类(存在于xmldom单元中)。实际上，Borland自己就是通过这种方式来实现不同方式解析器的；具体的实现过程可以通过参考oxmldom单元中对xdom的封装；
结论
       Delphi作为一个成功的开发工具，它自身实现的对XML的支持，肯定比网络上某些实现要稳定、高效的多，我们没有必要再进行另外的封装什么MSXML.DLL的COM接口。当然，可以自己实现不同的XML解析器，也可以应用已经存在的解析器。同时，可以看出Delphi对于XML的支持也是非常完善的。
delphi操作xml学习笔记 之二 简单读写 
关键字: xml 简单读写 dom 
分类: 个人专区 
密级: 公开
XML的二十个热点问题
翻译：Chen Zhihong
这些日子,几乎每个人都在谈论XML (Extensible Markup Language)，但是很少有人真正理解其含义。XML的推崇者认为它能够解决所有HTML不能解决的问题，让数据在不同的操作系统或应用之间进行灵活交换。确实，所有的观察家们都同意XML将引发一场内容发布和知识交换的革命。谁先进入这个领域，谁就能够大获其利。
这里的20个有关XML的热门问题能够让你成为一XML“专家”，或至少让你能够在今后看准XML的发展方向。 
1 什么是XML?                                     11 OSD和CDF与XML的关系如何? 
2 XML何以重要?                                   12 电子商务(e-commerce)和XML? 
3 SGML、HTML和XML有什么联系？                    13 XML中的层叠样式? 
4 如何实现XML?                                   14 XML如何改进超链接? 
5 什么是文件类型定义(DTD)?                       15 服务器上支持XML吗? 
6 什么是格式完整和有效的文件?                    16 谁应该学习XML? 
7 如何在浏览器中阅读XML?                         17 有哪些编写XML的工具可供我使用? 
8 RDF和XML有何联系?                              18 XML的国际化? 
9 Netscape浏览器中如何实现XML?                   19 XML的未来在哪里? 
10 Microsoft浏览器中如何实现XML?                 20 哪里能学到更多的XML知识? 
1.什么是XML?
XML代表扩展标识语言(Extensible Markup Language). 由万维网联盟(W3C)带头, XML在1998年2月10日成为正式的规范. 
XML开发者会告诉你XML不是一种语言,而是一个定义其他语言的系统. 你可能已经听说过, 或使用过这些语言中的一种,--如Microsoft支持"推技术"的 Channel Definition format(CDF).
正从事于XML相关建议工作的W3C, 称XML为"表达数据中结构 的共同语法". 结构化的数据指的是其内容,意义或应用被标记的数据. 例如, HTML中<H1>标记指定文本为某一字体和大小, XML的标记将明确确定信息的种类: <BYLINE>标记可以识别文档的作者, <PRICE>标记可以在一个存货清单中包含某一项目的成本 . 
通过将结构,内容和表现分离, 同一个XML源文档只写一次, 可以用不同的方法表现出来: 在计算机屏幕上, 在手提电话显示屏上, 在为盲人服务的设备上翻译成语音, 等等. 它可以在可能开发的任何通讯产品上工作. 一个XML文档因此可以比其书写时的作者和显示技术生存得更久.
所以, XML将不仅限于Internet, 例如, 可以服务于整个出版业, 特别是对于想制作可出现在多种媒体上的文档的人. 一些使用Standard Generalized Markup Language (SGML)多年的大型文档出版商将转向XML. 还有, 独立于平台的XML是为Web开发的, 这是它将最具影响的地方. 
XML在Web的真正实力在于它是如何与文档对象模型(Document Object Model,DOM)交互的. DOM定义了访问XML文档数据的接口. 
程序员利用DOM可以用标准的方法编写动态的内容. 换句话说, 他们可以使用它来使浏览器文档树中的一部分特定内容按照一定的方式表现, 例如, 当用户将鼠标移至文字上时, 这些文字变成蓝色. Netscape Navigator 和 Microsoft Internet Explorer浏览器都有各自的DOM, 但是他们都称将在其下一版本的浏览器中支持W3C 的标准DOM. 
2.XML何以重要?
Web领袖之间的说法是内容至上.可是不幸地是:内容经常和其表现紧密结合.请问你多少次在网页中遇到一个小小的提示:"最好在800x600像素的分辨率上显示"? 
XML将帮助解决以上问题, 因为网站建设者不用再指明在哪里显示什么, 而是指明文档 的结构. 例如, 你可以说明文档的标题, 作者, 关联文档的清单, 等等. 然后, 任何一个有XML浏览器的设备都可以给出最适合它的文档版本, 这样的设备可以是一个掌上型计算机, 置顶盒, 或高速的工作站. 
但是, 也许XML的最佳特性是其内在的可扩展性. 公司和组织能够扩展XML来满足新的挑战和应用. 一个基于XML的语言已经在使用--微软的Channel Definition format (CDF)-- 还有更多将出现, 包括 Resource Definition format (RDF) 和 Open Software Description (OSD). 
XML 也允诺成为交换数据 和文档的标准机制. 例如, XML可能成为不同厂商的数据库在Internet上交换信息的一种方法.现在准确地决定XML的方向还有一些早. 但是, 其各种可能性是令人敬畏的,这就是为什么围绕着XML有如此多的激动的一个重要原因. 
3.SGML、HTML和XML有什么联系？ 
SGML是在文字处理应用中表达数据的一个方法. 它已经出现十多年了, XML和HTML都是从SGML 发展而来的文档形式. 因此, 它们都有一些共同点, 如相似的语法和标记的使用.但是HTML是SGML的一个应用, 而XML是SGML的一个子集. 区别是重要的. 基本上HTML不能用来定义新的应用, 而XML可以. 例如,RDF和CDF都是使用XML定义的应用. XML和HTML更象表兄弟, 而不是亲兄弟. 事实上, XML和SGML是兼容的 -- XML文档可以通过任何SGML制作或浏览工具阅读. 但是, XML没有SGML那么复杂, 它是设计用于有限带宽的网络的, 如Internet. XML规范的合作者Tim Bray说, XML的设计出发点是取SGML的优点, 去除复杂的部分, 使其保持轻巧, 可以在Web上工作. 
HTML,SGML和XML将继续用于其合适的地方, 它们中的任何一个不会使其他一个废弃. HTML仍是在Web上快速出版数据的最简单的方法, 大部分短期的数据, 如会议议程或广告宣传册. 如果数据会长期使用, 并且需要更多的一些结构, Web建造者将愿意使用XML. 不同于HTML和XML, SGML可能永远不会在Internet上被广泛接受, 因为它从来没有为某个网络协议的需求而设计或优化过. 对于高端的, 复杂结构的出版应用, SGML将继续适用. 
4.如何实现XML? 
XML将以几个不同的方式应用. 一个是在人机之间交换数据, 如从Web服务器至用户的浏览器. 另外一个是在不同的应用之间交换数据, 或者是机器之间交换数据. 
在这些情况下, 你都可能需要三层架构: 后端数据库, 针对数据的处理逻辑的中间层服务器, 以及数据进一步显示和处理的客户端. 数据库可以从多个数据来源接收信息, 可能已经是XML格式的数据. 中间层然后收集数据并在最终的表现层上输出和表现.. 
现在, 网页有时候以这种方法传送 --CNET的NEWS.COM从一个数据库中发表数据.但是要获得一页的新的视图,如NEWS.COM的新的“打印机友好”选项, 服务器必须产生一个新的页面. 一份适当格式化的XML文档将允许客户端的应用为不同的媒体修改文档的表现形式, 比如为打印机.
5.什么是DTD?
文档类型定义(DTD)是一套关于标记符的语法规则.它告诉你可以在文档中使用哪些标记符,它们应该按什么次序出现,哪些标记符可以出现于其它标记符中,哪些标记符有属性,等等.DTD原来是为使用SGML开发的, 它可以是XML文档的一部分, 但是它通常是一份单独的文档或者一系列文档 因为XML本身不是一种语言,而是定义语言的一个系统,它没有象HTML一样拥有一个通用的DTD.相反, 想使用XML进行数据交换的工业或组织可以定义它们自己的DTD. 如果一个组织想用XML来标识仅在内部使用的文档, 它可以创造自己私有的DTD. 比如 华尔街杂志交互版本拥有一个 DTD 来详细说明每一版, 其中有关于页, 文章, 概要, 标题下署名等等的信息.刊物目前使用SGML DTD,但是它也正在开发一个XML版本. 关于DTD并不是没有争议的. 一些人感到它给商业业务增加了实实在在的价值, 而一些人感觉它限制了创造性. 还有一些人认为DTD有用, 但是还做得不够. 微软正尝试用它的XML数据提议来解决上一个抱怨, 但是批评者说这些改进应该在DTD规范本身进行. 
一些供应商, 包括微软, 已经提议了替代DTD的一个方法, 称为schema. 他们已经将其以XML数据提交给了W3C. 就象DTD, Schema提供了文档的规则, 并指出用什么标记符, 标记符的属性, 之间的联系, 等等.但是,不同于DTD, schema可以定义数据类型. 例如, DTD可能有一个标记符 <PRICE>, 而标记符之间的内容可以是数字或字符串. Schema 可以规定只输入数字.这个方法显然有其优点, 特别是用于应用,对象,或数据库之间的数据传输. 唯一的问题是它将成为DTD规范, 还是XML的一个扩展.
6.什么是结构良好和有效的文件? 
基本上有两类相关的XML文档: 结构良好的和有效的. 结构良好的 XML文档遵守XML语法的一般规则, 这些规则比HTML和SGML的更为严格. XML的字符数据决不会吊在那里, 没有某种结束标识符, 或者是象<MYTAG></MYTAG> 成对出现的 结束标识符, 或者是一个特别的在右尖括弧前带有一个斜杠的 空元素 标记, 比如 <MYTAG/>; XML 标识总是以左尖括弧或 & 开始; 元素类型和属性名称是大小写区分的; 属性需要引号; 等等. 
有效的 XML 文档遵守某个特定的DTD.确认XML文档正确性的工作主要由制作出版工具承担, 而XML浏览器为读取XML文档, 只需要检查其构造的良好性. 这样, 制作工具中的解析器得要检查构造良好性 和 有效性, 而浏览器仅要考虑寻找已经构造良好的XML. 
7 如何在浏览器中阅读XML? 
阅读XML文档的工具一般称为XML解析器, 虽然其更正式的名称是XML处理器. XML处理器将数据传送到应用软件, 以做制作, 出版, 查询, 或显示. XML不给应用软件提供 应用程序接口 (API), 它只是把数据传给应用软件. XML处理器不解析非结构良好的数据. Netscape 和 Microsoft 都已经将XML解析器包含在其浏览器中, 或正计划将其包含到浏览器中. 
XML开发者团体提供免费的XML阅读器和解析器, 来应用到应用软件或XML制作软件:
Textuality的 Lark, 来自XML标准的作者之一. 
Microstar的 AElfred, 一个基于Java的解析器. 
DataChannel的 DXP, 前身为著名的NXP, 或已经增加了API的Norbert的 (Mikula) XML 解析器.
8 RDF和XML有何联系?
如果XML提供了表达语言的能力,那么XML应用则是特定的语言.资源描述框架(Resource Description Framework,RDF) 是这样的一个应用软件:使用XML的语法进行数据建模. 
RDF是一种描述和访问数据方法. 这意味着RDF是关于数据的数据, 或者说元数据. 在Web中, 这些元数据将被用于建立标准的站点地图, 更精确的搜索结果, 和分层次的主题索引. RDF也允许智能书签, 当被索引的网页变化时, 书签随之发生变化. 如果你跟踪内容定期更新的站点, 比如CNET的 NEWS.COM, 将很有用.对于网站建设者,建立可被搜索引擎引用的其网站内容的元数据并不困难. 我们很快就会有商业化的软件, 来自动产生给定站点的RDF文件.
XML元数据也将活跃数据描述和评估的市场. 有许多评级机构在网上出现, 他们评估一切数据, 从保护孩子安全的站点到最佳电影或葡萄酒站点. RDF可以使用的等级的语法来描述评级机构.人们将选择有他们感觉最合适的词汇表的评级机构,词汇表指的是评级机构给不同类型内容评级使用的特别的一套术语 -- 从性和暴力到葡萄酒酸度.
9 Netscape浏览器中如何实现XML?
Netscape将在Communicator/Navigator 5.0中以一个代号为Aurora的交付部件来支持XML元数据. Aurora利用RDF来获得Netscape所称的"桌面信息全面集成." 
Aurora在网络、桌面和数据库之间查找和管理信息.它将在桌面上以"窗口"菜单的界面出现,会聚指向当前项目, 研究主题或日常活动等资源的指针.RDF使Aurora的导航条指向不同数据类型(文字处理文档、表格数据、电子邮件消息、数据库内容)的本地文件, 也指向Internet 或Intranet 服务器上的资源(搜索和查询的结果、书签链接等). 
Netscape 5.0 版浏览器中提供了一个读取RDF的XML解析器,在产品最终交付前会以beta版出现.除了该RDF的实现, Netscape正计划将一个通用的XML解析器包含在浏览器中, 而其浏览器可以和其他的XML应用软件一起工作, 比如化学标记语言(CML)和数学标记语言(MathML). 
"我们要使Navigator成为一个XML平台,"Netscape原理工程师R.V. Guha这样说.Guha 原来开发过MCF (Meta Content format), MCF 后来加入了RDF规范.
10 Microsoft浏览器中如何实现XML?
微软的 Internet Explorer 4.0 是第一个实现XML的网络浏览器. 微软提供了一对XML处理器:浏览器所携带的用C++写的解析器, 和一个Web建造者可以从中下载和加入他们自己的应用程序的Java解析器的源代码. Java解析器是一个有效的 解析器, 就是说它根据一个DTD或Schema来进行检查.为了提高性能,浏览器所带的C++版的解析器是一个非有效的解析器.
据微软的产品经理Steve Sklepowich称, 这两个解析器都是"通用的", 因为它们不依靠特定的XML应用, 如CDF.由于XML数据和其表现分离, 在一个浏览器本身实际显示XML的能力需要样式表,例如XSL. 
同时, 微软使用了它所称的XML数据源对象(XML Data Source Object,XML DSO).它应用了动态HTML的数据捆绑能力, 将一端的XML数据和另一端的HTML数据相链接.IE 4.0访问XML文档,从中查询数据, 然后作为HTML显示出来. 
微软也使用了 XML对象模型来让开发者与浏览器中的XML数据进行交互. 它的实现是通过将HTML作为基于文档对象模型(DOM)的对象显现, 尽管HTML 和 DOM 并非直接兼容. DOM 让脚本和程序访问结构化的XML数据. 
Sklepowich说, 虽然目前在微软, XML的重心在浏览器, XML将最终出现在"任何HTML已经出现了的地方".Bill Gates 已经公开宣布微软Office 未来的版本将支持 XML, 而且公司也计划支持电子邮件包和制作XML工具的标准.
11 OSD和CDF与XML的关系如何?
CDF和OSD是微软支持的两个XML应用.通过其XML解析器,微软的 Internet Explorer 4.0读CDF文件来驱动和控制推频道所带来的页.根据RDF所做的工作, CDF提议又递交给W3C,以利用RDF的能力来显示不同数据元素之间的联系. 
Open Software Description 是用于描述软件部件的词汇表, 带有语法如从属, 版本和平台. OSD 描述如何表现一个部件的特性, 以及如何将该部件安装到计算机上. 它可以用于下载一个完整的软件包, 但是它主要设计用于不断增加的更新. OSD 单独工作或和CDF一起工作, 来定义应用频道. OSD建议由微软和Marimba领导的一组销售商于1997年8月提供给W3C. 
12 电子商务(e-commerce)和XML?
CommerceNet是著名的非赢利性网上商务协会,它拥有500多个成员.数年来CommerceNet努力帮助e-commerce 产品和系统一起工作. 其概念是允许信息在不同目录之间, 从目录到付款系统, 在付款系统之间交换. 已经发现XML可以在两个重要方面帮助实现以上概念: 内容定义和信息交换. 
内容定义:CommerceNet 正在定义通用于多种商业事务的数据元素. 这个称作商务核心(Commerce Core)的东西将定义如何给诸如公司名称、地址、价格、条款和数量等事物作标识. 
信息交换:开放,基于文本的XML用于服务器之间交换事务信息很理想.CommerceNet 提议用基于XML的通用商务语言(Common Business Language,CBL)来描述产品和服务目录软件, 关于商业规则和系统的元数据, 以及表格和消息的软件. 许多CBL 取自已经存在的 Electronic Data Interchange (EDI) 辞典, EDI辞典识别公认的术语, 如发票和采购订单. 但是CBL超越EDI的商业-到-商业的重点, 包含了零售事务和横向的供应链 -- 从供应商到批发商到零售商. 
这样的一个CBL应用是为使目录互用的产品信息互换( Product Information Exchange,PIX)规范. CommerceNet设计PIX, 以帮助供应商和他们的分销商更容易地交换产品数据. 长远的目标是工业组织--而非 CommerceNet--来将CBL作为特定的DTD的一个共同基础使用. 一些着重于工业的初步尝试已经宣布了: 
Internt开放支付(OBI): 一个在Internet上进行国际性的商业间购物的标准.OBI基于目前的Internet标准, 如SSL(安全性)、SET(信用卡交易)和X.509(数字认证). OBI的支持者有Commerce One、Connect、Intelisys、InterWorld、Microsoft、Netscape、Open Market、和Oracle. 
开放贸易协议(OTP): 一个在Web上向消费者售物的一致的, 可共同操作的环境. 规则将包括从如何降价促销, 付款选择, 到产品运输, 接收和问题解决. OTP由MasterCard International, DigiCash, CyberCash, Hewlett-Packard, IBM, AT&T Universal Card, Netscape, Royal Bank of Canada, 和一些 其他金融机构和技术公司支持. 
Internet内容交换标准(ICE): Vignette, Firefly Network, 和 一些其他公司--包括微软--正在开发一个叫作ICE的规范, 使能够在站点之间交换在线资产, 无论那是内容, 应用程序, 或是元数据. ICE将利用现有的标准, 包括 OPS/P3P (使个人数据可靠交换), CDF,OSD和RDF.
13 XML中的层叠样式?
因为XML将内容和表现分离, Web建造者需要新的方法来控制设计, 显示和输出. style sheet 是问题的答案. 目前, 有三种可用于XML的 样式表: 
Cascading style Sheets (CSS) 
Extensible style Language (XSL) 
Document style Semantics and Specification Language (DSSSL). 
如果5.0版的浏览器支持XML, XML对现有的CSS标准的支持将会处理大部分基本的风格和页面问题. 但是CSS对于专业出版商可能不够强大. 所以, 另一端存在着DSSSL, 一个在使用SGML的高端出版商中流行的ISO (国际标准组织)标准. 然而, DSSSL是复杂的, 它处理的打印文档管理在Web上很少有用. 
现在剩下了XSL,特别为XML而写的样式表.XSL目前上交给了W3C作为一个建议标准,其中的XSL转换部分(XSLT)已经于1999年11月成为正式的规范. 它给了Web开发者和用户较HTML更多的表现灵活性. 例如, HTML的<H2>标识符在所有浏览器上的表现是基本一样的, 但是XSL让开发者指定他们的页面元素如何表现(尽管用户可以在个人设置中重载它). 
XSL较CSS更强大, 因为它使Web建造者创建可以动态改变其表现的文档. 例如, 你可以包含这样的程序语句, "如果一个XML元素的属性为数值10, 显示为绿色, 否则为黑色." 或者你可以将"仅供内部使用"作为属性给一个段落标上, 这样它在某些情况下不会出现. XSL被设计用于脚本语言如javascript.
14 XML如何改进超链接?
XML超链接比基本的HTML风格的超链接多了一些新的特性, 包括无需手写许多javascript代码就能创建"聪明的"链接. 而且在XML, 链接本身成为了对象, 可以象其他对象一样被管理.原来的链接规范--XLL, 或XML链接语言--正被分为两个不同的规范: XPointer 和 XLink. 
XPointer: 在HTML, 要链接到一个页面的中间, 页面作者必须在那儿加上定位标识符. 使用XPointer, 你可以"取址到" (不是"连接到")其他人的文本的任何部分. 显而易见, 这样将有助于工作于法律文件, 科学和学术论文, 甚至W3C规范! 
XLink: 当用户点击一个HTML超链接时, 当前的网页被连接到的文件替代. XLink令Web建立者给链接增加行为. 例如, 现在, 你必须用一些javascript, 使在链接处弹出一个独立的窗口, 但是XLink让Web建立者对链接进行编码来执行一系列动作, 包括弹出一个链接选择的菜单. 
另一个应用可以是弹出一个对话框, 可能是一个提醒用户它们正要更新数据库的警告. 链接弹出菜单可能需要用户点击一个框来表示在进一步处理前他们接受义务. 现在, 实现这样的功能要写许多的脚本代码. 
XML也让Web建立者创建类似Web环工作的Extended Link, Web环是通过"下一个/前一个"行进来导航的自己选择出来的关于相同主题的网站组. 对于弹出菜单太长的相关链接站点表, Web建立者可以创建一个链接表, 这个表在不同的站点, 页面时会有变化. 用户可以点击一个图标来自动转移到环中的下一个成员. 现在这样的功能需要 CGI scripts, 而Extended Links 提供了一个标准的, 非私有的建立资源间联系的方法. 
仍然有更多的问题需要解决, 特别是在行为政策方面. 必须由一种方法来协调以下三方面的关系: 文档作者对链接所建议的行为, 用户所喜好的显示链接信息的方式, 以及是否和何时忽视用户的意愿的政策.
15 服务器上支持XML吗?
XML被设计成供长久使用的, 高价值的文档的储存格式. XML不是只让你定义标识符, 它也允许你定义文档的储存结构. 一篇HTML文档仅存在于一个文件中, 而一个XML文档可以由存放在不同地点的多个文件(称为实体)组成. 这提出了作为文档存储库的XML服务器的概念. 
服务器软件供应商已正在支持XML: 
Enigma, Insight 4.0
这是一个提供给出版商处理大型文档的专业电子出版软件解决方案. 目前和Insight捆绑在一起的Enigma SGML/XML style Sheet Editor, 也可以作为一个独立产品提供. 
Hynet Technologies, Digital Library System
Digital Library System (DLS) 将文档和文档部件作为标准软件对象进行管理, 允许引入在Adobe FrameMaker和Microsoft Word中创建的文档, 或者SGML/XML文件. 
Inso, DynaText Professional Publishing System
这是一个进行索引, 搜索和制作脚本的软件, 它可以工作于运行在Windows NT 3.51 或 4.0, 或 Sun Solaris 2.5上的Microsoft的 IIS和 Netscape的 Enterprise and FastTrack servers. 
Open Market, Folio
Open Market的 Folio 4 信息管理和发送产品将XML文档引入带索引的数据库, 以在IP网络上传递内容, 或将内容送至CD-ROM. 在一月份, Open Market宣布增强对XML的支持, 允许文档以它们的本身格式进行索引和保证安全. 同时, Folio产品也将可以和其它基于标准的制作, 解析和生成XML文档的解决方案相互操作. 它的产品包括 Folio siteDirector (分发信息), Folio SecurePublish (事务管理软件), 和 Folio Publisher (电子出版).
WebMethods, Web Automation Server
Web Automation Server 帮助公司将基于浏览器的应用软件和其它应用软件的数据相结合. 它是基于XML的服务器, 使用 WebMethods自己的在机器间进行Web数据交换的WIDL (Web Interface Definition Language). (该公司已经将WIDL作为标准提议上交给 World Wide Web Consortium.)
16 谁应该学习XML?
所有的Web建立者需要足够了解XML,以决定是否使用它.E-commerce站点和管理数据库中大量文档的站点是显然的首选对象.经理可能不需要学习XML语法或如何建立DTD,他们仍要理解XML的潜力并加以利用.如果最终的目的只是让人来读信息, HTML能足够满足标识信息的要求. 但是如果你想要为自动处理数据作准备, 你必须考虑将XML纳入你的出版系统. 并非每一个工作在Web站点的HTML制作者必须成为XML制作者, 但是某些员工应该精通于XML--特别当站点的工作对象是值得为将来使用而管理的数据和文档时.当然,XML的功能也意味着复杂性--一些Web建立者已经发现他们可以在几天内掌握HTML的基础, 而他们可能需要花几个星期来适应XML.只有你自己才能决定是否值得花这些时间. 
17 有哪些编写XML的工具可供我使用?
幸运的是, Web建立者不用完全靠他们自己从头开始创建XML了. 市场上已经有了创建, 管理和发送XML的工具, 并且一些公司也在进行开发. 
Adobe: 在1998年中期, Adobe将介绍可以输出到XML的 FrameMaker 和 FrameMaker+SGML 的过渡版本. 这些产品的完整版本将能够输入XML. Adobe有 一名代表在 W3C的XML工作组, Adobe也参与了XLink, Cascading style Sheets和 RDF的工作, 所以我们可以期待这些技术将在Adobe未来的产品中出现. 
Allaire: HomeSite 4.0 和 Cold Fusion 4.0 都预计在今年夏天出品, 它们将支持XML, 包括style sheets. HomeSite 3.0中已经提供了一个CDF附加软件. 
ArborText: 在SGML领域内长期工作的ArborText, 于一月份发布了XML styler, 一个免费的基于Java的XSL编辑器. 它的图形用户界面可以让我们勿需知道XML语法就能进行编辑. 将来, ArborText 会把XML styler集成到Adept中, Adept是公司给打印出版提供的XML制作工具. 
DataChannel: 一个免费的, 基于Java的有效的解析器, 称为 DXP (DataChannel XML Parser; 基于 Norbert Mikula 著名的NXP). 可以从该公司的Web站点获得. 它新发布的是免费的XML工具包, XML 开发环境, 它包括了一套部件, 帮助人们开始学习和应用XML. 
Inso: 该公司提供它称为的"首个集成的, 端对端的, 创建, 转换, 存储, 管理, 索引, 查询XML内容, 将其发布到Web, CD-ROM和打印机上的出版解决方案." 其产品包括 DynaTag 4.0, DynaBase 3.0, DynaText 3.1, 和所附的工具 DynaWeb. 
IntraNet Solutions: Intra.doc Management System的下一版本, IntraNet Solution的基于Web的文档管理系统, 将会管理XML部件和文档之间的关系, 提供和第三方XML制作工具的集成链接管理, 完善在浏览器中XML对象的使用, 并在Intra.doc存储库和XML编辑器之间提供一个交互的元数据模型. 
Microsoft: 微软希望在年底交付Office 9.0, 据报道, 它将有对XML的支持. 
Microstar: ActiveSG/XML 是一套在Internet上设计和配置基于事务的XML/SGML系统的工具和技术. Microstar也提供了免费的&AElig;lfred XML 解析器. 
SoftQuad: HTML 编辑器 HotMetal Pro 将很快提供 Live Data Base Pages, 一个让开发者将HTML数据拉入数据库并以XML来返回的附加软件. 
Vignette: StoryServer 3.2 在Web上交付能使用XML的应用和内容. 它结合了关系型数据库, 多媒体和XML内容创建的工具. StoryServer 是一个Web内容应用平台, 供建立, 管理, 和交付基于服务的Web应用之用, 比如在线出版, 知识管理, 和电子商务系统. (注: CNET对Vignette有财政上的兴趣.) 
XPublish: XPublish是一个XML出版系统, 供Web站点开发和管理, 允许开发者以XML进行制作, 或用XML构件延展目前的HTML文档, 然后将站点以HTML来发布, 以让任何的标准Web浏览器可以访问. 它包含了一个Cascading style Sheets编辑器. 
WebMethods: 该公司制作基于XML的Web Automation 软件, 提供商业应用软件和Web数据的快速集成和直接访问. 它的 Web Interface Definition Language (WIDL) 将和HTML/XML和表格的所有交互自动化, 提供在标准Web协议上表现要求-回答交互方式的一个通用方法. 
当然, 如果XML在Web上无处不在, 你可以看到几乎每一种基于Web的应用, 特别是HTML编辑器, 数据库软件, 和电子商务软件, 会迅速加入对XML的各个级别的支持.
18 XML的国际化?
XML将使Web建立者创建真正的国际性站点变得比以前都容易. 因为, 比如 Java, 它由Unicode (ISO 10646)定义, Unicode是一个国际接受的标准, 用于描述世界上所有的字母, 字型, 字符和表意符, 它包括 ASCII ISO 拉丁字符, 日本, 韩国, 中国, 印度, 希腊, 阿拉伯和其它字符. 它甚至允许字符集的混合, 例如, 一篇以日文显示的XML文档可以通过一个元音变音参照到一个德文词汇. 
开发者不需要学习任何脚本语言, 以使Unicode在XML文档中生效, 文档在用户的浏览器中用合适的字符集显示出来.
19 XML的未来在哪里?
就围绕着XML的所有活动, 很难预测六个月后它会是什么样. XML和XLL 规范的合作者Tim Bray说, "我们已经制作了一个设计用于通用目的的工具, 大范围的人们对它的关注和应用证明我们是成功的." 
在短期内, XML将可能出现在元数据应用上,如RDF.下一个大的影响将随着文档对象模型规范的批准而到来.Bray声称"XML和DOM的结合确实是给Web带来活力的神奇子弹." 
XML也应该会帮助电子商务.XML将使电子商务供应商以共同的方法给产品和其相关信息(价格,尺寸,颜色,特性)进行标识, 使用户在Web上对不同的商店进行比较. 
同时, Netscape和Microsoft会继续扩大对XML浏览器的支持, 包括有效的和构造良好的XML文档, 更多的XML应用, 为XML设计的style-sheet支持, 和XML超连接协议. 请关注这两个公司以及其它软件供应商在XML制作和出版工具上的进展.
20 哪里能学到更多的XML知识?
XML是一个复杂的事物, 对于所有Web建立者都具有深刻的含意. 如果你想学习更多的东西, 这里是一些可以查看的好地址: 
万维网联盟(W3C): 
XML规范. 
关于XML规范的讨论. 
Extensible style Language (XSL) W3C注释. 
Document Object Model 规范. 
参与W3C规范开发的XML开发者的邮件地址清单. 
XML常见问题解答: 
ArborText的 XML链接和资源. 
微软的XML 站点提供了XML如何在一个天气预报和拍卖中工作的演示. 
Textuality收集了XML规范合作者Tim Bray的关于XML的FAQ和到其它资源的一些链接. 
由爱尔兰Cork University College的Peter Flynn代表W3C的XML特别兴趣组维护的XML FAQ.
XML信息页面, 达拉斯Summer Institute of Linguistics 的Robin Cover创建的SGML/XML Web页面的一部分. 
组织、持续教育: 
中国XML联盟
图形通信协会的XML文件 
SGML Open 是一个国际性的非盈利性协会, 它提倡基于SGML家族标准的结构化文档和数据交换. 它的InterX.org旨在成为"XML开发者和用户的论坛和资源中心". 
huihoo.com Copyright (2001,2002,2003,2004) Allright Reseved
看完了基础知识，下面就实践以下吧
本实例应用了MS的MSXML2_TLB，请自行查找下载
//用于读写XML的最简单的单元
unit XMLPurserUnit;
interface
uses
  SysUtils, Classes, Windows, ActiveX, MSXML2_TLB;
type
  //本例子通过DOM方式演示XML文件的读写过程
  TDOMXMLpurser=class
  public
    { 创建并保存XML文档，XMLDoc:=CoDOMDocument.Create没有办法将文档类型对象填加
      到XMLDoc中，因为它没有引用相应的DTD}
    procedure SavePropertiesToXML(Filename: string; Props: TStrings);
    { 解析已有的XML文档 }
    //适用于节点名称不同的情况
    procedure LoadPropertiesFromXML(Filename: string; Props: TStrings);
    //适用于节点相同的情况
    procedure LoadFromXML(Filename: string; Props: TStrings);
  end;
implementation
const
  XMLTag          = \'xml\';
  XMLPrologAttrs  = \'version="1.0" encoding="UTF-8"\';
  XMLComment      = \' Sample XML document with data about movies\'#13 +
                    \'and when and where they are showing\'#13 +
                    \'Developed by Keith Wood, 28 May 1999 \';
  MovieWatcherTag = \'movie-watcher\';
  MoviesTag       = \'movies\';
  MovieTag        = \'movie\';
  Id              = \'id\';
  Rating          = \'rating\';
  StarringTag     = \'starring\';
  TitleTag        = \'title\';
//保存XML
procedure TDOMXMLpurser.SavePropertiesToXML(Filename: string; Props: TStrings);
var
  XMLDoc: IXMLDOMDocument;
  i:integer;
  //----------------------------------------------------------------------------
  procedure AddSimpleElement(Parent: IXMLDOMElement; Field: string;
                             AsCDATA: Boolean = False);
  var
    Internal: IXMLDOMElement;
  begin
    Internal := IXMLDOMElement(Parent.AppendChild(
      XMLDoc.CreateElement((\'Field.FieldName\'))));
    if AsCDATA then
      Internal.AppendChild(XMLDoc.CreateCDATASection(Field))
    else
      Internal.AppendChild(XMLDoc.CreateTextNode(Field));
  end;
  procedure GenerateHeaders;
  var
    Title: IXMLDOMElement;
  begin
    XMLDoc.AppendChild(XMLDoc.CreateProcessingInstruction(XMLTag, XMLPrologAttrs));
    XMLDoc.AppendChild(XMLDoc.CreateComment(XMLComment));
    XMLDoc.AppendChild(XMLDoc.CreateElement(MovieWatcherTag));
    Title := IXMLDOMElement(XMLDoc.DocumentElement.AppendChild(
        XMLDoc.CreateElement(TitleTag)));
    Title.AppendChild(XMLDoc.CreateTextNode(\'焦点新闻\'));
  end;
  procedure GenerateStars(Starring: IXMLDOMElement);
  begin
    AddSimpleElement(Starring, \'(StarField)\');
  end;
  procedure GenerateMovies(moviename:string);
  var
    Movies, Movie: IXMLDOMElement;
  begin
    Movies := IXMLDOMElement(XMLDoc.DocumentElement.AppendChild(
        XMLDoc.CreateElement(MoviesTag)));
        Movie := IXMLDOMElement(Movies.AppendChild(
          XMLDoc.CreateElement(MovieTag)));
        Movie.SetAttribute(Id, \'123\');
        Movie.SetAttribute(Rating, \'456\');
        AddSimpleElement(Movie, \'789\');
        AddSimpleElement(Movie, moviename);
        AddSimpleElement(Movie, \'"(DirectorField)"\');
        GenerateStars(IXMLDOMElement(Movie.AppendChild(
          XMLDoc.CreateElement(StarringTag))));
        AddSimpleElement(Movie, \'FieldByName(SynopsisField)\', True);
  end;
  //----------------------------------------------------------------------------
begin
  try
    XMLDoc        := CoDOMDocument.Create;
    GenerateHeaders;
    i:=0;
    repeat
      GenerateMovies(Props.Strings[i]);
      inc(i);
    until i>=Props.Count;
    Props.Text := XMLDoc.XML;
    XMLDoc.save(Filename);         //u8-dos格式
    //Props.SaveToFile(Filename);  //dos格式
  finally
    { Release the DOM }
    XMLDoc        := nil;
  end;
end;
//加载无重复属性的XML
procedure TDOMXMLpurser.LoadPropertiesFromXML(Filename: string; Props: TStrings);
var
  XMLDoc: IXMLDOMDocument;
  i: Integer;
  procedure LoadSubProperties(Element: IXMLDOMNode; PropPrefix: string);
  var
    Index: Integer;
  begin
    if (Element.NodeType = NODE_TEXT) or (Element.NodeType = NODE_CDATA_SECTION) then
        Props.Values[Copy(PropPrefix, 2, Length(PropPrefix) - 1)] := Element.NodeValue
    else
      for Index := 0 to Element.ChildNodes.Length - 1 do
          LoadSubProperties(Element.ChildNodes[Index], PropPrefix + \'.\' + Element.NodeName);
  end;
begin
  XMLDoc := CoDOMDocument.Create;
  Props.Clear;
  try
    if XMLDoc.Load(Filename) then
    with XMLDoc.DocumentElement do
      for i := 0 to ChildNodes.Length - 1 do
        LoadSubProperties(ChildNodes[i], \'\');
  finally
    XMLDoc := nil;
  end;
end;
//加载XML
procedure TDOMXMLpurser.LoadFromXML(Filename: string; Props: TStrings);
var
  XMLDoc: IXMLDOMDocument;
  i: Integer;
  procedure LoadSubProperties(Element: IXMLDOMNode; PropPrefix: string);
  var
    Index: Integer;
  begin
    if (Element.NodeType = NODE_TEXT) or (Element.NodeType = NODE_CDATA_SECTION) then
        Props.Add(Copy(PropPrefix, 2, Length(PropPrefix) - 1)+\'=\'+ Element.NodeValue)
    else
      for Index := 0 to Element.ChildNodes.Length - 1 do
          LoadSubProperties(Element.ChildNodes[Index], PropPrefix + \'.\' + Element.NodeName);
  end;
begin
  XMLDoc := CoDOMDocument.Create;
  Props.Clear;
  try
    if XMLDoc.Load(Filename) then
    with XMLDoc.DocumentElement do
      for i := 0 to ChildNodes.Length - 1 do
        LoadSubProperties(ChildNodes[i], \'\');
  finally
    XMLDoc := nil;
  end;
end;
initialization
  { Initialise COM }
  CoInitialize(nil);
finalization
  { Tidy up }
  CoUninitialize();
end.
//调用XML读写
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw,XMLPurserUnit;
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    FXMLpurser:TDOMXMLpurser;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  FXMLpurser:=TDOMXMLpurser.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
  FXMLpurser.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  filename:string;
begin
  memo1.Lines.Clear;
  filename:=ExtractFilePath(application.ExeName)+\'MailTemplate.xml\';
  FXMLpurser.LoadPropertiesFromXML(filename,memo1.Lines);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  filename:string;
begin
  memo1.Lines.Clear;
  filename:=ExtractFilePath(application.ExeName)+\'MailTemplate.xml\';
  FXMLpurser.LoadFromXML(filename,memo1.Lines);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  FXMLpurser.SavePropertiesToXML(ExtractFilePath(application.ExeName)+\'MailTemplate1.xml\',memo1.Lines);
end;
end.
//unit1对应的form
object Form1: TForm1
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = \'Form1\'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = \'MS Sans Serif\'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object WebBrowser1: TWebBrowser
    Left = 8
    Top = 8
    Width = 321
    Height = 361
    TabOrder = 0
    ControlData = {
      4C0000002D2100004F2500000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object Memo1: TMemo
    Left = 336
    Top = 8
    Width = 345
    Height = 361
    Lines.Strings = (
      \'星球大战1\'
      \'星球大战2\'
      \'星球大战3\'
      \'星球大战前传1\'
      \'星球大战前传2\'
      \'星球大战前传3\')
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object Button1: TButton
    Left = 192
    Top = 384
    Width = 147
    Height = 25
    Caption = \'LoadPropertiesFromXML\'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 344
    Top = 384
    Width = 83
    Height = 25
    Caption = \'LoadFromXML\'
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 432
    Top = 384
    Width = 121
    Height = 25
    Caption = \'SavePropertiesToXML\'
    TabOrder = 4
    OnClick = Button3Click
  end
end
//一个最简单的XML文件 MailTemplate.xml
<?xml version="1.0"?>
<mailTemplate>
  <smtp>
    <host>mail.ncisystems.com</host>
    <port/>
    <user>keith</user>
    <from>[email protected]</from>
  </smtp>
  <database>
    <alias>mailtemp</alias>
    <user/>
    <password/>
  </database>
  <settings>
    <pauseTime>2000</pauseTime>
    <template>MailMessage.xml</template>
    <testing>Y</testing>
  </settings>
</mailTemplate>   
 
delphi操作xml学习笔记 之三 进阶必读 
关键字: xpath 
分类: 个人专区 
密级: 公开 
学会简单读写xml之后，我想大多数应用都不会停留在这一步，如果想进一步操作，就要熟悉xpath，XML 路径语言。它是添加，删除，查询等进一步操作xml所必需知道的。
关于xpath 1.0的详细介绍，参见 http://www.opendl.com/openxml/w3/TR/xpath/xpath-gb.html
XPath 2.0 简介，参见http://www.microsoft.com/china/MSDN/library/data/xml/ThingstoKnowandAvoidWhenQueryingXMLDocumentswithXpath.mspx
要点必读：
2.5 缩简句法
这是一些使用缩简句法的地址路径例子：
para 选择上下文节点的 para 元素孩子
* 选择上下文节点的所有的元素孩子
text() 选择上下文节点的所有的正文节点孩子
@name 选择上下文节点的 name 属性
@* 选择上下文节点的所有的属性
para[1] 选择上下文节点的第一个 para 孩子
para[last()] 选择上下文节点的最后一个 para 孩子
*/para 选择上下文节点的所有的 para 孙子
/doc/chapter[5]/section[2] 选择doc的第五个 chapter 的第二个 section 
chapter//para 选择上下文节点的 chapter 元素孩子的所有 para 元素子孙
//para 选择文档根的所有的 para 子孙，也就是选择上下文节点所在的文档中所有的 para 元素
//olist/item 选择上下文节点所在的文档中所有的以 olist 为父的 item 元素
. 选择上下文节点
.//para 选择上下文节点的 para 元素子孙
.. 选择上下文节点的父
../@lang 选择上下文节点的父的 lang 属性
para[@type="warning"] 选择的上下文节点的所有的有属性 type 且值为 warning 的 para 孩子
para[@type="warning"][5] 选择的上下文节点的所有的有属性 type 且值为 warning 的 para 孩子中的第五个
para[5][@type="warning"] 选择的上下文节点的第五个 para 孩子如果该节点有属性 type 且值为 warning 的话
chapter[title="Introduction"] 选择上下文节点的 chapter 孩子如果它有一个或多个 title 孩子且字串值为 Introduction
chpater[title] 选择的上下文节点中有一个或一个以上 title 孩子的 chpater 孩子
employee[@secretary and @assistant] 选择上下文节点的所有既有 secretary 属性又有 assistant 属性的 employee 孩子
最重要的缩写是 child:: 能从地点步进省略掉。实际效果上，child 是缺省轴。例如，地址路径 div/para 是 child::div/child::para 的缩写。
属性也有缩写形式： attribute:: 能被缩写成 @。例如，地址路径 para[@type="warning"] 为 child::para[attribute::type="warning"] 的缩写，也就是选择有 type 属性且属性值为 warning 的 para 孩子。
// 是 /descendant-or-self::node()/ 的缩写。例如，//para 是 /descendant-or-self::node()/child::para 的缩写，因此选择文档中所有的 para 元素（即使 para 元素是文档元素，也会被 //para 所选择，因为文档元素是根节点的孩子）； div//para 是 div/descendant-or-self::node()/child::para 的缩写，因此将选择 div 孩子的所有 para 子孙。
注意：
地址路径 //para[1] 与地址路径 /descendant::para[1] 的含意不一样，后者选择第一个 para 元素子孙，前者选择是他们的父的第一 para 孩子的所有的子孙 para 元素。
地点路进 . 是 self::node() 的缩写。这与 // 一起使用特别有用。例如，地址路径 .//para 是 self::node()/descendant-or-self::node()/child::para 的缩写，因此将选择上下文节点的所有的 para 子孙元素。
同样，地址路径 .. 是 parent::node() 的缩写。例如，../title 是 parent::node()/child::title 的缩写因此这将选择上下文节点的父的 title 孩子。 
delphi操作xml学习笔记 之四 简单增删查改 
关键字: AppendChild insertBefore removeChild replaceChild 
分类: 个人专区 
密级: 公开 
xml基础操作实例，因为刚开始学，如果有不对的地方，请批评指正，代码如下：
unit XMLOptionUnit;
//==============================================================================
//本实例演示
//1，XML 创建，打开，关闭操作
//2，XML 填加，添加到指定位置，删除，修改（替换），查找等操作
//作者：[email protected]
//日期：2005.9.23
//版本：1.0
//==============================================================================
interface
uses
  SysUtils,ActiveX,MSXML2_TLB;
type
  RecUser=Record
    U_Id       :widestring;
    U_Name     :widestring;
    U_Sex      :widestring;
    U_Birth    :widestring;
    U_Tel      :widestring;
    U_Addr     :widestring;
    U_PostCode :widestring;
    U_Email    :widestring;
  end;
type
  TXMLOption=class
  private
    FActive  :boolean;
    FFilename: string;
    FXMLDoc  :IXMLDOMDocument;
    //填加一个子节点
    procedure AddSimpleElement(Parent: IXMLDOMElement; Field,Value: string);
  public
    procedure CreateBlank(Filename: string);
    procedure OpenXml(Filename: string);
    procedure CloseXml;
    procedure AppendUser(muser:RecUser);
    procedure InsertUser(uid:string;muser:RecUser);
    procedure RemoveUser(uid:string);
    procedure ReplaceUser(uid:string;newuser:RecUser);
    function  FindUser(userid:widestring):boolean;
    function  GetNodeLength(node:widestring):integer;
  end;
implementation
const
  XMLTag          = \'xml\';
  XMLPrologAttrs  = \'version="1.0" encoding="UTF-8"\';
  XMLComment      = \'简单XML文档操作用户实例\'#13 +
                    \'用户结构为序号，姓名，性别，出生年月日，电话，住址，邮编，电邮\'#13 +
                    \'作者 [email protected], 2005.9.21\';
  UserWatcherTag = \'user-watcher\';
  XMLComment2    = \'创建文档时间：\';
  UsersTag       = \'users\';
  U_Id           = \'id\';
  U_Name         = \'name\';
  U_Sex          = \'sex\';
  U_Birth        = \'birth\';
  U_Tel          = \'tel\';
  U_Addr         = \'addr\';
  U_PostCode     = \'postcode\';
  U_Email        = \'email\';
//创建一个空XML，如果这个Filename文件已经存在，则覆盖
procedure TXMLOption.CreateBlank(Filename: string);
begin
  FActive:=false;
  FFilename:=\'\';
  try
    FXMLDoc := CoDOMDocument.Create;
    FXMLDoc.AppendChild(FXMLDoc.CreateProcessingInstruction(XMLTag, XMLPrologAttrs));
    FXMLDoc.AppendChild(FXMLDoc.CreateComment(XMLComment));
    FXMLDoc.AppendChild(FXMLDoc.CreateElement(UserWatcherTag));
    FXMLDoc.AppendChild(FXMLDoc.CreateComment(XMLComment2+datetimetostr(now)));
    FXMLDoc.save(Filename);
    FFilename:=Filename;
    FActive:=true;
  except
    FXMLDoc:=nil;
  end;
end;
//打开一个存在的Filename XML文档
procedure TXMLOption.OpenXml(Filename: string);
begin
  if not Assigned(FXMLDoc) then
  begin
    FXMLDoc := CoDOMDocument.Create;
    if FXMLDoc.Load(Filename) then FActive:=true
    else FActive:=false;
    if FActive then FFilename:=Filename
    else FFilename:=\'\';
  end;
end;
//关闭一个打开的XML文档
procedure TXMLOption.CloseXml;
begin
  if Assigned(FXMLDoc) then FXMLDoc:=nil;
  FFilename:=\'\';
  FActive:=false;
end;
procedure TXMLOption.AddSimpleElement(Parent: IXMLDOMElement; Field,Value: string);
var
  Internal: IXMLDOMElement;
begin
  Internal:=IXMLDOMElement(Parent.AppendChild(FXMLDoc.CreateElement(Field)));
  Internal.AppendChild(FXMLDoc.CreateTextNode(Value));
end;
//填加一个节点到后面
procedure TXMLOption.AppendUser(muser:RecUser);
var
  xuser:IXMLDOMElement;
  xroot:IXMLDOMElement;
begin
  if FActive then
  begin
    xroot:=FXMLDoc.documentElement;
    xuser :=IXMLDOMElement(xroot.AppendChild(FXMLDoc.CreateElement(UsersTag)));
    AddSimpleElement(xuser,U_Id,muser.U_Id);
    AddSimpleElement(xuser,U_Name,muser.U_Name);
    AddSimpleElement(xuser,U_Sex,muser.U_Sex);
    AddSimpleElement(xuser,U_Birth,muser.U_Birth);
    AddSimpleElement(xuser,U_Tel,muser.U_Tel);
    AddSimpleElement(xuser,U_Addr,muser.U_Addr);
    AddSimpleElement(xuser,U_PostCode,muser.U_PostCode);
    AddSimpleElement(xuser,U_Email,muser.U_Email);
    FXMLDoc.save(FFilename);
  end;
end;
procedure TXMLOption.InsertUser(uid:string;muser:RecUser);
var
  xfind:IXMLDOMNode;
  xuser:IXMLDOMElement;
  xroot:IXMLDOMElement;
  xpath:string;
begin
  if not FActive then exit;
  xpath:=UsersTag+\'[\'+U_Id+\'="\'+uid+\'"]\';
  xfind:=FXMLDoc.documentElement.selectSingleNode(xpath);
  //如果没有找到， xfind=nil 则在文件的末尾插入
  //如果找到，xfind<>nil 则在找到的纪录前面插入
  xroot:=FXMLDoc.documentElement;
  xuser :=IXMLDOMElement(xroot.insertBefore(FXMLDoc.CreateElement(UsersTag),xfind));
  AddSimpleElement(xuser,U_Id,muser.U_Id);
  AddSimpleElement(xuser,U_Name,muser.U_Name);
  AddSimpleElement(xuser,U_Sex,muser.U_Sex);
  AddSimpleElement(xuser,U_Birth,muser.U_Birth);
  AddSimpleElement(xuser,U_Tel,muser.U_Tel);
  AddSimpleElement(xuser,U_Addr,muser.U_Addr);
  AddSimpleElement(xuser,U_PostCode,muser.U_PostCode);
  AddSimpleElement(xuser,U_Email,muser.U_Email);
  FXMLDoc.save(FFilename);
end;
procedure TXMLOption.RemoveUser(uid:string);
var
  xfind:IXMLDOMNode;
  xroot:IXMLDOMElement;
  xpath:string;
begin
  if not FActive then exit;
  xpath:=UsersTag+\'[\'+U_Id+\'="\'+uid+\'"]\';
  xfind:=FXMLDoc.documentElement.selectSingleNode(xpath);
  if xfind<>nil then
  begin
    xroot:=FXMLDoc.documentElement;
    xroot.removeChild(xfind);
    FXMLDoc.save(FFilename);
  end;
end;
procedure TXMLOption.ReplaceUser(uid:string;newuser:RecUser);
var
  xfind,newnode:IXMLDOMNode;
  xroot:IXMLDOMElement;
  xpath:string;
begin
  if not FActive then exit;
  xpath:=UsersTag+\'[\'+U_Id+\'="\'+uid+\'"]\';
  xfind:=FXMLDoc.documentElement.selectSingleNode(xpath);
  //如果没有找到，则不做替换
  if xfind<>nil then
  begin
    newnode:=xfind.cloneNode(true);
    newnode.selectSingleNode(U_Id).text:=newuser.U_Id;
    newnode.selectSingleNode(U_Name).text:=newuser.U_Name;
    newnode.selectSingleNode(U_Sex).text:=newuser.U_Sex;
    newnode.s