IMetabaseUpdateObjectNode.Object

Синтаксис

Object: IMetabaseObjectDescriptor;

Описание

Свойство Object определяет объект репозитория, который необходимо обновить.

Пример

Для выполнения примера предполагается наличие в репозитории контейнера пользовательских классов с идентификатором «CUSTOM_EXTENDER».

Sub Main;

Var

Mb: IMetabase;

Obj: IMetabaseObjectDescriptor;

Upd: IMetabaseUpdate;

Nd: IMetabaseUpdateObjectNode;

RootFolder: IMetabaseUpdateFolderNode;

NdFol: IMetabaseUpdateFolderNode;

Begin

Mb := MetabaseClass.Active;

Upd := Mb.CreateUpdate;

Obj := Mb.ItemById("CUSTOM_EXTENDER").Edit;

RootFolder := Upd.RootFolder;

Nd := RootFolder.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;

Nd.Object := Obj;

Nd.IncludeChildrenDependencies := TriState.OnOption;

NdFol := (Nd As IMetabaseUpdateFolderNode);

Debug.WriteLine("Число зависимых объектов, добавленных в обновление для объекта '" + Obj.Name + "': " + NdFol.Count.ToString);

Upd.SaveToFileNF("C:\Update.pefx");

End Sub Main;

После выполнения примера будет создано обновление, содержащее контейнер пользовательских классов «CUSTOM_EXTENDER» и все его дочерние объекты. Обновление будет сохранено в файл «C:\Update.pefx».

См. также:

IMetabaseUpdateObjectNode