Непонятный AV в процедуре ведения лога.

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

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

Возникает Acces Violation в следующем коде:

{
const
  HLRLog_FileFormat = '%s.log';
  FileName_DateFormat = 'DDMMYY';
}
  HLRSelfUpdLog.SaveToFile(HLR_GetLogsDir(False, False, True) + Format(HLRLog_FileFormat, [FormatDateTime(FileName_DateFormat, Date)]));
  HLRSelfUpdLog.Free;

вот что выдаёт MadExcept:

exception number  : 1
exception class   : EAccessViolation
exception message : Access violation at address 00404E24 in module 'HLR.exe'. Read of address 000D0709.

main thread ($1b60):
00404e24 +004 HLR.exe System              @LStrAsg
004685e5 +029 HLR.exe Classes             TStringList.Get
004678b1 +05d HLR.exe Classes             TStrings.GetTextStr
00467edc +020 HLR.exe Classes             TStrings.SaveToStream
00467e96 +032 HLR.exe Classes             TStrings.SaveToFile
005d9e70 +0e8 HLR.exe THLRLogUnit  71  +4 THLRLog.Destroy

...

005d9e16 71   lea     eax, [ebp-$18]
005d9e19      push    eax
005d9e1a      xor     ecx, ecx
005d9e1c      mov     dl, 1
005d9e1e      xor     eax, eax
005d9e20      call    +$5d7 ($5da3fc)        ; GlobalConsts.HLR_GetLogsDir
005d9e20
005d9e25      lea     eax, [ebp-$18]
005d9e28      push    eax
005d9e29      lea     eax, [ebp-$1c]
005d9e2c      push    eax
005d9e2d      call    -$18356a ($4568c8)     ; SysUtils.Date
005d9e2d
005d9e32      add     esp, -8
005d9e35      fstp    qword ptr [esp]
005d9e38      wait
005d9e39      lea     edx, [ebp-$20]
005d9e3c      mov     eax, $5d9f28           ; 'DDMMYY'
005d9e41      call    -$182876 ($4575d0)     ; SysUtils.FormatDateTime
005d9e41
005d9e46      mov     eax, [ebp-$20]
005d9e49      mov     [ebp-$10], eax
005d9e4c      mov     byte ptr [ebp-$c], $b
005d9e50      lea     edx, [ebp-$10]
005d9e53      mov     eax, $5d9f38
005d9e58      xor     ecx, ecx
005d9e5a      call    -$184253 ($455c0c)     ; SysUtils.Format
005d9e5a
005d9e5f      mov     edx, [ebp-$1c]
005d9e62      pop     eax
005d9e63      call    -$1d4db8 ($4050b0)     ; System.@LStrCat
005d9e63
005d9e68      mov     edx, [ebp-$18]
005d9e6b      mov     eax, [esi+8]
005d9e6e      mov     ecx, [eax]
005d9e70    > call    dword ptr [ecx+$74]  ;EXCEPTION
005d9e70
005d9e73 72   mov     eax, [esi+8]
005d9e76      call    -$1d5fc3 ($403eb8)     ; System.TObject.Free
005d9e76

Как быть? В чем ошибка? 3 месяца код пахал. А тут начал выкидывать штуки.

Заранее спасибо!

[chertovich]

а какая строка кода выдает ошибку?

[Valio]

Я сомневаюсь что асм-требуха MadExcept'а тут вообще нужна. Достаточно поставить бряк на интересующую строку и посмотреть что передаётся в качестве параметров.

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

Строку с ошибкой выделил красным. Мне непонятно почему происходит эта ошибка...

[GunSmoker]

Хоть бы сообщение привёл.

...а, всё, увидел.

[GunSmoker]

Я может чего не так читаю, но в логе написано что-то ОЧЕНЬ странное: сначала идёт вызов HLR_GetLogsDir, потом - формирование аргументов для неё. По-идее, должно быть наоборот.

Если закрыть на это глаза, то видно:
1. HLRSelfUpdLog - наследник TStrings (почему сам не сказал, кто это?).
2. Ошибка возникает при сохранении строк файл. Конкретно - при полученнии данных строки.

Т.е. налицо проблема порчи памяти. Поскольку это лог, то наиболее вероятна порча из-за отсутствия синхронизации в многопоточном приложении.

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

Ясно. Блоху тапочком не прибить. Вылазит.

Тогда как организовать логирование в многопоточном приложении?
Что использовать? Чем руководствоваться?

[ReportCube]

Поставьте семафор или мьютекс

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

Сообщение от ReportCube

Поставьте семафор или мьютекс

Можно пример? Пожалуйста.

[ReportCube]

Попробуйте, вроде бы должно быть понятно:

implementation

uses ;
// Локальные переменные модуля
var
hFileConn: THandle; //Семафор, пропуск потока

procedure WriteLog()
var
WaitReturn: Word;
begin
WaitReturn := WaitForSingleObject(hFileConn, INFINITE);
try
if WaitReturn = WAIT_OBJECT_0 then begin
// Ваш код
end;
finally
{Окрываем семафор, пропуск для следующего клиента}
ReleaseSemaphore(hFileConn, 1, nil);
end;
initialization
hFileConn := CreateSemaphore(nil, 1, 1, nil);
finalization
CloseHandle(hFileConn);