在没有 ClassType 的反序列化表单上将方法作为参数传递

Question

我正在有效地尝试反序列化表单。

序列化形式上的一个对象有一个方法，该方法将一系列事件作为参数。

现在，由于我在反序列化时没有对象的类类型，因此我在对象上有一个执行反序列化的方法，称为 AddMethod，其声明如下：

procedure TMyDeserializer.AddMethod(ControlName, EventName: String;
  MethodAddr: Pointer);
var
    TargetControl : TControl;
    Method : TMethod;
begin
    if Not Assigned(TempForm) then
        Exit;
    if TempForm.Name = ControlName then
        TargetControl := TempForm
    else
        TargetControl := TempForm.FindChildControl(ControlName);

    if Assigned(TargetControl) then
    begin
        Method.Code := MethodAddr;
        Method.Data := TargetControl;
        SetMethodProp(TargetControl, EventName, Method);
    end;
end;

这样我就可以在反序列化时将子例程插入各种控件中他们，问题是我需要将事件添加为参数列表（而不是控件）。例如

SetUpEvents(EventHandler1:TNotifyEvent;EventHandler2:TNotifyEvent);

，EventHandler1 和EventHandler2 在代码中的某处定义为

Procedure EventHandler1(Sender:TNotifyEvent);  
begin
    // Do something
end;

这些不是方法，而是独立的子例程。

当我将这些分配给对象时，子例程不需要成为对象的一部分，因为 AddMethod 过程通过像这样的调用来处理它

MyDeserializerInstance.AddMethod('Button1','OnClick',@EventHandler1);

，这适用于标准事件处理程序，例如 Button1.OnClick 但如果我想做的

Procedure SetUpButton1Click(Method: TNotifyEvent)
begin
    TButton(MyDeserializerInstance.TempForm.FindChildControl('Button1')).OnClick = Method;
end;

话 就不行了问题是我无法将子例程作为方法传递给示例设置过程。

正在创建的表单不是在接口中声明的，而是完全由从中读取的文件以及代码中的一些独立例程定义的。

所以我想问题是如何在运行时将子例程转换为方法（在创建它应该属于的对象之后），如果我不能这样做，我该如何将代码中的子例程作为参数传递另一种方法？

到目前为止，我已经尝试将 TMethod 转换为正确的事件类型，并将 .Data 填充为 TempForm。它调用了正确的方法，但扰乱了参数。

Delphi版本是2007

Answer 1

非静态类方法有一个隐藏的Self输入参数，该参数在调用方法时填充。这就是 TMethod.Data 字段所对应的内容。为了使用独立过程作为需要类方法的事件的处理程序，该过程必须定义一个额外的参数来表示 Self 参数，以便 TMethod.Data< 的值/code> 有地方可去，即：

procedure Button1ClickHandler(Self: Pointer; Sender: TObject);
begin 
  // Do something 
end; 

MyDeserializerInstance.AddMethod('Button1', 'OnClick', @Button1ClickHandler);

您的 AddMethod() 实现将 TargetControl 分配为 TMethod.Data 值，因此 Self 和 Sender 参数最终会在运行时指向同一个对象，但这没关系。

如果没有定义显式的 Self 参数，这就解释了为什么在运行时调用过程时参数会变得“混乱”。隐藏的 Self 值被分配给 Sender 参数，而真正的 Sender 值被忽略。

Answer 2

我确信如果我错了，有人会纠正我，但我不相信有一种方法可以在本机 Delphi 中在运行时创建类型定义。 Delphi 的 RTTI 还不能处理这个问题。

对于对象序列化，我想到的两个场景是持久性和 IPC。 （可能还有更多我没想到的）。

Delphi 的 DFM 序列化就是持久性的一个例子。如果您查看 dfm，您会发现它根本没有定义方法。它只是将事件处理程序分配给需要事件处理程序的属性。处理程序和属性都是在设计时使用普通类型定义定义的。

如果您的意图是 IPC（无论是在同一台计算机上还是在远程计算机上），则已经有现有的框架可以实现此目的。 （RemObjects 浮现在脑海中）

Answer 3

您不会在运行时“创建方法”。这相当于编译新代码。您分配给各种事件属性的方法需要已经存在。

此外，您无法“添加事件”。您要反序列化的对象已经有事件。当您在 Delphi 代码中编写类声明时就定义了它们。编译后的类无法添加新的事件属性。

看来您真正想说的是您有一个独立过程，您碰巧将其命名为Method1，并且您希望将其作为TNotifyEvent 传递调用 SetUpMethods 时的 参数。

这是错误的做法。尽管 Method1 过程的名称如此，但它并不是一个方法，因此您不能在需要方法的地方使用它。更改该声明，使其属于一个类，然后它将成为一个方法。

如果您不想实例化该方法所属的类，那没问题 - 您可以将其声明为类方法：

class procedure TSomeClass.Method1(Sender: TNotifyEvent);

我鼓励您更改 AddMethod 的声明 以便最后一个参数的类型为 TMethod。那么您肯定拥有方法指针的代码和数据部分。现在，您正在根据要分配其事件属性的对象来分配数据部分，但正如我在评论中提到的，这种关系很少存在，特别是现在该方法属于完全不相关的类（在我的示例中为 TSomeClass）。当方法被调用时，TMethod.Data 字段的值将成为 Self 值。您有责任确保存储在该字段中的值的类型与代码所属的类兼容。