Скрипт для создания гарантированного пула подключений для сервисов MyChat Integration API
Добавлено: Вс сен 03, 2017 7:15 pmЗадача следующая: есть компания, работает сервер MyChat, скажем, на 150 подключений. Активно используется уведомление пользователей из "1С: Предприятие" о разных событиях, а сервер MyChat уже "забит под завязку", лицензий свободных почти нет.
Расширение лицензии MyChat Server будут приобретать, а пока нужно обеспечить бесперебойную работу системы уведомлений, чтобы она не отваливалась, говоря, что свободные коннекты к серверу MyChat уже закончились.
Скрипт "сажается" на событие OnClientConnect и даёт гарантированный пул свободных соединений для указанного IP адреса, с которого идут уведомления из 1С:
Текст скрипта:
Расширение лицензии MyChat Server будут приобретать, а пока нужно обеспечить бесперебойную работу системы уведомлений, чтобы она не отваливалась, говоря, что свободные коннекты к серверу MyChat уже закончились.
Скрипт "сажается" на событие OnClientConnect и даёт гарантированный пул свободных соединений для указанного IP адреса, с которого идут уведомления из 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.