Подія MyChat Server: OnKanbanCommentAdd, розміщення коментаря до завдання на канбан-дошці
Подія, що виникає під час розміщення нового коментаря до завдання на канбан-дошці.
Шаблон події
function OnKanbanCommentAdd(iCID: int64; iUIN: integer; var sJSONData: string): boolean;
begin
result := true;
// your own code
end;
begin
end.
Замість коментаря може бути будь-який ваш код.
Опис параметрів
|
Параметр |
Тип |
Значення |
|
iCID |
int64 |
Connection ID клієнта-відправника, унікальний сеансовий ідентифікатор в онлайн структурі мережевих підключень до сервера; |
|
iUIN |
integer |
унікальний ідентифікатор відправника команди (число > 0); |
|
sJSONData |
string |
параметр, що змінюється, зміст команди у вигляді текстового JSON-рядка. |
|
Параметр sJSONData |
Тип |
Значення |
|
ID |
integer |
ідентифікатор канбан-проєкту, число; |
|
CommentType |
integer |
тип коментаря, усталене число 0 (написано людиною); |
|
CommentText |
string |
текст коментаря; |
|
Files |
object |
JSON-об'єкт у вигляді рядка зі списком файлів, необов'язковий параметр. |
Значення, що повертається
Стандартно функція повинна повертати true, проте, якщо ви повернете false, коментар не буде розміщено, а програма отримає помилку #0332. Ви також можете відредагувати об'єкт JSON, змінивши параметри команди на інші.
Приклад
При появі коментаря для будь-якого завдання у будь-якому проєкті на канбан-дошці надсилається повідомлення про це вказаному користувачеві (константа NOTIFY_USER).
const
NOTIFY_USER = 6;
function OnKanbanCommentAdd(iCID: int64; iUIN: integer; var sJSONData: string): boolean;
var
sComment, sMsg: string;
begin
if JSONGetString(sJSONData, 'CommentText', sComment) = 0 then
if length(sComment) > 0 then begin
sMsg := 'New kanban comment from "' + mGetUserAttribute(iUIN, 'DisplayName') + '"' + CRLF +
sComment;
mSendPrivateMessage(0, NOTIFY_USER, sMsg, 1);
end;
result := true;
end;
begin
end.
Дивитися ще