Delphi中接口与类实例的转换

页面导航:首页 > 软件编程 > Delphi > Delphi中接口与类实例的转换

Delphi中接口与类实例的转换

来源: 作者: 时间:2016-01-21 09:33 【

自己需要封装一个COM,能够实现类似于ADODB相似的功能,然后综合想来,感觉直接的基于UniDac封装比较好,于是马上动手就做,在封装的过程中碰到如下问题1 //数据库连接类2 TCnConnecti

自己需要封装一个COM,能够实现类似于ADODB相似的功能,然后综合想来,感觉直接的基于UniDac封装比较好,于是马上动手就做,在封装的过程中碰到如下问题

 1   //连接类
 2   TCnConnection = class(TAutoObject, ICnConnection)
 3   private
 4     FConn: TConnection;
 5     function GetConnObj: TConnection;
 6   protected
 7   public
 8     destructor Destroy; override;
 9     procedure Initialize; override;
10     property ConnObj: TConnection read GetConnObj;
11   end;
12  
13   TCnQuery = class(TCnDataBase, ICnQuery)
14   private
15     FQuery: TQuery;
16   protected
17   public
18     procedure Set_Connection(const Param1: ICnConnection); safecall;
19   end;

 

TCnConnection就是ICnConnection接口的类实现

然后TCnQuery是ICnQuery接口的类实现,现在要实现直接的将ICnConnection作为连接属性传给TQuery。

在TUniQuery中,默认的赋值Connection语句应该为

TUniQuery.Connection= TUniConnection

如果再封装一个一模一样的IUniConnection代码量比较大,因此想着能够直接的传入一个接口,然后自动的得到接口的类实例,然后在接口的类实现当中,串出来一个TUniConnection,方案找到,接下来困难点就是从接口转到类对象

经过多次测试,得出最后的实现方法为

 1 procedure TCnDataBase.Set_Connection(const Param1: ICnConnection);
 2 var
 3   FConnObj: TCnConnection;
 4   eAutoObjFactory: TAutoObjectFactory;
 5   eEntry: PInterfaceEntry;
 6 begin
 7   //得到类工厂,Class_CnConnection就是在创建COM的时候,自动生成的
 8   eAutoObjFactory:= TAutoObjectFactory(ComClassManager.GetFactoryFromClassID(Class_CnConnection));
 9   //得到接口标识的接口项
10   eEntry:= eAutoObjFactory.DispIntfEntry;
11   //IOffset为接口的偏移地址,eResource减去IOffset所得到的地址就是对象实例
12   FConnObj:= TCnConnection(Integer(Param1)-eEntry.IOffset);
13   FDataSet.Connection:= FConnObj.ConnObj;
14 end;

至此,得到所需要的结果

 摘自 cntlis

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<