From 4d54155bd7e5ed33cb7ebe1f4225ebd63209b016 Mon Sep 17 00:00:00 2001
From: Daniele Teti <d.teti@bittime.it>
Date: Wed, 29 May 2024 14:26:01 +0200
Subject: [PATCH] Pushed some members of TLoggerPROFileAppender into protected
 section

---
 lib/loggerpro/LoggerPro.FileAppender.pas           | 14 +++++++-------
 .../SimpleRESTAPIUsingActiveRecord.dproj           |  1 +
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/lib/loggerpro/LoggerPro.FileAppender.pas b/lib/loggerpro/LoggerPro.FileAppender.pas
index b0d286f1..e9a5e25b 100644
--- a/lib/loggerpro/LoggerPro.FileAppender.pas
+++ b/lib/loggerpro/LoggerPro.FileAppender.pas
@@ -66,15 +66,15 @@ interface
   }
   TLoggerProFileAppenderBase = class(TLoggerProAppenderBase)
   private
+    procedure RetryMove(const aFileSrc, aFileDest: string);
+    procedure RetryDelete(const aFileSrc: string);
+  protected
+    fEncoding: TEncoding;
     fMaxBackupFileCount: Integer;
     fMaxFileSizeInKiloByte: Integer;
     fLogFileNameFormat: string;
     fLogsFolder: string;
-    fEncoding: TEncoding;
-    function CreateWriter(const aFileName: string): TStreamWriter;
-    procedure RetryMove(const aFileSrc, aFileDest: string);
-    procedure RetryDelete(const aFileSrc: string);
-  protected
+    function CreateWriter(const aFileName: string; const aBufferSize: Integer = 32): TStreamWriter;
     procedure CheckLogFileNameFormat(const LogFileNameFormat: String); virtual;
     procedure EmitStartRotateLogItem(aWriter: TStreamWriter); virtual;
     procedure EmitEndRotateLogItem(aWriter: TStreamWriter); virtual;
@@ -366,7 +366,7 @@ constructor TLoggerProFileAppenderBase.Create(
     fEncoding := TEncoding.DEFAULT;
 end;
 
-function TLoggerProFileAppenderBase.CreateWriter(const aFileName: string): TStreamWriter;
+function TLoggerProFileAppenderBase.CreateWriter(const aFileName: string; const aBufferSize: Integer = 32): TStreamWriter;
 var
   lFileStream: TFileStream;
   lFileAccessMode: Word;
@@ -387,7 +387,7 @@ function TLoggerProFileAppenderBase.CreateWriter(const aFileName: string): TStre
       lFileStream := TFileStream.Create(aFileName, lFileAccessMode);
       try
         lFileStream.Seek(0, TSeekOrigin.soEnd);
-        Result := TStreamWriter.Create(lFileStream, fEncoding, 32);
+        Result := TStreamWriter.Create(lFileStream, fEncoding, aBufferSize);
         Result.AutoFlush := true;
         Result.OwnStream;
         Break;
diff --git a/samples/simple_api_using_mvcactiverecord/SimpleRESTAPIUsingActiveRecord.dproj b/samples/simple_api_using_mvcactiverecord/SimpleRESTAPIUsingActiveRecord.dproj
index 95f68db0..04dbdb58 100644
--- a/samples/simple_api_using_mvcactiverecord/SimpleRESTAPIUsingActiveRecord.dproj
+++ b/samples/simple_api_using_mvcactiverecord/SimpleRESTAPIUsingActiveRecord.dproj
@@ -1024,6 +1024,7 @@
             <Platforms>
                 <Platform value="Android">False</Platform>
                 <Platform value="Android64">False</Platform>
+                <Platform value="Linux64">False</Platform>
                 <Platform value="Win32">True</Platform>
                 <Platform value="Win64">False</Platform>
             </Platforms>