delphi RTTI

self 类对象指针--当前执行的类对象指针

tform1: 类

{ No. 17 }

{在TypInfo单元中，有若干函数可以让我们操作Dephi管理的类的VMT。通过，属性名称和对象VTM直接访问或改变属性值。
公共的属性访问函数：GetPropValue；公共的属性设置函数：SetPropValue。其中，对事件属性信息的读取可以使用GetPropValue，但是却不能通过SetPropValue给事件属性赋值。
解决方案：使用SetMethodProp给控件属性赋值。procedure SetMethodProp(Instance: TObject; const PropName: string; const Value: TMethod); overload;其中，TMethod 用以描述操作函数。
 TMethod = record
   Code,  //函数地址；可以通过类函数MethodAddress，取得函数地址。其中，只有声明在Published段的函数才能通过MethodAddress访问。
   Data: Pointer; //对象地址
 end;
}

//**************** 正常使用
type
 TMyForm = class(TForm)
  ...
 private
   FMyText: String;
 published
   procedure MyClick(Sender: TObject); 
 end;
 
//窗体中，按钮事件;实现动态分配另一个按钮的事件的方法
procedure TMyForm.Button1OnClick(Sender: TObject);
var
 vMethod: TMethod;
begin
 FMyText := 'Hello Joy!';
 vMethod.Code := Self.MethodAddress('MyClick');      //************ Code 1
 vMethod.Data := Self;                               //************ Code 2
 SetMethodProp(Button2, 'OnClick', vMethod);
end;

procedure TMyForm.MyClick(Sender: TObject);
begin
  ShowMessage('Ok!');                                //************ Show 1     
  ShowMessage(Self.FMyText);            //************ Show 2      
end;
 
//**************** 修改 一
//将[Code 1]和[Code 2]处的Self变更为TMyForm。则[Show 1]显示正常，[Show 2]显示不正常。
//说明：当类的函数被执行时，寄存器eax保存的是当前类的地址。所以，TMethod.Data中保存的应该是将来执行TMethod.Code函数时，赋给eax的值，即类对象指针。
//又因为[Show 1]中，不需要eax中类对象指针，所以可以正常执行。

//**************** 修改 二
//函数地址读取部分
procedure TMyForm.Button1OnClick(Sender: TObject);
var
 vMethod: TMethod;
 vEvent: TNotifyEvent;
begin
 FMyText := 'Hello Joy!';
 vEvent := MyClick;
 vMethod.Code := @vEvent;                            //************ Code 1
 vMethod.Data := Self;                               //************ Code 2
 SetMethodProp(Button2, 'OnClick', vMethod);
end;
//其中，MyClick可以定义为私有函数。
//说明：vMethod只是要记录一个类的函数地址和类对象的地址。MethodAddress函数也只是通过函数名称进行函数地址的读取而已。

 

 2003-6-18 12:48:38      不通过汇编访问 [VMT]

VMT：Virtual Method Table

//访问VMT信息
e.g.
procedure TForm1.Button1Click(Sender: TObject);
var
 vpt: Pointer;
 vMethod: TMethod;
begin
 vMethod.Code := TForm.MethodAddress('MyClick');
 vMethod.Data := Self;
 if vMethod.Code = nil then ShowMessage('Error!');
 vPt := Pointer(TListBox);  
 Integer(vPt) := Integer(vPt) + vmtTypeInfo; //在Delphi帮助中说明，根据偏移量可以取得ClassInfo。或者可以参考，TObject.ClassInfo的定义。
 SetMethodProp(ListBox2, GetPropInfo(pTypeInfo(vPt^), 'OnClick'), vMethod);
end;

//其中，类的类到底如何提取？
 function TObject.ClassType: TClass;
 begin
     mov eax, [eax]
 end;

//上面的语句可以翻译成
 function TObject.ClassType: TClass;
 begin  
    Result := TClass(Pointer(Self)^);
 end;

