function IsObjValid(obj: TSomeObject): boolean;

begin

  Result := (obj.GetValue <> 0);

end;

I want to call this function from my Delphi code passing a TSomeObject instance. Therefore I register the TSomeObject class like this:

type

  TSomeObject = class end;

// ...

 cl := FScript.AddClass(TSomeObject, 'TObject');

  cl.AddMethod('function GetValue: integer', MethodSomeObjectGetValue);

... and call it like this:

  FCurrentObj := TStringList.Create;

  res := FScript.CallFunction('CheckInstance', Integer(FCurrentObj));

In MethodSomeObjectGetValue I expect Instance to be the value I passed as parameter above:

function TMyStript.MethodSomeObjectGetValue(Instance: TObject; ClassType: TClass;

const _MethodName: string; Caller: TfsMethodHelper): Variant;

begin

// function GetValue: integer

  Assert(Integer(_Instance) = Integer(FCurrentObj), 'invalid Instance value');

// .... more code

end;

But it is always NIL, so I must be doing something wrong, but what?

interface

uses

 {FastScript}

 fs_SynMemo;

type

 TScriptType = record

  DefaultExtension: string;

  DisplayName: string;

  FileMask: string;

  FastScriptLanguageName: string;

  SyntaxType: TSyntaxType;

 end;

const

 cFastScriptLanguageName_PascalScript = 'PascalScript';

const

 cFileMask_AllFiles = '*.*';

 cFileMask_CPPScript = '*.cpp';

 cFileMask_JScript = '*.js';

 cFileMask_PascalScript = '*.pas';

 cFileMask_VBScript = '*.vb';

const

 cScriptTypes: array [0..4] of TScriptType = (

  (DefaultExtension: 'vb'; DisplayName: 'Visual Basic Script Files'; FileMask: cFileMask_VBScript; FastScriptLanguageName: 'BasicScript'; SyntaxType: stVB),

  (DefaultExtension: 'cpp'; DisplayName: 'C++ Script Files'; FileMask: cFileMask_CPPScript; FastScriptLanguageName: 'C++Script'; SyntaxType: stCpp),

  (DefaultExtension: 'js'; DisplayName: 'JScript Files'; FileMask: cFileMask_JScript; FastScriptLanguageName: 'JScript'; SyntaxType: stJs),

  (DefaultExtension: 'pas'; DisplayName: 'Pascal Script Files'; FileMask: cFileMask_PascalScript; FastScriptLanguageName: cFastScriptLanguageName_PascalScript; SyntaxType: stPascal),

  (DefaultExtension: 'N/A'; DisplayName: 'All Files'; FileMask: cFileMask_AllFiles; FastScriptLanguageName: 'N/A'; SyntaxType: stText)

  );

function StringToSyntaxType(const AString: string): TSyntaxType;

implementation

uses

 {Delphi}

 System.SysUtils,

 {CEI}

 CEI.Exceptions;

function StringToSyntaxType(const AString: string): TSyntaxType;

var

 AScriptType: TScriptType;

begin

 for AScriptType in cScriptTypes do

  if SameText(AString, AScriptType.FastScriptLanguageName) then

   Exit(AScriptType.SyntaxType);

 raise ECEIException.CreateFmt('Unexpected FastScript language name: "%s"', [AString]); //Do Not Localize

end;

end.

getting error in new fastscript version

[dcc32 Error] CEIRADTool.Types.pas(15): E2003 Undeclared identifier: 'TSyntaxType'

[dcc32 Error] CEIRADTool.Types.pas(30): E2003 Undeclared identifier: 'stVB'

[dcc32 Error] CEIRADTool.Types.pas(31): E2003 Undeclared identifier: 'stCpp'

[dcc32 Error] CEIRADTool.Types.pas(32): E2003 Undeclared identifier: 'stJs'

[dcc32 Error] CEIRADTool.Types.pas(33): E2003 Undeclared identifier: 'stPascal'

[dcc32 Error] CEIRADTool.Types.pas(34): E2003 Undeclared identifier: 'stText'

[dcc32 Error] CEIRADTool.Types.pas(37): E2005 'TSyntaxType' is not a type identifier

