3

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

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;
4

2 回答 2

2

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

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

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

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

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

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

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

于 2013-10-05T19:00:10.040 回答
1

为此，您首先必须将本机类公开给脚本引擎。看看TdwsUnit组件。它声明了一个与外部代码交互的脚本单元。您将在表单上放置一个，定义类，定义其方法，并将事件处理程序连接OnEval到调用外部例程的事件上。

于 2013-10-04T17:20:02.300 回答