SysLog Client

[shmia]

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,...)

[mjustin]

Ist eventuell Unterstützung von Syslog-NG (http://de.wikipedia.org/wiki/Syslog-ng) geplant?

[shmia]

Zitat von mjustin:

Ist eventuell Unterstützung von Syslog-NG (http://de.wikipedia.org/wiki/Syslog-ng) geplant?

Unterstützung für den neueren RFC5424 ist in Arbeit.
Der Transport über TCP und TLS (Transport Layer Security) ist mir im Moment noch zu kompliziert.

[shmia]

Neue Version ist fertig.
Wer mag darf testen und Wünsche äussern.

[wpfleiderer]

Vielen Dank für die Arbeit!
Wie und womit könnte ich den Client testen? Ein Syslog-NG Server existiert!

Gruss Walter

[Sir Rufo]

Zitat von wpfleiderer:

Vielen Dank für die Arbeit!
Wie und womit könnte ich den Client testen? Ein Syslog-NG Server existiert!

Gruss Walter

Mit dem Code aus dem ersten Beitrag?