[dcc32 Error] CEIRADTool.Types.pas(47): E2005 'TSyntaxType' is not a type identifier

[dcc32 Fatal Error] CEIRADTool.UI.SearchPath.pas(140): F2063 Could not compile used unit 'CEIRADTool.Types.pas'

my control penal version for fast report is in SS

Script := TfsScript.Create(Self);
  Script.SyntaxType := 'PascalScript';
  Script.Parent := fsGlobalUnit;
  Script.AddObject(Memo1.Name,Memo1);
  Script.AddClass(TMemo,TMemo.ClassParent.ClassName);

procedure MemClear;
begin
  Form1.Memo1.Clear;
end;

I need to create a JSon structure in a script and return the JSon structure to my main program.

Thanks in advance.

Regards,

TClassA = class

end;

TClassB = class

property Items: TList<TClassA> read FItems;

end;

I added an instance of TClassB to the script, but I can't use properties like Count or Items[index] to implement a loop.

I'm creating a PDF file from a template with an OnBeforePrint event. The report script works fine in FR 4 in Delphi 2010, but doesn't run in Delphi 10.1 Berlin with FastReport 5.

The code example is the following:

oExportFilter := TfrxExportPDF.Create(nil);
try
  if FReport.PrepareReport then //script runs in PrepareScript function inside for version 4
  begin
    //export FReport to PDF 
  end;
finally
  oExportFilter.Free;
end;

I try this code with the same result:

with FReport do begin
Freport.ScriptText.Clear; //clear script text
Freport.ScriptText.Add('procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);');
Freport.ScriptText.Add('Begin');
Freport.ScriptText.Add('Memotest.Color := $00FF0000;');
Freport.ScriptText.Add('end;');
Freport.ScriptText.Add('Begin');
Freport.ScriptText.Add('PageFooter1.OnbeforePrint :='+''''+'PageFooter1OnBeforePrint'+''''+';');
Freport.ScriptText.Add('end.');
FReport.ShowReport;
end;

The only problem is the report script. Has Embarcadero Rad Studio 10.1 Berlin support for FastScript? How to validate it?

Thanks in advance.

type

TMyProc = procedure(const AValue : String);

TMyFunc = function : Boolean;

I want to add TMyProc and TMyFunc types and use them in script.

Is it possible ? If yes, how ?

      ShowMessage('<GScriptKLE>');

ynAbort := myScript.ExecuteSubroutine('zBeforeDelete', [dmMain.DBConnection1, DataSet]);

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TBarSeries;
    ChartTool1: TColorBandTool;
    TrackBar1: TTrackBar;
    procedure FormShow(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  private
  public
  end;

...

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  ChartTool1.Gradient.Colors.Item[0].Offset:=0;
  ChartTool1.Gradient.Colors.Item[1].Offset:=TrackBar1.Position / 100;
  ChartTool1.Gradient.Colors.Item[2].Offset:=1;

  ChartTool1.Gradient.StartColor:=clGreen;
  ChartTool1.Gradient.MidColor:=clYellow;
  ChartTool1.Gradient.EndColor:=clRed;
end;

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
  Chart1.ChartTool1...???
end;

with fsGlobalUnit.AddClass(TAp, 'TObject') do
   begin
   { functions & procedures }
       AddMethod('function FindSAP(DevName: String)', CallTapMethod);
   end;
fsGlobalUnit.AddObject('App', TAp.NewInstance);
fsGlobalUnit.AddType('App', fvtClass);

with fsGLobalUnit.AddClass(TSap, 'TSObject') do
   begin
   { functions & procedures }
       AddMethod('function DoSomething():Boolean', CallYMethod);
   end;
fsGlobalUnit.AddObject('TSap', TSap.NewInstance);
fsGlobalUnit.AddType('TSap', fvtClass);

function TScriptHelper.CallTapMethod(Instance: TObject; ClassType: TClass;
                                     const MethodName: String; var Params: Variant): Variant;
begin
if (MethodName = 'FindSAP') then
    begin
      result := Integer(_uAp.TAp.Create().FindSAP(AnsiString(params)));
    end
end;

var
    x: TSap;
begin
    x:=App.FindSAP('value');
end;