Создать новую группу в личном списке контактов для указанного пользователя.
function mPersonalContactsAddGroup(iUINOwner: integer; sGroupName: string): integer;
Параметр |
Тип |
Значение |
|---|---|---|
iUINOwner |
integer |
уникальный идентификатор пользователя, >0; |
sGroupName |
string |
название группы. Нельзя использовать управляющие символы, не должно быть пустым. |
>0 |
ошибок нет, группа успешно создана, результат = ID группы; |
-1 |
группа с таким названием уже есть в личном списке контактов пользователя; |
-2 |
название группы не может быть пустым или состоящим из пробелов; |
-3 |
несуществующий UIN пользователя; |
-4 |
название группы слишком длинное (ограничение не больше 255 символов по умолчанию); |
-5 |
в названии группы есть недопустимые символы (CRLF, управляющие непечатные символы UNICODE или ASCII); |
-6 |
UIN владельца группы не может быть 0 (встроенный робот). |
const
UIN_OWNER = 6;
GROUP_NAME = 'First group';
var
iGroupID: integer;
sMsg: string;
begin
iGroupID := mPersonalContactsAddGroup(UIN_OWNER, GROUP_NAME);
case iGroupID of
-1: sMsg := 'group with this name is already exists';
-2: sMsg := 'group name cannot be empty';
-3: sMsg := 'owner uin does not exist';
-4: sMsg := 'group name is too long';
-5: sMsg := 'group name has invalid characters';
-6: sMsg := 'you can''t use UIN = 0';
else begin
sMsg := 'all ok, GroupID = ' + IntToStr(iGroupID);
mPersonalContactsRefresh(UIN_OWNER);
end;
end;
mLogScript(sMsg, '');
end.[18:06:19] (Log "mPersonalContactsAddGroup"): all ok, GroupID = 1203
[18:06:19] (Run "mPersonalContactsAddGroup"): Время выполнения скрипта: 16 мс
[18:06:19] (Run "mPersonalContactsAddGroup"): Скрипт выполнен успешно.