delphi的接口support_delphi中的Supports函数详解 | 学步园

delphi中的函数Supports位于SysUtils单元。

定义如下：

{ Interface support routines }

function Supports(const Instance: IInterface; const IID: TGUID; out Intf): Boolean; overload;

function Supports(const Instance: TObject; const IID: TGUID; out Intf): Boolean; overload;

function Supports(const Instance: IInterface; const IID: TGUID): Boolean; overload;

function Supports(const Instance: TObject; const IID: TGUID): Boolean; overload;

function Supports(const AClass: TClass; const IID: TGUID): Boolean; overload;

实现如下：

{ Interface support routines }

function Supports(const Instance: IInterface; const IID: TGUID; out Intf): Boolean;

begin

Result := (Instance <> nil) and (Instance.QueryInterface(IID, Intf) = 0);

end;

function Supports(const Instance: TObject; const IID: TGUID; out Intf): Boolean;

var

LUnknown: IUnknown;

begin

Result := (Instance <> nil) and

((Instance.GetInterface(IUnknown, LUnknown) and Supports(LUnknown, IID, Intf)) or

Instance.GetInterface(IID, Intf));

end;

function Supports(const Instance: IInterface; const IID: TGUID): Boolean;

var

Temp: IInterface;

begin

Result := Supports(Instance, IID, Temp);

end;

function Supports(const Instance: TObject; const IID: TGUID): Boolean;

var

Temp: IInterface;

begin

Result := Supports(Instance, IID, Temp);

end;

function Supports(const AClass: TClass; const IID: TGUID): Boolean;

begin

Result := AClass.GetInterfaceEntry(IID) <> nil;

end;

说明  Result := AClass.GetInterfaceEntry(IID) <> nil;

功能  返回对象是否支持指定的接口