delphi - 从 DWScript 调用类的过程

Question

如何从主窗体中创建的类调用过程。可以像伪代码所示那样完成吗？

type
  TDemo = class
    procedure test;
    constructor Create;
    destructor Destroy; override;
  end;

var
  Form28: TForm28;
  Demo:TDemo;

implementation

{$R *.dfm}

procedure TForm28.Button1Click(Sender: TObject);
var
   prog : IdwsProgram;
   exec : IdwsProgramExecution;
begin
   Demo := TDemo.Create;
   prog := DelphiWebScript1.Compile('Demo.Test;');
   exec := prog.Execute;
end;

Answer 1

有一个有限的 RTTI 暴露器和 RTTI 连接器，允许通过 RTTI 访问 Delphi 类。

然而，这些 RTTI 工具尚未得到太多探索，因为大多数 Delphi 类对于脚本编写来说并不“安全”。我的意思是很容易使主机崩溃或泄漏内存，因此“原始”Delphi 类通常不适合最终用户脚本编写(即最终用户无权犯错，您将无法提供稳定的调试等)。

在 TdwsUnit 的事件处理程序中手动公开和强化公开类的替代方法是将您的类公开为 OLE 自动化对象，然后您可以使用 DWScript COM 连接器来访问它们。那么好处是，要公开自动化对象，您通常必须至少对内存泄漏和悬空指针进行最少的强化，并且您的自动化类可以从其他支持 COM 的环境访问。

作为 RTTI 出错的一个例子，如果您只有原始 RTTI 暴露，请考虑完全自动管理的 VCL 类，如 TComponent 或 TCollection，而不是执行以下操作的脚本:

item := myCollection.Add;
myCollection.Clear;
item.Caption := 'hello bug';

将导致主机应用程序中的随机内存覆盖，而没有任何安全的方法来通知脚本用户潜在的错误。

即将推出的 Delphi ARC 编译器可能会提供一种方法来减轻某些类的内存覆盖(尽管不是全部，因为 TComponent 和其他类目前实现/规避 ARC 的方式)。另外，Delphi ARC 编译器目前不受支持(由于多种原因，最突出的一个是我目前无法访问它们)。