ERP SYSTEM 开发指南（二）添加脚本支持

展开全文

在二次开发中实现脚本对算定义类的调用

如何为一个类添加脚本支持，FastScript是解释执行的语言，通过对语义的分析来执行

FastScript已经对Delphi常用的类做好了解释，比如fs_iformsrtti解释了脚本对窗体的调用，fs_iinirtti解释了脚本对TIniFiles类的使用

一个类的published属性，在RTTI的支持下可以自动解释，关键是函数的解释

模拟下面源代码的编写，就可以在脚本中直接使用该类

100

101

102

103

104

105

106

107

108

unit fs_iMyClassRTTI; //按FastScript的习惯命名, fs_类名RTTI.pas
interface
uses
Windows, Messages, SysUtils, StrUtils, Variants, Classes, Graphics, Controls, Forms;
type
　　TMyClass=class(TObject)
　　private
　　　　FNewProp:string;
　　　　FNewProp2:string;
　　public
　　　　constructor Create;
　　　　function Func1(int i):int;
　　　　function Func2(str:TStrings):boolean;
　　public
　　　　property NewProp2:string read FNewProp2 write FNewProp2;
　　published
　　　　property NewProp:string read FNewProp write FNewProp;
　　end;
implementation
type
　　TFunctions = class(TfsRTTIModule)
　　private
　　private
　　　　//函数调用
　　　　function CallMethod(Instance: TObject; ClassType: TClass; const MethodName: String; Caller: TfsMethodHelper): Variant;
　　　　//属性获取
　　　　function GetProp(Instance: TObject; ClassType: TClass; const PropName: String): Variant;
　　　　//属性设置
　　　　procedure SetProp(Instance: TObject; ClassType: TClass; const PropName: String; Value: Variant);
public
　　　　//在构照器进行类型，函数说明
　　　　constructor Create(AScript: TfsScript); override;
end;
{ TMyClass }
function TMyClass.Func1(int i):int;
begin
　　result:=0;
end;
function TMyClass.Func2(str:TStrings):boolean;
begin
　　result:=True;
end;
{ TFunctions }
function TFunctions.CallMethod(Instance: TObject; ClassType: TClass; const MethodName: String; Caller: TfsMethodHelper): Variant;
begin
　　Result := 0;
　　//根据函数名调用实际执行的函数,关键当参数为类对象时的转换，看函数Func2的调用写法
　　if ClassType = TMyClass then
　　begin
　　　　if MethodName = 'CREATE' then
　　　　　　Result := Integer(TMyClass.Create)
　　　　else if MethodName = 'FUNC1' then
　　　　　　Result:= TMyClass(Instance).Func1(Caller.Params[0]))
　　　　else if MethodName = 'FUNC2' then
　　　　　　Result := TMyClass(Instance).Func2(TStrings(Integer(Caller.Params[0])))
　　　　end;
end;
constructor TFunctions.Create(AScript: TfsScript);
begin
　　inherited;
　　with AScript do
　　begin
　　　　//添加类说明，第一个参数为被说明的类，第二个参数为该类型的基类
　　　　with AddClass(TMyClass, 'TObject') do
　　　　begin
　　　　　　//添加函数定义说明，第二个参数是该函数由哪个函数调用
　　　　　　AddMethod('function Func1(int i):int;',CallMethod);
　　　　　　AddMethod('function Func2(str:TStrings):boolean;',CallMethod);
　　　　end;
　　end;
end;
function TFunctions.GetProp(Instance: TObject; ClassType: TClass; const PropName: String): Variant;
begin
　　//添加属性说明，published属性不必添加
　　if ClassType = TMyClass then
　　begin
　　　　if PropName = 'NewProp2' then
　　　　　　Result := TMyClass(Instance).NewProp2;
　　end
end;
procedure TFunctions.SetProp(Instance: TObject; ClassType: TClass; const PropName: String; Value: Variant);
begin
　　if ClassType = TMyClass then
　　begin
　　　　if PropName = 'NewProp2' then
　　　　　　TMyClass(Instance).NewProp2:=Value;
　　end
end;
initialization
　　//文件加载时，将解析类TFunctions添加到脚本引擎RTTI库　　
　　fsRTTIModules.Add(TFunctions);
finalization
fsRTTIModules.Remove(TFunctions);