HostName: String;
HostName: string;
Свойство HostName возвращает наименование рабочей станции, с которой осуществлено подключение к репозиторию.
Для выполнения примера предполагается наличие компонента 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 = 0 Then
Debug.Write("Нет подключенных пользователей");
Else
User := Users.Item(0);
Debug.Write(User.UserName);
Debug.Write(User.HostName);
Debug.Write(User.NetAddress);
Debug.Write(User.UserOsName);
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 = 0 Then
System.Diagnostics.Debug.Write("Нет подключенных пользователей");
Else
User := Users.Item[0];
System.Diagnostics.Debug.Write(User.UserName);
System.Diagnostics.Debug.Write(User.HostName);
System.Diagnostics.Debug.Write(User.NetAddress);
System.Diagnostics.Debug.Write(User.UserOsName);
End If;
End Sub;
В результате выполнения примера после нажатия кнопки произойдет проверка на наличие активных пользователей. Если количество активных пользователей равно 0, то в консоли будет выведено сообщение «Нет подключенных пользователей». Если подключенные пользователи есть, то в консоль будет выведена информация о пользователе с идентификатором 0: имя рабочей станции, имя пользователя ОС, сетевой адрес компьютера и имя пользователя платформы.
См. также: