IMetabaseAuthenticationPolicy.AuthenticationType

Синтаксис Fore

AuthenticationType: MetabaseAuthenticationType;

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

AuthenticationType: MetabaseAuthenticationType;

Описание

Свойство AuthenticationType возвращает способ аутентификации, используемый в репозитории.

Пример Fore

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

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Policy: IMetabasePolicy;
    AP: IMetabaseAuthenticationPolicy;
    MAT: MetabaseAuthenticationType;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    Policy := MS.Policy;
    AP := Policy.AuthenticationPolicy;
    MAT := AP.AuthenticationType;
    If MAT=MetabaseAuthenticationType.Unknown Then
        Debug.WriteLine("Unknown");
    End If;
    If MAT=MetabaseAuthenticationType.External Then
        Debug.WriteLine("External");
    End If;
    If mat=MetabaseAuthenticationType.Mixed Then
        Debug.WriteLine("Mixed");
    End If;
End Sub UserProc;

После выполнения примера в окно консоли будет выведена используемая аутентификация в текущем репозитории.

Пример Fore.NET

Указанная процедура является точкой входа для .NET-сборки.

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Policy: IMetabasePolicy;
    AP: IMetabaseAuthenticationPolicy;
    MAT: MetabaseAuthenticationType;
Begin
    MB := Params.Metabase;
    MS := MB.Security;
    Policy := MS.Policy;
    AP := Policy.AuthenticationPolicy;
    MAT := AP.AuthenticationType;
    If MAT=MetabaseAuthenticationType.meautyUnknown Then
        System.Diagnostics.Debug.WriteLine("Unknown");
    End If;
    If MAT=MetabaseAuthenticationType.meautyExternal Then
        System.Diagnostics.Debug.WriteLine("External");
    End If;
    If mat=MetabaseAuthenticationType.meautyMixed Then
        System.Diagnostics.Debug.WriteLine("Mixed");
    End If;
End Sub;