IConnectedUsersInfoEx.Disconnect

Синтаксис

Disonnect(Value: IConnectedUserInfoEx);

Disonnect(Value: Prognoz.Platform.Interop.Metabase.IConnectedUserInfoEx);

Описание

Метод Disconnect отключает активного пользователя от репозитория.

Пример

Для выполнения примера предполагается наличие компонента Button с идентификатором Button1.

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    MB: IMetabase;
    User: IConnectedUserInfoEx;
    Users: IConnectedUsersInfoEx;
Begin
    MB := MetabaseClass.Active;
    Users := MB.GetConnectedUsersEx;
    If Users.Count < 5 Then
            Debug.Write("Количество подключённых пользователей меньше 5");
    Else
        User := Users.Item(5);
        Users.Disconnect(User);
    End If;
End Sub Button1OnClick;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    MB: IMetabase;
    User: IConnectedUserInfoEx;
    Users: IConnectedUsersInfoEx;
Begin
    MB := Self.Metabase;
    Users := MB.GetConnectedUsersEx();
    If Users.Count < 5 Then
            System.Diagnostics.Debug.Write("Количество подключённых пользователей меньше 5");
    Else
        User := Users.Item[5];
        Users.Disconnect(User);
    End If;
End Sub;

В результате выполнения примера, после нажатия кнопки будет произведена проверка на количество активных пользователей репозитория. Если количество активных пользователей меньше 5, то в консоли будет выведено сообщение «Количество подключённых пользователей меньше 5». Если количество подключённых пользователей больше 5, то будет произведено отключение пользователя с идентификатором 5.

См. также:

IConnectedUsersInfoEx