为什么这个过程不是 TProc？

Question

我的情况如下：

interface

type
    IMyInterface = interface
    [GUID]
        procedure MyProcedure; stdcall;
    end;

    TMyOBject = class(TInterfacedObject, IMyInterface)
        procedure MyProcedure; virtual; stdcall; abstract;
    end;

    TDerivedObject = class(TMyOBject)
        procedure MyProcedure; override; stdcall;
        procedure SomeOtherProcedure;
    end;

implementation

uses
    System.Threading;

procedure TDerivedObject.MyProcedure;
begin
    //DoStuff;
end;

procedure TDerivedObject.SomeOtherProcedure;
begin
    TTask.Run(MyProcedure); //Error: Run can't be called with this parameter
end;

编译器说我不能使用 TTask 来运行 MyProcedure。尝试将 MyProcedure 转换为 TProc 是错误的。我的问题是 1) MyProcedure 是什么类型？ 2) 我将如何去发现 MyProcedure 的类型？

谢谢

Answer 1

TProc 不使用stdcall 调用约定。它被声明为匿名方法类型，改为使用默认的register 调用约定：

 TProc = reference to procedure;

而

 TMyProcedure = procedure of object; stdcall;

匿名方法与声明调用约定而不是标准 Delphi register 约定的方法不兼容。要么不使用stdcall，要么插入包装方法或本地匿名方法，即：

procedure TDerivedObject.SomeOtherProcedure;
begin
  TTask.Run(procedure begin MyProcedure; end); 
end;