Ver Mensaje Individual
  #13  
Antiguo 06-08-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
Cita:
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)

Última edición por seoane fecha: 06-08-2006 a las 12:40:14.
Responder Con Cita