7 replies to this topic

[enecumene]

Amigos, estoy pruebas con una aplicación sencilla donde debo tomar fotos con la cámara del equipo y guardarlo en una carpeta y nombre personalizada dentro de DCIM, el caso es que no aparecen en la galería, sí se guardan correctamente, ésto es lo que tengo:

 

Aquí tomo la foto y la asigno en un TImage

delphi

procedure TFTakePicture.btnCameraClick(Sender: TObject);
var Service: IFMXCameraService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXCameraService,
    Service) then
  begin
    Service.TakePhoto(btnCamera,
                      TSize.Create(3600,3600),
                      True,
                      DoDidFinish,
                      nil);
  end
  else
    ShowMessage('Éste dispositivo no soporto el servicio de cámara');
end;

Aquí guardo la imagen a partir del TImage en formato JPG

delphi

procedure TFTakePicture.SpeedButton1Click(Sender: TObject);
var aSplittedText: TStringList;
    aPath,aCameraPath: String;
    aFile: String;
begin
 
  aSplittedText := TStringList.Create;
  try
    aSplittedText.StrictDelimiter := True;
    aSplittedText.Delimiter := '-';
    aSplittedText.DelimitedText := aFicha;
 
    aFile := trim(aSplittedText.Strings[0] + '-' + aSplittedText.Strings[1]) + '_' + FormatDateTime('yyyymmdd_hhmmss',now) + '.jpg';
    aCameraPath := TPath.GetSharedCameraPath + PathDelim + 'SisVEMCamera';
 
    if not TDirectory.Exists(aCameraPath) then
      TDirectory.CreateDirectory(aCameraPath);
 
    aPath := TPath.Combine(aCameraPath,aFile);
 
    try
 
      Image1.Bitmap.SaveToFile(aPath);
 
      ShowMessage('¡Imagen Guardada!');
 
    except
      ShowMessage('¡Ocurrió un problema al intentar guardar la imagen!')
    end;
 
  finally
    aSplittedText.Free
  end;
 
end;

Las imágenes se guardan correctamente en la carpeta SisVEMCamera dentro de la Carpeta DCIM, ¿Estoy obviando algo ó hay que hacerle un tratamiento adicional a esas imágenes?.

 

Estuve viendo la interface IFMXPhotoLibrary y el método AddImageToSavedPhotosAlbum pero no me sirve, porque no puedo renombrar la imagen como quisiera.

 

¿Sugerencias?

 

Saludos.

[look]

Hola amigo, mira esto:

 

 

http://docwiki.embar...nkey_Interfaces

[enecumene]

Hola amigo, mira esto:

 

 

http://docwiki.embar...nkey_Interfaces

Gracias estimado, es prácticamente lo mismo que tengo, el problema está en las fotos que tomo que sí se guardan pero no se visualizan en ninguna aplicación de galerías.

 

Saludos.

[Delphius]

Gracias estimado, es prácticamente lo mismo que tengo, el problema está en las fotos que tomo que sí se guardan pero no se visualizan en ninguna aplicación de galerías.

 

Saludos.

 

¿O sea, como es la cosa? ¿Tu si exploras dicha carpeta ves que están las foto, pero si intentas abrilas con las aplicaciones de galeria no lo hace?

Porque si es así, en lo que pensaría es que algo falla al guardar la foto. O que el formato no está bien. ¿Probaste con copiar el archivo jpg a la computadora e intentar abrirlo? Eso nos podría confirmar si hay algo mal en el archivo.

 

Yo la verdad es que desconozco FMX. Pero mientras estuve leyendo el enlace que expuso look, y lo comparo con tu código veo que en el método TakePhoto() le pasas distintos parámetros. Y no sólo eso, en la documentación veo que se le indica el album en donde guardar las fotos... ¿no vendrá por ese lado el problema?

 

Saludos,

[enecumene]

No, sí se abren desde explorador (en este caso ES Explorer), si no, que no se visualizan en la galería luego de guardarse, hoy que amanecí y encendí el móvil por sorpresa me encuentro que ya aparece la carpeta con las imágenes, ahora bien, ¿hay que hacer algún tipo de release en la aplicación?, por lo que veo es un tema de que la aplicación ó la clase retiene esas imágenes en algún sitio..

[enecumene]

Ah, la documentación de look se refiere a una versión más reciente de RAD tokyo, yo trabajo con XE 7, que hay propiedades y parámetros que no existen..

[enecumene]

Me doy cuenta que ése método depende de la aplicación de cámara que esté instalado en el equipo, por lo que si tienes la propiedad activada se guarda la imagen tres veces, la que tira la aplicación cámara, la de edición y la de mi aplicación, voy a intentar con el componente TCameraComponent

[enecumene]

He migrado el proyecto a la versión community de Delphi y el asunto persiste, he hecho lo mismo que en el tutorial en su wiki, las imágenes se guardan correctamente, lo puedes visualizar a través de cualquier explorador, pero no se refleja en la aplicación galería, sólo lo hace cuando apagas el equipo y lo vuelves a encender (No reinicio), dejo el link de la aplicación para que lo comprueben (es un proyecto Android).

 

https://drive.google...uviSglCcKJWRckF

 

Saludos.