Manejar un Error al desconectarse MYSQL

[jandok238]

Tengo una aplicacion en delphi 6 y utilizo componentes ZEOS...

Tengo un ZConnection, con el cual me conecto a una BD en MYSQL, el problema es que el programa lo tengo en dos maquinas, siendo una de estas la que contiene la BD (funcionando como servidor). Ahora, cuando el Servidor se Apaga o se reinicia o se detiene el servicio MYSQL, el programa de la segunda maquina se bloquea.....

No se como ni donde detectar que el servicio de MYSQL se ha detenido, ya sea por que se apago la maquina servidor o por otra cosa.

Intente aplicarlo en el Evento AfterDisconnect del ZConnection pero nunca entra a esta parte..... y cuando quiero alterar la base de datos cuando el servicio MYSQL esta parado me manda el error 'MySQL has gone away'

Alguna manera para tratar este tipo de errores????

[Crashthebig]

si el servicio se detiene lo puedes reactivar dirigiendote a
panel de control > herramientas administrativas > servicios
te aparecera una lista de todos los servicios que se ejecutan en tu maquina buscas el de mysql y lo reinicias, todo estara listo.

aunque esta es una forma de resolver el problema el servicio no deberia detenerse porque el equipo se apague, te recomiendo que reinstales de nuevo
mysql y que revises bien los parametros durante el proceso de instalacion

[[Caral]]

Hola
Perdona si me equivoco pero a mi me parece que se puede controlar con una Exception, al momento de conectarse, si bien se desconecta, salta la misma Exception, esto en el datamodule.
No me acuerdo muy bien de zeos, lo vi de pasada y me parece un componente muy bueno.
Normalmente cuando un programa se cuelga, envía un aviso, es raro que se Bloquee, seria interesante saber donde haces la conexión.
Saludos

[[eduarcol]]

apoyo lo que dice caral, explicanos un poco mas el codigo de tu conexion porq si se desconecta la bd se debe lanzar el ondisconect

[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