Добавить пользователя в общий древовидный список контактов.

 

Синтаксис

function mAddUserToCommonContacts(iUIN, iGroupID: integer): integer;

 

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

Параметр

Тип

Значение

iUIN

integer

уникальный идентификатор пользователя, >0;

iGroupID

integer

идентификатор группы в общем списке контактов, число >0.

 

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

0

ошибок нет, пользователь успешно добавлен в список контактов;

-1

пользователь уже находится в общем списке контактов;

-2

группы с таким номером не существует;

-3

несуществующий UIN пользователя;

-4

вы не можете добавить в общий список контактов встроенного робота с UIN = 0;

-5

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

 

Пример

var
  iGroupID, x: integer;
  sMsg: string;
begin
  iGroupID := mGetDepartmentIDByTextPath('MyChat Developers');
  
  mLogScript(inttostr(iGroupID), '');
  
    if iGroupID <> -1 then begin
      x := mAddUserToCommonContacts(30, iGroupID);
      
        case x of
          0: sMsg := 'all Ok!';
          -1: sMsg := 'user already is in the common contact list';
          -2: sMsg := 'wrong GroupID';
          -3: sMsg := 'user UIN does not exist';
          -4: sMsg := 'you can''t use UIN = 0';
        end;
        
      mLogScript(sMsg, IntToStr(x));  
    end;
end.

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

[13:57:32] (Log "mAddUserToCommonContacts"): 12

[13:57:32] (Log "mAddUserToCommonContacts"): [0] all Ok!

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

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

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

IntToStr

mGetDepartmentIDByTextPath

mLogScript