Foros Club Delphi - Como Capturar Nombre u Origen en Control de Errores

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Como Capturar Nombre u Origen en Control de Errores (https://www.clubdelphi.com/foros/showthread.php?t=58295)

Como Capturar Nombre u Origen en Control de Errores

Hola a todo/as:
Tengo un código de control de errores que se asigna desde el create o activate de una forma, cuando envia la excepción la captura bien y crea un archivo Log pero no he podido capturar el nombre del componente que la genera...si me pudieran dar una mano se los agradeceria...

//** en el create...
Application.OnException:=controlErrores;

procedure TForm1.controlErrores(Sender: Tobject; E: Exception);
//** Gina Ma Silva Mejia Controla los errores no controlados de la aplicación por try o onexception
var
sMensaje,ls_cadena,path,ls_opcion,b : string;
i,j : integer;
a: ShortString;
begin
path := ExtractFilePath(ParamStr(0)); /** toma el path desde donde se ejecuta la aplicacion
if E is EDivByZero then
sMensaje := 'ERROR: División Por Cero'
else if E is ERangeError then
sMensaje := 'ERROR: Rango Erróneo'
else if E is ERangeError then
sMensaje := 'ERROR: Desbordamiento'
else if E is EConvertError then
sMensaje := 'ERROR: Número No Válido'
else if E is EIntOverflow then
sMensaje := 'ERROR: Entero Demasiado Grande'
else if E is EConvertError then
sMensaje := 'ERROR: Número No Válido'
else if E is EDBEngineError then
sMensaje := 'ERROR en la Base de Datos'
else if E is EAccessViolation then
sMensaje := 'ERROR de Memoria'
else if E is EListError then
sMensaje := 'ERROR: La lista esta Vacia'
else
sMensaje := 'ERROR: Error General';
RichEdit12.Lines.Clear;
RichEdit12.PlainText := True;
/** en esta variable b pretendo capturar el nombre del sender que genero la excepcion pero me ha tocado asi:
b:='';
if sender.ClassName = 'TTimer' then
b:= TTimer(sender).Name;
if sender.ClassName = 'TStringGrid' then
b:= TStringGrid(sender).Name;
if sender.ClassName = 'TCheckListBox' then
b:= TCheckListBox(sender).Name;
if sender.ClassName = 'TSpeedButton' then
b:= TSpeedButton(sender).Name;

ls_cadena:= formatdatetime('dd/mm/yyyy hh:mm:ss',now())+' '+b+' '+ Sender.ClassName +' '+E.ClassName +' '+E.Message;
Memo13.Lines.Add(ls_cadena);
for i := 0 to Memo13.Lines.Count - 1 do
begin
ls_cadena := Memo13.Lines.Strings[i];
RichEdit12.Lines.add(ls_cadena);
end;
RichEdit12.Lines.SaveToFile(path +'\Log.txt');
end;
with TFrmMensajes.Crear(Self, sMensaje, E) do
ShowModal;
end;

/*** tienen un form TFrmMensajes para mostrar el error...
unit UnitMensajes;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons;
type
TFrmMensajes = class(TForm)
Panel1: TPanel;
BtnDetalles: TButton;
STDetalles: TStaticText;
Panel2: TPanel;
STError: TStaticText;
BitBtn1: TBitBtn;
procedure BtnDetallesClick(Sender: TObject);
public
{ Public declarations }
constructor Crear(AOwner: TComponent; Mensaje: string; E: Exception);
end;
var
FrmMensajes: TFrmMensajes;
implementation
{$R *.DFM}
constructor TFrmMensajes.Crear(AOwner: TComponent; Mensaje: string; E: Exception);
begin
inherited Create(AOwner);
Height := 130;
//****Recibe un mensaje de error y una excepción.
STError.Caption := Mensaje;
STDetalles.Caption := E.ClassName + ': ' + E.Message;
end;
procedure TFrmMensajes.BtnDetallesClick(Sender: TObject);
begin
if BtnDetalles.Caption = '>> Detalles' then
begin
height := 230;
BtnDetalles.Caption := '<< Detalles';
end
else
begin
height := 130;
BtnDetalles.Caption := '>> Detalles';
end
end;
end.

Se veria mejor asi...

Código Delphi [-]//** en el create...
Application.OnException:=controlErrores;


procedure TForm1.controlErrores(Sender: Tobject; E: Exception);
//** Gina Ma Silva Mejia Controla los errores no controlados de la aplicación por try o onexception
var
sMensaje,ls_cadena,path,ls_opcion,b : string;
i,j : integer;
a: ShortString;
begin
path := ExtractFilePath(ParamStr(0)); /** toma el path desde donde se ejecuta la aplicacion
if E is EDivByZero then
sMensaje := 'ERROR: División Por Cero'
else if E is ERangeError then
sMensaje := 'ERROR: Rango Erróneo'
else if E is ERangeError then
sMensaje := 'ERROR: Desbordamiento'
else if E is EConvertError then
sMensaje := 'ERROR: Número No Válido'
else if E is EIntOverflow then
sMensaje := 'ERROR: Entero Demasiado Grande'
else if E is EConvertError then
sMensaje := 'ERROR: Número No Válido'
else if E is EDBEngineError then
sMensaje := 'ERROR en la Base de Datos'
else if E is EAccessViolation then
sMensaje := 'ERROR de Memoria'
else if E is EListError then
sMensaje := 'ERROR: La lista esta Vacia'
else
sMensaje := 'ERROR: Error General';
RichEdit12.Lines.Clear;
RichEdit12.PlainText := True;
/** en esta variable b pretendo capturar el nombre del sender que genero la excepcion pero me ha tocado asi:
b:='';
if sender.ClassName = 'TTimer' then
b:= TTimer(sender).Name;
if sender.ClassName = 'TStringGrid' then
b:= TStringGrid(sender).Name;
if sender.ClassName = 'TCheckListBox' then
b:= TCheckListBox(sender).Name;
if sender.ClassName = 'TSpeedButton' then
b:= TSpeedButton(sender).Name;

ls_cadena:= formatdatetime('dd/mm/yyyy hh:mm:ss',now())+' '+b+' '+ Sender.ClassName +' '+E.ClassName +' '+E.Message;
Memo13.Lines.Add(ls_cadena);
for i := 0 to Memo13.Lines.Count - 1 do
begin
ls_cadena := Memo13.Lines.Strings[i];
RichEdit12.Lines.add(ls_cadena);
end;
RichEdit12.Lines.SaveToFile(path +'\Log.txt');
end;
with TFrmMensajes.Crear(Self, sMensaje, E) do
ShowModal;
end;


/*** tienen un form TFrmMensajes para mostrar el error...
unit UnitMensajes;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons;
type
TFrmMensajes = class(TForm)
Panel1: TPanel;
BtnDetalles: TButton;
STDetalles: TStaticText;
Panel2: TPanel;
STError: TStaticText;
BitBtn1: TBitBtn;
procedure BtnDetallesClick(Sender: TObject);
public
{ Public declarations }
constructor Crear(AOwner: TComponent; Mensaje: string; E: Exception);
end;
var
FrmMensajes: TFrmMensajes;
implementation
{$R *.DFM}
constructor TFrmMensajes.Crear(AOwner: TComponent; Mensaje: string; E: Exception);
begin
inherited Create(AOwner);
Height := 130;
//****Recibe un mensaje de error y una excepción.
STError.Caption := Mensaje;
STDetalles.Caption := E.ClassName + ': ' + E.Message;
end;
procedure TFrmMensajes.BtnDetallesClick(Sender: TObject);
begin
if BtnDetalles.Caption = '>> Detalles' then
begin
height := 230;
BtnDetalles.Caption := '<< Detalles';
end
else
begin
height := 130;
BtnDetalles.Caption := '>> Detalles';
end
end;
end.

mmm... gracias pero no se como hacerlo....

Listo para la proxima...

Código Delphi [-]gracias

En lugar del.:

Código Delphi [-]if sender.ClassName = 'TTimer' then
b:= TTimer(sender).Name;
if sender.ClassName = 'TStringGrid' then
b:= TStringGrid(sender).Name;
if sender.ClassName = 'TCheckListBox' then
b:= TCheckListBox(sender).Name;
if sender.ClassName = 'TSpeedButton' then
b:= TSpeedButton(sender).Name;
...

Yo colocaría algo así; Te evitas tener que hacer todos los IF y aprovechas que todos los componentes derivan de TComponente que ya tienes Name y ClassName:

Código Delphi [-]
 ** Antes deberías comprobar si Sender está asignado, no sea que llegue a nil...

  if (Sender is TComponent) then begin
    _name := TComponent(Sender).Name;
    _className := TComponent(Sender).ClassName;
   end
  else begin
    // No es un componente
    ....
  end;

Por lo demás eso debvería devolver el nombre del componente que genera la excepción correctamente.

De todas forma con el código que tú tienes yo inicializaría la "b" con otro valor para ver si realmente no te lo está almacenando y usuaría ELSEIF:

Código Delphi [-]b:='';    
if sender.ClassName = 'TTimer' then begin
  b:= TTimer(sender).Name;
end
else if sender.ClassName = 'TStringGrid' then begin
  b:= TStringGrid(sender).Name;
end
else if sender.ClassName = 'TCheckListBox' then begin
  b:= TCheckListBox(sender).Name;
end
else if sender.ClassName = 'TSpeedButton' then begin
  b:= TSpeedButton(sender).Name;[FONT=verdana,geneva,lucida,'lucida grande',arial,helvetica,sans-serif]
end
else begin
  b := 'ninguno de los anteriores'.
end;[/font]

Por que puede ser que esté pasando por el IF, pero no sea ninguno de los que tienes codificados. La otra opción (que ya te he comentado) es que cambies toda esa estructura por la comentada arriba, para que funcione con cualquier Sender que derive de TComponent.

oye muchas gracias... funciona perfecto!!...;)

Esta viendo el código que habéis puesto en este hilo. Aunque es para Delphi es fácil adaptarlo a Builder, que es lo que me hace falta. Me suge una duda: ¿Existe la posibilidad de poder capturar además del nombre del componente que genera la excepción el del formulario donde se ubica?

Voy un poco más allá: Hay casos en los que la excepción no se genera en un componente concreto, como puede ser una fución llamada; ¿como podría capturar la línea en la que se produce el error?

Cita:

Empezado por Angel.Matilla (Mensaje 498258)

¿Existe la posibilidad de poder capturar además del nombre del componente que genera la excepción el del formulario donde se ubica?

Se podría probar para el nombre del componente y del form, algo como:
(no lo he compilado, te lo pongo de memoria, pero la idea es esa)

Código Delphi [-]// esto...
Str := Sender.Name;

// o esto...
if (Sender is TComponent) then
  Str := TComponent(Sender).Name;
end;

// Para el formulario puedes probar...
if Assigned(Sender.Owner)) then begin
  if (Sender.Owner is TForm) Then begin
    Str := TForm(Sender.Owner).Name;
  end;
end;

Algo similar habrá que hacer para los frames, si es que los usas.

Cita:

Empezado por Angel.Matilla (Mensaje 498258)

Voy un poco más allá: Hay casos en los que la excepción no se genera en un componente concreto, como puede ser una fución llamada; ¿como podría capturar la línea en la que se produce el error?

Esto es un poco más complicado, pero puedes buscar ayuda sobre la unit jclDebug.
Pertenece a las Jedi y te permite ampliar las opciones de debug, con cosas que se acercan a lo que necesitas.

Otras opciones que puedes investigar son: madExcept, EurekaLog o similares.

Muchas gracias por la sugerencia. Probaré y ya os diré como va.