Control de Errores (Recomendacion)

[Efren2006]

Saludos Delphistas

Tengo una aplicacion que tiene como 12 Modulos cada modulo esta dentro de una BPL, controladas por una aplicacion principal, y me gustaria hacerle un Control de Errores es decir, poder grabar en algun sitio cualquier Error que ocurra, esto para futuros mantenimientos.

Sabiendo que; las BPL se carga Dinamicamente en la medida que el usuario requiera trabajar con dicho modulo, y asu vez los formularios se crean en el programa principal, asi como que todos o la mayoria heredan de formularios bases (Los Formularios no son MDI).

Que me recomiendan hacer para lograr esto ?

Gracias de antemano por su aporte.

[droguerman]

Lo más sencillo sería usar control de excepcion con try... except al menos en tus módulos de core.

[Efren2006]

Empezado por droguerman

Lo más sencillo sería usar control de excepcion con try... except al menos en tus módulos de core.

Amigo Droguerman

Esa intruccion funciona en un bloque de programa determinado,,, el problema es que los formularios no se muestran de forma Modal, y ademas se pueden levantar varios formularios de la aplicacion, por supuesto yo valido que no se ha el mismo formulario.

Gracias por su tiempo.-

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

Revisa la clase TApplication y haz alguna prueba con ella. Revisa la ayuda sobre el método HandleException y el evento OnException.

En ese punto puedes capturar todas las excepciones de la aplicación que no hayan sido tratadas por tí.

Otra opción es revisar las demos de algun producto más profesional como EurekaLog, ExcMagic o madExcept.

[cesarsoftware]

prueba con esto:

Código Delphi [-]
 
var
 wOldErrorMode: word;
begin
 // indicar a Windows que ignore errores críticos
  // y almacene el modo de error actual
  wOldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    fbFichero := FileOpen(fichero, fmOpenRead);
  except
    // volver al modo de error previo
    SetErrorMode(wOldErrorMode);
    Result := False;
    Exit;
  end;
  iTotalBytes := FileSeek(fbFichero, 0, 2);
  FileClose(fbFichero);
  if iTotalBytes = 0 then
  begin
    // volver al modo de error previo
    SetErrorMode(wOldErrorMode);
  end;
end;

[[Al González]]

Este hilo también podría ser de utilidad: http://www.clubdelphi.com/foros/showthread.php?p=336392

[[AzidRain]]

Aqui usamos Eurekalog, claro cuesta su dinero pero vale la pena pues en estos casos requerimos respuestas rápidas. Ya te dieron opciones de como atrapar las excepciones que no manejes tú. Hace mil años en Clipper (sic) tenia una clase que hacía precisamente eso, llevar un registro de todos los errores o excepciones y los guardaba en un archivo de texto plano, igual y ese enfoque pueda servirte, pero es demasiado tedioso de programar.

[Efren2006]

Saludos

Disculpen por el tiempo de respuestas,, estaba algo atareado de labores pero ya volvi al fascinante mundo de Delphi.

Gracias a Todos por sus sugerencias,, probare cada una de ellas,, y divulgare la opcion que mas se adapte a lo que necesito..