Pushed some members of TLoggerPROFileAppender into protected section

danieleteti · May 29, 2024 · 4d54155 · 4d54155
1 parent b6b2a18
commit 4d54155
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 7 deletions.
diff --git 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
@@ -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>