Exception logging

[Delfino]

Hola foreros,

Quiero compartir con vosotros el tema del exception logging en Delphi.

En este enlace hay un truco importante como hacerlo.

Pero yo prefiero utilizar el componente TJvDebugHandler de la suite open source JVCL activando las opciones para el proyecto de generar y insertar datos jdbg. De esa manera tengo todo el call stack incluido el numero de la linea de código donde salto la exception.

Saludos..

[*Caro*]

Muchas gracias Delfino.

Saluditos

[[duilioisola]]

Muuuy bueno!
Muuuy simple!
Es lo que estaba buscando desde ayer, tenía una serie de try..except y try..finally y no lograba ver en qué punto fallaba.
Una sola compilación y lo solucioné, gracias al log que genera.

[Delfino]

Lo has hecho con el componente TJvDebugHandler? o con las units ExceptLog y MemCheck?

[[duilioisola]]

Lo has hecho con el componente TJvDebugHandler? o con las units ExceptLog y MemCheck?

Con MemCheck y ExceptLog.

Yo utilizo MemCheck en todos mis proyectos.
Siempre compilo con la opción de "Include TD32 Debug Info" activada y si tras las pruebas sale el informe de errores de memoria, corrijo el código hasta que sea correcto.
Antes de entregarlo al cliente quito la opción de compilacion y quito la unidad MemCheck del proyecto.
Compilo, entrego los binarios y a seguir programando al siguiente versión o a corregir el siguiente bug.

Utilizo mucho try..except y try..finally para que la aplicación informe de errores y siga corriendo correctamente. A veces están anidados y dentro de este bloque se llaman a procedimientos y funciones que también tienen estos bloques.
Pongo breakpoints en varios lugares, pero no pasa en un orden correcto porque se los salta y ejecuta el bloque except o finally.

Cuando ya esta demasiado liado, una erramienta que después de la ejecución te informe de las excepciones por las que ha pasado me ha ayudado enormemente.

Código Delphi [-]
{Esto ejecutaría 
- parte de Proc1 y su bloque Finally, 
- el bloque Finally de Proc2 y 
- el bloque Except del programa

Esto no parará en el Breakpoint
pero ExceptLog te dirá que en Proc1 saltó una Excepción "Division by Cero"
}

procedure proc1
begin
  try
     ...
     a := 1 / 0; // Exception Division by Cero
     ...
     BreakPoint 
     ...
  finally
     ...
  end;
end;

procedure proc2
begin
  try
     Proc1
     ...
  finally
     ...
  end;
end;

procedure Proc3
begin
   try
      Proc2;
   finally
      ...
   end;
end;

begin
   try
      Proc3;
   except
      ...
   end;
end;

[Delfino]

Yo lo hago con el componente TJvDebugHandler.

En el evento OnOtherDestination pongo el siguiente codigo :

Código Delphi [-]
 Application.MessageBox(PChar(ErrorHandler.ExceptionStringList[0] + #13#10 +
                              ErrorHandler.ExceptionStringList[1]), 'Error..', MB_ICONERROR);

Asi el usuario solo ve el mensaje del error.

El detalle del error con el numero de linea queda registrado en el fichero indicado en la propiedad Filename. Ademas la propiedad UnhandledExceptionsOnly hace que solo los errores no tratados en un bloque try..except sean mostrados.

Espero que sirva..