JvEditandJvDataSourceの代わりにDBEditandを使用しようとしています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かどうかを確認しません。DataSetmyDataSetが設計時に開いている場合、例外は発生しません。
これらは、例外が発生するプロシージャの最初の数行です。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