ParentAssembly: IMetabaseObjectDescriptor;
Свойство ParentAssembly возвращает описание родительской сборки.
Если модуль/форма включены в состав какой-либо сборки, то свойство Standalone вернет значение False, и в данном свойстве можно получить описание родительской сборки. Если модуль/форма не включены в состав какой-либо сборки, то они реализуют временную сборку. Ее параметры будут доступны в свойстве Assembly.
Для выполнения примера предполагается наличие в репозитории модуля с идентификатором «TestModule».
Sub Main;
Var
MB: IMetabase;
Module: IModule;
Begin
MB := MetabaseClass.Active;
Module := MB.ItemById("TestModule").Bind As IModule;
If Not Module.Standalone Then
Debug.WriteLine("Родительская сборка: " + Module.ParentAssembly.Id);
Debug.WriteLine("Ссылки родительской сборки: " + (Module.ParentAssembly.Bind As IAssembly).References);
Else
Debug.WriteLine("Модуль не включен ни в одну сборку репозитория");
Debug.WriteLine("Ссылки модуля: " + Module.Assembly.References);
End If;
End Sub Main;
После выполнения примера в консоль среды разработки будет выведена информация о модуле: наличие родительской сборки и подключенные сборки.
См. также: