Delphi 中的对象接口：Object Interfaces

海纳老吴

于 2023-08-25 11:54:40 发布

阅读量708

点赞数

分类专栏： Delphi 文章标签： interface Delphi 接口 delphi

本文链接：https://blog.csdn.net/sensor_WU/article/details/132492050

版权

Delphi 专栏收录该内容

148 篇文章 78 订阅

订阅专栏

一、接口类型（Interface Types）

二、接口和继承（IInterface and Inheritance）

三、接口标识和 GUID（Interface Identification and GUIDs）

四、接口调用约定（Calling Conventions for Interfaces）

五、接口属性（Interface Properties）

六、前向声明（Forward Declarations）

对象接口或简称接口，定义了类可以实现的方法。接口被声明为类，但不能直接实例化，也没有自己的方法定义。相反，任何支持接口的类都有责任提供接口方法的实现。接口类型的变量可以引用实现该接口的类的对象；但是，只有接口中声明的方法才能被调用。

接口具有多重继承的一些优点，但没有语义上的困难。对于使用分布式对象模型（如 SOAP）来说，接口也是必不可少的。使用分布式对象模型，支持接口的自定义对象可以与 C++、Java 和其他语言编写的对象进行交互。

一、接口类型（Interface Types）

接口与类一样，只能在程序或单元的最外层范围内声明，而不能在存储过程或函数声明中声明。接口类型声明的形式如下：

type interfaceName = interface (ancestorInterface) ['{GUID}'] memberList end;

警告：为了支持 Win32 COM 的互操作性，需要使用 ancestorInterface 和 GUID 规范。如果要通过 COM 访问接口，请务必指定 ancestorInterface 和 GUID。

在大多数方面，接口声明与类声明相似，但有以下限制：

成员列表只能包括方法和属性。接口中不允许有字段。
由于接口没有字段，因此属性的读写指定必须是方法。
接口的所有成员都是公用的。不允许使用可见性指定符和存储指定符。(但数组属性可以声明为默认）。
接口没有构造函数或析构函数。除了通过实现其方法的类外，它们不能被实例化。
方法不能声明为虚拟、动态、抽象或覆盖（virtual, dynamic, abstract, or override）。由于接口不实现自己的方法，因此这些名称没有任何意义。

下面是一个接口声明的示例：

type IMalloc = interface(IInterface)
    ['{00000002-0000-0000-C000-000000000046}'] 
    function Alloc(Size: Integer): Pointer; stdcall; 
    function Realloc(P: Pointer; Size: Integer): Pointer; stdcall; 
    procedure Free(P: Pointer); stdcall;
    function GetSize(P: Pointer): Integer; stdcall;
    function DidAlloc(P: Pointer): Integer; stdcall;
    procedure HeapMinimize; stdcall;
  end;

在某些接口声明中，interface 保留字由 dispinterface 代替。

二、接口和继承（IInterface and Inheritance）

接口与类一样，继承其祖先的所有方法。但接口与类不同，并不实现方法。接口继承的是实现方法的义务，这种义务会传递给任何支持接口的类。

接口的声明可以指定一个祖先接口。如果没有指定祖先接口，该接口就是 IInterface 的直接后代，而 IInterface 是在 System 单元中定义的，是所有其他接口的最终祖先。在 Win32 中，IInterface 声明了三个方法： QueryInterface、_AddRef 和 _Release。

注意：IInterface 等同于 IUnknown。一般来说，独立于平台的应用程序应使用 IInterface，而包含 Win32 依赖性的特定程序则应保留使用 IUnknown。

QueryInterface 提供了获取对象所支持的不同接口引用的方法。_AddRef 和 _Release 为接口引用提供了生命周期内存管理。实现这些方法的最简单方法是从 System 单元的 TInterfacedObject 派生实现类。也可以通过以空函数的形式实现这些方法中的任何一种，但 COM 对象必须通过 _AddRef 和 _Release 进行管理。

警告：需要使用 QueryInterface、_AddRef 和 _Release 来支持 Win32 COM 互操作性。如果要通过 COM 访问接口，请务必实现这些方法。

三、接口标识和 GUID（Interface Identification and GUIDs）

接口声明可以指定一个全局唯一标识符（GUID），该标识符由一个字面字符串表示，该字符串括在成员列表前的括号中。声明中的 GUID 部分必须具有以下形式：

 ['{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}']

其中每个 x 是十六进制数字（0 到 9 或 A 到 F）。类型库编辑器会自动为新界面生成 GUID。您也可以在代码编辑器中按 Ctrl+Shift+G 生成 GUID。

GUID 是唯一标识接口的 16 字节二进制值。如果接口有 GUID，就可以使用接口查询来获取其实现的引用。

注：GUID 仅用于 COM 的互操作性。

系统单元中声明的 TGUID 和 PGUID 类型用于操作 GUID。

type 
     PGUID = ^TGUID;
     TGUID = packed record
       D1: Cardinal;
       D2: Word;
       D3: Word;
       D4: array[0..7] of Byte;
   end;

支持有两种调用方式：

if Supports(Allocator, IMalloc) then ...

或者

if Supports(Allocator, IID_IMalloc) then ...

注：SysUtils 单元提供了一个名为 Supports 的重载函数，当类类型和实例支持由 GUID 表示的特定接口时，该函数返回 true 或 false。Supports 函数的使用方式与 Delphi is 和 as 操作符相同。不同之处在于，Supports 函数的右操作数可以是 GUID 或与 GUID 相关联的接口类型，而 is 和 as 操作数的右操作数则是类型名称。有关 is 和 as 的更多信息，请参阅类引用。

四、接口调用约定（Calling Conventions for Interfaces）

接口方法的默认调用约定是 register，但模块间共享的接口（尤其是用不同语言编写的接口）应使用 stdcall 声明所有方法。在 Win32 中，可以使用 safecall 来实现双接口的方法。

五、接口属性（Interface Properties）

接口中声明的属性只能通过接口类型的表达式访问，不能通过类类型变量访问。此外，接口属性只能在编译了接口的程序中可见。

在接口中，属性的读取和写入指定必须是方法，因为字段是不可用的。

六、前向声明（Forward Declarations）

以保留字 interface 和分号结尾的接口声明，如果没有指定祖先、GUID 或成员列表，则属于正向声明。前向声明必须由同一类型声明部分中同一接口的定义声明来解决。换句话说，在前向声明和定义声明之间，除了其他类型声明外，不能有任何其他声明。

前向声明允许相互依赖的接口。例如：

type 
   IControl = interface; 
   IWindow = interface 
       ['{00000115-0000-0000-C000-000000000044}'] 
       function GetControl(Index: Integer): IControl; 
         //. . . 
     end; 
   IControl = interface 
       ['{00000115-0000-0000-C000-000000000049}'] 
       function GetWindow: IWindow; 
       //. . . 
     end;

不允许相互派生接口。例如，从 IControl 派生 IWindow 和从 IWindow 派生 IControl 都是不合法的。