IMetabaseUpdateObjectNode.IsUnderUpdateRoot

Синтаксис Fore

IsUnderUpdateRoot: Boolean;

Синтаксис Fore.NET

IsUnderUpdateRoot: boolean;

Описание

Свойство IsUnderUpdateRoot возращает признак расположения объекта обновления под корнем IMetabaseUpdate.RootFolder.

Пример Fore

Для выполнения примера предполагается наличие файла обновления с наименованием «Update.pefx», в котором присутствует объект с идентификатором «FOLDER». На форме должен располагатся компонент Button с идентификатором «Button1».

Добавьте ссылку на системную сборку Metabase.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    MB: IMetabase;
    Update: IMetabaseUpdate;
    Object: IMetabaseUpdateObjectNode;
    Root: IMetabaseUpdateFolderNode;
Begin
    
//Получаем доступ к репозиторию
    MB := MetabaseClass.Active;
    
//Создаем объект обновления
    Update := Mb.CreateUpdate;
    
//Загружаем обновление из файла
    Update.LoadFromFileNF("C:\Update.pefx");
    
//Получаем объект, содержащий структуру файла
    Root := Update.RootFolder;
    
//Получаем объект с идентификатором «FOLDER»
    Object := Root.FindObject(MB.GetObjectKeyById("FOLDER"));
    
//Выводим признак расположения объекта обновления под корнем в консоль
    Debug.Write(Object.IsUnderUpdateRoot);
End Sub Button1OnClick;

В результате выполнения примера, после нажатия кнопки в консоли будет выведен признак того, располагается ли заданный объект обновления под корнем IMetabaseUpdate.RootFolder.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.Metabase;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    MB: IMetabase;
    Update: IMetabaseUpdate;
    Object: IMetabaseUpdateObjectNode;
    Root: IMetabaseUpdateFolderNode;
Begin
    
//Получаем доступ к репозиторию
    MB := Self.Metabase;
    
//Создаем объект обновления
    Update := Mb.CreateUpdate();
    
//Загружаем обновление из файла
    Update.LoadFromFileNF("C:\" + "Update.pefx", UpdateLoadMode.ulmReplace);
    
//Получаем объект, содержащий структуру файла
    Root := Update.RootFolder;
    
//Получаем объект с идентификатором «FOLDER»
    Object := Root.FindObject(MB.GetObjectKeyById("FOLDER"));
    
//Выводим признак расположения объекта обновления под корнем в консоль
    System.Diagnostics.Debug.Write(Object.IsUnderUpdateRoot);
End Sub;

См. также:

IMetabaseUpdateObjectNode