[fpc-pascal] TEventLog.FileName location: Change default file location for filename without change unit code.
Michael Van Canneyt
michael at freepascal.org
Tue Sep 21 15:39:02 CEST 2010
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.
More information about the fpc-pascal
mailing list