"Для разработчиков", "Серверные скрипты", "Скриптовые события", "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.

 

Ещё посмотреть

CRLF

IntToStr
mSendPrivateMessage