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

 

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

CRLF

IntToStr
mSendPrivateMessage