TBaseScriptEngine

type TBaseScriptEngine = class(TComponent)

protected

  fScripter: TTitanScripter;

  fPascalLanguage: TTitanPascal;

  FErrorType: Integer;

  fErrorDescription: string;

  fErrorModuleName: string;

  fErrorTextPos: Integer;

  fErrorPos: Integer;

  fErrorLine: Integer;

  fErrorMethodId: Integer;

  fOnExecuteLine: TExecuteLineEvent;

  fOnStopRunAtLine: TStopRunAtLineEvent;

  fOnError: TScriptErrorHandler;

  FScriptType: TScriptType;

  fStatus: TScriptStatus;

  fRunOrder: TScriptRunOrder;

  fLastRunLine: Integer;

  FFirstScript: string;

  FScriptText: string;

  FOnBeforeRunScript: TNotifyEvent;

  FOnAfterRunScript: TNotifyEvent;

  FOnAfterCompile: TNotifyEvent;

  FOnStopScript: TNotifyEvent;

  procedure OnThreadExecute();

  procedure DoShowErrorWithDialog;

  procedure DoShowErrorExtension;

  procedure DoShowErrorTimeEvent;

  procedure DoOnError();

  procedure _InitCompiler;

  function GetEventsOverrideMode;

  procedure SetEventsOverrideMode();

  procedure AddObjectToScript();

  procedure CommonRegisterVars; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  function IsScriptFileFormat(); virtual;

  function LoadScriptFromFile();

  function LoadScriptFromStream();

  property Scripter: TTitanScripter; [r]

  property ScriptType: TScriptType; [rw]

  property Status: TScriptStatus; [r]

  property LastRunOrder: TScriptRunOrder; [r]

  procedure EventsDeleteAll;

  procedure SyntaxCheck;

  procedure Compile;

  procedure Run;

  procedure RunToLine();

  procedure RunToNextLine;

  procedure RunFirstScript;

  procedure RunExtension;

  procedure RunTimeEvent;

  procedure Stop;

  procedure Clear;

  procedure TraceInto;

  procedure StepOver;

  property ScriptText: string; [rw]

  property EventsOverrideMode: TEventsOverrideMode; [rw]

  property ErrorType: Integer; [r]

  property ErrorDescription: string; [r]

  property ErrorModuleName: string; [r]

  property ErrorTextPos: Integer; [r]

  property ErrorPos: Integer; [r]

  property ErrorLine: Integer; [r]

  property ErrorMethodId: Integer; [r]

  property OnExecuteLine: TExecuteLineEvent; [rw]

  property OnStopRunAtLine: TStopRunAtLineEvent; [rw]

  property OnError: TScriptErrorHandler; [rw]

published

  property FirstScript: string; [rw]

  property OnBeforeRunScript: TNotifyEvent; [rw]

  property OnAfterRunScript: TNotifyEvent; [rw]

  property OnAfterCompile: TNotifyEvent; [rw]

  property OnStopScript: TNotifyEvent; [rw]

end;

TBaseScriptEngine

TObject