Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Problemas con Image (https://www.clubdelphi.com/foros/showthread.php?t=76588)

leandro085 10-11-2011 23:54:07

Problemas con Image
 
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 11-11-2011 00:09:41

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 11-11-2011 00:18:22

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


La franja horaria es GMT +2. Ahora son las 13:49:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi