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)