Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TOraQuerry - перехват ошибок / 4 сообщений из 4, страница 1 из 1
09.01.2018, 14:32:58
    #39581072
Руслан И
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TOraQuerry - перехват ошибок
При открытии TOraQuery.Open; хотелось бы перехватить ошибку SQL и вывести ошибочный SQL запрос. Кто нибудь находил решения?
У меня получалось только перехватывать ошибку у TOraSession (Событие OnError), но текст запроса получить не могу в этом случае.
Delphi 7
ODAC 5.10.0.5
Сервер Oracle 11G
...
Рейтинг: 0 / 0
09.01.2018, 14:35:11
    #39581075
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TOraQuerry - перехват ошибок
Руслан Ино текст запроса получить не могу в этом случае.
Почему?

E.Component
...
Рейтинг: 0 / 0
09.01.2018, 14:40:14
    #39581082
Руслан И
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TOraQuerry - перехват ошибок
wadman,
Спасибо огромное за помощь!
...
Рейтинг: 0 / 0
09.01.2018, 15:49:19
    #39581129
softwarer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TOraQuerry - перехват ошибок
Руслан ИКто нибудь находил решения?
Тут незачем искать решение, поскольку при правильной архитектуре приложения это вообще не проблема.

"Проблема" возникает только из-за употребления порочной практики прямого использования чужих компонент в своём коде. Адекватное решение - в тот момент, когда хочется использовать чужой компонент, делать для него обёртку и использовать в этой обёртке. Тогда задача решается за минуту примерно следующим образом:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
procedure TMyQuery.InternalOpen;
begin
  try
    inherited;
  except
    { Шо вы там хотели сделать с исключением? }
  end;
end;
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TOraQuerry - перехват ошибок / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]