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.....