Подія закінчення голосового відео дзвінка або дзвінка з шарингом екрану.

 

Шаблон події


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.


Дивитися ще

CRLF

IntToStr
mSendPrivateMessage