0

При закрытии приложения методом 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}

В итоге , даже если сначала удалить все пред формы, и оставить эту форму последней для удаления, ошибка все равно возникает. Компонентов в ней нет, они очищены.

9
  • 2
    нужно смотреть по стеку выше, кто вызывает этот код и понять, почему. В целом, завершать приложение методом Terminate - не очень хорошая идея. Вы как бы говорите приложению - "все, завершайся. Будут ошибки - мне побоку". Поэтому, данное поведение в пределах ожидаемого.
    – KoVadim
    29 янв 2016 в 8:36
  • @KoVadim Хорошо, а как нужно завершать приложение, которое имеет множество форм? 29 янв 2016 в 9:01
  • Winapi.Windows.PostQuitMessage(ExitCode) 29 янв 2016 в 9:06
  • Нужно закрыть MainForm.
    – KoVadim
    29 янв 2016 в 9:12
  • @kot-da-vinci Возникает та же самая ошибка. (форма не может удалиться) 29 янв 2016 в 9:24

2 ответа 2

2

Перенос объектов из полей формы в глобальные (как показано в ответе автора вопроса), проблему решает либо по чистой случайности, либо по совершенно монструозному дизайну.

Ошибка вызвана повторным вызовом TMonitor.Destroy;. Кем и как именно он вызывается - надо смотреть по вашему коду.

2
  • я думаю, что это особенность XE6, потому как деструктор TJsonObject я не вызываю, в XE10 данный проект без ошибок завершается. 30 янв 2016 в 10:22
  • @АнатолийХлебников Скорее всего, это не особенность XE6, а особенность скомпилированного кода, который по случайности в ХЕ6 располагается в памяти так, что происходит ошибка, а в 10 Seattle - иначе, и ошибка проскакивает незамеченной.
    – Kromster
    30 янв 2016 в 10:32
-1

Проблема решилась тем, что я отключил сначала FJSONObject: TJSONObject , после ошибка исчезла. В итоге проблема крылась в

type
 TForm8 = class(TForm)
private
    { Private declarations }
    FJSONObject: TJSONObject;

А нужно было

type
 TForm8 = class(TForm)
private
    { Private declarations }
public
    { Public declarations }
end;

var
    FJSONObject: TJSONObject;
6
  • 1
    Может лучше бы определить место где идет обращение к FJSONObject и if Assigned(FJSONObject )... чем делать глобальную переменную?
    – androschuk
    29 янв 2016 в 12:36
  • @androschuk Да вы правы. Но когда я брал пример, там было именно в глобальной секции. 29 янв 2016 в 12:58
  • @АнатолийХлебников А это значит, что вы не понимаете, как работает код из примера и пытаетесь его использовать для своих задач. Это очень плохая практика.
    – zed
    29 янв 2016 в 13:23
  • @zed Почему же сразу не понимаю, код работает как надо. Но почему тогда его нельзя расположить в private формы ? Я не вызывал его деструктор. 30 янв 2016 в 10:15
  • 2
    @АнатолийХлебников Я вашего кода не вижу, поэтому не могу ответить на вопрос "Почему?". Но тот факт, что вы, имея код перед глазами, задаётесь этим вопросом, как раз и говорит о том, что вы не понимаете, как он работает. Тут нет абсолютно никакой магии - объекты можно располагать в глобальной области видимости, а можно в локальной. Всё зависит от их назначения. Соответственно, и использовать такие объекты нужно по разному. И если вы перенесли объект из одной области видимости в другую, вам нужно исправлять и остальной код, использующий его, чего вы, судя по всему, и не сделали.
    – zed
    30 янв 2016 в 15:19

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.