RemObjects PascalScript中使用类

 

摘自RemObjects Wiki

本文演示如何在\Samples\Debug范例的RemObjects Pascal脚本中调用现有的Delphi类.将如下类加入到工程文件:

RemObjects PascalScript中使用类_第1张图片

MyClass类是由Import工具打开的,并为我们生成了一个单元:

RemObjects PascalScript中使用类_第2张图片

点击"Go"按钮并将生成的uPSI_MyClass.pas单元加入到工程文件.选择主窗体并生成OnCreate事件处理函数:

RemObjects PascalScript中使用类_第3张图片

在Create事件中创建一个TPSImport_MyClass类的实例并将其加入到脚本引擎的插件列表中:

如果你要在多个工程中使用这个插件,可以将其导入包中安装后显示在控件面板上.

现在可以在脚本引擎中使用这个类了:

在脚本引擎中使用已存在的TmyClass类

也可以在脚本引擎中使用TmyClass类型的变量.首先在窗体类中添加成员FMyClass: TmyClass并实例化:

在脚本引擎的OnCompile事件中需要让引擎知道有一个新变量.有两种方式实现: AddRegisteredVariable 和AddRegisteredPtrVariable.区别在于AddRegisteredPtrVariable将会是变量直接被修改,因此如果你释放了变量并重新创建,脚本引擎将使用新建的那个变量. AddRegisteredPTRVariable有两个参数.一个名称和一个类型.将如下代码加入到脚本引擎的OnCompile事件中:

现在编译器已经知道这些变量的存在,但运行时脚本引擎还不知道变量的具体位置.未来让运行时知道,需要使用OnExecute事件. SetPointerToData方法可以将设置由AddRegisteredPTRVariable 加入到引擎的变量的值.第一个参数是变量的名称,第二个参数是变量实例的地址,第三个参数是变量类型(这里使用ce.FindNamedType('nameoftype')获取).

RemObjects PascalScript中使用类_第4张图片

最终结果:

RemObjects PascalScript中使用类_第5张图片

你可能感兴趣的:(脚本,import,Delphi,pascal,引擎,编译器)