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