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

 

Если вам нужно добавить сразу несколько контактов в группу — используйте функцию mPersonalContactsAddUsers.

 

Синтаксис

function mPersonalContactsAddUser(iUINOwner, iUIN: integer; sGroupName: string): integer;

 

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

Параметр

Тип

Значение

iUINOwner

integer

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

iUIN

integer

добавляемый пользователь, UIN > 0;

sGroupName

string

название группы. Нельзя использовать управляющие символы, не должно быть пустым.

 

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

=0

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

-1

несуществующий UIN-владелец личного списка контактов;

-2

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

-3

UIN не может быть равным 0 (встроенный робот);

-4

название группы не может быть пустым или состоящим из пробелов;

-5

название группы слишком длинное (ограничение не больше 255 символов по умолчанию);

-6

в названии группы есть недопустимые символы (CRLF, управляющие непечатные символы UNICODE или ASCII);

-7

нельзя добавить в личный список контактов самого себя;

-8

такой контакт уже есть в списке.

 

Пример

const
  UIN_OWNER  = 6;
  UIN_USER   = 3;
  GROUP_NAME = 'First group';
var
  sMsg: string;
  iResult: integer;
begin
  iResult := mPersonalContactsAddUser(UIN_OWNER, UIN_USER, GROUP_NAME);
   
    case iResult of
       0: begin
         sMsg := 'all ok!';
         mPersonalContactsRefresh(UIN_OWNER);
       end;  
      -1: sMsg := 'unknown owner UIN';
      -2: sMsg := 'wrong user UIN';
      -3: sMsg := 'you can''t use UIN = 0';
      -4: sMsg := 'group name cannot be empty';
      -5: sMsg := 'group name is too long';
      -6: sMsg := 'group name has invalid characters';
      -7: sMsg := 'you can''t add yourself to the personal contact list';
      -8: sMsg := 'such contact is already in the list';
     end;
        
  mLogScript(sMsg, '');  
end.

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

[18:58:40] (Log "mPersonalContactsAddUser"): such contact is already in the list

[18:58:40] (Run "mPersonalContactsAddUser"): Время выполнения скрипта: 5 мс

[18:58:40] (Run "mPersonalContactsAddUser"): Скрипт выполнен успешно.
 

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

mLogScript

mPersonalContactsRefresh