25-09-2021, Saat: 22:28
(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.
