Delphi 7 Access Violation

Rimma Zlotnikov · #1 18.02.2017, 17:25

Всем доброго дня
Столкнулась с проблемой при добавлении записей посредством IBTable.
Запускаю проект, и первый раз эти строки выполняются отлично:

Код:

//запись в таблицу ITER
  i := 1;
  itcount := RandomRange(1, 100);
  for i := 1 to itcount-1 do
  BEGIN

        DM.IBTable3.Append;    //БЫЛА ОШИБКА "cannot focus a disabled or invisible window"
        DM.IBTable3.FieldByName('IT_ID').AsInteger := 0;   //ВОТ ЗДЕСЬ !!!!!!ACCESS VIOLATION и PRIVILEGED INSTRUCTION ... формируется в базе триггером, есть ID итерации
        DM.IBTable3.FieldByName('CALCNUM').AsInteger := CALCNUM;  //для какого расчета..
        DM.IBTable3.FieldByName('ITERNUM').AsInteger := 0;     //ФОРМИРУЕТСЯ СЕЙЧАС В БАЗЕ триггером. но возможно придется ставить здесь
        DM.IBTable3.FieldByName('X1K').AsFloat := i;   //координата X
        DM.IBTable3.FieldByName('X2K').AsFloat  := RandomRange(1, 50) ;     //координата Y
        DM.IBTable3.FieldByName('FK').AsFloat  := RandomRange(0, 50);
        DM.IBTable3.POST;
  END;
  //DM.IBTable3.Refresh;

НО при повторном срабатывании выдавало ошибку 'Access violation at address XXXXXXX (всегда разный). Read of address YYYYYYYY'

Теперь в этом же месте ошибка 'Privileged instruction' и также при повторной работе кода. Получается, что уже команда Append не проходит..

Интересно заметить, что этот код работал уже много раз и вполне успешно, но после изменений не знаю каких таких, все стало вот так.

Rimma Zlotnikov · #2 18.02.2017, 19:07

Проблема не решена. Перенесла этот код на более раннюю версию проекта и все стало работать. Что же могло повлиять, интересно

lmikle · #3 18.02.2017, 22:37

По внешним признакам скорее всего где-то падает обработчик события на визуальных компонентах, привязанных к этой IBTable3. Т.е. проблема не в компоненте доступа к данным, а где-то в визуальной части.
Для решения, например, можно временно "отключать" DataSource, делать вставку, потом обратно "подключать" (там есть методы DisableControls и EnableControls). Кстати, при подключенных визуальных компонентах это еще и работы убыстрит, т.к. не будет обновлять отображение.

Rimma Zlotnikov · #4 19.02.2017, 07:58

Цитата:

Сообщение от lmikle

По внешним признакам скорее всего где-то падает обработчик события на визуальных компонентах, привязанных к этой IBTable3. Т.е. проблема не в компоненте доступа к данным, а где-то в визуальной части.
Для решения, например, можно временно "отключать" DataSource, делать вставку, потом обратно "подключать" (там есть методы DisableControls и EnableControls). Кстати, при подключенных визуальных компонентах это еще и работы убыстрит, т.к. не будет обновлять отображение.

Спасибо за ответ. Я сделала так:

Код:

Form1.DBGrid1.DataSource.DataSet.DisableControls;   //попытка исправить Access Violation
//запись в таблицу ITER
  i := 1;
  itcount := RandomRange(1, 100);
  for i := 1 to itcount-1 do
  BEGIN

        DM.IBTable3.Append;    //БЫЛА ОШИБКА "cannot focus a disabled or invisible window"
        DM.IBTable3.FieldByName('IT_ID').AsInteger := 0;   //ACCESS VIOLATION ... формируется в базе триггером
        DM.IBTable3.FieldByName('CALCNUM').AsInteger := CALCNUM;  //для какого расчета..
        DM.IBTable3.FieldByName('ITERNUM').AsInteger := 0;     //ФОРМИРУЕТСЯ СЕЙЧАС В БАЗЕ триггером. но возможно придется ставить здесь
        DM.IBTable3.FieldByName('X1K').AsFloat := i;   //координата X
        DM.IBTable3.FieldByName('X2K').AsFloat  := RandomRange(1, 50) ;     //координата Y
        DM.IBTable3.FieldByName('FK').AsFloat  := RandomRange(0, 50);
        DM.IBTable3.POST;
  END;
  DM.IBTable3.Refresh;
  Form1.DBGrid1.DataSource.DataSet.EnableControls;  //попытка исправить Access Violation

НО все осталось прежним

Alegun · #5 19.02.2017, 12:18

Цитата:

Сообщение от Rimma Zlotnikov

