Append(Source: IAccessControlList);
Source. Дополнительные параметры безопасности объекта-источника.
Метод Append дополняет дополнительные параметры безопасности объекта.
Для выполнения примера предполагается наличие в репозитории объекта с идентификатором «OBJ1» и «OBJ2».
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("OBJ2");
SecDesc2:=ObjDesc2.SecurityDescriptor;
AcessCL2:=SecDesc2.Acl;
AcessCL.Append(AcessCL2);
SecDesc.Apply(True);
End Sub UserProc;
После выполнения примера дополнительные параметры безопасности объекта «OBJ1» дополнятся дополнительными параметрами «OBJ2».
См. также: