简析XML及其在Delphi中的应用

3. 应用实例

　　下面结合一个具体的实例说明如何在Delphi中编写XML应用程序。该实例是在WebBroker应用程序中运用XML/XSLT进行编程，使用WebBroker Extensions组件。

　　3.1 首先安装WebBroker Extensions组件。可以使用Delphi自带的安装程序进行安装，或者打开Delphi在Component-＞Install Component进行安装。安装后，选择New-＞Others，在弹出的对话框中将出现XML一项，单击XML标签，在下面的对话框中有"XSLT WebServer Application"项。

　　3.2 然后选择"XSLT WebServer Application"，单击"OK"，会出现一个和创建WebBroker应用程序相似的界面。接受默认设置，工程向导将创建一个XSLWebModule模块。

　　3.3下面添加Actions属性。选定Webmodule，然后为其增加一个XSLActions，可使用Property Editor或选择树结构中的XSLActions结点，然后按右键选择Add菜单项。

　　3.4 设置XSLActions Item属性，将XML Template 及XSL StyleSheet的属性分别设置为：cars.xml 和cars.xslt。其中cars.xml（表1.）、 cars.xslt（表2.）的内容如下(为了简洁只定义基本框架)。根据表2（cars.xslt）的定义可以看到输出的cars.html格式为表格。

　　3.5 保存项目工程为prjDemo，编译后，然后运行在Web服务器上如：http://MyWebserver.com.输入的网址为：http://localhost/ISAPI/prjDemo.dll/.


图4. 程序运行的基本逻辑流程

　　3.6当应用程序响应一个Request，Webmodule将装载XML Template文件cars.xml。随后响应OnAction事件，webmodule将把指定的XSLT StyleSheet文件装载，并和XML Template文件一起传送给Transform Processor。Processor把处理的结果作为响应返回到客户端（Client）。基本流程如图4所示：

＜?xml version="1.0" encoding="UTF-8"?＞ ＜?xml-stylesheet type="text/xsl" href="D:\TEMP\cars.xslt"?＞ ＜cars＞ 　＜type＞Cars＜/type＞ 　＜car＞ 　　＜name＞Commodore＜/name＞ 　　＜price＞26,000＜/price＞ 　＜/car＞ 　…… ＜/cars＞ ＜?xml version="1.0" encoding="UTF-8"?＞ ＜xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" ＞ ＜xsl:output method="html" version="1.0" encoding="UTF-8" indent="yes"/＞ ＜xsl:template match="/"＞ ＜HTML＞ ＜HEAD＞ 　＜TITLE＞ ＜xsl:value-of select="cars/type"/＞ ＜/TITLE＞ ＜/HEAD＞ ＜BODY＞ 　＜TABLE border="1"＞ 　　＜TR＞ 　　　＜TD＞Name＜/TD＞ 　　　＜TD＞Price＜/TD＞ 　　＜/TR＞ 　　＜xsl:for-each select="cars/car"＞ 　　＜TR＞ 　　　＜TD＞ 　　　　＜xsl:value-of select="name"/＞ 　　　＜/TD＞ 　　　＜TD＞ 　　　　＜xsl:value-of select="price"/＞ 　　　＜/TD＞ 　　＜/TR＞ 　　＜/xsl:for-each＞ 　＜/TABLE＞ ＜/BODY＞ ＜/HTML＞ ＜/xsl:template＞ ＜/xsl:stylesheet＞

　　4.结束语

　　本文对XML及其如何在Delphi中实现 XML编程技术进行介绍，并在具体的实例中结合Delphi中的组件技术，使用第三方控件实现XML编程。

查看本文来源