Для разработчиков > Серверные скрипты > Скриптовые события > Chat events > Доска объявлений

"Для разработчиков", "Серверные скрипты", "Скриптовые события", "Chat events", "Доска объявлений", "OnBBSMessage".

Событие создания нового сообщения на общей доске объявлений MyChat.

Шаблон события

function OnBBSMessage(iCID, iUIN: integer; bStick: boolean; dtPosted, dtExpire: double; sMsg: string): boolean;
begin
  // your own code  
  result := true;
end;

begin

end.

Вместо комментария может быть любой ваш код.

Описание параметров

Параметр	Тип	Значение
iCID	integer	Connection ID клиента, уникальный сеансовый идентификатор в онлайн-структуре сетевых подключений к серверу;
iUIN	integer	уникальный идентификатор отправителя сообщения (число > 0);
bStick	boolean	"прилепленное" объявление. Если truе — разместить сообщение выше всех на доске;
dtPosted	double	дата и время размещения сообщения на доске, в UTC;
dtExpire	double	дата и время актуальности объявления (в UTC), после истечения которого оно будет автоматически перемещено в архив;
sMsg	string	текст сообщения.

Возвращаемое значение

True, если вы разрешаете размещение объявления на доске, False — если нет.

Пример

const
  sFileName = 'c:\denwer\home\company\www\bbs.html';

function OnBBSMessage(iCID, iUIN: integer; bStick: boolean; dtPosted, dtExpire: double; sMsg: string): boolean;
var
  s: string;
begin
  s := ReplaceString(sMsg, '<', '<', true, false);
  s := ReplaceString(s, '>', '>', true, false);
  
  s := '' + CRLF +
       '' + CRLF +
       s +
       '

' + CRLF +
       FormatDateTime('[dd.mm.yyyy hh:nn]', dtPosted) + ' ' +
       mGetUserAttribute(iUIN, 'DisplayName') + CRLF +
       '' + CRLF +
       '';

  DeleteFile(sFileName);
  AddLineToFile(s, sFileName);
  
  result := true;
end;

begin

end.

Скрипт создаёт html-файл для размещения на корпоративном WEB-сервере, где дублирует текст сообщения, а также указывает отправителя и дату размещения объявления.

После размещения сообщения на доске объявлений оно показывается в чате:

Новое сообщение на доске объявлений MyChat