Uso de Camara Deja muchas Fotos
 

Hola tengo una pequeña aplicacion en XE7 uso la camara como parte de la aplicacion "Toma de evidencia Fotografica" estas se guardan en una base de datos SQlLite la cual posteriormete se sincronisa con un WEbService mi problma es que cada foto que se toma se queda en la galeria alguin sabe como eliminar cada foto despues de usarla

Código Delphi [-]
procedure TFormPrincipal.TakePhotoFromCameraAction1DidFinishTaking(
  Image: TBitmap);
begin
  imgFoto.Bitmap.Assign(Image);
end;

Este simple codigo asigna la Foto a un componete el cual despues paso a una variable Stream y guardo en el sqllite

Código Delphi [-]
procedure TFormPrincipal.SpeedButtonFinalizaClick(Sender: TObject);
var
  strImagem: TMemoryStream;
begin
  strImagem := TMemoryStream.Create;
  ImgFoto.Bitmap.SaveToStream(strImagem);
  strImagem.Position := 0;

  SQLQuery1.Params.ParamByName('FotoAntes').LoadFromStream(strImagem, ftBlob);
  SQLQuery1.Params.ParamByName('ID').Value := vID;
  SQLQuery1.ExecSQL();


end;

ahora la cosa es como elimino la imagen de la galeria

espero me ayuden y alguin sirva este codigo apra almacenar la imagen en una base de datos sqllite

Hola rchavezh,

Lo que puedes hacer es, declarar una variable donde recoja la ruta completa de la foto y, solo tienes que hacer un delete del fichero según el valor de la variable que has declarado.

Un saludo.