...Перенесла этот код на более раннюю версию проекта и все стало работать...

Добавление записей в таблицу у вас происходит штатно, а с Disable/EnableControls вообще прям по всем канонам выполняется код - вывод: в поздней версии проекта есть что-то ещё, здесь не показанное, и к приведённому блоку имеющее прямое отношение, вопрос: что творите ещё в момент выполнения Append

Rimma Zlotnikov · #6 19.02.2017, 17:04

Цитата:

Сообщение от Alegun

Добавление записей в таблицу у вас происходит штатно, а с Disable/EnableControls вообще прям по всем канонам выполняется код - вывод: в поздней версии проекта есть что-то ещё, здесь не показанное, и к приведённому блоку имеющее прямое отношение, вопрос: что творите ещё в момент выполнения Append

Больше ничегошеньки не делается c Append.
В целом есть класс, через объект которого вызывается процедура:

Код:

Temp.Method(k1,k2, k3, k4, alpha, betha, X1, X2, dX, E, calcnum, CType);

Эта процедура есть просто "заглушка", которая заполняет БД через IBTable:

Код:

procedure TOptimization.Method(k1: integer; k2: integer; k3: integer; k4: integer; alpha: real; betha: real; X1: real; X2: real; dX: real; E: real;
    calcnum: Integer; CType: integer);
var itcount, i : integer;
BEGIN
  Form1.DBGrid1.DataSource.DataSet.DisableControls;   //попытка исправить Access Violation
//запись в таблицу ITER
  i := 1;
  itcount := RandomRange(1, 100);
  for i := 1 to itcount-1 do
  BEGIN

        DM.IBTable3.Append;    //БЫЛА ОШИБКА "cannot focus a disabled or invisible window"
        DM.IBTable3.FieldByName('IT_ID').AsInteger := 0;   //ACCESS VIOLATION ... формируется в базе триггером
        DM.IBTable3.FieldByName('CALCNUM').AsInteger := CALCNUM;  //для какого расчета..
        DM.IBTable3.FieldByName('ITERNUM').AsInteger := 0;     //ФОРМИРУЕТСЯ СЕЙЧАС В БАЗЕ триггером. но возможно придется ставить здесь
        DM.IBTable3.FieldByName('X1K').AsFloat := i;   //координата X
        DM.IBTable3.FieldByName('X2K').AsFloat  := RandomRange(1, 50) ;     //координата Y
        DM.IBTable3.FieldByName('FK').AsFloat  := RandomRange(0, 50);
        DM.IBTable3.POST;
  END;
  DM.IBTable3.Refresh;
  Form1.DBGrid1.DataSource.DataSet.EnableControls;  //попытка исправить Access Violation
END;

Rimma Zlotnikov · #7 19.02.2017, 17:58

В общем, более раннюю версию также запорола. Причем я делала вещи, совершенно не связанные с проблемным IBTable3. Пару раз в этом месте вместо "Access violation" появлялось "External exception"

Rimma Zlotnikov · #8 19.02.2017, 18:12

Приношу свои извинения за не совсем полный код. Вот вся процедура:

Код:

procedure TOptimization.Method(k1: integer; k2: integer; k3: integer; k4: integer; alpha: real; betha: real; X1: real; X2: real; dX: real; E: real;
    calcnum: Integer; CType: integer);
var itcount, i : integer;
BEGIN
  Form1.DBGrid1.DataSource.DataSet.DisableControls;   //попытка исправить Access Violation
//запись в таблицу ITER
  i := 1;
  itcount := RandomRange(1, 100);
  for i := 1 to itcount-1 do
  BEGIN

        DM.IBTable3.Append;    //БЫЛА ОШИБКА "cannot focus a disabled or invisible window"
        DM.IBTable3.FieldByName('IT_ID').AsInteger := 0;   //ACCESS VIOLATION ... формируется в базе триггером
        DM.IBTable3.FieldByName('CALCNUM').AsInteger := CALCNUM;  //для какого расчета..
        DM.IBTable3.FieldByName('ITERNUM').AsInteger := 0;     //ФОРМИРУЕТСЯ СЕЙЧАС В БАЗЕ триггером. но возможно придется ставить здесь
        DM.IBTable3.FieldByName('X1K').AsFloat := i;   //координата X
        DM.IBTable3.FieldByName('X2K').AsFloat  := RandomRange(1, 50) ;     //координата Y
        DM.IBTable3.FieldByName('FK').AsFloat  := RandomRange(0, 50);
        DM.IBTable3.POST;
  END;
  DM.IBTable3.Refresh;
  Form1.DBGrid1.DataSource.DataSet.EnableControls;  //попытка исправить Access Violation
