delphi编程Delphi的接口编程基础介绍.pdfVIP

delphi编程:Delphi的接口编程基础介绍 疯狂代码 http://CrazyC/ ĵ http:/CrazyC/Delphi/Article11585.html 　　为什么使用接口？ 　　举个例子好了:有这样个卖票服务电影院可以卖票歌剧院可以卖票客运站也可以卖票那么我们是否需要把电 影院、、歌剧院和客运站都设计成个类架构以提供卖票服务？要知道连经理人都可以卖票很显然不适合把经理 人也包括到卖票服务继承架构中我们需要只是个共通卖票服务于是卖票服务是个接口电影院、歌剧院什么只要 都遵循这样个服务定义就能很好地相互交互和沟通(如果须要话) 　　如何在Delphi中使用接口 　　1、声明接口 IMyInterface=erface(IInterface)//介绍说明(1) [’{63E072DF-B81E-4734-B3CB-3C23C7FDA8EA}’]//介绍说明(2) functionGetName(conststr:String):String;stdcall; functionQueryInterface(constIID:TGUID;outObj):HResult;stdcall;//介绍说明(3) function_AddRef:Integer;stdcall;//使接口引用数加1 function_Release:Integer;stdcall;//使接口引用数减1当小于等于0时作释放动作 end; 　　介绍说明(1):如果有继续关系则在括号里填父接口否则省却如:IMyInterface=erface这样就行 　　介绍说明(2):此GUID可选如果要实现具有COM特性接口话则需要加上Delphi中对于有GUID接口在运行时 在VMT表预定位置生成接口信息如接口思路方法定义、思路方法参数定义能详细信息 　　介绍说明(3):接口必须实现这 3个 　　2、接口实现 　　接口服务是由类来实现 TIntfClass=(TObject,IMyInterface) private 　FCounter:Integer; 　FRefCount:Integer; public 　functionQueryInterface(constIID:TGUID;outObj):HResult;stdcall; 　... end; 　　3、获取接口 　　a.使用类型转换如: varaIntf:IMyInterface; begin 　aObj:=TIntfClass.Create; try 　aIntf:=(IMyInterface(aObj); 　... 　　b.利用Delphi编译器内建机制如:aIntf:=aObj 　　c.利用对象QueryInterface思路方法如OleCheck(aObj.QueryInterface(IID,aIntf));只能存取有 GUIDCOM接口 　　d.利用as操作符 　　使用as操作符必须符合下面条件: 　　1.接口必须明确地指定是从IInterface接口继承下来 　　2.必须拥有GUID值 　　在Delphi7中接口实现类还必须是从TInterfacedObject继承下来才行如: TIntfClass=(TInterfacedObject,IMyInterface) 　　4、接口和对象生命期 　　Delphi会自行检查接口如果在使用后没有释放而在生成里加上释放代码但也因这样带来了问题如下面代码: var 　i:Integer; 　aObj:TIntfClass; 　aIntf:IMyInterface; begin 　aObj:=TIntf.Create; 　try 　　aIntf:=aObj; [Page] 　　aIntf.GetName... 　finally 　　aIntf:=nil; 　　FreeAndNil(aObj); end; 　　上面代码执行话会产生存取违规是对接口置nil时已释放接口而FreeAndNil(aObj)会再释放aIntf次而在对 aIntf置 nil时已释放了该对象解决这个问题只要不让接