Delphi中接口与类实例的转换
自己需要封装一个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: PInte易做图ceEntry;
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
补充:软件开发 , Delphi ,