6 replies to this topic

[enecumene]

Creo este hilo para enseñarles cómo hacer una ventana personalizada para las capturas de excepciones, parecido a algo como esto (Lo puedes personalizar a tu gusto):





Paso 1

Vamos a crear un formulario que será la ventana de aviso como las imágenes anteriores, éste es el código de dicho formulario:

Nombre de la unidad (Unit): Aviso.
Nombre del Formulario (Form): FAviso.

delphi

unit Aviso;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, pngimage, ExtCtrls;
 
type
  TFAviso = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    btDetalle: TButton;
    btCerrar: TButton;
    mError: TMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btCerrarClick(Sender: TObject);
    procedure btDetalleClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FAviso: TFAviso;
 
implementation
 
{$R *.dfm}
 
procedure TFAviso.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
 
procedure TFAviso.btCerrarClick(Sender: TObject);
begin
Close;
end;
 
procedure TFAviso.btDetalleClick(Sender: TObject);
begin
if btDetalle.Caption = 'Detalles >>' then
  begin
    FAviso.Height := 243;
    btCerrar.Top := 176;
    btDetalle.Top := 176;
    mError.Visible := True;
    btDetalle.Caption := &#39;<< Detalles&#39;;
  end else begin
    FAviso.Height := 152;
    btCerrar.Top := 88;
    btDetalle.Top := 88;
    mError.Visible := False;
    btDetalle.Caption := &#39;Detalles >>&#39;;
  end;
end;
 
end.

Paso 2

En este paso vamos a crear un procedimiento en el Form principal de tu aplicativo, lo llamaremos Mostrar:

delphi

procedure Mostrar(cMensaje,cError: string);
begin
   FAviso := TFAviso.Create(Application);
   FAviso.Label1.Caption := cMensaje; {Label}
   FAviso.mError.Text := cError; {Memo}
   FAviso.ShowModal;
   Freeandnil(FAviso);
end;

cMensaje: Es el mensaje General del formulario asignado por ti.
cError: es el mensaje de error por defecto de la excepción.

Método de uso.

Ahora veremos cómo usar el procedimiento y el llamado de la ventana, para su perfecto funcionamiento debemos agregar en el uses de tu form principal la unidad Aviso que creamos anteriormente, colocaremos el siguiente código en un botón en el form principal:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
//algo de código
 try
   //código
 except
   on E: Exception do
     if E.ClassNameIs('EDatabaseError') then
      begin
       Mostrar('Se produjo un error al intentar conectarse a la base de datos.', E.Message);
      Abort;
     end;
   end;
end;

Esa es una de las tantas formas de capturar una excepción, debe estar encerrado en un Try...Except para capturar esos errores, aquí una lista de excepciones genéricos de Delphi (también puedes capturar excepciones de componentes):

EAbort: Finaliza la secuencia de eventos sin mostrar el mensaje de error.

EAccessViolation: Comprueba errores de acceso a memoria inválidos.

EBitsError: Previene intentos para acceder a arrays de elementos booleanos.

EComponentError: Nos informa de un intento inválido de registar o renombar un componente.

EConvertError: Muestra un error al convertir objetos o cadenas de texto string.

EDatabaseError: Especifica un error de acceso a bases de datos.

EDBEditError: Error al introducir datos incompatibles con una máscara de texto.

EDivByZero: Errores de división por cero.

EExternalException: Significa que no reconoce el tipo de excepción (viene de fuera).

EIntOutError: Representa un error de entrada/salida a archivos.

EIntOverflow: Especifica que se ha provocado un desbordamiento de un tipo de dato.

EInvalidCast: Comprueba un error de conversión de tipos.

EInvalidGraphic: Indica un intento de trabajar con gráficos que tienen un formato desconocido.

EInvalidOperation: Ocurre cuando se ha intentado realizar una operación inválida sobre un componente.

EInvalidPointer: Se produce en operaciones con punteros inválidos.

EMenuError: Controla todos los errores relacionados con componentes de menú.

EOleCtrlError: Detecta problemas con controles ActiveX.

EOleError: Especifica errores de automatización de objetos OLE.

EPrinterError: Errores al imprimir.

EPropertyError: Ocurre cuando se intenta asignar un valor erroneo a una propiedad del componente.

ERangeError: Indica si se intenta asignar un número entero demasiado grande a una propiedad.

ERegistryExcepcion: Controla los errores en el resigtro.

EZeroDivide: Controla los errores de división para valores reales.


Espero lo disfruten

Saludos.

[Caral]

Hola
Muy bueno amigo, ademas muy util, como todos los tutoriales que haces.
Gracias por el aporte.
Saludos

[felipe]

Muy bueno el tema Fernando, muchas gracias...

[Delphius]

Hola Fernando,
Me gusta mucho la idea del tema del mostrar/ocultar detalle.
Se puede ampliar incluso para que se pueda elegir la imagen, o incluso hasta elegir que botones deseamos que aparezca. Tampoco es para complicarlo demasiado, pero de poder se puede.

Lo que si considero conveniente es que en vez de establecer los textos de forma directa, sería mejor emplear propiedades. Algo así:

delphi

property Message: string read FMessage write SetMessage;
property Detail: string read FDetail write SetDetail;

También se podría, incluso, ver hasta que punto sería factible y bueno hacer que el memo se adapte al tamaño del texto. Yo no más digo...

Como cuadro de díalogo es muy bueno. Le veo muy buena utilidad. Ahora, hay casos en donde es poco viable este enfoque.
En ciertas ocasiones, se tiene un Log de Excepción singleton que captura todos los eventos, y por tanto no llega a capturarse la excepción en donde se desea darle control. ¿Porqué sucede esto? Porque el manejo de las excepciones va desde lo general hacia lo particular. El primero en enterarse de las excepciones, es TAplication, de allí se empieza a subir hasta llegar al método, y al objeto que pueda ser capaz de capturar la excepción.

Si centralizamos las excepciones, siguiendo el uso del "patrón" RCE (Registro Centralizado de los Errores), y deseamos usar el cuadro de díalogo, lo mejor es diseñar las clases de forma que se capturen las excepciones y se las propaguen hacia el objeto dependiente, añadiendo más detalles: en pocas ir convirtiendo las excepciones de modo que cada clase sea capaz de capturar las excepciones que pueda manejar a un nivel más comprensible. Esto último es lo que se conoce como "patrón" CE (Convertir Excepciones).

¿Porqué menciono esto?
Porque en definitiva, esos cripticos mensajes en inglés poco le dicen al usuario final. Si en vez de mostrarle esos mensajes raros, le podemos decir que se ha producido una excepción EAccesoDenegado con un Mensaje como "El usuario no tiene los permisos necesarios" es más entendible y útil.
En resumen:
Centralizar las excepciones, con el fin de llegar un log. En caso de no saber como interpretarlas o manejarlas, o en su defecto, se necesita propagarla hacia el objeto interezado, convertir la excepción a otra que sea entendible para el objeto interesado.

Espero no haber aburrido el tema.
Disculpen si fui demasiado técnico.

Saludos,

[enecumene]

Gracias Delphius, nunca está más aportar ideas nuevas y consejos, siempre será bienvenido por estos lares .

Saludos.

[Desart]

ENECUME no te has planteado crear un componente con este procedimiento, seria de mucha utilidad.

[enecumene]

ENECUME no te has planteado crear un componente con este procedimiento, seria de mucha utilidad.

mmm, no lo había pensado de esa manera, tal vez lo haga , gracias desart .

Saludos.