mORMot Open Source

unit ServerModule;

interface

uses
  Classes, SysUtils, uniGUIServer, uniGUIMainModule, uniGUIApplication, uIdCustomHTTPServer,
  uniGUITypes,shellapi,  SynCommons,
  SpiderMonkey,
  SyNode,
  SyNodeProto,
  SyNodeSimpleProto;

type
  TUniServerModule = class(TUniGUIServerModule)
    procedure UniGUIServerModuleCreate(Sender: TObject);
  private
    { Private declarations }
  protected
    FSMManager: TSMEngineManager;
    FEngine: TSMEngine;
    procedure DoOnCreateNewEngine(const aEngine: TSMEngine);
    function DoOnGetEngineName(const aEngine: TSMEngine): RawUTF8;
    procedure doInteruptInOwnThread;
    procedure DoOnJSDebuggerInit(const aEngine: TSMEngine);
    procedure FirstInit; override;
  public
    { Public declarations }
  end;

function UniServerModule: TUniServerModule;

implementation

{$R *.dfm}

uses
  UniGUIVars;

function UniServerModule: TUniServerModule;
begin
  Result:=TUniServerModule(UniGUIServerInstance);
end;

procedure TUniServerModule.doInteruptInOwnThread;
begin

end;

procedure TUniServerModule.DoOnCreateNewEngine(const aEngine: TSMEngine);
begin
  aEngine.doInteruptInOwnThread := doInteruptInOwnThread;
  // in XE actual class of TMemo.lines is TMemoStrings - let's force it to be a TStrings like
  //aEngine.defineClass( TStrings, TStringsProto, aEngine.GlobalObject);
  // define a propery mainForm in the JavaScript
  aEngine.GlobalObject.ptr.DefineProperty(aEngine.cx, Pansichar( self.ClassName) ,
    // proeprty value is a wrapper around the Self
    CreateJSInstanceObjForSimpleRTTI(aEngine.cx, Self, aEngine.GlobalObject),
    // we can enumerate this property, it read-only and can not be deleted
    JSPROP_ENUMERATE or JSPROP_READONLY or JSPROP_PERMANENT
  );

end;

function TUniServerModule.DoOnGetEngineName(const aEngine: TSMEngine): RawUTF8;
begin
  Result:='My JSEngine';
end;

procedure TUniServerModule.DoOnJSDebuggerInit(const aEngine: TSMEngine);
begin

end;

procedure TUniServerModule.FirstInit;
begin
  InitServerModule(Self);
end;

procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject);
var res: jsval;
begin
  FSMManager := TSMEngineManager.Create(StringToUTF8(ExtractFilePath( ParamStr(0) )+'\core_modules'));
  // optionaly increase a max engine memory
  FSMManager.MaxPerEngineMemory := 512 * 1024 * 1024;
  // add a handler called every time new engine is created
  // inside a handler we can add a binding's to a native functions (implemented in Delphi)
  // and evaluate some initial JavaScripts
  FSMManager.OnNewEngine := DoOnCreateNewEngine;
  FSMManager.OnGetName := DoOnGetEngineName;
  //FSMManager.OnDebuggerInit := DoOnJSDebuggerInit;
  // start a JavaScript debugger on the localhost:6000
  //FSMManager.startDebugger('6000');
  // debugger can see engines created after startDebugger() call,
  // so we create a main engine after debugger is started
  // in this example we need only one engine (we are single-thread)
  //Exception is raised here
  FEngine := FSMManager.ThreadSafeEngine(nil);
  FEngine.Evaluate('var i=0;',Self.ClassName+'.js', 1, res)

end;

initialization
  RegisterServerModuleClass(TUniServerModule);
end.