Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / AppliactionEvents OnException через E код ошибки / 12 сообщений из 12, страница 1 из 1
30.11.2018, 14:37
    #39740917
AdamAry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AppliactionEvents OnException через E код ошибки
Как поймать ошибку зная её номер (ORA-02292) в
Код: pascal
1.
procedure TForm1.AppliactionEvents1Exception(Sender: TObject; E: Exception);



текст сообщения ошибки это
Код: pascal
1.
E.Message 


как получить номер ошибки через ?:
Код: pascal
1.
E 
...
Рейтинг: 0 / 0
30.11.2018, 14:43
    #39740922
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AppliactionEvents OnException через E код ошибки
AdamAryКак поймать ошибку зная её номер (ORA-02292)

Залезть в место исходников где эта ошибка выкидывается и посмотреть класс исключения. Если
в этом классе есть поле под номер - проверить класс Е и если он нужный - привести к нему и
получить номер.

В противном случае - обломись.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
30.11.2018, 14:49
    #39740929
AdamAry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AppliactionEvents OnException через E код ошибки
Dimitry Sibiryakov,
если не ошибаюсь
Код: pascal
1.
ClassName равен 'EOracleError'


и как в этом случае из
Код: pascal
1.
E


получить номер ошибки?
...
Рейтинг: 0 / 0
30.11.2018, 14:54
    #39740942
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AppliactionEvents OnException через E код ошибки
AdamAry,

Код: pascal
1.
2.
 if E is EOraError then 
  EOraError(E).ErrorCode
...
Рейтинг: 0 / 0
30.11.2018, 14:55
    #39740944
AdamAry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AppliactionEvents OnException через E код ошибки
AdamAry,
прошу прощения, описался, правильно
Код: pascal
1.
ClassName равен 'EOraError'
...
Рейтинг: 0 / 0
30.11.2018, 15:19
    #39740976
Док
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AppliactionEvents OnException через E код ошибки
AdamAry,
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
try
...
except
  on E:EOraError do
  begin
    //здесь анализ чего-там тебе нужно
    //и выдача либо своего сообщения, либо
    //системного в виде E.Message
  end;
end;
...
Рейтинг: 0 / 0
30.11.2018, 15:30
    #39740999
AdamAry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AppliactionEvents OnException через E код ошибки
Док,
Код: pascal
1.
procedure TForm1.AppliactionEvents1Exception(Sender: TObject; E: Exception);


как через
Код: pascal
1.
E


получить номер ошибки?
...
Рейтинг: 0 / 0
30.11.2018, 15:33
    #39741003
zinpub
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AppliactionEvents OnException через E код ошибки
Пятница...

Я ж показал...
...
Рейтинг: 0 / 0
30.11.2018, 18:14
    #39741206
X-Cite
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AppliactionEvents OnException через E код ошибки
Код: pascal
1.
2.
3.
4.
5.
6.
if E is EOraError then
  case EOraError(E).ErrorCode of
    5:;
    10:;
    20:;
  end;
...
Рейтинг: 0 / 0
01.12.2018, 09:00
    #39741358
AdamAry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AppliactionEvents OnException через E код ошибки
X-Cite,
пишет
Код: pascal
1.
[DCC Error] Unit1.pas(82): E2003 Undeclared identifier: 'EOraError'
...
Рейтинг: 0 / 0
01.12.2018, 10:46
    #39741381
X-Cite
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AppliactionEvents OnException через E код ошибки
Так в uses подключите модуль, где описан этот класс
...
Рейтинг: 0 / 0
01.12.2018, 11:28
    #39741392
AdamAry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AppliactionEvents OnException через E код ошибки
X-Cite,
uses OraError;

Всё отменно.
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / AppliactionEvents OnException через E код ошибки / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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