Log4Pascal est un projet open source qui vise à produire une unité de journalisation simple pour ObjectPascal (Delphi, Freepascal).
Log4Pascal n'est pas basé sur le package log4j de la Fondation du logiciel Apache. Eh bien, juste le nom.
Ajoutez simplement l'unité Log4Pascal.pas pour projeter.
Project -> Add to Project , puis localisez et choisissez le fichier.Le fichier journal est défini dans l'unité log4pascal, donc si vous souhaitez modifier, modifiez la ligne suivante:
initialization
Logger := TLogger.Create( ' Log.txt ' );SetQuietMode();SetNoisyMode();EnableTraceLog(); EnableDebugLog(); EnableInfoLog(); EnableWarningLog(); EnableErrorLog(); EnableFatalLog();DisableTraceLog(); DisableDebugLog(); DisableInfoLog(); DisableWarningLog(); DisableErrorLog(); DisableFatalLog();Clear(); Logger.Trace( ' Trace message log ' );
Logger.Debug( ' Message is logged only when in debug ' );
Logger.Info( ' Normal message log ' );
Logger.Warning( ' Warning message log ' );
Logger.Error( ' Error message log ' );
Logger.Fatal( ' Fatal message log ' );TRACE Trace message log [DATETIME HERE]
DEBUG Message is logged only when in debug [DATETIME HERE]
INFO Normal message log [DATETIME HERE]
WARN Warning message log [DATETIME HERE]
ERROR Error message log [DATETIME HERE]
FATAL Fatal message log [DATETIME HERE] En utilisant Lazarus (Pascal libre), il y avait 1 module de compilation d'erreurs: Identifier not found "DebugHook"
Donc, si vous souhaitez utiliser le log4pascal dans Free Pascal, vous devez supprimer (ou remplacer) la ligne suivante trouvée dans l'unité Log4Pascal:
if DebugHook = 0 then Exit;Ce logiciel est open source, sous licence The MIT License (MIT). Voir la licence pour plus de détails.