我正在尝试使用JvEdit
andJvDataSource
而不是DBEdit
and DataSource
。但是在设计时,每当我打开一个带有 a 的表单时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
是否打开。如果 myDataSet
在设计时打开,则不会引发异常。
这些是引发异常的过程的前几行。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