Текущий архив: 2002.10.21;
Скачать: CL | DM;

Вниз

Проверка имени и пароля   Найти похожие ветки 

← →
Roma111   (2002-09-30 13:56) [0]

Мне в программе необходимо, чтобы каждый пользователь вводил свой логин и пароль. Есть начальная форма с компонентами TEdit для ввода этих параметров. Потом они присваиваются компоненту TIBDatabase (params.add ...) и open. Вопрос - как сделать так, чтобы при неправильном введении параметров не высвечивался Exception "EIBClientError", а приемлемое для пользователя и можно было обработать ситуацию ...

---

← →
passm ©   (2002-09-30 14:01) [1]

try
Database1.Connected:= True
except
on E: Exception do
begin
{ Делай что хочешь }
end
end

---

← →
3JIA9I CyKA ©   (2002-09-30 14:01) [2]

trye?

---

← →
Roma111   (2002-09-30 14:07) [3]

Я, конечно, пробовал:

Try
IBDatabase1.Open;
except
on E:EIBInterbaseError do
begin
IBDatabase1.close;
Halt(0);
end;
end

но exception EIBInterbaseError все же выскакивает.

---

← →
passm ©   (2002-09-30 14:21) [4]

Roma111 (30.09.02 14:07)> Что пишет?
А зачем IBDatabase1.close если коннекта все равно нет?

---

← →
3JIA9I CyKA ©   (2002-09-30 14:21) [5]

А passm © (30.09.02 14:01)?

---

← →
Roma111   (2002-09-30 14:26) [6]

Exception

Project Project1.exe raised exception class EIBInterbaseError with message "Your user name and password are not defined". Ask your database administrator to set up an Interbase login. Process stopped. Use Step pr Run to continue.

Переводить, я думаю, не надо...

---

← →
Kaban ©   (2002-09-30 14:32) [7]

еще один учится ошибки прямо из Delphi обрабатывать
Запусти exe не из под Delphi

---

← →
passm ©   (2002-09-30 14:36) [8]

Kaban © (30.09.02 14:32)> Хорошая мысль - я был в недоумении :)
Или в Debug убери Stop on Delphi Exceptions.

---

← →
Roma111   (2002-09-30 14:37) [9]

Kaban, спасибо, работает.

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.21;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.019 c