Capturar Mensaje de Error
 

Holas, tengo un problema, ejecuto desde Delphi un stored en sql y hay momentos en que falla pero como tengo un manejo de errores no logro descubrir el porque falla para algunos casos especiales. Lo que quiero hacer es dentro del except capturar el mensaje de error y que me lo mande por mail, ya tengo el proceso que me manda por mail los paramentros que entran a mi stored, pero no se como adcionar el mensaje de error que me botaria la aplicaion
Ojalà me puedan ayudar

Quizá algo como

Código Delphi [-]
try
  ...
except
  on E:Exception do
    MandarMensaje(E.Message);
end;

// Saludos

Sí, algo así, lo qeu pasa es que tengo codigo en el except y no puedo manejar bien el on E, por ejemplo, tengo algo así:

try
---
---
except
cn.Connected := true;
cmdsendmail.Parameters.ParamByName'mail').Value := smail;
cmdsendmail.Parameters.ParamByName('texto').Value := stexto;
cmdsendmail.Parameters.ParamByName('asunto').Value := serror;
cmdsendmail.Execute;
cn.Connected := false;
end
Pero no he podido meter el on E y asignar a una variable el e.message, como que no defino bien la estructura. Podrian ayudarme?

Hola.

Supongo que bastaría con un begin/end:

Código Delphi [-]
try
  sentencias;
except
  on E:Exception do
  Begin
    cn.Connected := true;
    cmdsendmail.Parameters.ParamByName'mail').Value := smail;             
    cmdsendmail.Parameters.ParamByName('texto').Value := stexto;
    cmdsendmail.Parameters.ParamByName('asunto').Value := serror + e.message;
    cmdsendmail.Execute;
    cn.Connected  := false;
  end;

Aprovecho para invitarte a aprender a usar las etiquetas [code], [delphi], [sql] y [php] disponibles en el club para publicar trozos de código. ¿Notas la diferencia?

Hasta luego.

;)

:cool: Sí. eso era, muchas gracias, ya voy a poder descubrir el misterio