Capturar Excepciones

[luisgutierrezb]

Porque no lo haces en el evento "OnValidate" del dataset, se supone que para eso es.
Saludos!

[GustavoCruz]

Hola amigos, retomando el tema...

resulta que tengo una db firebird 2.5.4, en la que declaro unas excepciones; una de ellas es 'no_borrar'

Código Delphi [-]
with qEjecutar do
  begin
    Close;
    SQL.Clear;
    SQL.Add(CadenaSQL);
    // ShowMessage(CadenaSQL);
    try
      ExecSQL;
      Result := True;
      Transaccion.CommitRetaining;
      if notificado then
        MsgBox(Titulo, 'Registro actualizado satisfactoriamente...',
          mtInformation, ['Aceptar'], 0);
    except
      on E: exception do
             MsgBox(Titulo, 'Clase de error: ' + E.ClassName + chr(13) + chr(13) +
            'Mensaje del error: ' + E.Message, mtError, ['Aceptar'], 0);
      end;
  end;

en el código no sé cómo capturar la excepción de tal manera que sólo me aparezca el texto de la excepción sin que me diga el resto de cosas, ej.
nombre de la excepción, trigger en el cual se ha lanzado, ubicación de la línea de código...
yo sólo quiero la descripción del error "No puedes eliminar el registro porque..."

De antemano gracias por vuestra ayuda

Gustavo Cruz

[Ñuño Martínez]

Empezado por GustavoCruz

en el código no sé cómo capturar la excepción de tal manera que sólo me aparezca el texto de la excepción sin que me diga el resto de cosas, ej.
nombre de la excepción, trigger en el cual se ha lanzado, ubicación de la línea de código...
yo sólo quiero la descripción del error "No puedes eliminar el registro porque..."

Si te pone esa información es porque le dices que la ponga. La clase Exception tiene unas cuantas propiedades, la principal de ellas es "Message", que es la que contiene el mensaje de error. El resto de propiedades tienen información adicional, que a veces no es necesaria o deseable.

También has de notar que no es obligatorio usar el objeto lanzado. Incluso puedes hacer:

Código Delphi [-]
  TRY
    RAISE Exception.Create ('Esta es una excepción lanzada por mi.')
  EXCEPT
    Application.MessageBox ('Hubo una excepción', 'Ignorante')
  END;

Ese código mostrará el mensaje "[Ignorante] Hubo una excepción" independientemente de lo que haya en el objeto de excepción. De todas formas, no es recomendable. Mejor usar correctamente las excepciones:

Código Delphi [-]
  TRY
    ... { Código aquí... }
    IF IntentoBorrarYNoDebe THEN
      RAISE Exception.Create ('¡No puede eliminar eso!');
    ... { Código allá... }
  EXCEPT
    ON Error: Exception DO Application.MessageBox (Error.Message, 'Error')
  END;

Así mostrará el mensaje de error, y únicamente el mensaje de error.

[[AgustinOrtu]]

Tal y como comenta Ñuño, usa excepciones, y usalas sabiamente. No solo porque muestran un mensaje de error, sino porque ademas cortan la ejecucion del codigo

[GustavoCruz]

Hola Ñuño, gracias por tu respuesta lo que no quiero es lo que aparece en la imagen que te adjunto.
Yo solo quiero es "Error al intentar borrar un registro protegido por el sistema"

Gracias por vuestro tiempo


Gustavo Cruz

[Ñuño Martínez]

Creo que no has entendido bien lo que he escrito. Reléelo, compara tu código con el mio, y haz pruebas.

[[Lepe]]

El caso es que Firebird añade información al mensaje de error, así que no queda más remedio que buscar texto y eliminar lo que no te hace falta.

El código intuyo que sería algo así:

Código Delphi [-]
on E: EUniError do begin 
  posAt := pos ('At', E.Message);
 Texto := Copy( E.Message, 1, posAt );
 ShowMessage( Texto) ;// esto es una prueba nada más.
// para que veas como queda.
end;

Creo también aparecerá el texto "exception 1 NO_Borrar" en el mensaje... es que no tengo Delphi a mano para probar y hace mucho que no las uso.

Si se te complica demasiado, en el texto de la excepción en Firebird, defínela como : Exception 1 = '##No puede borrar algo de sistema @@';

Así ya sabes que tienes que copiar solo entre las ## y las @@ ... por ejemplo.