Capturar error MYSQL

[elrodrix]

Como puedo capturar este error ? (ERROR 2013 de MYSQL) y lanzar un mensaje en DELPHI en vez de que MYSQL tire un este error.



Utilizo componentes ADO (Adoconnetion, Adostoredproc, datasource).

Mi idea es, en el evento BeforeOpen de cada componente Adostoredproc, capturar ese error (ese error salta cuando apago el router, desconecto el LAN, etc), y enviar un msj en DELPHI.

intenten algo asi

Código Delphi [-]
With AdoConnection1 do
    begin
      if AdoConnection1.State = [stClosed]  then
        begin
          try
            AdoConnection1.Connected:=True;
          except
            on E: Exception do
              begin
                ShowMessage(E.ClassName + ' Ocurrio un error : ' + E.Message);
              end;
          end;
          //raise Exception.Create('ERROR DE CONEXION DE BASE DE DATOS');
        end;
    end;

Pero no se trata de preguntar por el estado del AdoConnection (ya que si el componente se conectó a la base de datos correctamente, su STATE sigue siendo CONECTED por mas que apaque el ROUTER/SWITCH o desconecte el LAN).

Entonces mi idea es capturar los posibles errores de perdida de conexion de MYSQL y enviar un mensaje en DELPHI.

Como seria el procedimiento? Gracias y saludos.