1 Topic by mikhail_a (edited by mikhail_a 2021-01-08 13:13:44)

  • Registered: 2017-05-30
  • Posts: 254

Topic: Как поймать исключение "Connect time out" в MySQLConnection.Connect ?

Есть код:
try
      Frm1.MySQLConnection.Connect;
except
      ShowMessage('Соединиться с сервером базы данных не удалось ');
      Frm1.Close;
      exit;
end;
Этот код правильно срабатывает, если есть ошибка при подключении к работающему MySQL серверу.
Но, если на сервере не запущена служба MySQL, то этот код через некоторую временную задержку сначала вызывает окно ошибки "Connect time out", а только потом обрабатывает код в блоке except.
Как предотвратить появление окна с ошибкой  "Connect time out", если сервер не запущен?