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.

[ramonibk]

Muchas garcias.
de todas maneras correjiralgo que dige antes

si uso la el formato

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;

parece que el fayo me lo da solo a la hora de ejecurat con delphi abierto
si cierro y ejecuto la aplicacion no me da ningun fallo

[jachguate]

Empezado por ramonibk

parece que el fayo me lo da solo a la hora de ejecurat con delphi abierto si cierro y ejecuto la aplicacion no me da ningun fallo

¿Te referis al mensaje?

Porque "el fallo", si el archivo no existe, siempre se da... pero al tratar la excepción (con la clausula Except), el usuario no verá ningún mensaje. Si tampoco queres verlo vos cuando esté abierto el IDE, agregá la clase de la excepción a las ignoradas por el debugger (Tools|Language Exceptions).

Hasta luego.