我正在尝试使用JvEdit
和JvDataSource
而不是DBEdit
和DataSource
。但是在设计时,每当我打开一个带有JvEdit
的表单时,我都会收到此错误:
模块'dbrtl160.bpl中地址xxxxxxxx处的访问冲突。读取地址00000000.忽略错误并继续?注意:忽略此错误可能导致组件被删除或属性值丢失。
没有组件或属性值丢失......只是一个烦人的 消息。
有没有人遇到JvEdit
同样的问题?我尝试使用安装程序重新安装JCL
和JVCL
,并手动重建软件包,但无济于事。
这是在运行时引发相同的访问冲突后我的应用程序的堆栈跟踪:
00724ecb +08f LIMS.exe Data.DB 12439 +9 TDataSet.Resync
007d1cf4 +034 LIMS.exe Data.Win.ADODB 4421 +3 RefreshBuffers
007d1d39 +039 LIMS.exe Data.Win.ADODB 4425 +1 TCustomADODataSet.GetFieldData
00713cd1 +08d LIMS.exe Data.DB 4538 +8 TField.GetData
00716476 +012 LIMS.exe Data.DB 5650 +2 TIntegerField.GetValue
007162f1 +00d LIMS.exe Data.DB 5595 +1 TIntegerField.GetAsString
007fdae4 +00c LIMS.exe JvDataSource TJvDataSource.GetFieldString
00728ae4 +010 LIMS.exe JvDataSourceIntf TJvDataConnectorField.GetAsString
0073a83d +03d LIMS.exe JvEdit TJvCustomEditDataConnector.RecordChanged
00728412 +02e LIMS.exe JvDataSourceIntf TJvDataConnector.DcRecordChanged
00728301 +00d LIMS.exe JvDataSourceIntf TJvDataConnector.Notify
0072825b +007 LIMS.exe JvDataSourceIntf TJvDataConnector.ActiveChanged
00728848 +00c LIMS.exe JvDataSourceIntf TJvFieldDataConnector.ActiveChanged
00728395 +011 LIMS.exe JvDataSourceIntf TJvDataConnector.DcActiveChanged
00728301 +00d LIMS.exe JvDataSourceIntf TJvDataConnector.Notify
0072835b +00f LIMS.exe JvDataSourceIntf TJvDataConnector.DataSourceConnected
007288ec +00c LIMS.exe JvDataSourceIntf TJvFieldDataConnector.DataSourceConnected
00728747 +0d3 LIMS.exe JvDataSourceIntf TJvDataConnector.SetDataSource
0046be07 +06b LIMS.exe System.TypInfo 1909 +8 {System.TypInfo}TPropSet<System.IInterface>.SetProc
0046b112 +00a LIMS.exe System.TypInfo 3033 +0 SetInterfaceProp
00481a58 +05c LIMS.exe System.Classes 7266 +5 TPropIntfFixup.ResolveReference
00481d21 +0d5 LIMS.exe System.Classes 7347 +24 GlobalFixupReferences
00484009 +279 LIMS.exe System.Classes 8514 +53 TReader.ReadRootComponent
00480456 +032 LIMS.exe System.Classes 6601 +3 TStream.ReadComponent
0047b1df +057 LIMS.exe System.Classes 3455 +7 InternalReadComponentRes
0047b34f +05f LIMS.exe System.Classes 3512 +4 InitComponent
0047b3dd +061 LIMS.exe System.Classes 3524 +6 InitInheritedComponent
005f93b2 +0c6 LIMS.exe Vcl.Forms 3554 +17 TCustomForm.Create
009567a9 +015 LIMS.exe uMainForm 147 +1 TfrmMainForm.acInsurancesExecute
0048bd2f +00f LIMS.exe System.Classes 13372 +3 TBasicAction.Execute
004f60d5 +031 LIMS.exe Vcl.ActnList 448 +8 TContainedAction.Execute
004f6ec0 +050 LIMS.exe Vcl.ActnList 1094 +7 TCustomAction.Execute
0048bbf3 +013 LIMS.exe System.Classes 13301 +2 TBasicActionLink.Execute
005e9734 +090 LIMS.exe Vcl.Menus 2520 +17 TMenuItem.Click
005ead4f +013 LIMS.exe Vcl.Menus 3435 +5 TMenu.DispatchCommand
0060af75 +121 LIMS.exe Vcl.Forms 14151 +26 TFormStyleHook.TMainMenuBarStyleHook.TrackMenuFromItem
006087fa +022 LIMS.exe Vcl.Forms 12959 +7 TFormStyleHook.TMainMenuBarStyleHook.ProcessMenuLoop
006086a0 +02c LIMS.exe Vcl.Forms 12897 +6 TFormStyleHook.TMainMenuBarStyleHook.MenuEnter
0060aa88 +024 LIMS.exe Vcl.Forms 14009 +4 TFormStyleHook.TMainMenuBarStyleHook.MouseDown
0060db08 +0cc LIMS.exe Vcl.Forms 15529 +35 TFormStyleHook.WMNCLButtonDown
005c913b +07b LIMS.exe Vcl.Themes 6709 +13 TStyleHook.WndProc
005c9318 +000 LIMS.exe Vcl.Themes 6810 +0 TMouseTrackControlStyleHook.WndProc
0060d91c +000 LIMS.exe Vcl.Forms 15436 +0 TFormStyleHook.WndProc
005c8b02 +05a LIMS.exe Vcl.Themes 6485 +17 TStyleHook.HandleMessage
0098c05a +116 LIMS.exe Vcl.Styles 3387 +26 TStyleEngine.HandleMessage
005c6078 +054 LIMS.exe Vcl.Themes 5145 +11 TStyleManager.HandleMessage
0051594b +00f LIMS.exe Vcl.Controls 8936 +0 TWinControl.DoHandleStyleMessage
00516f7d +049 LIMS.exe Vcl.Controls 9825 +1 TWinControl.WndProc
005faafd +60d LIMS.exe Vcl.Forms 4344 +201 TCustomForm.WndProc
00516b3c +02c LIMS.exe Vcl.Controls 9689 +3 TWinControl.MainWndProc
0048ca24 +014 LIMS.exe System.Classes 13878 +8 StdWndProc
75f5cc6b +00a USER32.dll DispatchMessageW
00603cef +0f3 LIMS.exe Vcl.Forms 10164 +23 TApplication.ProcessMessage
00603d32 +00a LIMS.exe Vcl.Forms 10194 +1 TApplication.HandleMessage
00604071 +0c9 LIMS.exe Vcl.Forms 10332 +26 TApplication.Run
009af892 +0de LIMS.exe LIMS 61 +15 initialization
76dced6a +010 kernel32.dll BaseThreadInitThunk
我只是通过删除这一行就可以产生它:
qInsurances.Active := True;
似乎JvDataSource
未检查关联的DataSet
以查看它是否已打开。
已检查并确认。 DataConnector
链接未检查DataSet
是否已打开。如果我的DataSet
在设计时开放,则不会引发异常。
这是引发异常的过程的前几行。现在,在审查VCL
源代码时,我不是专家。那么,有谁能指导我朝正确的方向发展?
procedure TDataSet.Resync(Mode: TResyncMode);
var
Count: Integer;
begin
if not IsUniDirectional then
begin
if rmExact in Mode then
begin
CursorPosChanged;
if GetRecord(FBuffers[FRecordCount], gmCurrent, True) <> grOK then
DatabaseError(SRecordNotFound, Self);
end else
if (GetRecord(FBuffers[FRecordCount], gmCurrent, False) <> grOK) and // <<-- Exception is raised here!
(GetRecord(FBuffers[FRecordCount], gmNext, False) <> grOK) and
(GetRecord(FBuffers[FRecordCount], gmPrior, False) <> grOK) then