При закрытии приложения методом Application.Terminate
возникает ошибка:
First chance exception at $00409959. Exception class $C0000005 with message 'access violation at 0x00409959: read of address 0x00000024'. Process Prog.exe (10940)
В системном файле (C:\Program Files (x86)\Embarcadero\Studio\14.0\source\rtl\sys\System.pas:17175) :
procedure TMonitor.Destroy;
begin
if (MonitorSupport <> nil) and (FLockEvent <> nil) then //Ошибка
MonitorSupport.FreeSyncObject(FLockEvent);
FreeMem(@Self);
end;
Возникает ошибка при доступе к FLockEvent, т.к он не существует.
Как решить эту проблему ? В проекте было добавлено: работа с idHttp и Json
P.S. 1 Ошибка возникает при освобождения самой формы(не главной), после удаления всех элементов с формы. P.S. 2 Стек вызова:
System.TMonitor.Destroy
System.TMonitor.Destroy(???)
System.TObject.CleanupInstance
System.TObject.FreeInstance
System._ClassDestroy(???)
Vcl.Forms.TCustomForm.Destroy
System.TObject.Free
System.Classes.TComponent.DestroyComponents
Vcl.Forms.DoneApplication
System.SysUtils.DoExitProc
System._Halt0
:00409043 TObject.Free + $B
:76d138f4 KERNEL32.BaseThreadInitThunk + 0x24
:777156c3 ;
:7771568e ;
В процессе вызова Monitor.Destroy; из class procedure TMonitor.Destroy(const AObject: TObject); Монитор имеет значения:
Watch Name Value
Monitor $18
FLockCount Inaccessible value
FRecursionCount Inaccessible value
FOwningThread Inaccessible value
FLockEvent Inaccessible value
FSpinCount Inaccessible value
FWaitQueue Inaccessible value
FQueueLock Inaccessible value
CacheLineSize 64 {$40}
FDefaultSpinCount 1000 {$3E8}
В итоге , даже если сначала удалить все пред формы, и оставить эту форму последней для удаления, ошибка все равно возникает. Компонентов в ней нет, они очищены.
Terminate
- не очень хорошая идея. Вы как бы говорите приложению - "все, завершайся. Будут ошибки - мне побоку". Поэтому, данное поведение в пределах ожидаемого.Winapi.Windows.PostQuitMessage(ExitCode)