delphi - 在dwscript中使用/注入Delphi实现的接口实例

Question

我有一个我想以这种方式使用的接口（实际上是多个接口）：

• 使在 dwscript 脚本中声明接口的单元可用（如果需要）。

• 在用 Delphi 编写的主机应用程序中创建实现接口的对象。

• 以某种方式使这些接口可用于 dwscript 脚本。

• 并在脚本中正常使用它们。

有没有可能这样做？

我试图在一个类中提供返回这些接口的方法，但是当我在 RTTI 上使用这个类时，那些找不到的方法。

Answer 1

正如我上面所说，不可能立即声明一个接口并在 Delphi 端使用TdwsUnit. 但是，可以通过其他方式实现您所追求的目标。

我假设您已经在TdwsUnit. 让我们称它们为IMyInterfaceand TMyClass。

type
  IMyInterface = interface
    procedure SetValue(const Value: string);
    function GetValue: string;
    property Value: string read GetValue write SetValue;
    procedure DoSomething;
  end;

type
  TMyClass = class(TObject)
  protected
    procedure SetValue(const Value: string);
    function GetValue: string;
  public
    property Value: string read GetValue write SetValue;
    procedure DoSomething;
  end;

解决方案 1 - 在运行时更改类声明

为事件创建一个事件处理程序TdwsUnit.OnAfterInitUnitTable并将接口添加到类声明中：

procedure TDataModuleMyStuff.dwsUnitMyStuffAfterInitUnitTable(Sender: TObject);
var
  ClassSymbol: TClassSymbol;
  InterfaceSymbol: TInterfaceSymbol;
  MissingMethod: TMethodSymbol;
begin
  // Add IMyInterface to TMyClass
  ClassSymbol := (dwsUnitProgress.Table.FindTypeLocal('TMyClass') as TClassSymbol);
  InterfaceSymbol := (dwsUnitProgress.Table.FindTypeLocal('IMyInterface') as TInterfaceSymbol);
  ClassSymbol.AddInterface(InterfaceSymbol, cvProtected, MissingMethod);
end;

现在您可以通过脚本中的接口访问该类的实例：

var MyStuff: IMyInterface;
MyStuff := TMyObject.Create;
MyStuff.DoSomething;

解决方案 2 - 使用鸭子类型

由于 DWScript 支持鸭子类型，因此您实际上不需要声明您的类实现了接口。相反，您只需说明您需要什么接口，然后让编译器确定对象是否可以满足该需求：

var MyStuff: IMyInterface;
MyStuff := TMyObject.Create as IMyInterface;
MyStuff.DoSomething;