Credencial Alumnos

[[duilioisola]]

LoadFromFile y SaveToFile

Código Delphi [-]
procedure TDMMain.CargarImagenDeArchivo(Imagen: TImage; Archivo: string);
begin
  try
     Imagen.Picture.LoadFromFile(Archivo);
  except
     on EInvalidGraphic do
     begin
        Imagen.Picture.Graphic := nil;
        MessageDlg(_('Formato de imagen no aceptado'), mtError, [mbOK], 0);
     end;
     on EFOpenError do
     begin
        Imagen.Picture.Graphic := nil;
        MessageDlg(_('Error al abrir imagen'), mtError, [mbOK], 0);
     end;
  end;
end;

procedure TDMMain.GuardarEnArchivo(Imagen: TImage; Archivo: string);
begin
  try
     Imagen.Picture.SaveToFile(Archivo);
  except
     MessageDlg(_('Error al guardar imagen'), mtError, [mbOK], 0);
  end;
end;