delphi - 如何将接口变量注册到 remobjects pascal 脚本中？

Question

我为 Delphi XE 使用 RemObjects Pascal 脚本组件，我有以下代码：

type
  ITest = interface(IInterface)
  ['{7762A355-052F-449D-8347-01B59E2D2738}']
    procedure Execute;
  end;

  TTest = class(TInterfacedObject, ITest)
  private
    procedure Execute;
  end;

procedure TForm1.Button3Click(Sender: TObject);
var T: ITest;
    o: TPSScript;
begin
  T := TTest.Create;  

  o := TPSScript.Create(nil);
  try
    o.Script.Text :=
      'begin '                                    + sLineBreak +
      '  T.Execute; '                             + sLineBreak +
      'end.';
    Execute(o);
  finally
    o.Free;
  end;
end;

我的问题是如何将接口变量 T（ITest 的实例）注册到 pascal 脚本中，以便我可以在 pascal 脚本中调用 T.Execute？

Answer 1

首先你需要在 OnCompile 事件中注册你的接口类型：

with ps.Compiler.AddInterface(ps.Compiler.FindInterface('IUnknown'), StringToGuid('{7762A355-052F-449D-8347-01B59E2D2738}'), 'ITest') do
  RegisterMethod('procedure Execute;', cdRegister);
ps.AddRegisteredVariable('data', 'ITest');

然后在 OnExecute 中：

SetVariantToInterface(ps.GetVariable('data'), mydata);

Answer 2

它在他们的维基上有所描述，这里是文章。也许有人可以总结一下，谁喜欢这个东西。我只是通过谷歌找到它。