关于InstanceSize,一个令我困惑的问题
最近看到code6431写的一篇文章《Interface Designing》,访问地址是:
http://home.pchome.com.tw/guide/code6421/Interface2.htm
其中我对里面的一个实例的一段代码感到比较困惑,如下:
constructor TptRIO.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
InnerComp1:=TComponent.Create(AOwner);
RP:=GenVTable(InnerComp1);
InnerComp:=Nil;
InnerClass:=Pointer(Integer(RP)+76);
FRefCount:=0;
end;
function TptRIO.GenVTable(obj:TObject):Pointer;
var
P,LP,vmt:Pointer;
begin
vmt:=PPointer(obj)^;
P:=Pointer(Integer(vmt)-76);
GetMem(LP,obj.InstanceSize+76); //??
CopyMemory(LP,P,76+obj.InstanceSize);
Integer(LP^):=Integer(LP); //??
Result:=LP;
end;
文中给出的解释是:GenVTable 函式會複製一份與傳入的obj 相同的VMT Table
其中我对obj.InstanceSize+76感到不理解,obj.InstanceSize+76指的是VMT Table的大小吗?InstanceSize在Delphi的帮助中说的是对象产生的实例的大小吗?VMT表的的大小包括其负向的76位的偏移所指的那些表吗?一个对象实例的大小包括其VMT表的大小吗(我觉得不应该包括)?此处把VMT的大小认定为obj.InstanceSize+76对吗?
还有,Integer(LP^):=Integer(LP)使得VMT表的-76位内存的是指向这块内存空间的起始地址,而这里应该存储的是指向该类VMT的指针(偏移位0),尽管通过InnerClass:=Pointer(Integer(RP)+76)使得InnerClass正确的指向VMT表了,可是VMT的-76位所存的地址并没有发生变化!
他这个实例的代码我没有编译成功!