Ведение лога. Тупик. Одновременное обрашение двух обьектов к одному файлу.

[Человек_Борща]

Всем доброго времени суток!

Ситуация:
Программа ведёт 3 лога, лог программы,лог самообновления и лог того что делают ветви(TtHread's) моей программы.

Собственно:

const
  DateFormat = 'dd.mm.yy';
  TimeFormat = 'hh:mm:ss';
  DateTime = ' ';
  DateTimeText = ' | ';
  DateStart = '[';
  TimeEnd = ']';
  FileName_DateFormat = 'DD_MM_YY';
  FileName_TimeFormat = 'HH-MM';

procedure SystemLog(msg: string);

implementation

uses GlobalConsts;

procedure SystemLog(msg: string);
var
  LogFileName: string;
  Ts: TStringList;
begin
  ts := TStringList.Create;
  LogFileName := myDir + 'Data\Logs\System\' + '(' + FormatDateTime(FileName_DateFormat, Date) + ').log';
  try
    if FileExists(LogFileName) then
{$I-}
      Ts.LoadFromFile(LogFileName);
{$I+}
    Ts.Add(DateStart + FormatDateTime(TimeFormat, Time) + TimeEnd + DateTimeText + msg);
    Ts.SaveToFile(LogFileName);
  finally
    Ts.Free;
  end;
end;

Аналогично ещё две точно такиеже,только директории и имена файлов разные.

Вот юзер прислал отчёт об ошибке:
Выдержка из него:

exception class   : EFOpenError
exception message : Cannot open file "D:\Установленное\Программы\HLR\Data\Logs\Applications\( 17_12_10).log". Процесс не может получить доступ к файлу, так как этот файл занят другим процессом.

main thread ($1f24):
0046d8f0 +114 HLR.exe      Classes              5120 +11 TFileStream.Create //и обращение второго
0046d7b6 +02a HLR.exe      Classes              5102  +2 TFileStream.Create //Обращение первого
0046bf3c +018 HLR.exe      Classes              4265  +1 TStrings.LoadFromFile //Вызов файла
005df38c +094 HLR.exe      LogUnit                54  +6 SystemLog   //Вызов процедуры
005e6bdc +0d4 HLR.exe      ErrorWindowListUnit    90  +8 TErrorWindowList.OnTimer
0048a8bb +01b HLR.exe      ExtCtrls             1649  +1 TTimer.Timer
0048a727 +02f HLR.exe      ExtCtrls             1607  +4 TTimer.WndProc
004762cc +014 HLR.exe      Classes             10966  +8 StdWndProc
76c63573 +00a USER32.dll                                 DispatchMessageA
004d82c8 +0ac HLR.exe      Forms                6872 +13 TApplication.ProcessMessage
004d830f +00f HLR.exe      Forms                6891  +1 TApplication.HandleMessage
004d85aa +0a6 HLR.exe      Forms                6975 +16 TApplication.Run
005ec231 +299 HLR.exe      HLR                   126 +50 initialization
75601192 +010 kernel32.dll                               BaseThreadInitThunk

Как видно одновременно к одному файлу обращаются 2 обьекта. И каждый пытается сделать загрузить файл, сделать запись, сохранить.

Я в тупике....

Толи я логи вести ни как не научусь, толи сани не едут, толи я ....

Посоветуйте пожалуйста как правельно вести лог, и избавиться вот от такого.

Ранее к имени файла приписывавал секунды, но это глупо! Многова-то файлов а хлам никчему. Да и мне его разгребать тоже не айс.

[evg_m]

сделать один объект доступа к логу. (к примеру тот же TstringList)
ведение лога через операции данного объекта.
при наличии одного объекта зачем каждый раз перечитывать TstringList.LoadFrormFile
достаточно просто каждый раз savetofile

P.S. один имеется в виду для каждого из файлов.

[Johnson]

http://articles.org.ru/delphi7/Glava29/index15.php

[Человек_Борща]

хм критические секции? Я думал они только для потоков...

[XerSon]

Рекомендую, для логов и прочего, все уже придумано: http://www.eurekalog.com/index_delphi.php

[Человек_Борща]

Проблема решена. Для каждого файла свой TsringList создаётся 1 раз, пишет на всем протяжении работы программы, сохраняет файл при разрушении формы. Там же уничтожается.

P.S.
Вместо эврики использую madexcept , для меня его достаточно.
И логи можно вести не только для ошибок.

[evg_m]

сохраняет файл при разрушении формы.

А если программа повиснет (например бесконечный цикл), то лога мы не увидим.
Или жесткое завершение программы (немедленное завершение процесса без закрытия разрушения объектов).