MyChat Scripts: функция mGetUserDepartmentID, идентификатор группы пользователя в общем списке контактов
Функция для получения числового идентификатора группы в общем древовидном списке контактов, в которой находится пользователь (по его 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"): Скрипт выполнен успешно.