| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вытащить сообщение Exception IB в Delphi [D6, IB6.x]

samalex ©   (2008-11-25 14:37:00) 

Уважаемые знатоки!!!
1. Создал в IB Exception:CREATE EXCEPTION EXIST_INPUT_N_MKP Такой № уже заведен';
2. Подключил его в триггер:
CREATE TRIGGER DATA_EXAM_AI0 FOR DATA_EXAM
ACTIVE AFTER INSERT OR UPDATE POSITION 0
AS
begin
 IF (EXISTS(select * from data_zel dz where upper(dz.input_n_mkp)=upper(NEW.input_n_mkp))) then
 begin
   exception EXIST_INPUT_N_MKP;
 end
 /* Trigger text */
end
3. Из Delphi вызываю хранимую процедуру для обновления таблицы.
     try
       ExecProc;
     except
       ShowMessage('Ошибка');
       exit;
     end;
4.1. Как мне вытащить в Delphi текст из exception?
Типа, ошибка из-за этого произошла.
4.2. Узнать название exception для Deiphi, чтобы использовать
try
...
except
 on EZeroDivide do HandleZeroDivide;
 on EOverflow do HandleOverflow;
 on EMathError do HandleMathError;
end;

Заранее благодарен.

---

samalex   (2008-11-25 15:03:00) [1]

Большое спасибо!!!

---

Сергей М.   (2008-11-25 14:39:00) [2]

except
on E:Exception do ShowMessage(e.ClassName + ' ' + e.Message);
end;

---

Наверх