【发布时间】：2012-09-02 20:52:35
【问题描述】：
我正在为 Delphi 寻找一个好的免费脚本引擎。我想向应用程序添加脚本，以便编写小型测试脚本。具体我需要：
- 类帕斯卡语法
- 当前（我查看了 RemObjects Pascal 脚本，但根据我看到的帖子，它已“过时”）。
我不需要完整的语言支持，只需要基础知识。我看到了这个：https://stackoverflow.com/questions/226135/scripting-library-for-delphi，但我假设从那以后事情发生了一些变化。
我想要做的就是在我的程序中添加一个备忘录组件，然后在运行时将一个源代码片段添加到备忘录中，然后单击执行按钮。我希望脚本能够访问我的应用程序的变量和函数。
实现此目的最简单的方法是什么？示例程序如下。
program Project31;
uses
Forms,
Unit36 in 'Unit36.pas' {Form36};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm36, Form36);
Application.Run;
end.
.
unit Unit36;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm36 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form36: TForm36;
implementation
{$R *.dfm}
procedure RoutineInMyApplication ;
begin
ShowMessage ('Hello from my Application') ;
end ;
procedure TForm36.Button1Click(Sender: TObject);
begin
//ExecuteScript (Memo1.Lines) ;
end ;
end.
.
object Form36: TForm36
Left = 0
Top = 0
Caption = 'Form36'
ClientHeight = 174
ClientWidth = 391
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 300
Top = 72
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object Memo1: TMemo
Left = 8
Top = 21
Width = 241
Height = 145
Lines.Strings = (
'begin'
'ShowMessage ('#39'Hello world'#39') ;'
'CallSomehow (RoutineInMyApplication) ;'
'end.'
' ')
TabOrder = 1
end
end
【问题讨论】：
-
我个人还是更喜欢 PascalScript。缺少对 64 位 Delphi 编译器的支持可能是弱点，但是当你使用 32 位 Delphi 编译器（目前支持到 Delphi XE2）时，我认为你会没事的。 PascalScript 目前在 bug 修复方面的优先级较低（主要针对 64 位编译器发现的问题），但这并不意味着它对于 32 位不稳定。像 InnoSetup 这样的项目使用它并且它仍然存在。经过非常快速的搜索，我认为没有相同质量的免费替代品。
-
感谢@TLama。我已经为 D2006 和 XE1 安装了它，但它没有安装任何 D10 BPL，ReadMe.html 是一个死链接，最后一个条目 changes.txt 文件是“对 Borland Developer Studio 2006 的新支持”，所以我没有自信。我再看看。如果您有时间并安装了软件，我很想看看运行我的示例应用程序会涉及什么。
-
我不会把
changelog.txt文件看得太认真。自上次登录该文件以来，有many commits，所以我想说他们只是停止登录该文件。 -
使用 Pascal 脚本有一个扩展的 IDE 可用，称为 maXbox。编码的艺术：maXbox 是一个脚本工具引擎、编译器和源库都在一个 exe 中，用于设计和编码您的脚本！对象脚本的纯代码。原则是简单和减少到最大。该应用程序“开箱即用”（自包含），无需安装或注册。 maxbox4.wordpress.com
标签： delphi scripting pascal scripting-language remobjects