Delphi Can
Cep telefonundan resim yakalama esnasında onay sorusu - Baskı Önizleme

+- Delphi Can (http://www.delphican.com)
+-- Forum: Delphi (http://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Mobil Platform - FireMonkey (FMX) (http://www.delphican.com/forumdisplay.php?fid=7)
+--- Konu Başlığı: Cep telefonundan resim yakalama esnasında onay sorusu (/showthread.php?tid=3259)



Cep telefonundan resim yakalama esnasında onay sorusu - cinarbil - 06-02-2019

İ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.


Cep telefonundan resim yakalama esnasında onay sorusu - mrmarman - 06-02-2019

Merhaba.

- Sizin için Embarcadero'nun "Mobile Tutorials" PDF dokümanına baktım. Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız..

- 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;



Cvp: Cep telefonundan resim yakalama esnasında onay sorusu - cinarbil - 07-02-2019

(06-02-2019, Saat: 20:40)mrmarman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Merhaba.

- Sizin için Embarcadero'nun "Mobile Tutorials" PDF dokümanına baktım. Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız..

- 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


Cep telefonundan resim yakalama esnasında onay sorusu - mrmarman - 07-02-2019

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