FindSpecialObjectsNode: IMetabaseUpdateFindSpecialObjectsNode;
Метод FindSpecialObjectsNode осуществляет поиск объекта, определяющего параметры обновления специальных объектов.
Если объект не найден, то возвращается пустое значение и объект не создается.
Для создания нового объекта, определяющего параметры обновления специальных объектов, используйте свойство IMetabaseUpdate.SpecialObjectsNode.
Для выполнения примера предполагается наличие файла обновления Update.pefx.
Добавьте ссылку на системную сборку Metabase.
Sub Main;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
Update: IMetabaseUpdate;
SpecialObjNode: IMetabaseUpdateSpecialObjectsNode;
Begin
// Получим доступ к репозиторию
MB := MetabaseClass.Active;
MS := MB.Security;
Update := Mb.CreateUpdate;
Update.LoadFromFileNF("C:\Update.pefx");
// Проверим наличие специального объекта в обновлении
SpecialObjNode := Update.FindSpecialObjectsNode;
If SpecialObjNode <> Null Then
Debug.WriteLine("В обновлении есть специальный объект");
Else
SpecialObjNode := Update.SpecialObjectsNode;
SpecialObjNode.ApplyObject(MetabaseSpecialObject.SharedParams) := True;
End If;
Update.SaveToFileNF("C:\Update.pefx");
End Sub Main;
В результате выполнения примера в обновление, загруженное из файла Update.pefx, будут добавлены глобальные переменные:
При повторном выполнении в консоль будет выведено сообщение:
В обновлении есть специальный объект
См. также: