文档章节

TClientDataSet[28]: 读写其他格式的 XML 文件

涂孟超
 涂孟超
发布于 2014/09/26 15:31
字数 424
阅读 8
收藏 0

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)如下:

<?xml version="1.0" encoding="gb2312"?> <List> <Item Position="科长"> <Name>张三</name> <Sex>男</sex> <Age>33</age> </item> <Item Position="付科长"> <Name>李四</name> <Sex>女</sex> <Age>44</age> </item> <Item> <Name>王五</name> <Sex>女</sex> <Age>55</age> </item> <Item> <Name>孙六</name> <Sex>男</sex> <Age>66</age> </item> <Other>备用</other> </list>



然后通过 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;

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2010/02/10/1667051.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
一个ClientDataset的Delta与XML相互转换

一个ClientDataset的Delta与XML相互转换的文章: 大家都知道TClientDataSet的Delta属性保存数据集的变化,但是Delta是OleVariant类型的属性,这样如果用Delphi写Webservice,就有需要把它转成...

vga
2014/02/27
0
18
ClientDataSet探讨(1)-介绍

KeyLife富翁笔记 作者: hongxingdl 标题: ClientDataSet探讨(1)-介绍 关键字: midas 分类: 开发经验 密级: 公开 与TTable、TQuery一样,TClientDataSet也是从TDataSet继承下来的,...

天地弦
2004/08/06
0
0
java将blob数据写入到xml中,Delphi TClientDataSet 读取blob失败

我用java把mysql数据写入到xml中,delphi TClientDataSet读取xml展示数据,数值、文本类型都能正常显示;blob类型异常 这里的原因应该是java将blob数据写入到xml中,delphi不认,请大神指点,...

liutao7514
2014/10/13
190
0
TClientDataSet使用(二)

转自:http://hi.baidu.com/zwl232/blog/item/76f011dfc9543812622798f2.html TClientDataSet    与TTable、TQuery一样,TClientDataSet也是从TDataSet继承下来的,它通常用于多层体系结构的......

天地弦
2007/06/01
0
0
带有TClientDataSet的delphi应用程序在发布时应注意的问题

这两天,我把我做的拍卖的操作端发布给公司的同事试用,这些机器都没有安装过delphi环境,我的程序所有用到的组件及单元文件都是build在一块儿的,按理说就不需要其他什么文件来支持了。  本...

技术小胖子
2017/11/02
0
0

没有更多内容

加载失败,请刷新页面

加载更多

jenkins安装

https://my.oschina.net/u/593517/blog/1797968 jenkins 安装 https://my.oschina.net/u/593517/blog/3028175 GIT 安装 https://my.oschina.net/u/593517/blog/3028179 maven 安装 插件安装 ......

Gm_ning
10分钟前
1
0
小言服务端解决方案-监控

框架保证方向,整体包容细节 为保证服务端运行平稳正常,owner应使得系统应保有相应的监控:系统监控,业务监控。而服务运行的平稳高效是否有保障跟监控粒度又成直接的正比关系。本文仅针对开...

重城重楼
22分钟前
0
0
搜索引擎(Elasticsearch搜索详解)

学完本课题,你应达成如下目标: 掌握ES搜索API的规则、用法。 掌握各种查询用法 搜索API 搜索API 端点地址 GET /twitter/_search?q=user:kimchy GET /twitter/tweet,user/_search?q=user:...

这很耳东先生
45分钟前
6
0
浅谈如何减少GC的次数

GC会stop the world。会暂停程序的执行,带来延迟的代价。所以在开发中,我们不希望GC的次数过多。 本文将讨论如何在开发中改善各种细节,从而减少GC的次数。 (1)对象不用时最好显式置为 Nu...

浮躁的码农
47分钟前
1
0
jpa 自定义返回对象

任何ORM框架都少不了开放自定义sql的问题。jpa自然也不例外,很多场景需要写复杂sql的。 首先定义一个方法签名,然后打上@Query注解。像下面这样,需要注意nativeQuery,这个表示query中的字...

朝如青丝暮成雪
今天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部