//дозаполнение полей в таблице CALC - step, criterion, x1optim, x2optim, foptim
  with DM.IBQuery2 do
  BEGIN
      Close;
      SQL.Clear;
      SQL.Add('update calc set step = :step, criterion = :criterion,');
      SQL.Add(' x1optim = :x1optim, x2optim = :x2optim, foptim = :foptim ');
      SQL.Add('where calcnum = :calcnum');
      Params.ParamByName('calcnum').Value := CALCNUM;
      Params.ParamByName('step').Value := (itcount/2.0) -1;
      Params.ParamByName('criterion').Value := 1.8;
      Params.ParamByName('x1optim').Value := 21;  //брать последнюю итерацию из базы..
      Params.ParamByName('x2optim').Value := 21;      //брать последнюю итерацию из базы..
      Params.ParamByName('foptim').Value := 0.11 ;  //брать последнюю итерацию из базы..
      ExecSQL;
  END;
  DM.IBTable1.Refresh;
END;

Если убрать вторую часть с IBQUERY - то все работает просто ОТЛИЧНО и не ругается..!!
HEPL!!!!! Неужели придется разбивать на две разные процедуры. Но это, чуется мне, бред полный

Alegun · #9 19.02.2017, 18:58

Можно было бы посоветовать для блока with DM.IBQuery2 do подготовить запрос предварительным разбором и оптимизацией типа

Код:

...
 Close;
 if not Prepared then Prepare;
 ...

но делфя и так автоматом подготавливает его при каждом выполнении SQL и поэтому, даже если так и делать, то приложению на это фиолетово, зато можно рекомендовать в конце блока добавить проверку на ашипки

Код:

try
   ExecSQL;
 except
   on e: EDataBaseError do  MessageDlg(e.Message, mtError, [mbOK], 0);
 end;

Rimma Zlotnikov · #10 19.02.2017, 19:38

Цитата:

Сообщение от Alegun

Можно было бы посоветовать для блока with DM.IBQuery2 do подготовить запрос предварительным разбором и оптимизацией типа

Код:

...
 Close;
 if not Prepared then Prepare;
 ...

но делфя и так автоматом подготавливает его при каждом выполнении SQL и поэтому, даже если так и делать, то приложению на это фиолетово, зато можно рекомендовать в конце блока добавить проверку на ашипки

Код:

try
   ExecSQL;
 except
   on e: EDataBaseError do  MessageDlg(e.Message, mtError, [mbOK], 0);
 end;

я сделала по совету:

Код:

with DM.IBQuery2 do
  BEGIN
      Close;
      SQL.Clear;
      SQL.Add('update calc set step = :step, criterion = :criterion,');
      SQL.Add(' x1optim = :x1optim, x2optim = :x2optim, foptim = :foptim ');
      SQL.Add('where calcnum = :calcnum');
      Params.ParamByName('calcnum').Value := CALCNUM;
      Params.ParamByName('step').Value := (itcount/2.0) -1;
      Params.ParamByName('criterion').Value := 1.8;
      Params.ParamByName('x1optim').Value := 21;  //áðàòü ïîñëåäíþþ èòåðàöèþ èç áàçû..
      Params.ParamByName('x2optim').Value := 21;      //áðàòü ïîñëåäíþþ èòåðàöèþ èç áàçû..
      Params.ParamByName('foptim').Value := 0.11 ;  //áðàòü ïîñëåäíþþ èòåðàöèþ èç áàçû..
      //ExecSQL;
      try
**      ExecSQL; //!!!!!!!!!!!!!!!!!!! illegal character in input file: ' ' ($A0)
*     except
*     **on e: EDataBaseError do* MessageDlg(e.Message, mtError, [mbOK], 0);
*end;

Как может возникать такая ошибка вообще!?!

Rimma Zlotnikov · #11 19.02.2017, 19:47

ввела блок TRY ручками и ошибки не стало. Но сам блок ничего не дал:

Код:

procedure TOptimization.Method(k1: integer; k2: integer; k3: integer; k4: integer; alpha: real; betha: real; X1: real; X2: real; dX: real; E: real;
    calcnum: Integer; CType: integer);
var itcount, i : integer;
BEGIN
  Form1.DBGrid1.DataSource.DataSet.DisableControls;   //ïîïûòêà èñïðàâèòü Access Violation
