ISecurityCategory.FindLevelByLabel

Синтаксис

FindLevelByLabel(CriticalityLabel: Integer): ISecurityLevel;

FindLevelByLabel(System.UInt32): Prognoz.Platform.Interop.Metabase.ISecurityLevel;

Параметры

CriticalityLabel. Метка критичности, по которой будет осуществляется поиск.

Описание

Метод FindLevelByLabel осуществляет поиск уровня с меткой критичности, передаваемой в качестве параметра CriticalityLabel.

Пример

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

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    MU: IMetabasePolicy;
    MAccess: IMetabaseMandatoryAccess;
    SecCat: ISecurityCategory;
    SecLev: ISecurityLevel;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    MU := MS.Policy;
    MAccess := MU.MandatoryAccess;
    SecCat := MAccess.Category(0);
    SecLev := SecCat.FindLevelByLabel(2);
    If SecLev <> Null Then
        Debug.WriteLine(SecLev.Name);
    End If;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    MU: IMetabasePolicy;
    MAccess: IMetabaseMandatoryAccess;
    SecCat: ISecurityCategory;
    SecLev: ISecurityLevel;
Begin
    MB := Params.Metabase;
    MS := MB.Security;
    MU := MS.Policy;
    MAccess := MU.MandatoryAccess;
    SecCat := MAccess.Category[0];
    SecLev := SecCat.FindLevelByLabel(2);
    If SecLev <> Null Then
        System.Diagnostics.Debug.WriteLine(SecLev.Name);
    End If;
End Sub;

После выполнения примера будет осуществлен поиск уровня безопасности с меткой критичности «2». В случае удачного поиска в консоль среды разработки будет выведено наименование найденного уровня.

См. также:

ISecurityCategory