MyChat Server: 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.
Дивитися ще