首页 / 软件开发 / Delphi / 基于Delphi的接口编程入门

基于Delphi的接口编程入门2008-02-02IceAir为什么使用接口？

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

如何在Delphi中使用接口

1、声明接口

IMyInterface = interface（IInterface） //说明（1）
["{63E072DF-B81E-4734-B3CB-3C23C7FDA8EA}"] //说明（2）
function GetName（const str: String）: String; stdcall;
function QueryInterface（const IID: TGUID; out Obj）: HResult; stdcall; //说明（3）
function _AddRef: Integer; stdcall; //使接口引用数加1。
function _Release: Integer; stdcall;//使接口引用数减1，当小于等于0时作释放动作。
end;

说明（1）：如果有继续关系则在括号里填父接口，否则省却，如：IMyInterface = interface这样就行。

说明（2）：此GUID可选，如果要实现具有COM特性的接口的话则需要加上，Delphi中对于有GUID的接口在运行时在VMT表的预定位置生成接口的信息，如接口方法的定义、方法参数定义能详细信息。

说明（3）：接口必须实现这三个函数。

2、接口的实现

接口服务是由类来实现的。

TIntfClass = class（TObject, IMyInterface）
private
FCounter: Integer;
FRefCount: Integer;
public
function QueryInterface（const IID: TGUID; out Obj）: HResult; stdcall;
...
end;