Manejar un Error al desconectarse MYSQL

[jandok238]

Gracias por la respuesta... y ofresco una disculpa por responder tan tarde...

Ahi va mi explicacion mas detallada...

Tengo un DataModule y en éste tengo ZTable y ZConnection. En el evento OnCreate del DataModule activo la conexion pongo

Código Delphi [-]
Zconnection.Active = True

y la conexion se realiza con exito.

Pero el problema surge cuando una vez conectado con MySQL, se interrumpe el servicio MySQL, y es aqui donde se deberia lanzar el evento OnAfterDisconnect del ZConnection, pero nunca entra a esta parte del codigo.

Por lo tanto, cuando intento hacer alguna operacion despues de que se haya desconectado, el programa se cuelga.....

estoy intentando en el evento OnAfterDisconnect del componente ZConnection pero al nunca entra a esta perte del codigo.

esto es lo que tengo en el OnAfterDisconect (pero repito.... nunca se lanza este evento)

Código Delphi [-]
procedure TdmDatos.zconnLaboratorioAfterDisconnect(Sender: TObject);
begin
   try
     zconnLaboratorio.Connected := True;
   except
     on Error do
        Mensaje de que no se puede establecer conexion
        Cerrar Programa
   end;
end;

El problema no es cuando me quiero conectar, si no una vez conectado el servicio de MySQL se termina (ya sea por apagar la maquina que esta como servidor, o si directamente terminas el servicio desde Panel deControl -> Herramientas Administrativas -> Servicios.

Espero que esta explicaion sirva un poquito mas....

y gracias otra vez.....

[[enecumene]]

Si hombre a mi me pasa lo mismo, la aplicacion me tira un error diciendo que la coneccion al servicio mysql no existe, y la unica forma es cerrando y volver abrir la aplicacion. tiene que haber una solucion...

Saludos

[[AzidRain]]

Ya tienes resuelto tu problema...ahi te va:

OnDisconnect y demás eventos de ZConnection solo se activan cuando en el programa se invoca alguno de sus métodos por lo que no es capaz de detectar cuando la conexión se ha caido. De hecho ZConnection lo unico que hace cuando se conecta es registrarse en el servidor y tener el canal listo para transmitir o recibir datos pero esto solo sucede cuando haces un select, insert o demás hacia el servidor. Si en un momento dado no haces nada en tu programa, ZCon "se duerme" y obviamente no se entera de que pasa con el servidor.

Una vez sabido esto es obvio que al lazar cualquier select u otro comando, no hay garantía de que la conexión aun este levantada, por lo tanto es aqui donde entran los try except

tu código:

Código Delphi [-]
  try
     zconnLaboratorio.Connected := True;
   except
     on Error do
        Mensaje de que no se puede establecer conexion
        Cerrar Programa
   end;

es útil al momento en que arrancas tu programa para verificar si hay conexión, lo puedes poner en el onshow u oncreate de tu ventana principal.

Ahora bien, verificando antes de cualquier select:

Código Delphi [-]
  Try
    TZQuery.Open;
    // Todo lo que se debería hacer cuando si hay conexion y que no queremos que falle
    //
    //
  except
    ShowMessage('Ya no hay conexión con el servidor');
  end;

Obviamente hay que meterle un poco de trabajo fino al except porque asi como te lo puse capturaria cualquier error en el Open, incluyendo errores de sintaxis en el SQL, por lo que hay que usar un objeto Exception para acceder al código de error que le corresponda, de todos modos como está te funciona. Asi tu programa ya no se cae, simplemente, no hace nada o te indica que no puede hacer nada, pero no se cae.

Explicación burda, pero válida.

[jandok238]

En efecto..... ya revise.... y como yo lo tenia o trataba de hacer era :

Código Delphi [-]
 if (ZConnection.Connected = False) then
 begin
   Mensaje('No hay conexion');
   Cerrar_Programa
 end;

pero siempre me detectaba esa propiedad en TRUE, aunque no estuviera conectada.....

Lo que hice, en base a la ultima respuesta de AcidRain, fue por medio de una consulta (sin sentido o una simple) para detectar si hay conexion :

Código Delphi [-]
 try 
   ZQuery.SQL.Text := 'SHOW TABLES'; 
   ZQuery.Open;
 except
   Mostrar mensaje de error;
   Cerrar la aplicacion;
 end;

Pues muchas gracias ......

Salu2!!!!!!!!

[[AzidRain]]

Como lo hiciste es lo correcto pero más que estar checando si hay o no conexión antes de cada query, debes de hacer exactamente el mismo código que pusiste pero encerrando todo lo que quieres hacer cuando si hay conexión. Se oye raro, pero esa es la belleza de lasexcepciones: programar como si todo estuviera saliendo bien y en el codigo del except poner lo necesario para cuando las cosas no salen tan bien.. ysobre todo dejar tu programa funcionando.