Функция для получения внутренних технических данных о работающем сервере 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, то пользовательское приложение будет отключаться от сервера.