delphi7 如何调用XSL显示XML(100分)

  • 主题发起人 主题发起人 donny2000
  • 开始时间 开始时间
D

donny2000

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi7 如何调用XSL显示XML 就是在Form里面显示 如同IE里面一样的结果
 
我也为这个问题烦恼呢,学习....
 
应该是用webbrower来显示XML文件吧
XSL文件是定义XML显示格式的,可在XML文件中声明
<?xml version="1.0" encoding="gb2312"?>
<?xml-stylsheet href="[red]***.xsl[/red]" type="text/xsl"?>
.......
 
<?xml version='1.0'?>
<root xmlns:sql='urn:schemas-microsoft-com:xml-sql' sql:xsl='get.xsl'>
<sql:query>
select prod_num,supp_code,unit_price from products for xml auto
</sql:query>
</root>
<?xml version='1.0'?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/xsl/transform" version="1.0">
<xsl:template match='*'>
<xsl:apply-template />
</xsl:template>
<xsl:template match='products'>
<TR>
<TD align='center'><xsl:value-of select='@prod_num' /></TD>
<TD align='center'><xsl:value-of select='@supp_code' /></TD>
<TD align='center'><xsl:value-of select='@unit_price' /></TD>
</TR>
</xsl:template>
<xsl:template match='/'>
<HTML>
<BODY>
<TABLE border='1'>
<TR>
<TH>Product No.</TH>
<TH>Supplier Code</TH>
<TH>Unit price</TH>
</TR>
<xsl:apply-templates select='root' />
</TABLE>
</BODY>
</HTML>
</xsl:template>
</xsl:stylesheet>
 
直接用WebBrowser,URL就填*.XML就可以了. 只要XML引用了一个样式单
 
直接用WebBrowser,load进这个文件就行了,Delphi的编码器就是转为xmltree模式看时用的就是IE控件,我用Spy++发现的。
原理是一样的。
另外MasterDelphi6的源码例子中有一个easydemo,就是这样做的,要的话我mail给你。
 
非常感谢,我的地址是my_donny@yahoo.com.cn
 
例子已经发给你了,关键的就是这一句:
XmlBrowser.Navigate (EditXmlFile.Text);
 
非常感谢
 
后退
顶部