[fpc-pascal] TEventLog.FileName location: Change default file location for filename without change unit code.

[Michael Van Canneyt]

On Tue, 21 Sep 2010, phoebus phoebus wrote:

> Hi,
>
> I'm using FPC 2.2.4 with Lazarus.
>
> The unit eventlog is great for logging events. SO i use it.
>  
> My question is how to change the default location for the filename for Linxu 
> ssytem which is harcoded in the code.
> The documentation for TEventLog.FileName wrote:
> " FileName is the name of the log file used to log messages (...). The file is 
> then located in the "/tmp" directory on unix-like systems, or in the application 
> directory for Dos/Windows like systems
>  
> Line 56 to 60 from eventlog.inc (fpc\2.2.4\source\packages\fcl-base\src\unix)
>     Function TEventLog.DefaultFileName : String;
>     begin
>       Result:='/tmp/'+ChangeFileExt(ExtractFileName(Paramstr(0)),'.log');
>     end;
> I can of course change the function code like Windows to have the log in the 
> same directory thtat the application.:
> Line 18 to 22 from eventlog.inc (fpc\2.2.4\source\packages\fcl-base\src\windows)
>     Function TEventLog.DefaultFileName : String;
>     begin
>       Result:=ChangeFileExt(Paramstr(0),'.log');
>     end;
>
> Could you indicate a nice solution to indicate log file location in using the 
> unit eventlog without change fpc code?

You can just set the filename property, with full path:
/my/path/mylog.txt

It will be created in the path you specify, as you can see in ActivateFileLog.

Procedure TEventLog.ActivateFileLog;

begin
   If (FFileName='') then
     FFileName:=DefaultFileName;
   // This will raise an exception if the file cannot be opened for writing !
   FStream:=TFileStream.Create(FFileName,fmCreate or fmShareDenyWrite);
end;

The default is just that, the default. If you specify a filename, then that
is used. What more do you need ?

Michael.