//所以上面的例子也可以改为
procedure TForm1.Button1Click(Sender: TObject);
var
 vpt: Pointer;
 vMethod: TMethod;
begin
 vMethod.Code := TForm.MethodAddress('MyClick');
 vMethod.Data := Self;
 if vMethod.Code = nil then ShowMessage('Error!');
 vPt := Pointer(Pointer(ListBox2)^);  //取得ClassType的指针 
 Integer(vPt) := Integer(vPt) + vmtTypeInfo; 
 SetMethodProp(ListBox2, GetPropInfo(pTypeInfo(vPt^), 'OnClick'), vMethod);
end;
{仿照上面的例子，我们可以访问所有VMT入口地址，并取得相应的信息}

 

 2003-6-21 11:24:32      使用汇编实现远程函数调用

{ No. 19 }

//如何通过指针，调用类函数中定义的函数（如下面的：MyFar）？
//如果我们只传递函数指针，然后调用函数的话，我们会发现，在MyFar中不能访问当前类对象的变量FMyText。如果嵌入一段汇编，将当前位置压入栈，然后再调用此函数，则就可以象类函数一样，在其中访问类的变量了。
e.g.
type 
 pMyRec = ^TMyRec;
 TMyRec = record
   rStr: String;
   rInt: Integer;
 end;

procedure MyProc(APro: Pointer);
var
 CallerBp: Cardinal;
 MyRec: TMyRec;
 vPt: Pointer;
begin
 MyRec.rStr := 'MyRec.rStr';
 MyRec.rInt := 'MyRec.rInt';
 vPt := Pointer(@MyRec);
 asm
   mov eax, [ebp]
   mov CallerBp, eax
   mov eax, vpt
   Push CallerBp
 end;
end;

procedure TMyTemp.SetText(aText: String);
 procedure MyFar(aRec: TMyRec); 
 begin
    ShowMessage(Format('%s_%sd_%s', [Self.FmyText, aRec.rStr, aRec.rInt]);
 end;
begin
 Self.FMyText := 'JoyYuan';
 MyProc(Addr(MyFar));
end;

{说明：具体例子可以参考：Grids单元中，TSparsePointerArray.ForAll的实现。
}

 

 2003-6-21 11:47:21      类函数地址

{ No. 20 }

测试结果列举：也是测试方法和测试思维经历的过程。

结果一：Button1.CanFocus与Button2.CanFocus的地址相同
结果二：Button1.CanFocus与Form1.CanFocus的地址相同，也等同于ListBox1.CanFocus
结果三：当在TForm1窗体类中，重载Form1.CanFocus后，Button1.CanFocus与Form1.CanFocus的地址不相同
 结论：如果没有重载父类的虚函数，则访问时，直接得到并访问父类的函数。所以，TButton, TListBox, TForm默认都访问的是TWinControl的CanFocus。所以函数地址相同。

结果四：定义事件类型
Type
 TMyEvent1 = Function(): Boolean of Object;
 TMyEvent2 = function(): Boolean;
 得结果：Sizeof(TMyEvent1) = 8;  Sizeof(TMyEven2) = 4;
 结论：类函数类型，保存的室两个指针的内容，见TMethod中,Code 和 Data；既一个函数指针，一个对象指针。

验证测试例子一：
var
 vTestEvent: TNotifyEvent;
begin
 Pointer((@@vTestEvent)^) := @TForm1.MyClick; //或者通过：TForm1.MethodAddress('MyClick') 方式取函数地址
 Pointer(Pointer(Integer(@@vTestEvent) + 4)^) := Pointer(Self);
 vTestEvent(nil); //效果和执行 Self.MyClick一样。
end;
验证测试例子二：
var
 vMethod: TMethod;
begin
 vMethod.Code := TForm1.MethodAddress('MyClick');
 vMethod.Data := Self;
 TNotifyEvent(vMethod)(nil);//效果和执行 Self.MyClick一样。
end;