字符串驱动技术—— MethodAddress , MethodName , ObjectInvoke

Delphi帮助中的介绍（After Delphi 6 ）：
Returns the address of a published method.
class function MethodAddress(const Name: ShortString): Pointer;
Description
MethodAddress is used internally by the streaming system. When an event property is read from a stream, MethodAddress converts a method name, specified by Name, to a pointer containing the method address. There should be no need to call MethodAddress directly.
If Name does not specify a published method for the object, MethodAddress returns nil.
翻译如下：
返回一个published部分的方法的地址
描述：

MethodAddress方法主要是被流（streaming）系统内部所使用的。当一个事件属性被一个流（streaming）所读取到的时候，MethodAddress将参数Name获得的方法的名称转换成为一个指向方法地址的指针。在使用的过程中不要直接使用MethodAddress 该方法。如果参数Name所指示的不是对象published部分的方法的话，MethodAddress返回nil。

示例代码1：

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    BtnMyCLassFunc: TButton;
    BtnMyCLassProc: TButton;
    procedure Button1Click(Sender: TObject);
    procedure CallMeByName(Sender: TObject);
    procedure BtnMyCLassFuncClick(Sender: TObject);
    procedure BtnMyCLassProcClick(Sender: TObject);
  private
    procedure ExecMethod(OnObject: TObject; MethodName: string);
    procedure ExecMethodFunc(AMethodName: string; AParams: string);
    procedure ExecMethodProc(AMethodName: string; AParams: string);
  public
    { Public declarations }
  end;
  TMyClass = class

    Field1: string; //published  缺省
    Field2: string; //published  缺省

  published     //通过方法名或者函数名调用的定义 ，必须定义在 published  里面
    function CallMeByNameFunc(const AParams: string): string;
    procedure CallMeByNameProc(const AParams: string);
  end;
var
  Form1: TForm1;
type
  TExec = procedure of object;
  TProc = procedure(const AParams: string) of object; //定义需和  procedure CallMeByNameProc(const AParams: string);一致
  TFunc = function(const AParams: string): string of object; //定义需和function CallMeByNameFunc(const AParams: string): string;一致
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  ExecMethod(Form1, 'CallMeByName');
end;
procedure TForm1.CallMeByName(Sender: TObject);
begin
  ShowMessage('Hello Delphi!');
end;
procedure TForm1.ExecMethod(OnObject: TObject; MethodName: string);
var
  Routine: TMethod;
  Exec: TExec;
begin
  Routine.Data := Pointer(OnObject);
  Routine.Code := OnObject.MethodAddress(MethodName);
  if not Assigned(Routine.Code) then Exit;
  Exec := TExec(Routine);
  Exec;
end;
{ TMyClass }
function TMyClass.CallMeByNameFunc(const AParams: string): string;
begin
  Result := 'TMyClass -> CallMeByNameFunc : ' + AParams;
  //  ShowMessage('TMyClass -> CallMeByNameFunc : ' + AParams);
end;
procedure TMyClass.CallMeByNameProc(const AParams: string);
begin
  ShowMessage('TMyClass -> CallMeByNameProc : ' + AParams);
end;
//根据方法名，参数调用函数方法
procedure TForm1.ExecMethodFunc(AMethodName: string; AParams: string);
var
  RetStr: string;
  Func: TFunc;
begin
  TMethod(Func).Code := TMyClass.MethodAddress(AMethodName);
  if Assigned(TMethod(Func).Code) then
  begin
    RetStr := Func(AParams);
    ShowMessage(RetStr);
  end;
end;
procedure TForm1.ExecMethodProc(AMethodName: string; AParams: string);
var
  Proc: TProc;
begin
  TMethod(Proc).Code := TMyClass.MethodAddress(AMethodName);
  if Assigned(TMethod(Proc).Code) then
  begin
      Proc(AParams) ;
  end;
end;
procedure TForm1.BtnMyCLassFuncClick(Sender: TObject);
begin
  ExecMethodFunc('CallMeByNameFunc', 'Hello World Fucntion!');
end;
procedure TForm1.BtnMyCLassProcClick(Sender: TObject);
begin
   ExecMethodProc('CallMeByNameProc', 'Hello World Procedure!');
