IAccessControlList.Assign

Синтаксис

Assign(Source: IAccessControlList);

Параметры

Source. Элементы контроля доступа объекта-источника.

Описание

Метод Assign заменяет элементы списка элементами из другого списка.

Пример

Для выполнения примера предполагается наличие в репозитории объекта с идентификатором OBJ1 и OBJ2.

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

Sub UserProc;
    Var
        MB: IMetabase;
        ObjDesc: IMetabaseObjectDescriptor;
        ObjDesc2: IMetabaseObjectDescriptor;
        SecDesc: ISecurityDescriptor;
        SecDesc2: ISecurityDescriptor;
        AcessCL: IAccessControlList;
        AcessCL2: IAccessControlList;
    Begin
        MB:=MetabaseClass.Active;
        ObjDesc:=MB.ItemById("OBJ1");
        SecDesc:=ObjDesc.SecurityDescriptor;
        SecDesc.Edit;
        AcessCL:=SecDesc.Acl;
        ObjDesc2:=MB.ItemById("NSI");
        SecDesc2:=ObjDesc2.SecurityDescriptor;
        AcessCL2:=SecDesc2.Acl; 
        AcessCL.Assign(AcessCL2);
        SecDesc.Apply(True);
End Sub UserProc;

После выполнения примера элементы списка контроля доступа OBJ1 заменятся элементами списка контроля доступа OBJ2.

См. также:

IAccessControlList