Добавить пользователя в личный список контактов указанного человека. Если группы с таким названием нет, она будет создана автоматически.
Если вам нужно добавить сразу несколько контактов в группу — используйте функцию 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"): Скрипт выполнен успешно.