//çàïèñü â òàáëèöó ITER
  i := 1;
  itcount := RandomRange(1, 100);
  for i := 1 to itcount-1 do
  BEGIN

        DM.IBTable3.Append;    //ÁÛËÀ ÎØÈÁÊÀ "cannot focus a disabled or invisible window"
        DM.IBTable3.FieldByName('IT_ID').AsInteger := 0;   //ACCESS VIOLATION ... ôîðìèðóåòñÿ â áàçå òðèããåðîì
        DM.IBTable3.FieldByName('CALCNUM').AsInteger := CALCNUM;  //äëÿ êàêîãî ðàñ÷åòà..
        DM.IBTable3.FieldByName('ITERNUM').AsInteger := 0;     //ÔÎÐÌÈÐÓÅÒÑß ÑÅÉ×ÀÑ Â ÁÀÇÅ òðèããåðîì. íî âîçìîæíî ïðèäåòñÿ ñòàâèòü çäåñü
        DM.IBTable3.FieldByName('X1K').AsFloat := 1;   //êîîðäèíàòà X
        DM.IBTable3.FieldByName('X2K').AsFloat  := 1; //RandomRange(1, 50) ;     //êîîðäèíàòà Y
        DM.IBTable3.FieldByName('FK').AsFloat  := 1; //RandomRange(0, 50);
        //DM.IBTable3.POST;
        try
          DM.IBTable3.POST;
        except
          on e: EdataBaseError do MessageDlg(e.Message, mtError, [mbOK], 0);
        end;
  END;
  DM.IBTable3.Refresh;
  Form1.DBGrid1.DataSource.DataSet.EnableControls;  //ïîïûòêà èñïðàâèòü Access Violation
  //äîçàïîëíåíèå ïîëåé â òàáëèöå CALC - step, criterion, x1optim, x2optim, foptim
  with DM.IBQuery2 do
  BEGIN
      Close;
      SQL.Clear;
      SQL.Add('update calc set step = :step, criterion = :criterion,');
      SQL.Add(' x1optim = :x1optim, x2optim = :x2optim, foptim = :foptim ');
      SQL.Add('where calcnum = :calcnum');
      Params.ParamByName('calcnum').Value := CALCNUM;
      Params.ParamByName('step').Value := (itcount/2.0) -1;
      Params.ParamByName('criterion').Value := 1.8;
      Params.ParamByName('x1optim').Value := 21;  //áðàòü ïîñëåäíþþ èòåðàöèþ èç áàçû..
      Params.ParamByName('x2optim').Value := 21;      //áðàòü ïîñëåäíþþ èòåðàöèþ èç áàçû..
      Params.ParamByName('foptim').Value := 0.11 ;  //áðàòü ïîñëåäíþþ èòåðàöèþ èç áàçû..
      //ExecSQL;
      try
        ExecSQL;
      except
        on e: EdataBaseError do MessageDlg(e.Message, mtError, [mbOK], 0);
      end;
  END;
  DM.IBTable1.Refresh;
END;

Alegun · #12 19.02.2017, 20:03

Цитата:

Сообщение от Rimma Zlotnikov

...illegal character in input file: ' ' ($A0)...Как может возникать такая ошибка вообще!?!

Компилятор не понимает символ с кодом $A0. Видимо это след копипасты "возврата каретки", правильно, что "ручками"

Можете показать какие и где вылазят ошибки при выполнении запроса, и я бы на время отключил блок относящийся к выполнению IBTable3.Append, будет проще

Rimma Zlotnikov · #13 19.02.2017, 20:25

Цитата:

Сообщение от Alegun

Можете показать какие и где вылазят ошибки при выполнении запроса, и я бы на время отключил блок относящийся к выполнению IBTable3.Append, будет проще

Не совсем поняла просьбу. Ошибка вылазит только там, где я изначально обозначала. До блока TRY даже не доходит

Rimma Zlotnikov · #14 19.02.2017, 20:26

Цитата:

Сообщение от Alegun

Можете показать какие и где вылазят ошибки при выполнении запроса, и я бы на время отключил блок относящийся к выполнению IBTable3.Append, будет проще

Не совсем поняла просьбу. Ошибка вылазит только там, где я изначально обозначала. До блока TRY даже не доходит

Alegun · #15 19.02.2017, 20:43

Изначально

Цитата:

Сообщение от Rimma Zlotnikov

...'Access violation at address XXXXXXX (всегда разный). Read of address YYYYYYYY'...Теперь в этом же месте ошибка 'Privileged instruction'...

Privileged instruction означает что в программе была попытка вызвать недопустимую в данный момент инструкцию: по-простому, так это порча памяти, что-то пытается кого-то считать или вызвать, а его, родимого, ещё нет или уже нет, ошибка видимо происходит совсем в другом месте

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
Rimma Zlotnikov (19.02.2017)

Этот пользователь сказал Спасибо Alegun за это полезное сообщение:
Rimma Zlotnikov (19.02.2017)