Метод AddCopy осуществляет добавление копии указанного правила в политику.
Для выполнения примера убедитесь, что в структуре атрибутного доступа содержатся две политики. Во второй политике содержится правило с идентификатором RULE.
Добавьте ссылки на системные сборки: ABAC, Metabase, ForeSystem (для примера на Fore.NET).
Sub UserProc;
Var
PolicyObject: IABACRootPolicyObject;
PolicySet: IABACPolicySet;
Policy: IABACPolicy;
Rule: IABACRule;
MB: IMetabase;
MS: IMetabaseSecurity;
Lic: Object;
Begin
MB := MetabaseClass.Active;
// Получим лицензию для возможности работы с менеджером безопасности
Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
MS := MB.Security;
// Получим структуру атрибутного доступа
PolicyObject := MB.Security.Policy.ABACRules;
// Получим политику с индексом «1» в первом наборе политик
PolicySet := PolicyObject.Policies.Item(0);
Policy := PolicySet.Policies.Item(1);
// Найдем правило с идентификатором «RULE»
Rule := Policy.Rules.FindById("RULE");
// Получим политику с индексом «0»
Policy := PolicySet.Policies.Item(0);
// Скопируем найденное правило из политики с индексом «1» в политику с индексом «0»
Policy.Rules.AddCopy(Rule);
// Применим изменения в менеджере безопасности
MS.Apply;
// Освободим лицензию
Lic := Null;
End Sub UserProc;
Imports Prognoz.Platform.Interop.ABAC;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
PolicyObject: IABACRootPolicyObject;
PolicySet: IABACPolicySet;
Policy: IABACPolicy;
Rule: IABACRule;
MB: IMetabase;
MS: IMetabaseSecurity;
Lic: Object;
Begin
MB := Params.Metabase;
// Получим лицензию для возможности работы с менеджером безопасности
Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
MS := MB.Security;
// Получим структуру атрибутного доступа
PolicyObject := MB.Security.Policy.ABACRules;
// Получим политику с индексом «1» в первом наборе политик
PolicySet := PolicyObject.Policies.Item[0];
Policy := PolicySet.Policies.Item[1];
// Найдем правило с идентификатором «RULE»
Rule := Policy.Rules.FindById("RULE");
// Получим политику с индексом «0»
Policy := PolicySet.Policies.Item[0];
// Скопируем найденное правило из политики с индексом «1» в политику с индексом «0»
Policy.Rules.AddCopy(Rule);
// Применим изменения в менеджере безопасности
MS.Apply();
// Освободим лицензию
Lic := Null;
End Sub;
В результате выполнения примера в заданную политику атрибутного доступа будет скопировано существующее правило из другой политики.
См. также: