16.46.2. function SendSyslogMessage
function SendSyslogMessage(AHost, AMessageSt: string) : boolean;
Начиная с версии AVZ 5.63 поддерживается дополнительный необязательный параметр :
function SendSyslogMessage(AHost, AMessageSt: string; AEncoding : integer = 0) : boolean;
Отправляет сообщение стандартной службе Syslog на указанном сервере, удобно для регистрации различных событий.
Параметр AHost задает имя или IP адрес хоста. До с версии 5.63 передача велась на заданный в параметре хост по стандартному порту 514/UDP, начиная с 5.63 при необходимости порт можно задать в явном виде, указав имя хоста в формате "host_name:NNNN", где NNNN - номер порта. Например: 192.168.0.5:12345
Параметр AMessageSt содержит передаваемого текст сообщения. Важно учесть, что поддержка кодировки, отличной от ASCII, и корректная поддержка символов национальных алфавитов зависит от реализации сервера SYSLOG и его настроек и в общем случае не гарантируется.
Параметр AEncoding задает кодировку отправляемого сообщения, возможны варианты:
0 - однобайтная кодировка ASCII, значение по умолчанию;
1 - UNICODE, порядок байт Big Endian;
2 - UNICODE, порядок байт Little Endian;
3 - UTF8.
Пример:
begin
// Запуск сканирования
RunScan;
// Что-то подозрительное ??
if (GetSuspCount > 0) or (GetDetectedCount > 0) then begin
SendSysLogMessage('172.20.97.28',
'Report from computer "' + GetComputerName + '" '+
'SuspCount = ' + InttoStr(GetSuspCount) + ', '
'DetectedCount = ' + InttoStr(GetDetectedCount)
);
end;
end.