ADO.Обход ошибок при програмной идентификации.

[Zo0M]

Я создаю клиент для работы с MSSQL через Delphi. Использую ADO.

В форме входа 4 эдитбокса, где вводятся Логин,Пароль,Сервер,База данных.
При нажатии на кнопку "Вход", эти параметры генерируют строку ConnectionString для ADOConnection и значение Connected изменяется на True. В принципе всё работает, но я хочу реализовать защиту от ввода некорректных Логина/Пароля/... Если их ввести просто левыми, программа подвисает, и через некоторое время выдаёт ошибку.

В интернетах я нашёл событие OnWillConnect, которое вызывается перед подключением. Вот его заголовок

 procedure  TForm1.ADOConnection1WillConnect(Connection: TADOConnection; 
              var  ConnectionString, UserID, Password: WideString; 
              var ConnectOptions: TConnectOption; var EventStatus: TEventStatus);

Для параметра EventStatus существует следующее значение

esErrorsOccured - в процессе выполнения запроса возникла ошибка;

Я написал следующий код:

procedure TMainF.ADOConnection1WillConnect(Connection: TADOConnection;
  var ConnectionString, UserID, Password: WideString;
  var ConnectOptions: TConnectOption; var EventStatus: TEventStatus);
begin
If EventStatus = esErrorsOccured then
Application.MessageBox('Проверьте данные','Ошибка');
end;

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

В описании метода TWillConnectEvent я прочитал, что он вызывается после получения подтверждения от провайдера о том, что соединение будет открыто, перед его реальным открытием.

Значит ли это то, что проверка Логин/Пароля/... происходит раньше, чем выполняется метод?

И что в этом случае делать?

[Zo0M]

Покопавшись по интернету наткнулся на класс Exception. Попробовал сделать через исключение:

procedure TMainF.Button1Click(Sender: TObject);
begin
ADOConnection1.ConnectionString:=ADOParam;
   try
   ADOConnection1.Connected:=true;
   except
   on EAbort do Application.MessageBox('1','2');
  end;
ADOTable1.Active:=true;
end;

На результат не повлияло(

[Evgeniy26]

Попробуйте так:

 
try
  ADOConnection1.Connected := False;
  ADOConnection1.ConnectionString := '<>';
  ADOConnection1.Connected := True;
except
  on E: Exception do
  begin
    //Ваш код
  end;
 end;

[Zo0M]

Вначале программа подвисла, затем выполнились команды, находящиеся в except после do, затем программа снова подвисла, и выдала системную ошибку, что SQL сервер не обнаружен, либо неверные данные.

Как я понял, всё работает, только нужно отключить вывод ошибок.

В паскале, например, можно было изменять директивы компилятора прямо в коде. Например {$I-} отключал проверку правильности ввода/вывода. Есть ли аналог под дельфи, и это вообще то?

[Evgeniy26]

в except после do, затем программа снова подвисла, и выдала системную ошибку

Что вы делаете после except?

[Zo0M]

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

Что вы делаете после except?

Вывожу сообщение, о том, что произошла ошибка, проверьте параметры...

[Evgeniy26]

После этого блока:

except
  on E: Exception do
  begin
    //Ваш код
  end;

[Zo0M]

Активизирую ADOTable

procedure TMainF.Button1Click(Sender: TObject);       
begin
try
  ADOConnection1.Connected := False;
  ADOConnection1.ConnectionString := ADOParam;
  ADOConnection1.Connected := True;
except
  on E: Exception do
        begin
        Application.MessageBox('Ошибка','Внимание');
        end;
 end;
ADOTable1.Active:=true;
end;

Ну ведь то, что после except, выполняется, только, если в try не было ошибок?

[Evgeniy26]

Попробывал, убрал

ADOTable1.Active:=true;

и все ок, с ней ошибка. exe запускай не через Delphi. Если необходимо запускать через Delphi отключи ошибки.

[Zo0M]

Tools->Debugger options->language exceptions->Stop on Delphi Exceptions

С этого убрать галочку? Это отключит ошибки?