end;
end.

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

示例代码：
unit Unit2;
interface
type
TMyFun = function (AIn: Intege字符串驱动技术—— MethodAddress , MethodName , ObjectInvoke 
Delphi  | 2103-1-13 
首先看一段Delphi帮助中的介绍（After Delphi 6 ）：
Returns the address of a published method.
class function MethodAddress(const Name: ShortString): Pointer;
Description
MethodAddress is used internally by the streaming system. When an event property is read from a stream, MethodAddress converts a method name, specified by Name, to a pointer containing the method address. There should be no need to call MethodAddress directly.
If Name does not specify a published method for the object, MethodAddress returns nil.
翻译如下：
返回一个published部分的方法的地址
描述：
MethodAddress方法主要是被流（streaming）系统内部所使用的。当一个事件属性被一个流（streaming）所读取到的时候，MethodAddress将参数Name获得的方法的名称转换成为一个指向方法地址的指针。在使用的过程中不要直接使用MethodAddress 该方法。如果参数Name所指示的不是对象published部分的方法的话，MethodAddress返回nil。
示例代码：
unit Unit2;
interface
type
TMyFun = function (AIn: Intege有以下几个关键地方：
对象声明的时候需要有编译开关$M。
编译开关$M控制的是在编译对象的时候是否要加入运行时信息RTTI。当一个类在声明的时候加入了编译开关$M+，或者该类的父类已经加入编译开关$M+ 的话，则编译器会将在published部分声明的对象变量field，方法method，属性property加入到运行时信息中。如果类声明的时候使用的编译开关是$M-，或者该类的父类没有使用$M+，则不能够访问该类published部分的RTTI。特别注意的是在对于前向声明forward declared的时候，一定要在第一个出现类声明的地方使用$M编译开关。
例如：
{$M+}
TMyObj = class; //forward declared
{$M-}
TMyObj = class(TObject)
published
function MyFun(AIn: Integer): String;
end;
函数一定要声明在published部分。
只有声明在published部分的类成员，包括方法method，对象成员field，属性property才能够编译进RTTI。
根据名称调用方法的时候一定要使用结构体TMethod赋值。
结构体TMethod的声明如下：
TMethod = record
Code, Data: Pointer;
end;
第一个参数Code接受的是方法的地址，即方法处在代码段中的地址，第二个参数Data接受的是调用对象的实例地址。函数的调用过程是，首先在代码段中索引到该函数的代码，然后将代码取出在栈上展开执行。当调用的是一个对象方法的时候，由于对象方法内部会有调用该对象其他成员的代码，往往在调用对象成员的时候会有一个隐式的参数Self，该参数的值就是实例的地址，而对象方法内部中所有调用Self值得来源就是TMethod.Data。如果在通过 MethodAddress方法获得函数地址的时候未能使用TMethod结构体给TMethod.Data赋值，后果就是该函数体内部所有Self都得不到正确实例地址，所以通过Self来调用类成员的时候，就会有异常。这点上的差异就决定形如T*** = function (***): ***;和T*** = function (***): *** of object;类型上的差异，对于of object的函数声明，无论何种形式的调用，都需要或显式或隐式的传递实例地址。
获得函数声明名称的方法是MethodName。
MethodName传入的是函数的地址指针，获得该函数声明的名称。要求传入的一定是什么在该类published部分的函数，且函数地址获得的方式形如TMethod(***).Code。当然该类在声明的时候一定要加上编译开关$M+。
应用实例：
VCL持久化。
在整个VCL框架中，持久化机制占有举足轻重的地位。因为在Delphi设计之初，就赋予了这门语言一个重要特性——PME（property method event），且有IDE支持，所以持久化机制必不可少。在VCL框架设计中，TPersistent是被用来作为可持久化对象的基类的，在 TObject中提供了对对象VMT、RTTI的访问方法，在TPersistent类定义中增加了编译开关$M+用于编译生成RTTI，且增加了一些持久化机制中需要使用到的方法，声明成虚方法让子类扩充。所以，所有从TPersistent继承的类中都自动拥有RTTI信息，而无需使用编译开关$M+。
MethodAddress、MethodName在中最重要的应用就是在持久化上。VCL的持久化机制中最重要的两个类是TReader和 TWriter，这两个类的作用分别是从持久化流中读取出数据加载到对象上，和从对象中读取出需要持久化的数据写入到流中间。在对象属性中间有一种类型为 tkMethod，即Event。对于Event来说，属性中存储的是方法的地址，默认情况下，这些Event的方法都是声明在持久化根对象root instance的published部分的方法，所谓根对象就是作为参数传入持久化readcomponent、writecomponent的对象，对于窗体设计器中的对象来说就是TForm。而方法MethodAddress、MethodName就是在持久化的时候，在方法地址和方法名称之间做转换，应用于写入流或从流中读出。
自定义持久化。
从以上关于VCL持久化的简介中可以看出有一个关键点，就是，对于Event持久化时是根对象的VMT中根据名称寻找方法地址或根据方法地址寻找名称，但是对于一些自定义的对象中，往往Event的函数是指向另外一个函数集合对象，而这个函数集合对象又不一定会依赖于根对象，即它有可能是一个公共对象，封装了一组公共方法，所以对于Event指向的不是根对象的方法的时候，标准的VCL持久化类就不能够正常工作了，需要我们自己重新定义持久化类。在自定义的持久化类中，当面对Event的时候，持久化字符串中需要包含函数集合对象的引用路径和函数名称，在将函数地址转换成持久化字符串的时候，通过 TMethod.Data获得对象的地址，然后根据自定义的框架获得对象的应用路径，加上函数名即可获得Event完整的持久化字符串。
动态调用类方法。
在很多使用Commond pattern设计的框架中，经常会使用消息机制来解耦系统的各部分，如果是一个分布式系统的话，消息往往会被封装成格式化字符串。在消息中包含需要调用的对象和函数名称，然后使用函数名获得函数地址，声明一个函数变量，例如上例中的FMyFun: TMyFun用来接收获得函数地址。再有一个通用的调用方式，如下例所示：
{$M+}{$METHODINFO ON}
TMyObj = class(TPersistent)
published
function MyFun(AIn1, AIn2: Integer): String;
end;
{$M-}{$METHODINFO OFF}
……
procedure TForm1.Button1Click(Sender: TObject);
var
FMyObj: TMyObj;
PInf: PMethodInfoHeader;
FResult: String;
begin
FMyObj:= TMyObj.Create;
try
PInf:= GetMethodInfo(FMyObj, 'MyFun');
FResult:= ObjectInvoke(FMyObj, PInf, [1,2], [3,2]);
ShowMessage(FResult);
finally
FMyObj.Free;
end;
end;
几点关键地方：
3.1 引用单元ObjAuto.pas
3.2 编译开关$METHODINFO仅仅作用在已经使用编译开关$TYPEINFO或$M打开编译进RTTI时的效果，该编译指令控制在编译的时候往RTTI中间加入方法method的更多细节，包括方法的参数名称、列表、类型、传参类型，当然加入该编译开关以后会使得RTTI所占空间变大。 Delphi中增加该编译开关本是为了在编译器中添加对接口RTTI支持，从而更好的支持Delphi对网络开发提供特性，例如支持SOAP等。
3.3 参数说明：function ObjectInvoke(Instance: TObject; MethodHeader: PMethodInfoHeader;
const ParamIndexes: array of Integer;
const Params: array of Variant): Variant;
Instance: 实例;
MethodHeader: 通过GetMethodInfo获得的函数RTTI信息;
ParamIndexes: Params中参数值对应参数列表中的位置，取值为1，2，3……如果ParamIndexes为空，则Params应该以倒序填参;
Params: 函数的参数值;
Result: 函数的返回值，如果是procedure的话，返回值为nil。
3.4 该方法可能从Delphi 7开始的版本才加入的特性。
动态调用接口方法。

为接口加入RTTI信息是Delphi 7开始的版本才加入的特性，用于对SOAP的支持，使得Delphi更好的适应于BS结构的开发。 

转自：http://www.coderlong.com/page/59a5b28c4569b6a17e8516d2c99c4559?page=0