mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
65 lines
2.0 KiB
ObjectPascal
65 lines
2.0 KiB
ObjectPascal
|
unit CustomLoggerConfigU;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
LoggerPro; // loggerpro core
|
||
|
|
|
||
|
|
function GetLogger: ILogWriter;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses
|
||
|
|
System.IOUtils
|
||
|
|
, LoggerPro.FileAppender // loggerpro file appender (logs to file)
|
||
|
|
, LoggerPro.SimpleConsoleAppender // loggerpro simple console appender (logs to console with colors)
|
||
|
|
, LoggerPro.DBAppender.FireDAC // loggerpro DB Appender (logs to database)
|
||
|
|
{$IFDEF MSWINDOWS}
|
||
|
|
, LoggerPro.OutputdebugStringAppender// loggerpro outputdebugstring appender (logs to the debugger)
|
||
|
|
{$ENDIF}
|
||
|
|
, Commons, System.SysUtils, Data.DB, FireDAC.Comp.Client, FireDAC.Stan.Param;
|
||
|
|
|
||
|
|
const
|
||
|
|
FailedDBWriteTag = 'FailedDBWrite';
|
||
|
|
|
||
|
|
var _FallbackLog: ILogWriter;
|
||
|
|
|
||
|
|
function GetFallBackLogger: ILogWriter;
|
||
|
|
begin
|
||
|
|
if _FallbackLog = nil then
|
||
|
|
begin
|
||
|
|
_FallbackLog := BuildLogWriter([
|
||
|
|
TLoggerProSimpleFileAppender.Create(10, 2048, 'logs', TLoggerProFileAppender.DEFAULT_FILENAME_FORMAT)
|
||
|
|
]);
|
||
|
|
end;
|
||
|
|
Result := _FallbackLog;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function GetLogger: ILogWriter;
|
||
|
|
begin
|
||
|
|
Result := BuildLogWriter([
|
||
|
|
TLoggerProFileAppender.Create(10, 1000, TPath.Combine('MyFolder', 'MyLogs')),
|
||
|
|
TLoggerProDBAppenderFireDAC.Create(
|
||
|
|
CON_DEF_NAME,
|
||
|
|
'sp_loggerpro_writer',
|
||
|
|
// error handler, just write to disk on the server for later analysis
|
||
|
|
procedure(const Sender: TObject; const LogItem: TLogItem; const DBError: Exception; var RetryCount: Integer)
|
||
|
|
var
|
||
|
|
lIntf: ILogItemRenderer;
|
||
|
|
begin
|
||
|
|
lIntf := TLogItemRenderer.GetDefaultLogItemRenderer();
|
||
|
|
GetFallBackLogger.Error('DBAppender Is Failing (%d): %s %s', [RetryCount, DBError.ClassName, DBError.Message], FailedDBWriteTag);
|
||
|
|
GetFallBackLogger.Error(lIntf.RenderLogItem(LogItem), FailedDBWriteTag);
|
||
|
|
end),
|
||
|
|
TLoggerProSimpleConsoleAppender.Create
|
||
|
|
{$IFDEF MSWINDOWS}, TLoggerProOutputDebugStringAppender.Create{$ENDIF}
|
||
|
|
], nil, [
|
||
|
|
TLogType.Debug,
|
||
|
|
TLogType.Warning, {writes on DB only for WARNING+}
|
||
|
|
TLogType.Debug
|
||
|
|
{$IFDEF MSWINDOWS}, TLogType.Debug{$ENDIF}
|
||
|
|
]);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|