mORMot Open Source

library JavaScriptRunnerLib;

uses
  SynSM,
  SynCommons;

{$R *.res}

procedure RunMethodTest(); stdcall;
var
  SMEngineManager: TSMEngineManager;
begin
  SMEngineManager := TSMEngineManager.Create;
//  SMEngineManager.ReleaseCurrentThreadEngine; // < it doesn't help at all
  SMEngineManager.Free;
end;

exports
  RunMethodTest;

begin

end.

program JavaScriptRunnerExample;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  Winapi.Windows,
  System.SysUtils;

type
  TRunMethodTestProc = procedure (); stdcall;

const
  ScriptRunnerLibFileName = 'JavaScriptRunnerLib.dll';

function LoadScriptRunnerLibrary: THandle;
begin
  result := LoadLibrary(ScriptRunnerLibFileName);
//  result := SafeLoadLibrary(ScriptRunnerLibFileName, SEM_FAILCRITICALERRORS);  // < it doesn't help
  if result = 0 then
    raise exception.CreateFmt('Error loading library %s', [ScriptRunnerLibFileName]);
end;

procedure Test2;
var
  LibHandle: THandle;
  RunMethodTestProc: TRunMethodTestProc;
begin
  LibHandle := LoadScriptRunnerLibrary;
  try
    RunMethodTestProc := GetProcAddress(LibHandle, 'RunMethodTest');
    RunMethodTestProc();
  finally
    FreeLibrary(LibHandle); // < after this command the application will crash within about 5 seconds
      // If I don't use the FreeLibrary() it won't crash but I need to it
  end;
end;

begin
  ReportMemoryLeaksOnShutdown := true;
  try
    writeln('start');
    Test2;
    writeln('sleep');
    sleep(5000);
    writeln('after sleep - press enter');
    //probably it will crash before this line
    Readln;
    writeln('ok');
  except
    on E: exception do
    begin
      writeln(E.ClassName, ': ', E.Message);
      readln;
    end;
  end;

end.