[Unit] Errorlog

[Fussball-Robby]

Mit der Unit ErrorLog ist es ganz einfach möglich, einen Errorlog für ein eigenes Programm zu erstellen, indem alle Fehler, die in der Anwendung auftreten, geloggt werden. Man muss die Unit unter uses eintragen und sich ganze 3 Befehle merken:ErrorLog.Start(FileName); Wie der Name schon sagt dient dieser Befehl zum starten des Protokollierens. Es wird eine Datei namens FileName angelegt, in der der Log gespeichert wird. Existiert die Datei bereits, wird die Liste zuvor noch geladen. Tritt kein Fehler auf, wird die Datei nicht erstellt.
Befehl No. 2 (ihr habt es euch bestimmt schon gedacht ):ErrorLog.Stop; Stoppt die Auflistung der Fehler bis wieder Start aufgerufen wird. Wird Start mit einem leeren String als Parameter aufgerufen, wird der FileName nicht erneuert, was nützlich zur Wiederaufnahme des Protokolls ist.
3. Befehl:ErrorLog.Write(Flag, Msg); Mit diesem Befehl ist es nun möglich, eigene Nachrichten zu loggen. Unter Flag trägt man quasi die Überschrift der Nachricht ein (z.B. "Info" oder "Warnung"). Msg ist dann die Nachricht, die geloggt wird.


Anwendung:
ErrorLog.Write('Info', 'Objekt XYZ wurde erstellt'); ergibt zum Beispiel:

Code:

[24.10.2008 / 17:01:42] [Info] Objekt XYZ wurde erstellt

Zusätzlich zu jeder Nachricht (eigene und automatisch geloggte) wird also das aktuelle Datum sowie die Uhrzeit gespeichert.

Vielleicht kann ja jemand die Unit gebrauchen.

Mfg

[HeinzJ]

Ich habe mit Log4D gute erfahrungen gemacht. Ist dem Log4J hervorgegangen. Hackelig waren u.a. nur die Anpassungen der INDY Geschichten.

Anstatt auftretende Fehler und Infomeldungen auf die Standardausgabe auszugeben, wird die Nachricht über sogenannte Logger in das Loggingsystem geleitet und gleichzeitig eine Einteilung der Wichtigkeit vorgenommen. Der Programmierer muss sich beim Erstellen des Programms nur um die Wichtigkeit der Meldungen Gedanken machen. Die Filterung und Art der Ausgabe kann zur Laufzeit konfiguriert werden.

[Relicted]

Ich war mal so dreist und habe deine Unit etwas angepasst. Kannst es ja falls du magst übernehmen.
Die wichtigste "Neuerung" ist das implementieren des "Singleton Designpatterns".
Ich persönlich mag globale Variablen nicht - daher habe ich mal diesen "Umweg" implementiert.

Gruß
Reli

[SubData]

So als kleine Anregung: HotLog

[SimStar001]

Hallo, ich wollte deine ErrorLog Unit verwende, nur leider kommt immer wenn ich auf ErrorLog.Start gehe eine AcessViolation in meiner Anwendung!? wieso das!? was könnte ich da flasch machen?

[Fussball-Robby]

Zitat von SimStar001:

Hallo, ich wollte deine ErrorLog Unit verwende, nur leider kommt immer wenn ich auf ErrorLog.Start gehe eine AcessViolation in meiner Anwendung!? wieso das!? was könnte ich da flasch machen?

Eigentlich kann da garnichts schief gehen. Es sei denn, ErrorLog wurde nicht erzeugt. Das passiert aber eigentlich automatisch in der Unit selbst unter initialization. Kannst ja mal nachschauen, ob das in der Unit ganz am Ende richtig drinsteht:

Delphi-Quellcode:

initialization
  ErrorLog := TErrorLog.Create;

finalization
  if ErrorLog <> nil then
    ErrorLog.Free;

end.

Ansonsten weiß ich nicht, wo eine AV auftreten könnte. Kommt die denn nicht wenn du ErrorLog.Start auskommentierst?

Edit: Evtl. könntest du ja auch mal auf ErrorLog.Start einen Breakpoint setzen (mit F5) und dann mit F7 debuggen, sind ja nur 2 oder 3 Zeilen Code.

[BUG]

Zitat von Fussball-Robby:

Delphi-Quellcode:

initialization
  ErrorLog := TErrorLog.Create;

finalization
  //if ErrorLog <> nil then //<= diese Zeile wird AFAIK nicht gebraucht,
  ErrorLog.Free;            //   da in free auf nil geprüft wird

end.

Ist zwar kein Fehler, überprüft ErrorLog aber zweimal.


MfG,
Bug

[Ruio]

Erstmal ist die Unit super.

Nur ich bekomme einen E/A-Fehler 32, wenn mehrere Anwendungen (andere und die selbe) auf den Log zugreifen.