InitAssembly;
Метод InitAssembly осуществляет базовую настройку .NET-сборки.
В результате выполнения метода в сборку будут внесены следующие изменения:
в сборке будет создан новый модуль Program, содержащий точку входа;
будет добавлена ссылка на сборку репозитория Metabase;
будет добавлена ссылка на .NET-сборку System, зарегистрированную в GAC.
Sub CreateNETAssembly;
Var
MB: IMetabase;
CrInfo: IMetabaseObjectCreateInfo;
NETAssembly: IForeNETAssembly;
Begin
MB := MetabaseClass.Active;
CrInfo := MB.CreateCreateInfo;
CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_NETASSEMBLY;
CrInfo.Name := "Новая сборка";
CrInfo.Parent := MB.Root;
CrInfo.Permanent := True;
NETAssembly := MB.CreateObject(CrInfo).Bind As IForeNETAssembly;
NETAssembly.InitAssembly;
End Sub CreateNETAssembly;
После выполнения примера в корневом каталоге репозитория будет создана новая .NET-сборка. Данная .NET-сборка будет содержать базовый модуль Program, содержащий точку входа. Также в сборке будут добавлены ссылки на сборку репозитория Metabase и .NET-сборку System.
См. также: