D2010 New RTTI 妙解 Xml DataBinding

简介: Xml DataBinding最大的优点是,用接口和类替代了复杂繁琐的XML节点。一般使用当然没有问题,无非是XML层层的节点看作接口与接口的层级关系。

Xml DataBinding最大的优点是,用接口和类替代了复杂繁琐的XML节点。一般使用当然没有问题,无非是XML层层的节点看作接口与接口的层级关系。但是,如果你想做一个通用的动态访问XML绑定接口类,问题就凸显麻烦了。由于TXMLDocument基于Interface机制,在生成的Xml DataBinding的Pas文件中,接口反而成了主导的访问入口,而具体的实体类,没有暴露属性,只是在protected实现了 Get 和Set 属性方法。

这种过渡的设计,导致了TypInfo单元里的RTTI也无法访问到具体的熟悉(因为没有属性嘛),而TypInfo的RTTI机制根本不能用于Interface。虽然可以参考 Web Service的接口机制,但其获取参数和赋值方式比较繁琐。万幸的是,D2010的的New RTTI落入人间,我们可以利用New RTTI做一个通用的访问XML绑定类,然后编译成DLL,这样一来,Delphi的各个版本也享受到New RTTI的好处。

姑且放下Xml DataBinding,我们先看看一段递归遍历接口的函数:

use Rtti;

    /// <summary>
    /// 递归接口方法
    /// </summary>
    /// <param name="typ">实体类的类型信息</param>
    /// <param name="Level">层级数</param>

procedure TForm5.GetMethods(typ: TRttiType; const Level: Integer);
var
   m:TRttiMethod;
   Intf:IInterface;
begin
    for m in typ.GetMethods do
    begin
      if (Pos('GET_',UpperCase(M.Name))=1) or
          (Pos('GET_',UpperCase(M.Name))=1) then // Xml DataBinding 的属性方法默认以 "Get_"打头
      Begin
        mmo1.Lines.Add(PrintSpace(Level)+ m.Name); //PrintSpace打印空格函数,4个空格为一个层级
      End;
      if (m.ReturnType<>nil) and (m.ReturnType.TypeKind = tkInterface) then
      begin
        GetMethods(m.ReturnType,Level+1);
      end;
    end;
end;

    /// <summary>
    /// 打印空格函数
    /// </summary>
    /// <param name="Count"></param>
    /// <returns></returns>

function TForm5.PrintSpace(const Count:Integer):WideString;
    var
      i:Integer;
    begin
      Result := '';
      for i := 0 to Count do
      begin
        Result := Result + '    ';
      end;
    end;

 

调用示例:

procedure TForm5.btn1Click(Sender: TObject);
var
oml:IXMLOML_O21Type;
oml2:TXMLOML_O21Type;
typ:TRttiType;
p:TRttiProperty;
m:TRttiMethod;
begin
oml := LoadOML_O21('OML_O21.xml');//装载XML
oml2 := oml.GetInstance as TXMLOML_O21Type; //为了方便访问类的实例,稍微修改了Xml Binding单元

mmo1.Clear;
mmo1.Lines.Add('OML');
   typ := TRttiContext.Create.GetType(TXMLOML_O21Type);//获取类的信息
   GetMethods(typ,1);//递归打印
end;

效果图:


相关文章
|
XML Java Android开发
sts工具右键new 新建文件没有Spring Bean Configuration File选项(不是一个很重要的功能选项啦,可以通过最简单的建立普通xml文件,然后到官网粘贴内容解决啦)
sts工具右键new 新建文件没有Spring Bean Configuration File选项(不是一个很重要的功能选项啦,可以通过最简单的建立普通xml文件,然后到官网粘贴内容解决啦)
481 0
sts工具右键new 新建文件没有Spring Bean Configuration File选项(不是一个很重要的功能选项啦,可以通过最简单的建立普通xml文件,然后到官网粘贴内容解决啦)
|
29天前
|
XML Java 数据格式
java创建xml文件内容
java创建xml文件内容
19 0
|
29天前
|
XML Java 数据格式
java解析xml文件内容
java解析xml文件内容
26 0
|
2月前
|
XML 前端开发 数据格式
BeautifulSoup 是一个 Python 库,用于从 HTML 和 XML 文件中提取数据
【5月更文挑战第10天】BeautifulSoup 是 Python 的一个库,用于解析 HTML 和 XML 文件,即使在格式不规范的情况下也能有效工作。通过创建 BeautifulSoup 对象并使用方法如 find_all 和 get,可以方便地提取和查找文档中的信息。以下是一段示例代码,展示如何安装库、解析 HTML 数据以及打印段落、链接和特定类名的元素。BeautifulSoup 还支持更复杂的查询和文档修改功能。
52 1
|
25天前
|
XML Java 数据库
配置applicationContext.xml文件
配置applicationContext.xml文件
|
22天前
|
XML Java 数据库
配置applicationContext.xml文件
配置applicationContext.xml文件
|
25天前
|
XML JavaScript Java
解析XML文件的几种方法
解析XML文件的几种方法
|
27天前
|
XML 数据格式
XML配置Servlet文件,不使用注解配置路径的方法
XML配置Servlet文件,不使用注解配置路径的方法
|
1月前
|
SQL XML 数据库
后端数据库开发高级之通过在xml文件中映射实现动态SQL
后端数据库开发高级之通过在xml文件中映射实现动态SQL
27 3
|
1月前
|
SQL XML Java
后端数据库开发JDBC编程Mybatis之用基于XML文件的方式映射SQL语句实操
后端数据库开发JDBC编程Mybatis之用基于XML文件的方式映射SQL语句实操
36 3