Verificar si una imagen existe

[[seoane]]

Si es cuestión de defender una opción, yo sigo optando por las excepciones. No porque no sea perfectamente valida FileExists, sino porque esta solo comprueba que el archivo existe pero no que sea una imagen valida. Si resulta que el archivo en cuestión no es una imagen o esta corrupto no enfrentaríamos a una excepción no controlada. Así que de usar FileExists también seria necesario usar try ... except y por eso de economizar código mejor usar excepciones directamente y nos ahorramos un paso.

¿que te parece ahora dec?

[vtdeleon]

Con esos argumentos, creo que me ganó

Saludos

[dec]

Hola,

Empezado por Troi

Con esos argumentos, creo que me ganó

Na,... no creo que se trate de ganar a nadie.

Empezado por Seoane

¿que te parece ahora dec?

Que a mí también me convencieron tus argumentos Seoane. ¿Habrá más aún?

[roman]

Empezado por dec

¿Habrá más aún?

Esto es trampa En este caso específico, por las razones que menciona seoane, estoy de acuerdo. Pero en general no me gusta usar excepciones a diestra y siniestra cuando hay formas de preveer el posible error. Ya anteriormente hemos discutido esto y me quedo con lo que indica la misma ayuda de Delphi.

// Saludos

[[Lepe]]

Supongo que "preveer hasta cierto punto", porque si tenemos que comprobar que el fichero:
- existe
- es un jpg
- no está corrupto

Hecho mediante try.. except, try finallys y demás... me parece demaisado.

En este caso, teniendo una ventana de Inventario por detrás y muy posiblemente una base de datos, yo simplemente haría un Try ... except, y dentro del except pondría en un estado estable las variables que puedan dar efectos colaterales, despues, lanzaría mi propia excepción.

Con código:

Código Delphi [-]
procedure TformInventarios.proCargarImagenes(Im: TImage; ruta: String; imagen: String);
var
ImgExt: String;
begin
  Im.Stretch:= True;
  try
    Im.Picture.LoadFromFile(ruta + imagen + '.JPG');    
  except
     if im <> nil then // chequeamos no nos salte otra excepcion aqui  
       im.picture.Clear;
      ruta := EmptyStr;
      imagen := EmptyStr;
      raise Exception.CreateFmt(' la imagen %s%s no se ha podido cargar',[imagen, ruta]);
  end;
end;

Saludos

[courtois]

y que mas?, no se cargó la imagen? por que? o que? asi nadamas sin explicación? si digo que no esta el jpg no le ayudo en algo a mi usuario?
y si digo que si está pero está corrupto no le ayudo tampoco?

[dec]

Hola,

Bueno. Supongo que dentro del bloque "try...except" puedes "mirar" por distintos tipos de excepciones (que creo que por ahí van los tiros, que vamos al todo o nada, cuando existen distintos tipos de excepciones, e incluso los que nosotros podemos crear por nuestra cuenta). De ese modo podrías indicar al usuario más o menos por dónde van los tiros, qué puede estar fallando. ¿No?

[[seoane]]

Empezado por courtois

y que mas?, no se cargó la imagen? por que? o que? asi nadamas sin explicación? si digo que no esta el jpg no le ayudo en algo a mi usuario?
y si digo que si está pero está corrupto no le ayudo tampoco?

Si lo que necesitas es información que te parece esto:

Código Delphi [-]
procedure CargarImagen(Imagen: TImage; Filename: String);
begin
  try
    Imagen.Picture.LoadFromFile(Filename);
  except
    on EInvalidGraphic do
    begin
      ShowMessage('No reconozco este tipo de grafico');
    end;
    on EFOpenError do
    begin
      ShowMessage('No puedo abrir archivo: ' + SysErrorMessage(GetLastError));
    end;
    on EOutOfResources do
    begin
      ShowMessage('No hay mas recursos disponibles: ' + SysErrorMessage(GetLastError));
    end;
    on E: EOSError do
    begin
      ShowMessage('Error del sistema: ' + SysErrorMessage(E.ErrorCode));
    end;
    on EReadError do
    begin
      ShowMessage('Error de lectura, puede que el archivo este corrupto');
    end;
  else
    begin
      ShowMessage('Error desconocido');
    end;
  end;
end;

Los mensajes podrían ser mas explícitos pero el SysErrorMessage nos dará mas información sobre lo que paso (si el archivo no existe, si no tenemos permiso para leerlo, etc)