Mit der Klasse
TSysLogClient ist es möglich Logmeldungen per UDP (Port 514) in das lokale Netzwerk zu senden.
Die Logmeldungen, auf auf verschiedenen Rechnern erzeugt werden, können dann gemeinsam auf einem (oder mehreren) Servern erfasst und angezeigt werden.
Das
SysLog-Protokoll, ursprünglich für Unix entwickelt, kann somit auch für Delphiprogramme verwendet werden.
Delphi-Quellcode:
// Beispielcode
const
SERVERMACHINE = ''; // '' bedeutet Broadcast an alle
var
syslog : TSysLogClient;
begin
syslog := TSysLogClient.Create(SERVERMACHINE, {Version=}slvRFC5424);
syslog.LogError('Fehlermeldung zum Testen von Syslog');
syslog.Free;
Die Klasse TSysLogClient benötigt die beiliegende Komponente TUdpSockUtil (muss nicht installiert werden) sowie die
Unit ISO8601 für die Formatierung von Datum und Zeit.
Zur Zeit wird das ältere BSD-Format (
RFC 3164) und das neuere Format aus
RFC 5424 unterstützt.
Um die Logmeldungen zu empfangen ist ein SysLog-Server erforderlich.
Empfehlenswert ist z.B.
SysLog Watcher 4.
Schon in der Personal-Version (max 5 Quellen) bietet dieser Syslog-Server eine Vielzahl an Funktionen (Filtern, Suchen, EMail-Benachrichtigung, Import, Export,...)