GitHub-Mirror/x2log
1
0
Fork 0
mirror of synced 2024-12-22 01:13:08 +01:00
Code Issues Projects Releases Wiki Activity

Exception handling in LogFile observer

Browse Source 
Prevents thread from exiting and not logging anything after
This commit is contained in:
Mark van Renswoude 2018-04-25 10:18:55 +02:00
parent 97239e26eb
commit 7ff223a1f6
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
X2Log.Observer.LogFile.pas
View File

@ -153,17 +153,24 @@ var
begin
fileName := GetFileName(AEntry);
ForceDirectories(ExtractFilePath(fileName));
if not ForceDirectories(ExtractFilePath(fileName)) then
exit;
line := TextFormatter.GetText(TX2LogFileTextFormatterHelper.Create(AEntry, fileName, LogDetails),
AEntry.Level, AEntry.DateTime, AEntry.Message, AEntry.Category, AEntry.Details);
{ Append line to log file }
writer := TFile.AppendText(fileName);
try
writer.WriteLine(line);
finally
FreeAndNil(writer);
{ Append line to log file }
writer := TFile.AppendText(fileName);
try
writer.WriteLine(line);
finally
FreeAndNil(writer);
end;
except
{ If we retry for an amount of time the buffers will just backlog,
so for now just carry on. }
on E:EInOutError do;
end;
end;