【Gabing Delva 第2篇】
二、接口—2004.03.29~2004.03.30
接口，这个词最初接触时，我对这个词义很难理解。因为它听起来更像与硬件相关的。还有一个词COM，它代表的意思就更乱，不同领域里出现的COM一词大不相同。但在明白接口一词其理后，我还得说译得很恰当，形象地说明了它的本质和用途。只是伟大、丰富的汉语表意太深。
为什么要用接口呢？不用不行吗？我没资格给你答案，但我知道接口的出现起码解决了如下问题。我们都知道，Delphi和Java都不支持C plus plus可以支持的多重继承。Delphi规定一个类只能有一个父类，这是VCL树能流畅而为唯美地展现的根本。Java的追求是稳定，它更不可能让我们随便多重继承。那我们如果想继承太极的意又要继承少林的形怎么办呢？这就是接口要做的事。另外，接口是一种机制，在Delphi这种先声明，后实现的语言里，更显个性。因为，接口只声明/定义方法，而不实现。在Java中abstract类似乎可以替代接口，但我的理解是后者在继承层次增加后会突显其整洁的优势。
在Delphi里，从Delphi3加进了接口，并逐渐用它丰富了VCL，到了Delphi5时，Borland的接口技术在RAD中已趋于完美。嗯，当然，Delphi5是RAD最好的版本。以后的版本转向了在Web功能的丰富，大名鼎鼎的Web Service技术Delphi就是用接口实现的。5.0以前，接口的老祖宗是IUnknown，看上去就知道这是针对MicroSoft的那个我刚提过的，讨厌的名词COM的。在Delphi6推出时，正值Linux狼烟四起， Borland为了跨平台战略而大肆宣扬Kylix，这个祖宗变换了个大号，叫IInterface。我就是从那时起，知道了Kylix，看到了接口的广泛应用。
我们都知道，Delphi中的对象不能自动去活，它没有Java和C Sharp的垃圾回收机制。据李维先生说，Delphi之父Anders Hejelsberg当初设计Delphi时，让对象变量写入堆中而不是堆栈里，就是想在日后让Delphi可以自动回收闲置的对象。而直至今日，Danny Thorpe也没有让Delphi实现这个功能（虽然没有自动回收的Delphi已经几近完美）。反倒Anders Hejelsberg在到微软后实现了自己的想法，因为c sharp里已经实现了这个功能。可见C Sharp是Anders未尽理想的续篇。
嘿嘿，既然是闲谈，难免跑题。说自动去活是想说在Delphi里，接口是可以自动去活的。接口的对象计算引用数，使内存的管理自动化。Delphi的程序员更得了解引用技术值（Reference Count）。
下面就看看在Delphi里的接口吧。
我们先定义好接口和类：
type
IMyidol=interface
['{30DDAB80-81BF-11D8-A27B-930F92738A22}'] //shift+ctrl+G 生成GUID
procedure name(s:string); //接口方法不能实例化
procedure others;
end;
type
TAnders=class(TInterfacedObject,IMyidol)
//继承一个通用类TInterfacedObject，并实现接口Imyidol。
procedure name(s:string); //shift+ctrl+C
procedure others;
end;
然后实现：
procedure TAnders.name(s: string); //shift+ctrl+C 自动产生
begin
Form1.edit1.Text:=s;
end;
procedure TAnders.others;
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Anders:TAnders;
begin
Anders:=TAnders.Create;
Anders.name('Anders Hejlsberg!');
Anders.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var LiWei:IMyidol;
begin
LiWei:=TAnders.Create;
LiWei.name('LiWei!'); //不必Free;
end;
这是效果图。
紧接着我们再来看看在Java中如何实现接口，然后我们再来对比着聊一聊。
interface Myidol{
void name(String s);
void others();
}
class SuperMan{ //定义一个类
}
class Man extends SuperMan implements Myidol{
//extends继承父类；implements实现接口。这里为了演示，其实可以不继承。
public void name(String s){
System.out.println(s);
}
public void others();
}
public class Do{
public static void main(String[] args){
Man man=new Man();
man.name("Anders Hejlsberg!");
}
}
看看效果图吧。
我们看到。Delphi的类在声明时不能写具体怎么实现，而要到implementation后面去写实现语句。而Java就不用这么“麻烦”，想到哪里就写到哪。这是他们的各自特点。也正因此，一个严谨，一个灵活。还有一个问题是，类可以继承多个接口。那接口可不可以继承多个接口呢？Java里的答案是肯定的，而Delphi7告诉你还的等，呵呵。可见，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!"); //这是接口实现方式。
聊到这里，相信我们都对接口有了一定认识。不过接口的话题太大了，牵扯的东西也非常多，所以不可能聊得太深太远。是不是聊得有点口渴了？快去喝点绿茶吧，比咖啡解渴。
