package.cpath = getWorkingFolder().."\\Libraries\\Test.dll"
require("Test")

------------------------------------------------------------------
Run = true
function main()
    message(get_test.test_info())
    while (Run) do
        sleep(100)
    end
end
------------------------------------------------------------------
function OnStop()
    Run = false
    return 5000;
end
function OnClose()
    Run = false
end

package.cpath = getWorkingFolder().."\\Libraries\\Test.dll"

function OnInit()
    require("Test")
end
------------------------------------------------------------------
Run = true
function main()
    message(get_test.test_info())
    while (Run) do
        sleep(100)
    end
end
------------------------------------------------------------------
function OnStop()
    Run = false
    return 5000;
end
function OnClose()
    Run = false
end

      unk :  =     nil  ;
  OleCheck(CLRCreateInstance(CLSID_CLRMetaHost, IID_ICLRMetaHost, unk));
  FMetaHost :  =   unk as ICLRMetaHost;
    

    unk : =   nil ;
  OleCheck(CLRCreateInstance(CLSID_CLRMetaHost, IID_ICLRMetaHost, unk));
  FMetaHost : =  unk as ICLRMetaHost;
  

    unk : =   nil ;
  OleCheck(CLRCreateInstance(CLSID_CLRMetaHost, IID_ICLRMetaHost, unk));
  FMetaHost : =  unk as ICLRMetaHost;
  unk : =   nil ;
  OleCheck( FMetaHost.GetRuntime (PWideChar(AClrVer), IID_ICLRRuntimeInfo, unk));
  FRuntimeInfo : =  unk as ICLRRuntimeInfo;
   FRunTimeInfo.SetDefaultStartupFlags (GetLoaderFlags(ConcurrentGC, LoaderFlags),  nil ); //Установим загрузочные флаги
  OleCheck( FRuntimeInfo.IsLoadable (isLoaded)); //Проверяем на загружена ли сборка
   if   not  isLoaded  then 
    raise  EOleError.CreateFmt (ECRLNotLoaded, [AClrVer]);
  unk : =   nil ;
  OleCheck( FRuntimeInfo.GetInterface (CLASS_CorRuntimeHost, IID_ICorRuntimeHost, unk));
  FDefaultInterface : =  unk as ICorRuntimeHost;
  FDefaultInterface.Start;
  iDomain : =  iHost.DefaultAppDomain;
  RawAssembly : =  LoadAssemble( 'TestCrl.dll' ); //Загрузка сборки в VarArray
   & type : =   iAssm.GetType_2 (typeName); //Получаем тип класса
  ov : =   &  type.InvokeMember_3 ( 'ctor' , BindingFlags_CreateInstance,  nil , null,  nil ); //Создаем класс
   if  VarSupports(ov, ITest, test)  then  //Получаем интерфейс
     test.ShowMessage ( 'Hi World' );  //Вызываем функцию интерфейса
   ..  .. 
  //Обнуляем интерфейсы
  

function summ()
   for i = 1, 100000000 do
        r = i + i;
    end
end

  unk := nil;
  OleCheck(CLRCreateInstance(CLSID_CLRMetaHost, IID_ICLRMetaHost, unk));
  FMetaHost := unk as ICLRMetaHost;
  unk := nil;
  OleCheck(FMetaHost.GetRuntime(PWideChar(AClrVer), IID_ICLRRuntimeInfo, unk));
  FRuntimeInfo := unk as ICLRRuntimeInfo;
  FRunTimeInfo.SetDefaultStartupFlags(GetLoaderFlags(ConcurrentGC, LoaderFlags), nil); //Установим загрузочные флаги
  OleCheck(FRuntimeInfo.IsLoadable(isLoaded)); //Проверяем на загружена ли сборка
  if not isLoaded then
    raise EOleError.CreateFmt(ECRLNotLoaded, [AClrVer]);
  unk := nil;
  OleCheck(FRuntimeInfo.GetInterface(CLASS_CorRuntimeHost, IID_ICorRuntimeHost, unk));
  FDefaultInterface := unk as ICorRuntimeHost;
  FDefaultInterface.Start;
  iDomain := iHost.DefaultAppDomain;
  RawAssembly := LoadAssemble('TestCrl.dll'); //Загрузка сборки в VarArray
  &type := iAssm.GetType_2(typeName); //Получаем тип класса
  ov := &type.InvokeMember_3('ctor', BindingFlags_CreateInstance, nil, null, nil); //Создаем класс
  if VarSupports(ov, ITest, test) then //Получаем интерфейс
    test.ShowMessage('Hi World');  //Вызываем функцию интерфейса
  ....
  //Обнуляем интерфейсы