新版Delphi 接口和类之间的相互转换,XE2测试确实可以,但类不可以再次释放,释放的任务交给类接口了.可以使用类(接口).方法,使用类方法,接口消失了,就完全释放了
{此接口声明了一个 Name 属性; 因为接口没有字段, read/write 都只能从方法}
IMyInterface = interface
function GetName : string;
procedure SetName(val : string);
property Name : string read GetName write SetName;
end;
IUnknown:接口祖先,Delphi内部自动实现了这三个方法:
-AddRef
,
_Release,
QueryInterface ,
类从TObject、TPersistent派生,请分别使用TInterfacedObject和TInterfacedPersistent代替TObject、TPersistent,它们内部实现了这三个方法。如:
1.1
为什么使用接口?
举个例子好了:有这样一个卖票服务,电影院可以卖票,歌剧院可以卖票,客运站也可以卖票,那么我们是否需要把电影院、、歌
剧院和客运站都设计成一个类架构以提供卖票服务?要知道,连经理人都可以卖票,很显然不适合把经理人也包括到卖票服务的继承架构
中,我们需要的只是一个共通的卖票服务。于是,卖票的服务是个接口,电影院、歌剧院什么的只要都遵循这样一个服务定义就能很好地
相互交互和沟通(如果须要的话)。
1.2 如何在Delphi中使用接口
1.2.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):接口必须实现这三个函数。
1.2.2
接口的实现
接口服务是由类来实现的。
TIntfClass = class(TObject, IMyInterface)
private
FCounter: Integer;
FRefCount: Integer;
public
function QueryInterface(const IID: TGUID; out Obj):
HResult;
stdcall;
...
end;
1.2.3
获取接口
a. 使用类型转换。
如:var aIntf: IMyInterface;
begin
aObj := TIntfClass.Create;
try
aIntf := (IMyInterface(aObj);
...
b. 利用Delphi编译器内建机制。 如:aIntf := aObj。
c. 利用对象的QueryInterface方法。如
OleCheck(aObj.QueryInterface(IID, aIntf)); 只能存取有
GUID的COM接口。
d. 利用as操作符。
使用as操作符必须符合下面条件:
1.接口必须明确地指定是从IInterface接口继承下来。
2.必须拥有GUID值
在Delphi7中接口的实现类还必须是从TInterfacedObject
继承下来才行,
如TIntfClass = class(TInterfacedObject,
IMyInterface)
1.2.4
接口和对象生命期
因为Delphi会自行检查接口如果在使用后没有释放而在生成的程序里加上释放代码,但也因这样带来了问题,如下面代码:
var
i:
Integer;
aObj:
TIntfClass;
aIntf:
IMyInterface;
begin
aObj :=
TIntfclass.Create;
try
aIntf := aObj;
aIntf.GetName...
finally
aIntf := nil;//释放
FreeAndNil(aObj);//再次释放
end;
上面的代码执行的话会产生存取违规错误,是
因为对接口置nil时已释放接口,而FreeAndNil(aObj)会再释放aIntf一次,而在对aIntf置
nil时已释放了该对象。解决这个问题只要不让接口干扰对象的生命期就可以了,在Release中只需减引用计数而不做释放的动作。
function
TIntfClass._Release: Integer;
begin
Result := InterlockedDecrement(FRefCount);
end;
1.2.5
接口的委托(Interface Delegation)
分为两种:1.
对象接口委托
2. 类对象委托。
. 对象接口委托,假如已有下面接口定义:
IImplInterface =
interface(IInterface)
function ConvertToUSD(const iNTD: Integer):
Double;
function ConvertToRMB(const iNTD: Integer):
Double;
end;
接着有一个类实现了该接口:
TImplClass =
class(TObject, IImplInterface)
private
FRefCount:
Integer;
public
function
ConvertToUSD(const iNTD: Integer): Double;
...
end;
implementation
function
TImplClass.QueryInterface(const IID: TGUID; out Obj):
HResult;
begin
if GetInterface(IID, Obj) then
Result := 0
else
Result := E_NOINTERFACE;
end;
function
TImplClass._Release: Integer;
begin
Result := InterlockedDecrement(FRefCount);
if Result = 0 then
Destroy;
end;
...
...
现在有另外一个类TIntfServiceClass要实现IImplInterface接口,不用重新定义,只须使用上面的TImplClass就可以:
TIntfServiceClass =
class(TObject, IImplInterface)
private
FImplService: IImplInterface;
//FSrvObj: TImplClass;
//如果是用类对象委托的话
public
Constructor Create; overload;
Destructor Destroy; override;
Constructor Create(aClass: TClass); overload;
property MyService: IImplInterface read FImplServiceimplements
IImplInterface;
// property MyService: TImplClass read FSrvObj implements
IImplInterface; //如果是用对象委托的话。
end;
实现如下:
constructor
TIntfServiceClass.Create;
begin
FImplService := TImplClass.Create;
end;
constructor
TIntfServiceclass.Create(aClass: TClass);
var
instance:
TImplClass;
begin
instance := TImplClass(aClass.NewInstance);
FImplService := instance.Create;
end;
destructor
TIntfServiceClass.Destroy;
begin
FImplService := nil;
//遵照TImplClass使用引用计数来控制对象生命周期,看TImplClass的Destroy实现。
inherited;
end;
1.2.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;