MyChat Server: OnMediaCallFinished, медіа-дзвінок закінчений
Подія закінчення голосового відео дзвінка або дзвінка з шарингом екрану.
Шаблон події
procedure OnMediaCallFinish(iUINFrom, iUINTo, iCallType, iMID, iDuration, iCallState: integer; sUINFromClientType, sUINToClientType, sError: string);
begin
// your own code
end;
begin
end.
Замість коментаря може бути будь-який ваш код.
Опис параметрів
Параметр |
Тип |
Значення |
iUINFrom |
integer |
ідентифікатор користувача, який дзвонить; |
iUINTo |
integer |
ідентифікатор отримувача дзвінка; |
iCallType |
integer |
|
iMID |
integer |
унікальний номер дзвінка, який генерує сервер (Media ID); |
iDuration |
integer |
тривалість дзвінка в секундах, якщо дзвінок був успішним; |
iCallState |
integer |
статус закінчення дзвінка (вдало/невдало/помилка і т.д.); |
sUINFromClientType |
string |
тип застосунку, з якого відбувається дзвінок; |
sUINToClientType |
string |
тип застосунку, на якому приймається дзвінок; |
sError |
string |
текст помилки, якщо дзвінок був невдалим. |
Приклад
Скрипт відстежує всі дзвінки та надсилає налагоджувальну інформацію користувачеві з UIN=6 від імені вбудованого робота Elisa (UIN=0) у вигляді текстового повідомлення.
procedure OnMediaCallFinished(iUINFrom, iUINTo, iCallType, iMID, iDuration, iCallState: integer; sUINFromClientType, sUINToClientType, sError: string);
var
s: string;
begin
s := 'iUINFrom: ' + IntToStr(iUINFrom) + ', iUINTo: ' + IntToStr(iUINTo) + ', iCallType: ' + IntToStr(iCallType) + ', iMID: ' + IntToStr(iMID) + ', ' +
'iDuration: ' + IntToStr(iDuration) + ', iCallState: ' + IntToStr(iCallState) + ', ' +
'sUINFromClientType: ' + sUINFromClientType + ', sUINToClientType: ' + sUINToClientType + ', sError: ' + sError;
mSendPrivateMessage(0, 6, 'Call finished: ' + CRLF + s, 1);
end;
begin
end.
Дивитися ще