Cep telefonundan resim yakalama esnasında onay sorusu

[cinarbil]

İyi günler.
Forma 1 adet 
ActionList1 koydum action List Editor listesinden 
TakePhotoFromCameraAction1 sectim.
TakePhotoFromCameraAction1 events sekmesinden 
DoDidFinish  olayına

procedure TFrm_okuma.DoDidFinish(Image: TBitmap);
begin
 resim.Bitmap.Assign(Image);
end;

resmi form daki Image  componentine ekliyorum.

Herşey  ilk Anroid için denemeleri için süper çalışıyor.

Sıkıntım

Take (resim Çek) olayında

Önce cep telefonunu resim çekme programı açılıyor resim çekildiği anda 
Casper M3 telefonda OK/Cancel  Samsung  S5 mini Telefonda Tamam Vazgeç  onayından sonra 
DoDidFinish  olayına geçiyor.
Cep telefonunda resim çekerken bu soru gelmiyor.

Bu soruyu nasıl atlarım.

[mrmarman]

Merhaba.

- Sizin için Embarcadero'nun "Mobile Tutorials" PDF dokümanına baktım. PDF için bu linkten faydalanabilirsiniz.

- Sayfa 231'de der ki, 

Alıntı:Saving a Picture to the Device Photo Library If you want your application to automatically save the pictures taken by a device camera to the device Photo Library, set the NeedSaveToAlbum field of the second parameter of the TakePhoto method to True

- NeedSaveToAlbum parametresini TRUE yapmalıymışsınız. Ben denemedim. Sonucu bildirirseniz bu başlığı okuyan herkes faydalanır.

var
  Service : IFMXCameraService;
  Params  : TParamsPhotoQuery;
begin
 if TPlatformServices.Current.SupportsPlatformService(IFMXCameraService, Service) then
 begin
   Params.Editable           := True;
   Params.NeedSaveToAlbum    := True;
   Params.RequiredResolution := TSize.Create(640, 640);
   Params.OnDidFinishTaking  := DoDidFinish;
   Service.TakePhoto(SpeedButton1, Params);
 end
 else
   ShowMessage('This device does not support the camera service');
 end;
end;

[cinarbil]

(06-02-2019, Saat: 20:40)mrmarman Adlı Kullanıcıdan Alıntı: Merhaba.

- Sizin için Embarcadero'nun "Mobile Tutorials" PDF dokümanına baktım. PDF için bu linkten faydalanabilirsiniz.

- Sayfa 231'de der ki, 

Alıntı:Saving a Picture to the Device Photo Library If you want your application to automatically save the pictures taken by a device camera to the device Photo Library, set the NeedSaveToAlbum field of the second parameter of the TakePhoto method to True

- NeedSaveToAlbum parametresini TRUE yapmalıymışsınız. Ben denemedim. Sonucu bildirirseniz bu başlığı okuyan herkes faydalanır.

var
  Service : IFMXCameraService;
  Params  : TParamsPhotoQuery;
begin
 if TPlatformServices.Current.SupportsPlatformService(IFMXCameraService, Service) then
 begin
   Params.Editable           := True;
   Params.NeedSaveToAlbum    := True;
   Params.RequiredResolution := TSize.Create(640, 640);
   Params.OnDidFinishTaking  := DoDidFinish;
   Service.TakePhoto(SpeedButton1, Params);
 end
 else
   ShowMessage('This device does not support the camera service');
 end;
end;

Hocam cevabınız için teşekkür ederim.
resimlerde göründüğü gibi denedim ama fark olmadı
ilk sizin gönderdiğiniz şekilde embarcadore nin help de bulunan örnekle yapmıştım netice alamadım.
Derlerken Build All Project derliyorum  
Saygılarımla

[mrmarman]

Teşekkürler ben de öğrenmiş oldum.