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