No se guarda imagen de capturada de camara Android Delphi XE8
 

tengo un botón que llama a la cámara y saca una foto y la mueve a un TImagen, quiero guardar esa imagen desde la toma de la cámara o desde el TImagen en un archivo de imagenes dentro del android, utilice:

Código Delphi [-]
procedure TAccessCameraAppForm.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
var
upLoadFolder,ImageName: string;
begin

  upLoadFolder := TPath.GetDocumentsPath +TPath.DirectorySeparatorChar;
  ImageName := 'test.jpg';  // I have a function that create a uniqe name
  ///guarda
  //Image.SaveToFile(upLoadFolder+ImageName);
  { Assign the image retrieved from the Camera to the TImage component. }
  imgCameraImage.Bitmap.Assign(Image);
  imgCameraImage.Bitmap.SaveToFile(upLoadFolder+ImageName);
  Edit1.Text := upLoadFolder;
end;

me crea el directorio pero no la imagen.

Código Delphi [-]
procedure TAccessCameraAppForm.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
var
upLoadFolder,ImageName: string;
begin

  upLoadFolder := TPath.GetDocumentsPath +TPath.DirectorySeparatorChar;
  ImageName := 'test.jpg';  // I have a function that create a uniqe name

  ///guarda
  Image.SaveToFile(upLoadFolder+ImageName);
  { Assign the image retrieved from the Camera to the TImage component. }
  imgCameraImage.Bitmap.Assign(Image);
  //imgCameraImage.Bitmap.SaveToFile(upLoadFolder+ImageName);
  Edit1.Text := upLoadFolder;
end;

me crea el directorio pero no la imagen.

Por lo que pude investigar encontre que se puede guardar con:

Código Delphi [-]
 if TPlatformServices.Current.SupportsPlatformService(IFMXPhotoLibrary, Service) then
    Service.AddImageToSavedPhotosAlbum(imgCameraPicture.Bitmap)
  else
    ShowMessage('The IFMXPhotoLibrary interface is not supported.');

Ahora el problema esta en que no guarda la resolución real, osea los 4128x3096px, guarda una imagen como achicada de 291x516px y no se ve bien, tampoco supe como cambiarle el nombre al archivo por el momento. Probe que directamente la foto tomada Image se guarde desde la cámara pero sale igual con 291x516px

http://community.embarcadero.com/ind...rad-studio-xe8

guardar imagen
 

Buenas tardes
pudiste resolver el problema del nombre de la imagen.

yo cargo la foto en el timage pero no soy capaz de obtener la ruta completa de la imagen para luego poder enviarla por correo mediante indy

Gracias