|
诉你还的等,呵呵。可见,Java对接口的实现是最完美的。另外,Java没有Delphi的GUID,因为它不需要支持COM,也不需要像Delphi那样从祖宗接口继承。
回过头,观察一下代码我们会发现,others方法多余的,但还是在Delphi和Java里都写了空代码。此举多余乎?不多也。其实,接口有些私心,它让继承它的类必须一并实现它的方法,不然这个类就只能是适配器类或抽象类。哎,记住这一点吧。所以我在Delphi里没敢创建TsuperMan这个类,而是用通用的类TinterfacedObject。不然,我就得去实现这些:QueryInterface 、_AddRef、 _Release因为这是接口的老祖宗定义的。什么,连接口祖宗八代定义的方法都要在这个刚刚诞生的新类中去实现?是的。幸亏有TinterfacedObject这样的类。我们来看看它。
TInterfacedObject = class(TObject, IInterface)
protected
FRefCount: Integer;
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
public
procedure AfterConstruction; override;
procedure BeforeDestruction; override;
class function NewInstance: TObject; override;
property RefCount: Integer read FRefCount;
end;
还有就是接口定义的所有方法都是公开的,接口中的常量都是public static和final,而且这些是不必说明的。
最后我们再来研究一下如何取得接口并调用它的服务。
var LiWei:IMyidol;
begin
LiWei:=TAnders.Create; //Tanders的对象制定给了接口LiWei。
LiWei.name(''''LiWei!''''); //调用name方法。
这是种隐式的操作方式,再来看看更明确的写法:
var Anders:TAnders; LiWei:IMyidol;
begin
Anders:=TAnders.Create; //生成对象。 LiWei:= Imyidol(Anders);
LiWei.name(''''LiWei!'''');
要说明的是,Anders必须支持Imyidol,不然报错。
还可以这样写:
var Anders:TAnders; LiWei:IMyidol;
const ILiWei:TGUID=''''{30DDAB80-81BF-11D8-A27B-930F92738A22}'''';
begin
Anders:=TAnders.Create; //生成对象。
if Anders.GetInterface(ILiWei,LiWei) then
LiWei.name(''''LiWei!'''');
end;
在Java中的情形是一样的:
Man man=new Man();
man.name("Anders Hejlsberg!"); //这是类对象实现的方式。
Myidol lw=new Man();
lw.name("LiWei!"); //这是接口实现方式。
聊到这里,相信我们都对接口有了一定认识。不过接口的话题太大了,牵扯的东西也非常多,所以不可能聊得太深太远。是不是聊得有点口渴了?快去喝点绿茶吧,比咖啡解渴。
上一页 [1] [2] [Delphi程序]【Gabing Delva 第1篇】 [Delphi程序]【Gabing Delva 第0篇】我的小铁锨(代序)
|