AVZ 5. Руководство пользователя
×

16.45.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.
 
 
 
В примере использовались: GetComputerName, GetDetectedCount, GetSuspCount, RunScan