GitHub-Mirror/x2log
1
0
Fork 0
mirror of synced 2024-12-22 09:23: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

9
X2Log.Observer.LogFile.pas
View File

@ -153,11 +153,13 @@ var
begin begin
fileName := GetFileName(AEntry); fileName := GetFileName(AEntry);
ForceDirectories(ExtractFilePath(fileName)); if not ForceDirectories(ExtractFilePath(fileName)) then
exit;
line := TextFormatter.GetText(TX2LogFileTextFormatterHelper.Create(AEntry, fileName, LogDetails), line := TextFormatter.GetText(TX2LogFileTextFormatterHelper.Create(AEntry, fileName, LogDetails),
AEntry.Level, AEntry.DateTime, AEntry.Message, AEntry.Category, AEntry.Details); AEntry.Level, AEntry.DateTime, AEntry.Message, AEntry.Category, AEntry.Details);
try
{ Append line to log file } { Append line to log file }
writer := TFile.AppendText(fileName); writer := TFile.AppendText(fileName);
try try
@ -165,6 +167,11 @@ begin
finally finally
FreeAndNil(writer); FreeAndNil(writer);
end; 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; end;