MyChat Server: OnConfJoin, ручний вхід користувача до конференції
Подія, що виникає лише за самостійної спроби входу користувача до конференції. Воно не працює, якщо користувача в конференцію включає сервер.
Шаблон події
function OnConfJoin(iCID, iUIN, iUID: integer; sConfName: string): boolean;
begin
// your own code
result := true;
end;
begin
end.
Замість коментаря може бути будь-який ваш код.
Опис параметрів
|
Параметр |
Тип |
Значення |
|
iCID |
integer |
Connection ID клієнта, унікальний сеансовий ідентифікатор в онлайн структурі мережевих підключень до сервера; |
|
iUIN |
integer |
унікальний ідентифікатор користувача (число > 0); |
|
iUID |
integer |
унікальний ідентифікатор конференції (число > 0); |
|
sConfName |
string |
текстова назва конференції. |
Значення, що повертається
Стандартно функція повинна повертати true, але ви можете заборонити користувачеві вхід до конференції, повернувши false. Жодних автоматичних попереджувальних повідомлень або повідомлень про помилку у клієнті показано не буде.
Приклад
function OnConfJoin(iCID, iUIN, iUID: integer; sConfName: string): boolean;
var
iHour: integer;
bFlag: boolean;
begin
bFlag := true;
iHour := HourOf(Now);
if (iHour >= 18) or (iHour < 9) then
if sConfName = 'main' then begin
mSendCustomMsgToClientConsoleByCID(iCID, 'Sorry, you can''t enter to this conference. Entering time is 9:00 - 18:00',
'Error', true, true, 78);
bFlag := false;
end;
result := bFlag;
end;
begin
end.
Скрипт перевіряє, щоб вхід до конференції "main" був дозволений лише в робочий час, з 9:00 до 18:00. Якщо користувач спробує увійти туди в інший час, скрипт заборонить це робити і надішле користувачеві в консоль таке повідомлення:
Sorry, you can't enter to this conference. Entering time is 9:00 - 18:00