Delphi6XML映像工具

Delphi6XML映像工具Delphi6XML映像工具分类：转载Delphi高级技术2009-01-0817:18294人阅读议论(0)珍藏举报Delphi6含有好多更新更强的XML支持功能，增添了XML文件编程，XML数据绑定导游，XML映象和BizSnap(SOAP/XMLWeb服务)。本文是三篇论述Delphi6中XML功能系列文章的第三篇，也是最后一篇，论述Delphi6中的XML映象工具，也称之为XML映象器(XMLMapper)。XML映象器可以单独打开也许在IDE的工具(Tools)菜单中打开映象器(XMLMapper)。这个工具将XML文件隐射为近似于数据库中的数据集(DataSet)！在前二篇文章中，我们都使用TXMLDocument组件来办理XML文件或XML绑定的数据。此刻，我们不再使用TXMLDocument组件了。我们用XML映象器将XML文件变换成数据包(或反之)，这样就可以象我们特别熟习得那样使用诸如DataSet这样的组件来办理XML数据。XML映象器可以打开XML文件和数据包文件(*.xml,*.cds)，纲文件(*.dtd,*.xdr,*.xsd)，库文件(*.xrp)和变换文件(*.xtr)。后边这个变换文件是由映象器自行产生的。此刻加载我们在前二篇文章顶用到的Clinic.xml文件，看看数据隐射成什么样。如图1所示，Clinic.xml隐射为一个Clinics结构，含有若干Clinic子项。每个Clinic有4个域：@No,Title,Date,和Topics。注意@No是属性，其余3个是元素。将鼠标移至Clinic节点，按右键，选择"SelectAll"(Ctrl+A)也许"SelectAllChildren"，这样就把@No,Title,DateandTopics各项加到中间的映象内。此时还没有生成相应的数据集域。我们再次到Clinic节点按下鼠标右键，选择"CreateDatapacketfromXML"(Ctrl+D)，这时产生了相应的数据包并显示在映象器的右方，如图2映象器将XML文件变换成4可以增添或删除数据包。这在所示。个的数据包。我们还B2B场合尤其重要，将接收到的数据(纪录)插入到数据库中。创办并测试变换按下CreateandTestTransformation按钮，随即弹出一个DBGrid窗口，以ClientDataSet数据包格式显示Clinic.xml文件里的数据。数据变换以后，有4种方式存盘。对于初学者来说，可以存回原来的Clinic.xml文件。别的还可以存为包数据文件格式(*.xml)，库文件(repository)格式(.xrp)和变换文件格式(*.xtr)。后边的库文件可以被XMLTransform组件(在DataAccess标签里)调用。XML变换Delphi6里有3个XML变换组件。TXMLTransformProvider组件经过clinic.xtr文件将原始XML文件变换到ClientDataSet。举例来说，在Delphi6的主窗体上安置一个TXMLTransformProvider(在DataAccess标签里)。将TransformRead属性的TransformationFile子属性设为clinic.xtr作为数据源。将XMLDataFile设为clinic.xml文件。而后安置一个ClientDataSet组件，将它的ProviderName属性设为XMLTransformProvider。此刻可以激活ClientDataSet组件了，它将由XMLTransformProvider供给的数据变换过来。它的PacketRecords属性值缺省为-1，表示变换所有XML文件。要显示数据，我们再加入DataSource和DBGrid组件。将DataSource指向ClientDataSet，DBGrid指向DataSource，就象我们平时使用得那样。结果显示如图3。此刻可以象使用数据库数据那样使用XML文件里的数据了。假如对数据进行了更正，可以调用ClientDataSet.ApplyUpdates方法将改动的数据存回XML文件。但是这样做是不够的。我们还得启动XML映象器，将创办方式由"XMLtoDatapacket"改为"DatapackettoXML"。这时假如按下"CreateandTestTransformation"键，看到的是空白页。而后将变换结果存为ClinicToXml.xtr文件。此刻，将TXMLTransformationProvider的TransformationWrite属性中的子属性TransformationFile设为ClinicToXml.xtr文件。最后在主窗体的OnClose事件中加上存盘指令：ClientDataSet1.ApplyUpdates(-1)程序退出从前会将作出的数据更正存回XML文件。这样就为Delphi6的B2B开发环境BizSnap的虚假中间层作好了数据准备。