Функция для получения числового идентификатора группы в общем древовидном списке контактов, в которой находится пользователь (по его UIN).

 

Синтаксис

function mGetUserDepartmentID(iUIN: integer): integer;

 

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

Параметр

Тип

Значение

iUIN

integer

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

 

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

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

 

Пример

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

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

[17:13:32] (Log "mGetUserDepartmentID"): User UIN 3, Name: "Андрей Раков" is in common contacts list: "Разработчики MyChat\Teamleads"

User UIN 6, Name: "Алексей Пикуров" is in common contacts list: "Разработчики MyChat\Teamleads"

User UIN 5454, Name: "Ноутбук Асеров" is in common contacts list: "Разработчики MyChat"

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

[17:13:32] (Run "mGetUserDepartmentID"): Время выполнения скрипта: 687 мс

[17:13:32] (Run "mGetUserDepartmentID"): Скрипт выполнен успешно.

 

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

CRLF

IntToStr

Length

mGetDepartmentTextPathByID

mIsUINExists

mGetMaxRegisteredUIN

mGetUserAttribute

mLogScript