Devart Forums

Hello,

in the 7.6.11 version in the design time when i try to add fields and Defaultvalues=True AV occures. With DefaultValues=False there is no problem.
In 7.5.10 was everything ok.

Sample table is :
CREATE TABLE `test01` (
`Tonen` CHAR(1) NULL DEFAULT 'J'
)

Regards
Pedja

Hello,

I cannot reproduce the problem. Please specify the exact version of your IDE.

Delphi 2007.

Regards

I still cannot reproduce the problem. I have performed the following steps:
- created a new VCL Forms Applications in Delphi 2007;
- dropped the TMyConnection and TMyQuery components onto the form;
- set up TMyConnection;
- opened TMyQuery Editor and set SQL to 'select * from test01';
- set TMyQuery.Options.DefaultValues to True;
- opened TMyQuery Fields Editor and added all fields.
There was no AV after performing these steps. Please change them to demonstrate the problem.

Same steps but i am getting AV, i suppose that has something to do with:
*Bug with getting default values for fields with aliases is fixed
because in 7.5.10 was ok.

AV details:

[0A65D650]{mydac105.bpl} Myservices.TCustomMyDataSetService.FillFieldsDefaultValues + $394
[07404BFC]{CnWizards_D11.dll} Unknown function at INITWIZARD0001 + $119D8
[0A491475]{dac105.bpl } Memdata.TData.InternalGetObject + $41
[20003DC4]{rtl100.bpl } System.@FreeMem (Line 2699, "sys\system.pas" + 2) + $0
[0A485A08]{dac105.bpl } Memutils.CopyBuffer + $0
[0A4978DF]{dac105.bpl } Memdata.TCRBlobData.Read + $C7
[0A49917B]{dac105.bpl } Memdata.TBlob.Read + $27
[0A491729]{dac105.bpl } Memdata.TData.ReadBlob + $75
[0A491940]{dac105.bpl } Memdata.TData.ReadBlob + $28C
[0A49196F]{dac105.bpl } Memdata.TData.ReadBlob + $2BB
[0332193C]{DelphiSpeedUp105.dll} StringOptimize.ReplaceLStrCmpByLStrEqual (Line 258, "StringOptimize.pas" + 20) + $10
[033219E1]{DelphiSpeedUp105.dll} StringOptimize._LStrCmp_LStrEqual (Line 419, "StringOptimize.pas" + 116) + $0
[0A65D646]{mydac105.bpl} Myservices.TCustomMyDataSetService.FillFieldsDefaultValues + $38A
[0A4ECCCF]{dac105.bpl } Dbaccess.TCustomDADataSet.DataEvent + $67
[203A2737]{dbrtl100.bpl} DB.TFields.Changed (Line 3430, "DB.pas" + 1) + $7
[203A27E6]{dbrtl100.bpl} DB.TFields.Add (Line 3444, "DB.pas" + 2) + $3
[203A4549]{dbrtl100.bpl} DB.TField.SetDataSet (Line 4257, "DB.pas" + 28) + $5
[203A189C]{dbrtl100.bpl} DB.TFieldDef.CreateFieldComponent (Line 3051, "DB.pas" + 17) + $E
[203A1983]{dbrtl100.bpl} DB.TFieldDef.CreateField (Line 3069, "DB.pas" + 0) + $1B
[225F51AB]{dcldb100.bpl} DSDesign.TDSDesigner.DoCreateField (Line 267, "DSDesign.pas" + 30) + $28
[225F631F]{dcldb100.bpl} DSDesign.TFieldsEditor.CreateFields (Line 648, "DSDesign.pas" + 23) + $1D
[225F6341]{dcldb100.bpl} DSDesign.TFieldsEditor.CreateFields (Line 650, "DSDesign.pas" + 25) + $B
[225F63AC]{dcldb100.bpl} DSDesign.TFieldsEditor.CreateFields (Line 660, "DSDesign.pas" + 35) + $B
[225F697D]{dcldb100.bpl} DSDesign.TFieldsEditor.DoAddFields (Line 836, "DSDesign.pas" + 28) + $C
[225F67D5]{dcldb100.bpl} DSDesign.TFieldsEditor.AddFields (Line 798, "DSDesign.pas" + 1) + $2
[225F7996]{dcldb100.bpl} DSDesign.TFieldsEditor.AddAllFields (Line 1340, "DSDesign.pas" + 0) + $2
[201305E7]{vcl100.bpl } Menus.TMenuItem.Click (Line 2283, "Menus.pas" + 14) + $8
[20131B0F]{vcl100.bpl } Menus.TMenu.DispatchCommand (Line 3008, "Menus.pas" + 5) + $2
[20132C6E]{vcl100.bpl } Menus.TPopupList.WndProc (Line 3798, "Menus.pas" + 4) + $E
[20132BBD]{vcl100.bpl } Menus.TPopupList.MainWndProc (Line 3779, "Menus.pas" + 2) + $5
[20040E4C]{rtl100.bpl } Classes.StdWndProc (Line 11583, "common\Classes.pas" + + $0
[201625F0]{vcl100.bpl } Forms.TApplication.ProcessMessage (Line 8105, "Forms.pas" + 23) + $1
[2016262A]{vcl100.bpl } Forms.TApplication.HandleMessage (Line 8124, "Forms.pas" + 1) + $4
[2016291F]{vcl100.bpl } Forms.TApplication.Run (Line 8223, "Forms.pas" + 20) + $3
[0042297A]{bds.exe } bds.bds (Line 195, "" + 7) + $7

As I can see you are using the DelphiSpeedUp tool. Please try uninstalling it and check if the problem persists.

uninstalled but no difference

[0A6AD650]{mydac105.bpl} Myservices.TCustomMyDataSetService.FillFieldsDefaultValues + $394
[0A4E1475]{dac105.bpl } Memdata.TData.InternalGetObject + $41
[20003DC4]{rtl100.bpl } System.@FreeMem (Line 2699, "sys\system.pas" + 2) + $0
[0A4D5A08]{dac105.bpl } Memutils.CopyBuffer + $0
[0A4E78DF]{dac105.bpl } Memdata.TCRBlobData.Read + $C7
[0A4E917B]{dac105.bpl } Memdata.TBlob.Read + $27
[0A4E1729]{dac105.bpl } Memdata.TData.ReadBlob + $75
[0A4E1940]{dac105.bpl } Memdata.TData.ReadBlob + $28C
[0A4E196F]{dac105.bpl } Memdata.TData.ReadBlob + $2BB
[0A520168]{dac105.bpl } Memds.TBlobStream.Read + $80
[20003DC4]{rtl100.bpl } System.@FreeMem (Line 2699, "sys\system.pas" + 2) + $0
[20006754]{rtl100.bpl } System.TObject.FreeInstance (Line 8813, "sys\system.pas" + 2) + $2
[20006B86]{rtl100.bpl } System.@ClassDestroy (Line 9513, "sys\system.pas" + 0) + $2
[0A5200DE]{dac105.bpl } Memds.TBlobStream + $3E
[2000679C]{rtl100.bpl } System.TObject.Free (Line 8832, "sys\system.pas" + 1) + $4
[203A8949]{dbrtl100.bpl} DB.TBlobField.GetAsString (Line 6215, "DB.pas" + 5) + $13
[0A6AD646]{mydac105.bpl} Myservices.TCustomMyDataSetService.FillFieldsDefaultValues + $38A
[0A53CCCF]{dac105.bpl } Dbaccess.TCustomDADataSet.DataEvent + $67
[203A2737]{dbrtl100.bpl} DB.TFields.Changed (Line 3430, "DB.pas" + 1) + $7
[203A27E6]{dbrtl100.bpl} DB.TFields.Add (Line 3444, "DB.pas" + 2) + $3
[203A4549]{dbrtl100.bpl} DB.TField.SetDataSet (Line 4257, "DB.pas" + 28) + $5
[203A189C]{dbrtl100.bpl} DB.TFieldDef.CreateFieldComponent (Line 3051, "DB.pas" + 17) + $E
[203A1983]{dbrtl100.bpl} DB.TFieldDef.CreateField (Line 3069, "DB.pas" + 0) + $1B
[225F51AB]{dcldb100.bpl} DSDesign.TDSDesigner.DoCreateField (Line 267, "DSDesign.pas" + 30) + $28
[225F631F]{dcldb100.bpl} DSDesign.TFieldsEditor.CreateFields (Line 648, "DSDesign.pas" + 23) + $1D
[225F6341]{dcldb100.bpl} DSDesign.TFieldsEditor.CreateFields (Line 650, "DSDesign.pas" + 25) + $B
[225F63AC]{dcldb100.bpl} DSDesign.TFieldsEditor.CreateFields (Line 660, "DSDesign.pas" + 35) + $B
[225F697D]{dcldb100.bpl} DSDesign.TFieldsEditor.DoAddFields (Line 836, "DSDesign.pas" + 28) + $C
[225F67D5]{dcldb100.bpl} DSDesign.TFieldsEditor.AddFields (Line 798, "DSDesign.pas" + 1) + $2
[225F7996]{dcldb100.bpl} DSDesign.TFieldsEditor.AddAllFields (Line 1340, "DSDesign.pas" + 0) + $2
[201305E7]{vcl100.bpl } Menus.TMenuItem.Click (Line 2283, "Menus.pas" + 14) + $8
[20131B0F]{vcl100.bpl } Menus.TMenu.DispatchCommand (Line 3008, "Menus.pas" + 5) + $2
[20132C6E]{vcl100.bpl } Menus.TPopupList.WndProc (Line 3798, "Menus.pas" + 4) + $E
[20132BBD]{vcl100.bpl } Menus.TPopupList.MainWndProc (Line 3779, "Menus.pas" + 2) + $5
[20040E4C]{rtl100.bpl } Classes.StdWndProc (Line 11583, "common\Classes.pas" + + $0
[201625F0]{vcl100.bpl } Forms.TApplication.ProcessMessage (Line 8105, "Forms.pas" + 23) + $1
[2016262A]{vcl100.bpl } Forms.TApplication.HandleMessage (Line 8124, "Forms.pas" + 1) + $4
[2016291F]{vcl100.bpl } Forms.TApplication.Run (Line 8223, "Forms.pas" + 20) + $3
[0042297A]{bds.exe } bds.bds (Line 195, "" + 7) + $7

Please specify the following:
- the full version of your IDE, for example, Delphi 2007 11.0.2902.10471 ;
- the exact version of MySQL server and client you are using. You can learn it from the Info sheet of TMyConnection Editor.

I have reproduced and fixed this problem. This fix will be included in the next MyDAC build.

Thanks!

Feel free to contact us if you have any further questions about MyDAC.