IMetabaseCustomEvents.OnBeforeLogon

Синтаксис

OnBeforeLogon(Args: IMetabaseOnBeforeLogonArgs);

Описание

Метод OnBeforeLogon реализует событие, которое наступает перед подключением к репозиторию с помощью веб-сервиса.

Комментарии

Метод должен быть переопределён в пользовательском классе. Использование данного метода позволяет переопределить параметры подключения к репозиторию или выполнить какие-либо дополнительные действия при подключении.

Для подключения к репозиторию используется операция OpenMetabase.

Пример

Указанный пример в общем виде демонстрирует класс, который может использоваться для обработки события подключения к репозиторию из веб-сервиса.

Public Class CustomEvents: ForeMetabaseCustomEvents
    
Public Sub OnBeforeLogon(Args: IMetabaseOnBeforeLogonArgs);
    
Var
        Def: IMetabaseDefinition;
        SecPackage: ISecurityPackage;
        Creds: IPasswordCredentials;
    
Begin
        
If True Then
            Args.Handled := 
False;
            Args.AllowLogon := 
True;
            Args.ResultMetabase := Args.Metabase;
        
Else
            Args.Handled := 
True;
            Args.AllowLogon := 
True;
            Def := Args.Metabase.Definition;
            
//...
            //Изменение параметров подключения
            ///...
            SecPackage := New StandardSecurityPackage.Create;
            Creds := SecPackage.CreateCredentials(AuthenticationMode.Password) 
As IPasswordCredentials;
            Creds.UserName := (Args.Credentials 
As IPasswordCredentials).UserName;
            Creds.Password := 
"new password";
            
//...
            //Настройка учётных данных
            //...
            Args.ResultMetabase := Def.Open(Creds);
        
End If;
    
End Sub OnBeforeLogon;
End Class CustomEvents;

См. также:

IMetabaseCustomEvents