ERPSYSTEM开发教程05 框架接口管理
框架接口是采用类厂来管理的
一个接口要被框架管理的实现步骤
首先是接口定义,接口实现类,接口实例创建函数,指定类厂
unit BplOneIntf; {$WEAKPACKAGEUNIT ON} interface type IBplOne=interface ['{E4C1C5FA-C598-4834-9111-26B52634068D}'] function Add(A,B:Integer):integer; function Sub(A,B:Integer):Integer; end; implementation end.
这是接口的定义文件,如果一个接口是可以提供给其它模块调用的话,那么就放到一个公共目录,并加入Delphi搜索路径,方便调用
unit BplOneObj; interface uses sysUtils,Classes,SysFactory,BplOneIntf;//记得这里引用你的接口单元 Type TBplOne=Class(TInterfacedObject,IBplOne)//假设你的接口叫IXXX(以下同) private protected {IXXX} //这里加上你接口方法,然后按Ctrl+Shift+C,实现你的接口... function Add(A,B:Integer):integer; function Sub(A,B:Integer):Integer; Public End; implementation procedure Create_BplOne(out anInstance: IInterface); begin anInstance:=TBplOne.Create; end; { TBplOne } function TBplOne.Add(A, B: Integer): integer; begin result:=A+B; end; function TBplOne.Sub(A, B: Integer): Integer; begin result:=A-B; end;
var Factory:TObject;
initialization
Factory:=TIntfFactory.Create(IBplOne,@Create_BplOne);
finalization
Factory.Free;
end.
这里分别是接口的实现类TBplOne,接口实例创建函数Create_BplOne(out anInstance: IInterface);以及接口工厂TIntfFactory的创建
框架提供了三种类厂TIntfFactory接口工厂,TSingletonFactory单实例工厂,TObjFactory实例工厂
其中TIntfFactory接口工厂,是在接口调用时,通过接口实例创建函数来创建实例对象
TSingletonFactory单实例工厂则是在第一次接口调用时通过接口实例创建函数来创建实例对象并保存该对象,再次调用时则返回先前创建的对象
TObjFactory实例工厂则是将一个已经创建好的对象与接口绑定,当调用接口时则返回该对象
单实例工厂与实例工厂都是只有一个实例对象,不同的是,单实例工厂是在第一次调用时创建对象,而实例工厂的实例则是预先创建好的
以接口工厂TIntfFactory为例,了解一下类厂是如何管理的
constructor TIntfFactory.Create(IID: TGUID; IntfCreatorFunc:TIntfCreatorFunc); begin Flag:=0; self.FIntfCreatorFunc:=IntfCreatorFunc; Inherited Create(IID); end; constructor TBaseFactory.Create(const IID: TGUID); begin if FactoryManager.Exists(IID) then Raise Exception.CreateFmt(Err_IntfExists,[GUIDToString(IID)]); FIntfGUID:=IID; FactoryManager.RegisterFactory(Self); end; procedure TSysFactoryManager.RegisterFactory(aIntfFactory: TFactory); var i:Integer; IIDStr:String; IID:TGUID; begin FSysFactoryList.Add(aIntfFactory); for i := FKeyList.Count - 1 downto 0 do begin IIDStr:=FKeyList[i]; IID :=StringToGUID(IIDStr); if aIntfFactory.Supports(IID) then begin FIndexList.Add(IIDStr,Pointer(aIntfFactory)); FKeyList.Delete(i); end; end; end;
TIntfFactory是TBaseFactory的子类,首先是保存了接口实例创建函数的地址,然后调用基类构造函数,
FactoryManager是一个全局函数,返回的是一个TSysFactoryManager类对象,该类是类厂的管理类,
先判断是否存在该接口的工厂对象,如果不存在则对接口进行注册,注册的步骤就是将接口工厂添加到工厂列表
这样就实现了接口类厂的注册。
那么统一的接口调用又是如何实现的呢?
统一接口调用 SysService as IXXX
function SysService:IInterface; begin if not Assigned(FSysService) then FSysService:=TSysService.Create; Result:=FSysService; end;
SysService是一个全局函数,返回的是一个接口IInterface,由TSysService构造的对象
Type TSysService=Class(TObject,IInterface) private FRefCount: Integer; protected function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall; function _AddRef: Integer; stdcall; function _Release: Integer; stdcall; public end; function TSysService.QueryInterface(const IID: TGUID; out Obj): HResult; var aFactory:TFactory; begin Result:=E_NOINTERFACE; if self.GetInterface(IID,Obj) then Result:=S_OK else begin aFactory:=FactoryManager.FindFactory(IID); if Assigned(aFactory) then begin aFactory.CreateInstance(IID,Obj); Result:=S_OK; end; end; end;
而TSysService重新实现了IInterface接口,当一个接口进行as操作的时候,就会调用QueryInterface进行接口查询
所以SysService as IXXX就会调用接口查询QueryInterface,
而接口查询函数首先是通过全局函数FactoryManager返回的TSysFactoryManager类对象,查找是否有该接口的类厂
如果存在该类厂则取出,并通过类厂创建实例返回。
以上就是框架的接口管理。
视频教程地址:
ERPSYSTEM开发教程01 http://pan.baidu.com/s/1kT7Rb3D
ERPSYSTEM开发教程02 http://pan.baidu.com/s/11xN5s
框架源代码下载地址 http://pan.baidu.com/s/1jGIc2Su
DEMO源代码下载地址 http://pan.baidu.com/s/1bnyEafH
联系QQ:1330009208 (验证信息请填ERPSYSTEM)