Error con TComport

[mjjj]

Hola gente del foro, un problemita, ojala me puedan ayudar.

Tengo una aplicación que utiliza el componente Tcomport.

Este funciona a la perfección, el problema surge cuando se desconecta el cable serial del puerto correspondiente.

El progr1ma me arroja una excepcion del tipo EComport.

Lo que necesito es que en cualquier momento de la aplicación pueda detectar este error y realizar alguna acción, como desactivar un TTime, o cerrar la aplicación, etc... y no tener muchisimos TRY en todo el programa por si ocurre el error.

Espero que se haya entendido, y me puedan ayudar.

Saludos

[Neftali [Germán.Estévez]]

¿No puedes capturar la excepción?
Prueba con el Evento OnException de TApplication. Asignale un procedimiento y prueba si llega la excepción a ese procedimniento cuando se produce.

[mjjj]

me puedes ayudar con el codigo... ojala un ejemplito para entender mejor lo que me dices.

Saludos y gracias

[Neftali [Germán.Estévez]]

Coloca en la aplicación un Componente ApplicationEvents de la pestaña Additional y un memo y en el evento OnException coloca lo siguiente:

Código Delphi [-]
  Memo1.Lines.Add(Format('Classname = (%s)', [E.ClassName]));
  Memo1.Lines.Add('Error: ' + E.Message);

Cuando llegues aquí es que tienes una excepción que no has capturado.
Aquí puedes comprobar si la excepción es de tipo EComport y hacer lo que consideres oportuno.