2

我正在尝试使用JvEditandJvDataSource而不是DBEditand DataSource。但是在设计时,每当我打开一个带有 a 的表单时JvEdit,我都会收到此错误:

模块“dbrtl160.bpl”中地址 xxxxxxxx 的访问冲突。读取地址 00000000。忽略错误并继续?注意:忽略此错误可能会导致组件被删除或属性值丢失。

并且没有丢失任何组件或属性值......只是一个烦人的消息。

有没有人遇到过同样的问题JvEdit?我试图重新安装JCLJVCL使用安装程序,并通过手动重建软件包,但无济于事。


这是在运行时引发相同的访问冲突后我的应用程序的堆栈跟踪:

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
4

0 回答 0