Получить название департамента пользователя из общего списка контактов по идентификатору пользователя (UIN).

 

Синтаксис

function mGetUserDepartmentName(iUIN: integer): string;

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

iUIN

integer

уникальный идентификатор пользователя.

 

Результат функции

Название группы. Если общий список контактов пуст, UIN пользователя не существует или не находится в общем списке контактов, будет возвращена пустая строка.

 

Пример
В примере перебираются все зарегистрированные пользователи сервера, начиная с UIIN = 1, если кто-то из них входит в общий список контактов, то выводится в консоль UIN этого пользователя, его отображаемое имя в чате и название группы в общем списке контактов.

var
  i, iMax: integer;
  s, sName: string;
begin
  iMax :=  mGetMaxRegisteredUIN; 
  s := '';
  
    for i := 1 to iMax do 
      if mIsUINExists(i) then begin
        sName := mGetUserDepartmentName(i);
        
          if length(sName) > 0 then begin
            s := s +
                 'User UIN ' + inttostr(i) + 
                 ', Name: "' + mGetUserAttribute(i, 'DisplayName') + '" ' +
                 'is in common contacts list, group : "' + sName + '"' +
                 CRLF;
          end;
      end;
  
    if length(s) > 0 then mLogScript(s, '')
      else mLogScript('Common contacts list is empty!', '');
end.

Результат работы скрипта

[11:48:05] (Log "mGetUserDepartmentName"): User UIN 3, Name: "Андрей Раков" is in common contacts list, group : "Teamleads"

User UIN 6, Name: "Алексей Пикуров" is in common contacts list, group : "Отдел продаж"

User UIN 5454, Name: "Ноутбук Асеров" is in common contacts list, group : "Бухгалтерия"

User UIN 15427, Name: "Георгий Лысенко" is in common contacts list, group : "Разработчики MyChat"

[11:48:05] (Run "mGetUserDepartmentName"): Время выполнения скрипта: 703 мс

[11:48:05] (Run "mGetUserDepartmentName"): Скрипт выполнен успешно.

 

Ещё посмотреть

CRLF

IntToStr

Length

mIsUINExists

mGetMaxRegisteredUIN

mGetUserAttribute

mLogScript