Ver Mensaje Individual
  #10  
Antiguo 22-05-2007
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.293
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Pues he probado con un Readme.txt renombreado a Readme.bmp y readme.jpg y este código y me lo captura perfectamente.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin


  try
    Image1.Picture.LoadFromFile('C:\Temp\Readme.jpg');
  except
    on E:EInvalidGraphic do begin
      MessageDlg('Archivo Dañado o no es un tipo de imagen reconocido.', mtError, [mbOK], 0);
      Image1.Picture.LoadFromFile('c:\mi_imagen_para_el_error.jpg');
    end;
    on E:EFOpenError do begin
      MessageDlg('El archivo de imagen no existe.', mtError, [mbOK], 0);
    end
    else begin
      MessageDlg('Error desconocido', mtError, [mbOK], 0);
    end;
  end;
end;

Desactiva que salten las excepciones en diseño (Stop on Delphi exceptions) en el IDE.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita