脚本宿主程序

最新推荐文章于 2024-02-10 23:38:29 发布

hnxxcxg

最新推荐文章于 2024-02-10 23:38:29 发布

阅读量541

点赞数

分类专栏： script 文章标签：脚本 string forms windows n2 class

本文链接：https://blog.csdn.net/hnxxcxg/article/details/5591733

版权

script 专栏收录该内容

17 篇文章 0 订阅

订阅专栏

宿主的功用：

装载.dfm文件动态生成窗体；

注册动态生成窗体中的类，对象，属性，方法，函数，从而让脚本引擎能够操作它们。

下面以TMS SCRIPTER STUDIO为例：

unit uMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, atScript, atPascal;

type
TFormMain = class(TForm)
    MainMenu1: TMainMenu;
    Scripter: TatPascalScripter;
    m1: TMenuItem;
    N11: TMenuItem;
    N21: TMenuItem;
    procedure N11Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
private
    { Private declarations }
    procedure LoadScript(Sender: TComponent; const DFMFile, PSCFile,
      InitProc: string);
    // params: Sender--宿主窗体 DFMFile--界面脚本文件 PSCFile--业务脚本 InitProc--调用脚本的初始化方法
public
    { Public declarations }
end;

var
FormMain: TFormMain;

implementation

{$R *.dfm}

uses uClass, Unit1, Unit2;

procedure TFormMain.LoadScript(Sender: TComponent; const DFMFile, PSCFile,
InitProc: string);
begin
uClass.LoadFromDFM(DFMFile, Sender);          // 装载界面
Scripter.AddComponents(Sender);               // 让脚本认识窗体中的对象
uClass.PianLiComps(Sender, Scripter);
Scripter.SourceCode.Clear;
Scripter.SourceCode.LoadFromFile(PSCFile); // 装载业务
scripter.ExecuteSubroutine(InitProc);       // 调用脚本的初始化方法
end;

procedure TFormMain.N11Click(Sender: TObject);
begin
LoadScript(form1, '1.dfm', '1.psc', 'init');
end;

procedure TFormMain.N21Click(Sender: TObject);
begin
LoadScript(Form2, '2.dfm', '2.psc', 'init');
end;

end.