基于Delphi的接口编程入门

《基于Delphi的接口编程入门》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、基于Delphi的接口编程入门为什么使用接口？　　举个例子好了：有这样一个卖票服务，电影院可以卖票，歌剧院可以卖票，客运站也可以卖票，那么我们是否需要把电影院、、歌剧院和客运站都设计成一个类架构以提供卖票服务？要知道，连经理人都可以卖票，很显然不适合把经理人也包括到卖票服务的继承架构中，我们需要的只是一个共通的卖票服务。于是，卖票的服务是个接口，电影院、歌剧院什么的只要都遵循这样一个服务定义就能很好地相互交互和沟通（如果须要的话）。　　如何在Delphi中使用接口　1、声明接口IMyInterface=interface(IInte

2、rface)//说明(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，当小于

3、等于0时作释放动作。end;　说明(1)：如果有继承关系则在括号里填父接口，否则省却，如：IMyInterface=interface这样就行。typeIInterface=interface['{00000000-0000-0000-C000-000000000046}']functionQueryInterface(constIID:TGUID;outObj):HResult;stdcall;function_AddRef:Integer;stdcall;function_Release:Integer;stdcall;end;

4、　说明(2)：此GUID(全球唯一标识符)可选，如果要实现具有COM特性的接口的话则需要加上，Delphi中对于有GUID的接口在运行时在VMT表的预定位置生成接口的信息，如接口方法的定义、方法参数定义能详细信息。　说明(3)：接口必须实现这三个函数。2、接口的实现　接口服务是由类来实现的。TIntfClass=class(TObject,//继承唯一的一个T打头的父类IMyInterface)//可继承实现多个I打头的接口private　FCounter:Integer;　FRefCount:Integer;public//IMy

5、Interface接口方法的实现　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.Q

6、ueryInterface(IID,aIntf));只能存取有GUID的COM接口。　　d.利用as操作符。　　使用as操作符必须符合下面条件：　　1.接口必须明确地指定是从IInterface接口继承下来。　　2.必须拥有GUID值　　在Delphi7中接口的实现类还必须是从TInterfacedObject继承下来才行，如：TIntfClass=class(TInterfacedObject,IMyInterface)　　4、接口和对象生命期　　因为Delphi会自行检查接口如果在使用后没有释放而在生成的程序里加上释放代码，但也

7、因这样带来了问题，如下面代码：var　i:Integer;　aObj:TIntfClass;　aIntf：IMyInterface;begin　aObj:=TIntfclass.Create;　try　　aIntf:=aObj;　　aIntf.GetName...　finally　　aIntf:=nil;　　FreeAndNil(aObj);end;　　上面的代码执行的话会产生存取违规错误，是因为对接口置nil时已释放接口，而FreeAndNil(aObj)会再释放aIntf一次，而在对aIntf置nil时已释放了该对象。解决这个问

8、题只要不让接口干扰对象的生命期就可以了，在Release中只需减引用计数而不做释放的动作。functionTIntfClass._Release:Integer;beginResult:=InterlockedDecrement(FR