|
|
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
Доброе время суток, Есть форма (Delphi), на ней расположена « TTabSheet » на которой вместе с другими компонентами находились 4 « TEdit ». Форма немного преобразовалась: на форму кинулся « TGroupBox » и на него переместились (" Cut -> Paste ") эти 4 « TEdit » (« edGPU0 », « edTemp0 », « edGPU1 », « edTemp1 ») и еще некоторые компоненты. И получилось так, что при выполнении доступа к ним (во время выполнения программы), например, самых простых: Код: pascal 1. или Код: pascal 1. у меня выкидывается ошибка: … raised exception class $C0000005 with message 'access violation at 0x005611f8: read of address 0x00000050'. С другими компонентами « edit » такого не наблюдается. Текст dfm представлен ниже object FMain: TFMain Left = 413 Top = 337 Caption = 'Control miner' ClientHeight = 250 ClientWidth = 436 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False Position = poDesigned OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object pcControlMiner: TPageControl Left = 0 Top = 0 Width = 436 Height = 250 ActivePage = tshSetParameters Align = alClient TabOrder = 0 object tshSetParameters: TTabSheet Caption = 'Set parameters' object lIntervalControl: TLabel Left = 3 Top = 8 Width = 109 Height = 26 Caption = 'Interval control update log-file && his read' WordWrap = True end object lIntervalCompare: TLabel Left = 3 Top = 35 Width = 73 Height = 26 Caption = 'Interval control parameters' WordWrap = True end object lWork: TLabel Left = 88 Top = 64 Width = 106 Height = 26 Caption = 'Check SOUND, click button "Check sound"' Color = clRed Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Transparent = False WordWrap = True end object lUnitIntervalLog: TLabel Left = 174 Top = 16 Width = 26 Height = 13 Caption = '(sec.)' end object lUnitIntervalParameters: TLabel Left = 173 Top = 43 Width = 26 Height = 13 Caption = '(sec.)' end object lValueStatus: TLabel Left = 211 Top = 151 Width = 57 Height = 13 Caption = 'ValueStatus' end object lStatus: TLabel Left = 174 Top = 151 Width = 33 Height = 13 Caption = 'Status:' end object lMinerRun: TLabel Left = 174 Top = 170 Width = 62 Height = 13 Caption = 'Miner not run' Color = clRed ParentColor = False Transparent = False end object Label1: TLabel Left = 225 Top = 206 Width = 32 Height = 13 Caption = 'Label1' end object edIntervalControl: TEdit Left = 118 Top = 13 Width = 33 Height = 21 Hint = #1063#1077#1088#1077#1079' '#1091#1082#1072#1079#1072#1085#1085#1086#1077' '#1079#1085#1072#1095#1077#1085#1080#1077' '#1087#1088#1086#1074#1077#1088#1103#1077#1090' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1077' '#1083#1086#1075' '#1092#1072#1081#1083#1072 ParentShowHint = False ShowHint = True TabOrder = 0 Text = '5' OnChange = edIntervalControlChange OnKeyPress = edIntervalControlKeyPress end object upIntervalControl: TUpDown Left = 151 Top = 13 Width = 16 Height = 21 Associate = edIntervalControl Min = 5 Max = 10 Position = 5 TabOrder = 1 end object bCheckSound: TButton Left = 7 Top = 67 Width = 75 Height = 25 Caption = 'Check sound' TabOrder = 2 OnClick = bCheckSoundClick end object updIntervalCompare: TUpDown Left = 151 Top = 40 Width = 16 Height = 21 Associate = edIntervalCompare Min = 5 Max = 180 Position = 11 TabOrder = 3 end object edIntervalCompare: TEdit Left = 118 Top = 40 Width = 33 Height = 21 Hint = #1063#1077#1088#1077#1079' '#1091#1082#1072#1079#1072#1085#1085#1086#1077' '#1079#1085#1072#1095#1077#1085#1080#1077' '#1089#1088#1072#1074#1085#1080#1074#1072#1077#1090' '#1079#1085#1072#1095#1077#1085#1080#1103' '#1089' '#1079#1072#1076#1072#1085#1085#1099#1084#1080' '#1075#1088#1072#1085#1080#1095 + #1077#1097#1077#1084#1080' '#1079#1085#1072#1095#1077#1085#1080#1103#1084#1080 ParentShowHint = False ShowHint = True TabOrder = 4 Text = '11' OnChange = edIntervalCompareChange end object bRestartPC: TButton Left = 347 Top = 192 Width = 75 Height = 25 Caption = 'Restart PC' TabOrder = 5 OnClick = bRestartPCClick end object gpbControlVolume: TGroupBox Left = 4 Top = 99 Width = 198 Height = 48 Caption = 'gpbControlVolume' TabOrder = 7 object pControlVolume: TPanel Left = 2 Top = 15 Width = 194 Height = 31 Align = alClient Enabled = False TabOrder = 0 object lControlFrom: TLabel Left = 3 Top = 4 Width = 114 Height = 13 Caption = 'From To' end object dtpControlFrom: TDateTimePicker Left = 30 Top = 1 Width = 73 Height = 21 Date = 43119.000000000000000000 Time = 43119.000000000000000000 Kind = dtkTime TabOrder = 0 end object dtpControlTo: TDateTimePicker Left = 119 Top = 1 Width = 73 Height = 21 Date = 43119.291666666660000000 Time = 43119.291666666660000000 Kind = dtkTime TabOrder = 1 end end end object cbControlVolume: TCheckBox Left = 9 Top = 96 Width = 129 Height = 17 Hint = 'Descendent volume speak' Caption = 'Mode descend volume' TabOrder = 6 OnClick = cbControlVolumeClick end object grbLastLogMiner: TGroupBox Left = 3 Top = 146 Width = 161 Height = 71 Caption = 'Last log miner' TabOrder = 8 object laFileTime: TLabel Left = 44 Top = 51 Width = 47 Height = 13 Caption = 'laFileTime' end object lTime: TLabel Left = 4 Top = 51 Width = 23 Height = 13 Caption = 'Time' end object lSize: TLabel Left = 4 Top = 32 Width = 20 Height = 13 Caption = 'Size' end object laFileSize: TLabel Left = 44 Top = 32 Width = 44 Height = 13 Caption = 'laFileSize' end object laFileName: TLabel Left = 44 Top = 13 Width = 52 Height = 13 Caption = 'laFileName' end object lName: TLabel Left = 4 Top = 13 Width = 28 Height = 13 Caption = 'Name' end end object grbOutDataFatm: TGroupBox Left = 205 Top = 3 Width = 219 Height = 127 Color = clYellow ParentBackground = False ParentColor = False TabOrder = 9 object grbParametersPower: TGroupBox Left = 3 Top = 5 Width = 110 Height = 118 Caption = 'Parameters (farm out)' TabOrder = 0 object lGPU0: TLabel Left = 8 Top = 24 Width = 41 Height = 13 Caption = 'GPU0 ' end object GPU1: TLabel Left = 8 Top = 69 Width = 53 Height = 13 Caption = 'GPU1 ' end object lTemp0: TLabel Left = 8 Top = 44 Width = 84 Height = 13 Caption = 'temp0 C' end object lTemp1: TLabel Left = 8 Top = 92 Width = 84 Height = 13 Caption = 'temp1 C' end object edGPU0: TEdit Left = 47 Top = 19 Width = 57 Height = 21 Color = clBlack Ctl3D = True Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 0 Text = 'edGPU0' OnChange = edGPU0Change end object edGPU1: TEdit Left = 48 Top = 66 Width = 57 Height = 21 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 Text = 'edGPU1' OnChange = edGPU1Change end object edTemp0: TEdit Left = 48 Top = 40 Width = 33 Height = 21 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 Text = 'edTemp0' OnChange = edTemp0Change end object edTemp1: TEdit Left = 48 Top = 86 Width = 33 Height = 21 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 Text = 'edTemp0' OnChange = edTemp1Change end end object grbCompareValue: TGroupBox Left = 112 Top = 5 Width = 105 Height = 118 Caption = 'Control value' TabOrder = 1 object l_SignCompareGPU0: TLabel Left = 3 Top = 24 Width = 8 Height = 13 Caption = '>' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object l_SignCompareTemp0: TLabel Left = 3 Top = 44 Width = 8 Height = 13 Caption = '<' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object lNameValue2: TLabel Left = 51 Top = 89 Width = 7 Height = 13 Caption = 'C' end object l_SignCompareGPU1: TLabel Left = 3 Top = 69 Width = 8 Height = 13 Caption = '>' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object l_SignCompareTemp1: TLabel Left = 3 Top = 89 Width = 8 Height = 13 Caption = '<' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object lNameValue1: TLabel Left = 69 Top = 68 Width = 27 Height = 13 Caption = 'MH/s' end object lNameValue4: TLabel Left = 51 Top = 44 Width = 7 Height = 13 Caption = 'C' end object lNameValue0: TLabel Left = 69 Top = 24 Width = 27 Height = 13 Caption = 'MH/s' end object edNotLess0: TEdit Left = 14 Top = 21 Width = 49 Height = 21 TabOrder = 0 Text = '31' end object edNotLargerTemp0: TEdit Left = 14 Top = 41 Width = 31 Height = 21 TabOrder = 1 Text = '70' end object edNotLess1: TEdit Left = 14 Top = 66 Width = 49 Height = 21 TabOrder = 2 Text = '31' end object edNotLargerTemp1: TEdit Left = 14 Top = 87 Width = 31 Height = 21 TabOrder = 3 Text = '70' end end end object Button1: TButton Left = 312 Top = 152 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 10 OnClick = Button1Click end end object TabSheet2: TTabSheet Caption = 'Path' ImageIndex = 1 object lPathLog: TLabel Left = 8 Top = 10 Width = 109 Height = 13 Caption = 'Path to the log of miner' end object lPathBatFile: TLabel Left = 8 Top = 56 Width = 96 Height = 13 Caption = 'Path to the "bat" file' end object lGPU0Set: TLabel Left = 8 Top = 121 Width = 29 Height = 13 Caption = 'GPU0' end object lGPU1Set: TLabel Left = 8 Top = 148 Width = 29 Height = 13 Caption = 'GPU1' end object edPathLog: TEdit Left = 0 Top = 24 Width = 386 Height = 21 TabOrder = 0 Text = 'edPathLog' OnChange = edPathLogChange end object edPathBatFile: TEdit Left = 1 Top = 72 Width = 385 Height = 21 TabOrder = 1 Text = 'edPathBatFile' OnChange = edPathBatFileChange end object bbSave: TBitBtn Left = 176 Top = 194 Width = 75 Height = 25 Caption = 'Save' TabOrder = 2 OnClick = bbSaveClick OnMouseMove = bbSaveMouseMove end object bOpenDirectory: TButton Left = 392 Top = 22 Width = 33 Height = 25 Caption = '...' TabOrder = 3 OnClick = bOpenDirectoryClick end object bOpenFile: TButton Left = 392 Top = 70 Width = 33 Height = 25 Caption = '...' TabOrder = 4 OnClick = bOpenFileClick end object edGPU0Set: TEdit Left = 43 Top = 118 Width = 38 Height = 21 TabOrder = 5 Text = 'edGPU0Set' end object edGPU1Set: TEdit Left = 43 Top = 145 Width = 38 Height = 21 TabOrder = 6 Text = 'edGPU1Set' end end object TabSheet1: TTabSheet Caption = 'Description' ImageIndex = 2 object lDescription: TLabel Left = 3 Top = 16 Width = 412 Height = 52 Caption = #1080#1076#1077#1090' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#39'Edit'#39', '#1077#1089#1083#1080' '#1079#1085#1072#1084#1077#1085#1080#1077' '#1084#1077#1085#1100#1096#1077' '#1074#1082#1083#1102#1095#1072#1077#1090#1089#1103' '#1090#1072#1081#1084#1077#1088', '#1080 + ' '#1087#1088#1086#1080#1079#1093#1086#1076#1080#1090' beep #13#10. '#1058#1072#1082#1078#1077' '#1080#1076#1077#1090' '#1080#1085#1082#1088#1077#1084#1077#1085#1090' var '#1085#1072' 1, '#1089' '#1082#1072#1078#1076#1099#1084 + ' '#1089#1083#1077#1076#1091#1102#1097#1080#1084' '#1087#1086#1076#1088#1103#1076' beep, '#1077#1089#1083#1080' '#1086#1085#1085#1077' '#1087#1088#1077#1088#1099#1074#1072#1077#1090#1089#1103'. '#1050' '#1086#1075#1076#1072' '#1087#1088#1077#1088#1099#1074#1072#1077#1090#1089 + #1103' var=0. '#1045#1089#1083#1080' var= 80, '#1090#1086' '#1087#1077#1088#1077#1079#1072#1075#1088#1091#1079#1082#1072' '#1055#1050 WordWrap = True end end end object tPollDirectory: TTimer Enabled = False OnTimer = tPollDirectoryTimer Left = 184 Top = 32 end object tCompareGPU0: TTimer Enabled = False Interval = 5000 OnTimer = tCompareGPU0Timer Left = 347 Top = 19 end object tCompareTemp0: TTimer Enabled = False OnTimer = tCompareTemp0Timer Left = 392 Top = 48 end object tCompareGPU1: TTimer Enabled = False OnTimer = tCompareGPU1Timer Left = 323 Top = 67 end object tCompareTemp1: TTimer Enabled = False OnTimer = tCompareTemp1Timer Left = 384 Top = 96 end object OpenDialog1: TOpenDialog Filter = 'bat|*.bat' Left = 400 end end Если во время проектирования, обратиться к тексту dfm (« View as text »), то также валится ошибка: Access violation at address 525E0394 in module 'vcldesigner250.bpl'. Read of address 00000000. >> OK Details>> Кнопка « Details >> » при этом не работает, виснет просто Delphi. Кто нибудь встречался с такой оказией? И что при этом делать? P.S. - У меня есть еще один проект, но там больше компонентов, и опять такая же фигня. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.02.2018, 02:39 |
|
||
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
Проверь PAS файл, походу часть компонентов не объявлена в исходнике. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.02.2018, 02:41 |
|
||
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
ЛисьПроверь PAS файл, походу часть компонентов не объявлена в исходнике. Хорошо проверю («edGPU0», «edGPU1»). Хотя до этого все работало. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.02.2018, 02:47 |
|
||
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
Лись, Та нет, вроде все объявлено: Код: pascal 1. 2. 3. 4. 5. 6. 7. 8. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.02.2018, 02:52 |
|
||
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
Перед вызовом Sergey-2008 Код: pascal 1. проверьте, проинициализирована ли edGPU0. Дальше, откройте Вашу dfm из скомпилированного exe каким-нибудь редактором ресурсов и убедитесь, что там именно то, что Вы привели здесь Sergey-2008Та нет, вроде все объявлено: Код: pascal 1. 2. 3. 4. 5. 6. 7. 8. Я надеюсь, что это в секции published? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.02.2018, 13:31 |
|
||
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
автору меня выкидывается ошибка: … raised exception class $C0000005 with message 'access violation at 0x005611f8: read of address 0x00000050'. С другими компонентами «edit» такого не наблюдается. если она повторяется у тебя - то зачем ты показываешь ошибку АВ, вместо нормального места ошибки из отладчика + коллстека и прочего. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.02.2018, 14:24 |
|
||
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
_Vasilisk_Перед вызовом Sergey-2008 Код: pascal 1. проверьте, проинициализирована ли edGPU0. Перед, этим я проверил на nil , проверка прошла, т.е. Код: pascal 1. 2. 3. result = "exists" _Vasilisk_Дальше, откройте Вашу dfm из скомпилированного exe каким-нибудь редактором ресурсов и убедитесь, что там именно то, что Вы Вообщем я уже привел текст dfm в первом посте (конечно пользовался блокнотом) _Vasilisk_Я надеюсь, что это в секции published? Объявление идет в классе Код: pascal 1. 2. 3. вообщем там где у меня объявлены все визуальные компоненты (повторюсь в компонентами «edTemp0», «edTemp0», такой беды нет, хотя они объявлены там, где и «edGPU0», «edGPU1»). Может это вообще из-за сборки, "Embarcadero Rad Studio 10.2 Tokyo Architect 25.0.26309.314 x86 [2017, ENG]". ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.02.2018, 17:09 |
|
||
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
Sergey-2008Вообщем я уже привел текст dfm в первом постеЯ не зря сказал_Vasilisk_откройте Вашу dfm из скомпилированного exeВы уверены, что в проект линкуется именно та dfm, которую Вы показали? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.02.2018, 17:58 |
|
||
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
_Vasilisk_Вы уверены, что в проект линкуется именно та dfm, которую Вы показали? - Перепутать не мог, потому что в проекте всего одна dfm. - Из разряда "не доверяй своим глазам", удалил эту dfm из проекта, при запуске, потребовала dfm - Может это правда из-за крякнутой версии? (на рутракере подобные проблемы звучали... конечно чуть не тикие как у меня). P.S. Сколько не пользовался Delphi7, таких проблем не было. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.02.2018, 20:10 |
|
||
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
Sergey-2008Перепутать не мог,Ладно, Вам виднее ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.02.2018, 21:48 |
|
||
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
_Vasilisk_Sergey-2008Перепутать не мог,Ладно, Вам виднее Люди попробовали, засунуть dfm, в Delphi2010 и ХЕ, говорять ошибок не возникало, может действительно сборка такая... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.02.2018, 00:13 |
|
||
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
Ну ЭТО КАКОЙ-ТО ПИПЕЦ товарищи, кинул dfm, в Delphi7, откомпелировал, проверил - работает... Эту dfm, кинул обратно в проект Delphi 10.2 - ЗАРАБОТАЛО... Доуровнял dfm из Delphi7 к dfm Delphi 10.2. В общем получилось, если в dfm не будет упоминания о обработчиках "edGPU0" и "edGPU1", то все работает. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.02.2018, 02:49 |
|
||
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
Так может в этих обработчиках память то и портится ??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.02.2018, 02:53 |
|
||
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
DimaBrТак может в этих обработчиках память то и портится ??? Вопрос интересный, ща посмотрю... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.02.2018, 02:58 |
|
||
|
RadStudio 10.2 Tokyo (небольшие глюки в module vcldesigner250.bpl)
|
|||
|---|---|---|---|
|
#18+
DimaBr, Не пинайте сильно... Да, действительно - переименовал компонент (и забыл), а при реализации, обращался к нему по старому имени... и конечно в результате был "nil" Всем отозвавшимся еще раз СПАСИБО. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.02.2018, 03:20 |
|
||
|
|

start [/forum/topic.php?fid=58&msg=39603561&tid=2041222]: |
0ms |
get settings: |
7ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
170ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
67ms |
get tp. blocked users: |
2ms |
| others: | 286ms |
| total: | 574ms |

| 0 / 0 |
