项目作者: hiraethbbs

项目描述 :
Logger Implementation
高级语言: Pascal
项目地址: git://github.com/hiraethbbs/Renegade.Logger.git
创建时间: 2017-02-25T03:00:27Z
项目社区:https://github.com/hiraethbbs/Renegade.Logger

开源协议:GNU General Public License v3.0

下载


Renegade Logger Class

Logger class for Free Pascal

Usage

  1. uses
  2. Renegade.Logger,
  3. { Implement Logger.LoggingHandlerInterface
  4. (Logger.HandlerInterface unit)
  5. to create your own. }
  6. Logger.SysLogHandler,
  7. // or
  8. Logger.StreamHandler,
  9. Logger.ConsoleHandler,
  10. Logger.FileHandler,
  11. Logger.NullHandler,
  12. //... other units;
  13. var
  14. LogHandler : SysLogHandler;
  15. Log : RTLogger;
  16. begin
  17. LogHandler := SysLogHandler.Create(LOG_DAEMON);
  18. Log := RTLogger.Create(LogHandler);
  19. { Context is an array of consts
  20. It gets turned into json object in the log.
  21. It should be in the format ['Key', 'Value', 'Otherkey', 'Value']
  22. Put any context to your log messages here.
  23. e.g. ['UserID', User.getId(), 'Menu', Menu.getName()] }
  24. Log.Info('Testing', ['Context', 'LogContext']);
  25. Log.Debug('Debug Log', []);
  26. Log.Log(LOG_NOTICE, 'Notice Log', []);
  27. {
  28. Other Shortcuts
  29. Log.Emergency
  30. Log.Alert
  31. Log.Critical
  32. Log.Error
  33. Log.Warning
  34. Log.Notice
  35. }
  36. Log.Free;
  37. LogHandler.Free;
  38. end.