使用delphi中的类作为参数调用dwscript过程

我如何从delphi调用一个将类作为参数的DWScript过程？

例如：

DWScript方面：

procedure Proc1(AParam: TObject);
begin
  // do something useful
end;

德尔福方面：

var
  Obj: TObject;


Exec.Invoke('Proc1', [obj]);

您需要将Delphi端对象包装到Script端对象中,并在需要时创建一个.

对于曝光,您可以使用TdwsUnit并手动公开(这可以允许保护Delphi端类免受脚本误操作),或使用RTTI曝光(但在这种情况下,脚本端的错误将能够直接影响Delphi,因此可能会崩溃主机,所以如果你知道你的类已经安全,或者如果你不关心沙盒,那么只使用RTTI).

如果你需要的只是一个简单的方法,那么更简单的方法是使用RTTI环境(参见URTTIExposeTests中的TRTTIExposeTests.EnvironmentTest),但请记住上面关于RTTI和安全/沙盒的注释.

更复杂的方法是使用类似代码创建脚本端对象

scriptObj：= Info.Vars [‘TScriptSideClassName’].方法[‘Create’].调用([param1,param2]);

然后手动调整其ExternalObject属性.

您可能还需要担心只创建一次脚本端对象(如果您希望脚本端对象比较正常工作),以及清理(即如果在脚本中释放Delphi端对象时会发生什么情况仍在运行,或者谁应该负责释放脚本端对象时释放Delphi端对象),以及其他细微之处(当Delphi获得某种形式的自动内存管理时,这将变得更简单).