计算机等级考试：Delphi的接口编程基础介绍

　　6、接口和RTTI

　　Delphi中在VMT-72位移处定义了接口哥格指针：vmtIntfTable = -72。

　　相关函数：

　　GetInterfaceCount; //获取接口数量。

　　GetInterfaceTable; //获取接口表格。

　　相关结构：

　　TInterfaceEntry = packed record

　　IID: TGUID;

　　VTable: Pointer;

　　IOffset: Integer;

　　ImplGetter: Integer;

　　end;

　　PInterfaceTable = ^TInterfaceTable;

　　TInterfaceTable = packed record

　　EntryCount: Integer;

　　Entries: array[0..9999] of TInterfaceEntry;

　　end;

　　Self是指向VMT指针的指针，所以：Self.GetInterfaceTable.EntryCount等价于：

　　aPtr := PPointer(Integeer((Pointer(Self))^) + vmtIntfTable)^;

　　只要在声明中使用M+/M-指令就能在Delphi中编译出的程序里添加RTTI信息，如：

　　{$M+}

　　iInvokable = interface(IInterface)

　　{$M-}

　　接口的RTTI信息由TIntfMetaData记录结构定义：

　　TIntfMetaData = record

　　name: String; //接口名称

　　UnitName: String; //接口声明的程序单元名称

　　MDA: TIntfMethEntryArray; //储存接口中方法信息的动态数组

　　IID: TGUID; //接口的GUID值

　　Info: PTypeInfo; //描述接口信息的指针

　　AncInfo: PTypeInfo; //描述父代信息的指针

　　NumAnc: Integer; //此接口继承自父代接口的方法数目

　　end;

　　TIntfMethEntryArray的定义如下：

　　type

　　TCallConv = (ccReg, ccCdecl, ccPascal, ccStdCall, ccSafeCall);

　　TIntfMethEntry = record

　　Name: String; //方法名称

　　CC: TCallConv; //调用惯例

　　Pos: Integer; //方法在接口中的位置

　　ParamCount: Integer; //方法的参数数目

　　ResultInfo: PTypeInfo; //描述方法回传类型的信息指针

　　SelfInfo: PTypeInfo; //描述方法本身的信息指针

　　Params: TIntfParamEntryArray; //描述参数信息的动态数组

　　HasRTTI: Boolean; //这个方法是否拥有RTTI信息的布尔值

　　end;

　　TIntfMethEntryArray = array of TIntfMethEntry;

　　参数信息TIntfParamEntry定义：

　　TIntfParamEntry = record

　　Flags: TParamFlags;

　　Name: String;

　　Info: PTypeInfo;

　　end;

　　TTypeInfo = record

　　Kind: TTypeKind; //数据类型

　　Name: ShortString; //类型信息的字符串格式

　　end;