"Для разработчиков", "Серверные скрипты", "Скриптовые события", "OnMediaCallFinished".
Событие окончания голосового, видео звонка или звонка с шарингом экрана.
procedure OnMediaCallFinished(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.