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)EmbarcaderoStudio14.0sourcertlsysSystem.pas:17175) :
Возникает ошибка при доступе к 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 FDefaultSpinCount 1000
В итоге , даже если сначала удалить все пред формы, и оставить эту форму последней для удаления, ошибка все равно возникает. Компонентов в ней нет, они очищены.
Источник: ru.stackoverflow.com
Ошибка при закрытии программы
form4 основная форма, 222222222 после нажатия continue
Код самой программы (основной формы)
unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, OleCtrls, SHDocVw, XPMan, ShellAnimations, IdCookieManager, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, ShellAPI, Menus, ImgList, GIFImg; type TForm4 = class(TForm) Image1: TImage; WebBrowser1: TWebBrowser; IdHTTP1: TIdHTTP; IdAntiFreeze1: TIdAntiFreeze; IdCookieManager1: TIdCookieManager; TrayIcon1: TTrayIcon; ShellResources1: TShellResources; XPManifest1: TXPManifest; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Timer1: TTimer; PopupMenu1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; ImageList1: TImageList; Image2: TImage; Image3: TImage; Label1: TLabel; Label2: TLabel; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure TrayIcon1DblClick(Sender: TObject); procedure N10Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; < Private declarations >public < Public declarations >end; var Form4: TForm4; implementation uses Unit1, Unit2; procedure TForm4.Button1Click(Sender: TObject); begin WebBrowser1.Navigate(‘http://pogoda.gb7.ru/’); end; procedure TForm4.Button2Click(Sender: TObject); begin Application.ProcessMessages; form1.Button1.Click; sleep(100); WebBrowser1.Refresh; end; procedure TForm4.Button3Click(Sender: TObject); begin form2.ShowModal; end; procedure TForm4.Button4Click(Sender: TObject); begin ShellExecute(Handle, nil, ‘http://tobolsk.clan.su/’, nil, nil, SW_SHOWNORMAL); end; procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction); begin form4.close; form1.Close; end; procedure TForm4.FormCreate(Sender: TObject); begin WebBrowser1.Navigate(‘http://pogoda.gb7.ru/’); end; procedure TForm4.N10Click(Sender: TObject); begin form4.Close; end; procedure TForm4.N1Click(Sender: TObject); begin Button3.Click; end; procedure TForm4.N3Click(Sender: TObject); begin show; end; procedure TForm4.N4Click(Sender: TObject); begin hide; end; procedure TForm4.N6Click(Sender: TObject); begin ShellExecute(Handle, nil, ‘http://tobolsk.clan.su/’, nil,nil, SW_SHOWNORMAL); end; procedure TForm4.N8Click(Sender: TObject); begin Button2.Click; end; procedure TForm4.Timer1Timer(Sender: TObject); begin form4.Caption:=’Погода в Тобольске 2011 ver. 1.1 ‘+timetostr(gettime); Label1.Caption:=DateToStr(date); Label2.Caption:=TimeToStr(gettime); end; procedure TForm4.TrayIcon1DblClick(Sender: TObject); begin if Visible=true then hide else Show; end; procedure TForm4.WMSysCommand(var Msg: TWMSysCommand); begin if Msg.CmdType = SC_MINIMIZE then hide else inherited; end; end.
Изображения
| 111111111111111111111111111111.JPG (129.6 Кб, 142 просмотров) | |
| 22222222222222222222222222.JPG (136.9 Кб, 136 просмотров) |
Источник: www.programmersforum.ru
ошибка в 1С ERP при некорректном закрытии программы
Ошибка при закрытии программы
Уважаемые пользователи nowa.cc и 2baksa.ws . У нас сложилось тяжёлое финансовое положение. Мы работаем для вас вот уже более 15 лет и сейчас вынуждены просить о помощи. Окажите посильную поддержку проектам. Мы очень надеемся на вас. Реквизиты для переводов ниже.
WMZ: 826074280762 WME: 804621616710
4100117770549562
Пользователь
: 193
Репутация: 190
Ошибки при закрытии программ
Установил Outpost Firewall Pro 4.0.916.6727 (570) Beta и теперь когда закрываю какое-нибудь приложение у меня вылазит ошибка:
(это вылазит когда я закрываю War Craft III)
Как это можно исправить?
Источник: nowa.cc