Disonnect(Value: 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;
В результате выполнения примера, после нажатия кнопки будет произведена проверка на количество активных пользователей репозитория. Если количество активных пользователей меньше 5, то в консоли будет выведено сообщение «Количество подключённых пользователей меньше 5». Если количество подключённых пользователей больше 5, то будет произведено отключение пользователя с идентификатором 5.
См. также: