Verificar si una imagen existe

[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)

[[Lepe]]

ok, pero eso es para cargar una imagen... si despues necesitamos cargar un fichero de texto, hay que hacer algo parecido (las excepciones cambian), si vamos a crear en memoria una lista de objetos... pongamos 10, pues tambien hay que crear una rutina .... ¿ves por donde voy?

Cada operación a realizar puede involucrar fallos, intentar evitarlos todos te llevaría 4 veces más, en tiempo y presupuesto, ¿tu cliente estará de acuerdo?, en cuanto al dinero seguro que no. No queda más remedio que controlar "superficialmente" ese tipo de fallos.

El usuario coge un archivo jpg, le cambia la extension a bmp (porque nuestro programa solo damos soporte a bmp) y .... ¿para eso le das un mensaje específico de ese fallo?... por dios, ese tipo sabe lo que hace; si no lo sabe y le da el error, pues le decimos que tiene que usar el paint [...] pero de ahí a controlar todos los errores que pueden dar... parece demasiado.

El cliente te contrata para hacer un programa que "haga lo que él quiere" pero no pide un control exhasutivo de errores, es más.. decirle que se ha producido un error de "entrada / salida" le va a ayudar muy poco, creemé. Por otra parte los usuarios quieren programas sin tecnicismos, de lo contrario haces que parezcan ignorantes o tontos (aunque lo sean ).

A veces, viendo los conocimientos que tiene nuestro cliente de informática damos más o menos información... pero el que usa el programa puede cambiar (despido de empleado, nueva contratación), ¿y si ahora tiene menos conocimientos? ¿le quitas/modificas los mensajes de error porque no lo entiende?

y si digo que si está pero está corrupto no le ayudo tampoco?

Lo primero que responderá al ver ese mensaje es: "coño, ¿la corrupción en Marbella se ha propagado tambien a este programa?"

  else
    begin
      ShowMessage('Error desconocido');
    end;

En este caso... mejor no decirle nada al usuario, o los ignorantes seremos nosotros.... "mira que hacer un programa y no saber el fallo"

Saludos

[[seoane]]

Estoy de acuerdo contigo Lepe, yo cuando tengo que cargar una imagen ante cualquier excepción muestro el mensaje "No puedo cargar la imagen", si el usuario sabe lo que hace ya se imaginara porque es el fallo y si no lo sabe poco le vamos a aclarar dándole detalles técnicos. De todas formas siempre habra algun fallo que no se tuvo en cuenta y saldra el mitico mensaje de error: "Error desconocido" que da la sensacion de que el programador no sabia lo que estaba haciendo

Pero si te fijas yo empecé mi respuesta diciendo:

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

si no es imprescindible para que complicarle la vida al usuario con complejos mensajes de error.