接口引用 如何从一个接口变量取得其接口类型

http://blog.sina.com.cn/s/blog_5d10e5410100hjna.html

近期在写一个类pascal解释器，对borland的RTTI机制进行了一番学习，了解了borland的RTTI机制，但本人水平有限，在学习有关接口的RTTI过程中，遇到了些无法解释的问题，在这里提出来，大家共同探讨。
首先说明“接口引用”这个概念在delphi中也许不存在，是我相对于“类引用”提出来的。我们知道在delphi 中有类引用的概念，定义方式如TClass = class of TObject，其实质是指向类RTTI的一个指针，我们可以用这个类引用实现好多动态功能。可接口就比较特殊，虽然定义语法和类定义类似，但只是一个空壳，需要通过某个具体的类来实现。虽然接口是一个空壳，但是这个空壳也有RTTI信息，可以通过TypeInfo函数得到。
在VCL中其实也运用了好多 “接口引用”的概念，比如IInterface中的QueryInterface函数，查询接口支持的函数supports等，但在delphi并没有类似“ Interface of Interface”这样的句法来定义一个接口引用，而是使用一个TGUID来完成接口引用的功能。TGUID其实被定义为一个结构类型，delphi的编译器知道如何把TGUID类型转换成接口引用来使用，但对开发者来说却是不公布的。比如：
var
Obj : TObject;
m:TComponent;
ClassRef: TClass;
Intf: IInterface;
IID: TGUID;
begin
obj := TComponent.Create(nil);
ClassRef := obj.ClassType; //对于类变量，我们可以用类函数classType来取得它的类类型。
m := obj as TComponent;
Intf := m; //把M赋给接口变量，因为TComponent实现了IInterface接口。
{
IID := ? intf ;//无法取得接口变量的接口类型?!
}
end;

归结起来,写一个函数,取得一个接口变量的接口类型(GUID):
function GetIntfGUID(AIntf: IInterface):TGUID;
begin
Result := ;//如何实现?和各位继续探讨
end;

解释：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
IFirstIntf=interface
['{64C25101-E002-40EF-92DC-F0DFBF876B1C}']
function GetName:string;
function GetGUID:string;
function GetIntfGUID(AIntf: IInterface):TGUID;
end;

TFirstIntfClass=class(TInterfacedObject, IFirstIntf)
//IFirstIntf
function GetName:string;
function GetGUID:string;
function GetIntfGUID(AIntf: IInterface):TGUID;
end;

type
TForm1 = class(TForm)
btnSayHello: TButton;
btnGUIID: TButton;
lst1: TListBox;
btnAllGUID: TButton;
btnIntfaceToGUID: TButton;
procedure btnSayHelloClick(Sender: TObject);
procedure btnGUIIDClick(Sender: TObject);
procedure btnAllGUIDClick(Sender: TObject);
procedure btnIntfaceToGUIDClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function TFirstIntfClass.GetName;
begin
Result:='Hello World';
end;
procedure TForm1.btnSayHelloClick(Sender: TObject);
var
FirstIntfClass:TFirstIntfClass;
FirstIntf:IFirstIntf;
begin
FirstIntfClass:=TFirstIntfClass.Create;
try
FirstIntf:=FirstIntfClass;
ShowMessage(FirstIntf.GetName);
finally
FirstIntf:=nil;
end;
end;

function TFirstIntfClass.GetGUID;
begin
if self.GetInterfaceTable.EntryCount>0 then
Result:=GUIDToString(Self.GetInterfaceTable.entries[0].iid)
end;
procedure TForm1.btnGUIIDClick(Sender: TObject);
var
FirstIntfClass:TFirstIntfClass;
FirstIntf:IFirstIntf;
begin
FirstIntfClass:=TFirstIntfClass.Create;
try
FirstIntf:=FirstIntfClass;
ShowMessage(FirstIntf.GetGUID);
finally
FirstIntf:=nil;
end;
end;

procedure TForm1.btnAllGUIDClick(Sender: TObject);
var
I:Integer;
FirstIntfClass:TFirstIntfClass;
FirstIntf:IFirstIntf;
begin
FirstIntfClass:=TFirstIntfClass.Create;
for I:= 0 to FirstIntfClass.GetInterfaceTable.EntryCount-1 do begin
lst1.Items.Add(GUIDToString(FirstIntfClass.GetInterfaceTable.Entries[I].IID));
end;
FirstIntfClass.Free;
end;

function TFirstIntfClass.GetIntfGUID(AIntf: IInterface):TGUID;
var
I:Integer;
FirstIntfClass:TFirstIntfClass;
begin
FirstIntfClass:=TFirstIntfClass.Create;
for I:=0 to FirstIntfClass.getInterfaceTable.EntryCount-1 do
if FirstIntfClass.GetInterface(FirstIntfClass.getInterfaceTable.Entries[I].IID, AIntf) then begin
Result:=FirstIntfClass.getInterfaceTable.Entries[I].IID;
Exit;
end;
FirstIntfClass.Free;
end;
procedure TForm1.btnIntfaceToGUIDClick(Sender: TObject);
var
FirstIntfClass:TFirstIntfClass;
FirstIntf:IFirstIntf;
GUID:TGUID;
begin
GUID:=FirstIntfClass.GetIntfGUID(FirstIntf);
if GUID.D1>0 then
ShowMessage(GUIDToString(GUID));
end;

end.