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