Recent changes to patches

#6 Defines.inc updated to support arbitrary future and current versions of Delphi

Jessica Brown — Sat, 17 May 2014 23:07:38 -0000

Or here is an alternate version with HAS_UNIT_CONTNRS instead of DELPHI5_UP which would support FPC/Delphi dual support more cleanly:

{ Define flags for different Delphi versions }

{$IFDEF VER120}  { Delphi 4 }
  {$DEFINE DELPHI4}
{$ENDIF}

{$IFDEF VER130}  { Delphi 5 }
  {$DEFINE HAS_UNIT_CONTNRS}
{$ENDIF}

{$IFDEF CONDITIONALEXPRESSIONS} { Delphi 6+ }

  {$IF CompilerVersion >= 14.0} { Delphi 6+ }
    {$DEFINE HAS_UNIT_CONTNRS}
  {$IFEND}

  {$IF CompilerVersion >= 15.0} { Delphi 7+ }
    {$DEFINE DELPHI7_UP}
  {$IFEND}

  {$IF CompilerVersion >= 22.0} { Delphi XE+ }
    {$DEFINE DELPHIXE_UP}
  {$ENDIF}

{$ENDIF}

{$IFDEF FPC}
  {$DEFINE HAS_UNIT_CONTNRS}

{$ENDIF}

#5 Delphi XE+ fix (ShortDateFormat)

Jessica Brown — Sat, 17 May 2014 23:03:21 -0000

I would consider changing the name of the IFDEF variable to the feature instead of the version, and set the versions that support that feature in the .inc file:

SetOption(DateFormatOpt, 
  {$IFDEF SUPPORTS_FORMATSETTINGS}FormatSettings.{$ENDIF}ShortDateFormat);

Defines.inc updated to support arbitrary future and current versions of Delphi

Jessica Brown — Sat, 17 May 2014 13:58:43 -0000

{ Define flags for different Delphi versions }

{$IFDEF VER120}  { Delphi 4 }
  {$DEFINE DELPHI4}
  {$DEFINE DELPHI4_UP}
{$ENDIF}

{$IFDEF VER130}  { Delphi 5 }
  {$DEFINE DELPHI4_UP}
  {$DEFINE DELPHI5_UP}
{$ENDIF}

{$IFDEF CONDITIONALEXPRESSIONS} { Delphi 6+ }

  {$IF CompilerVersion >= 14.0} { Delphi 6+ }
    {$DEFINE DELPHI4_UP}
    {$DEFINE DELPHI5_UP}
    {$DEFINE DELPHI6_UP}
  {$IFEND}

  {$IF CompilerVersion >= 15.0} { Delphi 7+ }
    {$DEFINE DELPHI7_UP}
  {$IFEND}

  {$IF CompilerVersion >= 22.0} { Delphi XE+ }
    {$DEFINE DELPHIXE_UP}
  {$ENDIF}

{$ENDIF}

Delphi XE+ fix (ShortDateFormat)

Michael Justin — Sat, 17 May 2014 07:32:05 -0000

ShortDateFormat is no longer available in newer Delphi versions. To fix the compiler errror:

download a newer version of iedi.inc from https://github.com/project-jedi/jedi/blob/master/jedi.inc
place the new jedi.inc in the Log4D source folder

change line 2211 in Log4D.pas to

SetOption(DateFormatOpt, 
  {$IFDEF DELPHIXE_UP}FormatSettings.{$ENDIF}ShortDateFormat);

or (with Free Pascal support):

procedure TLogCustomLayout.Init;
begin
  inherited Init;
  SetOption(DateFormatOpt,
    {$IFDEF DELPHIXE_UP}FormatSettings.{$ENDIF}
    {$IFDEF FPC}FormatSettings.{$ENDIF}
    ShortDateFormat);
end;

Free Pascal patch for Log4D.pas

Michael Justin — Sat, 17 May 2014 07:12:50 -0000

In Free Pascal applications Log4D causes a sigsegv (access violation) error at initialization. This is caused in TLogLog.Create and can be fixed by using a temporary variable:

constructor TLogLog.Create;
var
  TmpAppender: ILogAppender;
begin
  inherited Create('');

  TmpAppender := TLogODSAppender.Create('');
  AddAppender(TmpAppender);
  InternalDebugging := False;
  Level             := Log4D.Debug;
end;

Free Pascal patch for Log4D.pas

Michael Justin — Sat, 17 May 2014 07:05:29 -0000

Free Pascal (2.6.x) fails to compile Log4D.pas because of unknown identifiert TCLassList.

This fixes the problem:

Line 64-66 old:
{$IFDEF DELPHI5_UP}
Contnrs,
{$ENDIF}

new:
{$IFDEF HAS_UNIT_CONTNRS}
Contnrs,
{$ENDIF}

Add a TLogNamedPipeAppender

Beat Bolli — Fri, 14 Oct 2011 11:13:50 -0000

Obviously for logging into a named pipe.

It tries to write into a named pipe created elsewhere. If opening
the pipe fails, the message is dropped. The pipe is opened for
each single message. This means that the pipe may appear or disappear
at any time, and it will receive messages as soon as it exists.

Configuration parameter:
- log4d.appender.<name>.pipeName=ThePipeName

Note: The patch is from a file outside of Log4d, but the code can be trivially integrated into log4d.pas.

Add an option to flush TLogStreamAppenders

Beat Bolli — Fri, 14 Oct 2011 11:10:55 -0000

This is useful for recording the events that lead to a crash.

Configuration option:
- log4d.appender.<name>.flush=true