Функция для получения внутренних технических данных о работающем сервере MyChat.

 

Синтаксис

function mGetServerTechInfoInt(iID: integer): integer;

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

iID

integer

параметр, информацию о котором нужно получить. Возможные параметры:

0 — количество текущих активных клиентских подключений (online);

1 — максимальное возможное число подключений для данной лицензии.

 

Результат функции

Целое число. Если вы укажете несуществующий индекс, будет возвращено -1.

 

Пример

Скрипт для контроля максимального количества подключений. Работает на событие OnClientConnect. Необходимо предоставить гарантированный пул в 5 подключений для MyChat Integration API, для которого соединения происходят с локального IP 192.168.10.1:

function OnClientConnect(iCID: integer; sIP: string; iMajorVer, iMinorVer: integer): boolean;
var
  iMax, iCurrent: integer;
  bFlag: boolean;
begin
  bFlag := true;
  
  iCurrent := mGetServerTechInfoInt(0);
  iMax     := mGetServerTechInfoInt(1);
  
    if ((iMax - iCurrent) <= 5) and (sIP <> '192.168.10.1') then bFlag := false;
  result := bFlag;
end;
begin
end.

Результат работы скрипта

Если соединение происходит не с IP 192.168.10.1 и количество свободных соединений меньше 5, то пользовательское приложение будет отключаться от сервера.

 

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

OnClientConnect