Ver Mensaje Individual
  #2  
Antiguo 23-07-2015
wolfran_hack wolfran_hack is offline
Miembro
 
Registrado: abr 2013
Posts: 97
Reputación: 12
wolfran_hack Va por buen camino
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

Última edición por wolfran_hack fecha: 23-07-2015 a las 01:35:06.
Responder Con Cita