Александр (Все сообщения пользователя)

  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 FindLuaLibrary(LuaState: lua_State) : Boolean;
type
  TLua_version_52 = function (L : lua_State) : Plua_Number; cdecl;
  TLua_version_54 = function (L : lua_State) : lua_Number; cdecl;

  PLuaState = ^TLuaState;
  TLuaState = record
    next: Pointer;
    tt: Byte;
    marked: Byte;
    case byte of
      53: (
        nci53: Word;
      );
      54: (
        status: byte;
        allowhook: byte;
        nci54: Word;
      );
  end;

  function IsModuleLoaded(const ModuleName : String; var Handle : THandle) : Boolean;
  begin
    Handle := GetModuleHandle(PChar(ModuleName));
    Result := Handle > 0;
  end;

var Handle53 : THandle;
    Handle54 : THandle;
    version52: TLua_version_52;
    version54: TLua_version_54;
begin
  Result := IsModuleLoaded(LuaLibName53, Handle53) and
            IsModuleLoaded(LuaLibName54, Handle54);
  if not Result then
    Exit;
  try
    if PLuaState(LuaState)^.status <> 0 then begin
      //Проверим версию для lua5.3
      version52 := GetProcAddress(Handle53, 'lua_version');
      Result := (@version52 <> nil) and (version52(LuaState)^ = LUA_VERSION_NUM_53);
      if Result then
        LuaLibName := LuaLibName53;
    end
    else begin
      //Проверим версию для Lua5.4
      version54 := GetProcAddress(Handle54, 'lua_version');
      Result := (@version54 <> nil) and (version54(LuaState) = LUA_VERSION_NUM_54);
      if Result then
        LuaLibName := LuaLibName54;
    end;
  except
    Result := False;
  end;
end;