Spring4D Logging

[dummzeuch]

Zitat von mytbo:

Wenn du am Logging interessiert bist, ist mORMot einen Blick wert.

Die Funktion TSynLog.Enter protokolliert Unit-, Klassen- und Funktionsname mit Quelltext-Zeilennummer. Beim Verlassen der Funktion wird die Ausführungszeit ermittelt. Im Beispiel sind es 42us. Mit dem Aufruf Log kann ein Eintrag hinzugefügt werden. Bei Angabe einer Instanz wird der Unit- und Klassenname mit dem Instanz Pointer aufgeführt. Es stehen 32 vordefinierte Events zur Verfügung. Bei einer Exception wird die Fehlermeldung und der Aufrufpfad, mit allen Unit-, Klassen- und Funktionsname inklusive Zeilennummern aufgelistet. Ein Beispiel aus der Praxis findest du im Quelltext dieses DP Artikels.

Hm, wie ermittelt das denn die Informationen zu Unit-, Klassen- und Funktionsname mit Quelltext-Zeilennummer ? Ich habe bisher dafür jclDebug benutzt, aber ich vermute mORMot verwendet die JCL nicht.

[Arnaud]

Zitat von dummzeuch:

Hm, wie ermittelt das denn die Informationen zu Unit-, Klassen- und Funktionsname mit Quelltext-Zeilennummer ? Ich habe bisher dafür jclDebug benutzt, aber ich vermute mORMot verwendet die JCL nicht.

Sie haben Recht: mORMot hat ihren eigenen .map file parser und kann ihn für den Stack-Trace verwenden, um alle Quellcode-Referenzen (Unit, Funktionsname und Zeilennummer) abzurufen. Es kann den .map-Inhalt viel stärker komprimieren als jclDebug und alternativ, da es sein eigenes optimiertes Binärformat verwendet.

[mytbo]

Zitat von dummzeuch:

Hm, wie ermittelt das denn die Informationen zu Unit-, Klassen- und Funktionsname mit Quelltext-Zeilennummer ?

Arnaud hat es angesprochen, du musst die Erstellung der Map-Datei detailliert für das Projekt aktivieren. Beim Programmstart wird automatisch aus der Map-Datei eine *.mab Datei erzeugt. Im obigen Beispiel ist die Map-Datei ca. 2,8MB, die Mab-Datei 0,17MB groß. Das Logging wird im mORMot2 Framework so effizient gehandhabt, dass es kein {$define WITHLOG} mehr gibt. Einfach selbst ausprobieren. Mit Hilfe dieser kurzen Anleitung ist es in 3 Minuten auf dem Rechner und bei Nichtgefallen in 3 Sekunden wieder spurlos entfernt.

Nachtrag: Warum belastet Logging mit mORMot nicht? Dazu folgender Quelltext aus der Unit mormot.core.log, Zeile 4223:

Delphi-Quellcode:

class function TSynLog.Add: TSynLog;
var
  P: pointer;
begin
  // inlined TSynLog.Family with direct fGlobalLog check
  result := pointer(Self);
  if result <> nil then
  begin
    P := PPointer(PAnsiChar(result) + vmtAutoTable)^;
    if P <> nil then
    begin
      // we know TRttiCustom is in the slot, and Private is TSynLogFamily
      P := TRttiCustom(P).PrivateSlot;
      result := TSynLogFamily(P).fGlobalLog;
      // <>nil for ptMergedInOneFile and ptIdentifiedInOneFile (most common case)
      if result = nil then
        result := TSynLogFamily(P).SynLog; // ptOneFilePerThread or at startup
    end
    else
      result := nil; // TSynLog.Family/FamilyCreate should have been called
  end;
end;

Gibt es keine LogFamily, ist der Overhead nur minimale Pointerei. Wer genau aufgepasst hat, sieht den Fehler in Funktion Test1 im Beispiel. Tipp: Es fehlt eine Prüfung auf Nil.

Bis bald...
Thomas