Delphi 12

[Mesut]

Hocam dediğiniz gibi yaptım ama aynı yerde aynı sorunu yaşadım yine

[Mr.X]

(10-11-2023, Saat: 15:44)Mesut Adlı Kullanıcıdan Alıntı: Hocam dediğiniz gibi yaptım ama aynı yerde aynı sorunu yaşadım yine

Delphi 12 ile android izin sisteminde yenilikler var.
Uses permissions alanına girdiğinizde AUDIO, IMAGES ve VIDEO alanları için üç farklı izin türü var. Onları da aktif edip öyle bir daha test edin isterseniz. Sorununuzu çözebilir.
Aynı şekilde Write olanlar içinde izinleri açınız.
   

[Mesut]

(10-11-2023, Saat: 16:09)Mr.X Adlı Kullanıcıdan Alıntı:

(10-11-2023, Saat: 15:44)Mesut Adlı Kullanıcıdan Alıntı: Hocam dediğiniz gibi yaptım ama aynı yerde aynı sorunu yaşadım yine

Delphi 12 ile android izin sisteminde yenilikler var.
Uses permissions alanına girdiğinizde AUDIO, IMAGES ve VIDEO alanları için üç farklı izin türü var. Onları da aktif edip öyle bir daha test edin isterseniz. Sorununuzu çözebilir.
Aynı şekilde Write olanlar içinde izinleri açınız.

Hocam bunları seçtim ama write olanlarını göremedim

[Mr.X]

(10-11-2023, Saat: 16:10)Mesut Adlı Kullanıcıdan Alıntı:

(10-11-2023, Saat: 16:09)Mr.X Adlı Kullanıcıdan Alıntı: Delphi 12 ile android izin sisteminde yenilikler var.
Uses permissions alanına girdiğinizde AUDIO, IMAGES ve VIDEO alanları için üç farklı izin türü var. Onları da aktif edip öyle bir daha test edin isterseniz. Sorununuzu çözebilir.
Aynı şekilde Write olanlar içinde izinleri açınız.

Hocam bunları seçtim ama write olanlarını göremedim

Özür dilerim benim hatam. Olduğunu düşünüyor idim kontrol ettim yok imiş. Sadece Read izinler mevcut doğru. Bir an için yanıldım.

[Mesut]

Nerede yanlış yapıyorum

---

(10-11-2023, Saat: 16:21)Mesut Adlı Kullanıcıdan Alıntı: Nerede yanlış yapıyorum

[Mr.X]

(10-11-2023, Saat: 16:21)Mesut Adlı Kullanıcıdan Alıntı: Nerede yanlış yapıyorum

---

Delphi 11.3 üzerinde android manifest dosyasında targetSDK kısmını manuel değiştirdi iseniz android manifest dosyasını silip ( bildirim veya diğer işlemler için eklemeler yaptı iseniz yedeğini alın ) Delphi 12 ile tekrar apk üretin. sdk 33 ile yeniden manifest dosyası üretecektir. bir de böyle bir yöntem deneyebilirsiniz.

[Mesut]

(10-11-2023, Saat: 16:31)Mr.X Adlı Kullanıcıdan Alıntı:

(10-11-2023, Saat: 16:21)Mesut Adlı Kullanıcıdan Alıntı: Nerede yanlış yapıyorum

---

Delphi 11.3 üzerinde android manifest dosyasında targetSDK kısmını manuel değiştirdi iseniz android manifest dosyasını silip ( bildirim veya diğer işlemler için eklemeler yaptı iseniz yedeğini alın ) Delphi 12 ile tekrar apk üretin. sdk 33 ile yeniden manifest dosyası üretecektir. bir de böyle bir yöntem deneyebilirsiniz.

Yok hocam onu da denedim sonuç yine aynı

[nguzeller]

Delphinin içindeki örnek lere baktım, oda yeni yetkileri göre bir çalışma yok, eski örnek var, birde aklama şöyle birey geliyor, android 13 için yeni yetkiler, diğerler de eski sistem mı geçerli olacak, net bir örnek olsa iyi olurdu.

[RAD Coder]

(10-11-2023, Saat: 16:56)nguzeller Adlı Kullanıcıdan Alıntı: Delphinin  içindeki örnek lere baktım, oda yeni yetkileri göre bir çalışma yok, eski örnek var, birde aklama şöyle birey geliyor, android 13 için yeni yetkiler, diğerler de eski sistem mı geçerli olacak, net bir örnek olsa iyi olurdu.

Google Play üzerinde uygulama yayınlamayabilmek için Min. Api Level 33 ile sınırlıyor. 
Bu durumda Android 13 için yeni izin türlerinin kullanılması kaçınılmaz oluyor.

[Mesut]

(10-11-2023, Saat: 17:21)RAD Coder Adlı Kullanıcıdan Alıntı:

(10-11-2023, Saat: 16:56)nguzeller Adlı Kullanıcıdan Alıntı: Delphinin  içindeki örnek lere baktım, oda yeni yetkileri göre bir çalışma yok, eski örnek var, birde aklama şöyle birey geliyor, android 13 için yeni yetkiler, diğerler de eski sistem mı geçerli olacak, net bir örnek olsa iyi olurdu.

Google Play üzerinde uygulama yayınlamayabilmek için Min. Api Level 33 ile sınırlıyor. 
Bu durumda Android 13 için yeni izin türlerinin kullanılması kaçınılmaz oluyor.

Tamamdır Hocam Çözdüm olayı, önceleri 3 izni birlikte istiyorduk şimdi her biri için ayrı ayrı istiyoruz lakin Androidmanifest.template dosyasını kontrol ettiğimde write external storage için de max sdk 2 yzıyor ama bunun project-options-uses epermissionda karşılığını göremedim düzelttiğim şekli aşağıya bırakıyorum bu sadece kamera izni için olanı galeri ve diğer izinler için de aynı şekilde yapılabilir.

procedure TCameraForm.FormCreate(Sender: TObject);
begin
{$IFDEF ANDROID}
PermissionCamera:=JStringToString(TJManifest_permission.JavaClass.CAMERA);
PermissionReadStorage:=JStringToString(TJManifest_permission.JavaClass.READ_MEDIA_IMAGES);
PermissionWriteStorage:=JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE);




{$ENDIF}

end;

procedure TCameraForm.TakePicturePermissionRequestResult (const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray);
var perm: TPermissionStatus;
Begin

for perm in AGrantResults do
   if perm <> TPermissionStatus.Granted then
   begin
     ShowMessage('Kamerayı çalıştırma izniniz bulunmuyor. Önce izin vermelisiniz');
     Exit;
   end;

 ActPhotoCamera.Execute;

End;
procedure TCameraForm.Button1Click(Sender: TObject);
begin

{$IFDEF ANDROID}

PermissionsService.RequestPermissions([PermissionCamera],TakePicturePermissionRequestResult,DisplayMessageCamera);
{$ENDIF}
{$IFDEF IOS}
ActPhotoCamera.Execute
{$ENDIF}
end;
procedure TCameraForm.DisplayMessageCamera (const APermissions: TClassicStringDynArray; const APostProc: TProc);
Begin
TDialogService.ShowMessage('Uygulamanın  Kameranıza Erişmesi Gerekiyor.',
procedure (const Result:TModalResult)
Begin
APostProc;
End);
End;