IConnectedUserInfoEx.HostName

Синтаксис Fore

HostName: String;

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

HostName: string;

Описание

Свойство HostName возвращает наименование рабочей станции, с которой осуществлено подключение к репозиторию.

Пример Fore

Для выполнения примера предполагается наличие компонента 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;

В результате выполнения примера после нажатия кнопки произойдет проверка на наличие активных пользователей. Если количество активных пользователей равно 0, то в консоли будет выведено сообщение "Нет подключенных пользователей". Если подключенные пользователи есть, то в консоль будет выведена информация о пользователе с идентификатором 0: имя рабочей станции, имя пользователя ОС, сетевой адрес компьютера и имя пользователя платформы.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

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;

См. также:

IConnectedUserInfoEx