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编程。




