Ver Mensaje Individual
  #1  
Antiguo 04-07-2024
jmbarrio jmbarrio is offline
Miembro
 
Registrado: may 2003
Posts: 102
Reputación: 22
jmbarrio Va por buen camino
Aumento Resolucion Fotos Tomadas desde ActionList

Buenos días, estoy desarrollando una apk que guarda fotos en la carpeta Pictures.

Estas fotos son tomadas a través de TakePhotoFromCameraAction en un actionlist.

La foto tomada es volcada a un TImage

Código Delphi [-]
procedure TF_Captura.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
begin
  // Cargo la Imagen en pantalla en ImageView
  ImageView.Bitmap.Assign(Image);
end;

Y luego se guarda en carpeta Pictures

Código Delphi [-]
procedure TF_Captura.BtGuardarFotoClick(Sender: TObject);
var
  FotoStream: TMemoryStream;
  SavePath: String;
begin
  // Guardar la imagen en el almacenamiento externo
  FotoStream := TMemoryStream.Create;
  imageView.Bitmap.SaveToStream(FotoStream);
  SavePath := TPath.Combine(TPath.GetSharedPicturesPath, 'foto_tomada_' + ultFoto.ToString + '.jpg');
  FotoStream.SaveToFile(SavePath);
  FotoStream.Free;
  ShowMessage('Foto guardada en: ' + SavePath);
end;

La cuestión es que si saco una imagen sin la apk me ocupa unos 2-3Mb y si lo hago con la apk 200-330 Kb y la resolución está en los dos casos a FULL.

¿Alguna idea o sugerencia, para que las fotos de pictures pesen más?

Muchas gracias, un saludo.
Responder Con Cita