Problemas con Image

[leandro085]

Hola amigos tengo un problemita.

Tengo un image y una bd. la idea es que a medidas que voy avanzando por la base de datos me valla cambiando la imagen a mostrar en la image. Todo esto sale a la perfección.

Pero cuando alguien elimina una imagen desde fuera del programa este me devuelve un error diciéndome que "no se puede encontrar el archivo especificado" porque el path sigue figurando en la Base de datos pero el archivo ya fue eliminado.

Lo que quisiera saber es si se puede interceptar ese error para que me permita desactivar el image o poner una imagen por default y
no tire ese error y se detenga el programa.

Gracias. Agradezco su Atención!!

[ecfisa]

Hola Leandro.

Supongo que cargarás el TImage en el evento AfteScroll del DataSet, así que creo que es allí donde deberías verificar primero si existe para luego cargarla.

Código Delphi [-]
procedure TForm1.DataSetAfterScroll(DataSet: TDataSet);
begin
  Image1.Picture:= nil;
  if FileExists(DataSet.FieldByName('RUTA_A_IMAGEN').AsString) then
      Image1.Picture.LoadFromFile(DataSet.FieldByName('RUTA_A_IMAGEN').AsString);
end;

Un saludo.

[MartinS]

Y si guardas la imagen en la base de datos en vez de hacer referencia a una ruta de disco???. Supongo si no interesa tanto el tamaño resultante... jeje