25-09-2021, Saat: 23:35
(25-09-2021, Saat: 22:28)codder71 Adlı Kullanıcıdan Alıntı:(25-09-2021, Saat: 20:13)0x1dot Adlı Kullanıcıdan Alıntı: Merhabalar delphide yeniyim hatanın sebebi konusunda hiç bir fikrim yok ancak çözümü buldum.
C:\Users\Public\Documents\Embarcadero\Studio\22.0\Samples\Object Pascal\Mobile Snippets\CameraComponent\uMaim.pas dosyasında çözüm mevcut çalıştırmak istediğim kodu biraz modladım ve başarılı.
Kod: (Select All)
procedure TForm1.FormCreate(Sender: TObject);
begin
ReadPermission := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE);
if not PermissionsService.IsPermissionGranted(ReadPermission) then
begin
PermissionsService.RequestPermissions([ReadPermission],ReadPermissionRequestResult);
end;
end;
procedure TForm1.ReadPermissionRequestResult(Sender: TObject; const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray);
begin
if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
begin
end
else begin
end;
end;
Merhabalar cevabınız için teşekkür ederim. Fakat Rad Studio 11de yine aynı hatayı veriyor. Eski yöntem ama çalışıyor şimdilik onu kullanıyorum.
Dostum bilgi düzeyini bilmiyorum lakin procedure olarak type kısmına ekleme yapmamış olabilir misin bu fonksiyonları? zira delphi 11 sürümünde şuan gerekli okuma fonksiyonlarını çağırdığımda izinleri başarılı bir şekilde alabiliyorum. Belki de dosya indirme fonksiyonlarıyla alakalı bir sorun olabilir. Teferruatı bir kenara attığımız vakit kod başarılı bir şekilde derleniyor. Yardımcı olabildiysem ne mutlu. Kolay gelsin.
