IMetabaseUpdateNode.AccessAllowed

Синтаксис Fore

AccessAllowed([accesstype: MetabaseUpdateCopyType = 1]):MetabaseUpdateNodeAccessType;

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

AccessAllowed(accesstype: Prognoz.Platform.Interop.Metabase.MetabaseUpdateCopyType):MetabaseUpdateNodeAccessType;

Параметры

accesstype. Тип копирования обновления. Необязательный параметр, значение по умолчанию - 1 (Available).

Описание

Свойство AccessAllowed возвращает тип доступа к объекту обновления.

Пример Fore

Для выполнения примера добавьте ссылки на системные сборки «Metabase». Предполагается наличие файла обновления «C:\Update.pefx». В репозитории предполагается наличие объекта с идентификатором «OBJ1».

Sub Main;
Var
    MB: IMetabase;
    Update: IMetabaseUpdate;
    UON: IMetabaseUpdateObjectNode;
    obj: IMetabaseObjectDescriptor;
    objkey: integer;
Begin
    MB := MetabaseClass.Active;
    Update := Mb.CreateUpdate;
    Update.LoadFromFileNF("D:\Update.pefx");
    obj := MB.ItemById("OBJ1");
    objkey := obj.Key;
    Update.AllowReplaceSD := True;
    UON := Update.RootFolder.FindObject(objkey);
    UON.UpdatePart := MetabaseObjectUpdatePart.ReplaceSecurityDescriptor;
    debug.WriteLine(UON.AccessAllowed);
End Sub Main;

После выполнения примера в окне консоли отобразится информация с типом доступа к объекту с идентификатором «OBJ1».

Пример Fore.NET

Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Update: IMetabaseUpdate;
    UON: IMetabaseUpdateObjectNode;
    obj: IMetabaseObjectDescriptor;
    objkey: uinteger;
Begin
    MB := Params.Metabase;
    Update := Mb.CreateUpdate();
    Update.LoadFromFileNF("D:\"+ "Update.pefx", UpdateLoadMode.ulmReplace);
    obj := MB.ItemById["FLASH_DO"];
    objkey := obj.Key;
    Update.AllowReplaceSD := True;
    UON := Update.RootFolder.FindObject(objkey);
    UON.UpdatePart := MetabaseObjectUpdatePart.moupReplaceSecurityDescriptor;
    System.Diagnostics.Debug.WriteLine(UON.AccessAllowed[MetabaseUpdateCopyType.muctAvailable]);
    End Sub;

См. также:

IMetabaseUpdateNode