• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

delphi 通过 TXMLTransformProvider 或 TXMLTransform 都可以让 TClientDataSet 读写 ...

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

TClientDataSet 可以直接存取的 XML 有自己的格式规范, 存取其他格式 XML 需要相应的映射文件(*.xtr).

这种 *.xtr 文件是用 XML Mapper(Delphi 自带, 可从开始菜单或 IDE -> Tools 启动)制作的.

一般会需要两个 *.xtr 文件, 一个用于读取(例子中是: ToDp.xtr), 一个用于写入(例子中是: ToXml.xtr).

可以通过 *.xtr 文件只读写源 XML 中的部分数据, 如果读取过于复杂的 XML 会生成嵌套的 DataSet 字段.

下面演示 ToXml.xtr、ToDp.xtr 的制作过程, 假如源文件(Test.xml)如下:
 





然后通过 TXMLTransformProvider 或 TXMLTransform 都可以让 TClientDataSet 读写此 XML 了.

先用 TXMLTransformProvider:


 

 
//先添加控件: ClientDataSet1、DataSource1、DBGrid1、XMLTransformProvider1、Button1, 然后: procedure TForm1.FormCreate(Sender: TObject); begin   ChDir('C:\Temp\DelphiTest\'); { 三个相关文件都放这了 }   { 数据控件挂接 }   DBGrid1.DataSource := DataSource1;   DataSource1.DataSet := ClientDataSet1;   ClientDataSet1.ProviderName := 'XMLTransformProvider1'; { 数据提供者 }   { 读取转换; 包括下面的属性都可在设计时设置 }   XMLTransformProvider1.TransformRead.TransformationFile := 'ToDp.xtr';   { 写入转换 }   XMLTransformProvider1.TransformWrite.TransformationFile := 'ToXML.xtr';   { 源文件 }   XMLTransformProvider1.XMLDataFile := 'Test.xml';   { 打开 }   ClientDataSet1.Open; end; { 数据编辑后, 保存到源文件 } procedure TForm1.Button1Click(Sender: TObject); begin   ClientDataSet1.ApplyUpdates(0); end; 


特别是在只读或只写的情况下用 TXMLTransform 更好, 下面是用 TXMLTransform 读取的例子:


 

 
//先添加控件: ClientDataSet1、DataSource1、DBGrid1、XMLTransform1, 然后: procedure TForm1.FormCreate(Sender: TObject); begin   ChDir('C:\Temp\DelphiTest\');   DBGrid1.DataSource := DataSource1;   DataSource1.DataSet := ClientDataSet1;   XMLTransform1.SourceXmlFile := 'Test.xml';   XMLTransform1.TransformationFile := 'ToDp.xtr';   ClientDataSet1.XMLData := XMLTransform1.Data; end;

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
MATLAB——BP神经网络发布时间:2022-07-18
下一篇:
【转】Matlab的神经网络工具箱实用指南发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap