【问题标题】:Call a procedure of a class from DWScript从 DWScript 调用类的过程
【发布时间】:2013-10-04 16:28:56
【问题描述】:

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

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;

【问题讨论】:

    标签: delphi rtti dwscript


    【解决方案1】:

    有一个有限的 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 编译器可能会提供一种方法来减轻某些类的内存覆盖(尽管不是全部,因为 TComponent 和其他类目前实现/规避了 ARC 的方式)。此外,Delphi ARC 编译器目前不受支持(由于多种原因,最突出的原因是我目前无法访问它们)。

    【讨论】:

    • AFAIK paxcompiler 可以做到这一点。我想知道为什么 DWScript 做不到。
    • Pax 编译器不提供沙盒或封装,Pax 脚本中的错误可能导致主机崩溃,并且您也无法提供稳定的调试功能。 DWScript 的构建是为了能够沙箱脚本执行、随时中止任何脚本而不会泄漏,并且通常提供存活的错误脚本(因此可以从主机应用程序调试它们)。
    【解决方案2】:

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

    【讨论】:

    • 是的,但是如果我有 200 种方法呢?我必须手动添加所有这些吗?我的意思是必须有一种与“外部”世界交谈的简单方法。这不能通过 RTTI 完成吗?
    • 目前,如果您希望脚本引擎能够与类交互,是的。这是 DWS 较粗略的优势之一。它被设计成一个独立的脚本系统(用于构建网页,因此得名),而不是像某些脚本系统那样作为强大的独立代码库之上的自动化层。我一直在与 Eric 合作开发一些附加功能,以使这类事情变得更容易,但它还没有准备好。我知道存在一些基于 RTTI 的接口,但我不熟悉它是如何工作的,而且我知道如果你使用它,你会失去静态类型检查。
    • 那太糟糕了.. 很重要。不幸的是,它是一个表演者。
    • @EricSantos:我知道。这就是我正在努力的原因。 :)
    • 有没有脚本引擎可以做到这一点?
    猜你喜欢
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2014-06-10
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    相关资源
    最近更新 更多