Cargar imagenes

[ramonibk]

Buenas. tengo un pequeño problemilla que seguro que alguien aquí me Puede dar algún consejo.

tengo que cargar imágenes que dependen del botón que se pulse

así que uso.

  Imagen.Picture.loadFromFile('Imagenes\Imagen.jpg');

Pero claro esto funciona muy bien si la imagen se encuentra sin problemas



pero hay alguna manera de hacer lo mismo pero si no encuentra la imagen especificada me ponga una por defecto????



Gracias a todos de antemano

[delphi.com.ar]

Código Delphi [-]
  try
    { Intenta cargar la imagen }
    Image1.Picture.LoadFromFile('c:\error.jpg');
  except
    { Si se produce un error al cargar la imagen }
    Image1.Picture.LoadFromFile('c:\windows\Bosque.bmp');
  end;

La imagen por defecto, podría ser un recurso, o podría ser otro TImage...

[jachguate]

Yo, a la rutina dada por delphi.com.ar, le añadiría una clausula ON, para cargar la imágen por defecto en caso que la imágen buscada no exista en disco, pero dejar transcurrir cualquier otra excepción que pudiera producirse (falta de recursos, por ejemplo).

Es por mi (buena) costumbre de ser tan específico como se pueda cuando capturo excepciones, y no comerme errores que no se como controlar y que debiera delegar a partes mas externas (o al propio delphi).

Código Delphi [-]
  try
    { Intenta cargar la imagen }
    Image1.Picture.LoadFromFile('c:\error.jpg');
  except
    { Si se produce un error al cargar la imagen }
    on EFileNotFound do
      Image1.Picture.LoadFromFile('c:\windows\Bosque.bmp');
  end;

Hasta luego.

[delphi.com.ar]

Empezado por jachguate

Yo, a la rutina dada por delphi.com.ar, le añadiría una clausula ON, para cargar la imágen por defecto en caso que la imágen buscada no exista en disco..

Justamente ese creo que es el error mas previsible, de ser así utilizaría la función FileExists antes de tratar cargar el archivo, siempre prefiero evitar que se disparen excepciones, yo lo entendí por el lado de que el archivo sea corrupto ("si la imagen se encuentra sin problemas") pero ahora que releo.....

Código Delphi [-]
procedure TForm1.CargarImagen(AImagen: TFileName);
begin
  if FileExists(AImagen) Then
    Image1.Picture.LoadFromFile(AImagen)
  else
    Image1.Picture.LoadFromFile('c:\default.jpg');
end;

[ramonibk]

como decia jachguate es caso lo quiero por si acaso no se encuentra la imagen
he echo vaias pruevas con lo que me aveis mandado
en las que me an dado barios problemas.

al usar

 
 try
	{ Intenta cargar la imagen }
	Image1.Picture.LoadFromFile('c:\error.jpg');
  except
	{ Si se produce un error al cargar la imagen }
	Image1.Picture.LoadFromFile('c:\windows\Bosque.bmp');
  end;

Me da de nuevo el fallo de que no encuentra la imagen y si luego me carga la segunda imagen.
y si lo que uso es

  try
	{ Intenta cargar la imagen }
	Image1.Picture.LoadFromFile('c:\error.jpg');
  except
	{ Si se produce un error al cargar la imagen }
	on EFileNotFound do
	  Image1.Picture.LoadFromFile('c:\windows\Bosque.bmp');
  end;

Me genera error en la compilacion
que 'EFileNotFound' no esta declarada.

[jachguate]

Empezado por ramonibk

Me genera error en la compilacion
que 'EFileNotFound' no esta declarada.

Es un lapsus de tu servidor... La clase apropiada es EFOpenError

Hasta luego.