Android System.Permissions hatası

[cinarbil]

İyi günler.

Embarcadero® Delphi 10.1 Berlin Version 24.0.25048.9432 
Embarcadero® Delphi 10.1 Update 2

Lisanslı  programda ZXing  barkod okuma programının kendi demolarını derlerken veya kendi denemelerinde kamera sdcard kullanmak istediğimde aynı hatayı veriyor.
Sitesinde Tokyo versiyonunda yüklü geldiği yazıyor.

[DCC Fatal Error] main.pas(31): F2613 Unit 'System.Permissions' not found.

Hatası alıyorum delphican ve google biraz araştırdım henüz çözüm bulamadım.

Project options permissions izinler verili.

Embarcadore sitesindeki 
30850_rad_studio_10_files_permissions_patch  işlemini yaptım ama hata devam ediyor.

RAD Studio 10 Files Permissions Patch

For RAD Studio 10.x, 10.1.x and 10.2.x installations performed with the GetIt web based installer

[mrmarman]

Merhaba.

- Main.Pas'ın 31 nolu satırında kullandığınız komutu yazabilir misiniz? 

- Neden sordum ?! System.Permissions unitini kullanan bir kod satırıdır. Bunun kullandığınız delphi sürümündeki karşılığını söylemek için sordum. 

- Hatayı kullanmak istediğiniz SD-CARD vb değil daha derleme aşamasında hata veriyor çünkü. Muhtemelen RIO'daki yeni android sürümlerine ilişkin "PermissionsService.IsPermissionGranted" gibi bir sorgu yapıyorsanız bu eski sürümlerde yoktu o bakımdan.

- Daha kodları görmeden if / def ile RIO'ya göre şöyle TOKYO'ya göre böyle demek durumunda kalacağınız bir direktif ihtiyacınız olacakmış gibi bir algı oluştu bende.

[cinarbil]

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

- Main.Pas'ın 31 nolu satırında kullandığınız komutu yazabilir misiniz? 

- Neden sordum ?! System.Permissions unitini kullanan bir kod satırıdır. Bunun kullandığınız delphi sürümündeki karşılığını söylemek için sordum. 

- Hatayı kullanmak istediğiniz SD-CARD vb değil daha derleme aşamasında hata veriyor çünkü. Muhtemelen RIO'daki yeni android sürümlerine ilişkin "PermissionsService.IsPermissionGranted" gibi bir sorgu yapıyorsanız bu eski sürümlerde yoktu o bakımdan.

- Daha kodları görmeden if / def ile RIO'ya göre şöyle TOKYO'ya göre böyle demek durumunda kalacağınız bir direktif ihtiyacınız olacakmış gibi bir algı oluştu bende.

Hocam ilginiz için Allah c.c razı olsun.

unit main;

{
 * Copyright 2015 E Spelt for test project stuff
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *      http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.

 * Implemented by E. Spelt for Delphi
}
interface

uses
 System.SysUtils,
 System.Types,
 System.UITypes,
 System.Classes,
 System.Variants,
 System.Math.Vectors,
 System.Actions,
 System.Threading,
 System.Permissions,      // hata veren satır
 FMX.Types,
 FMX.Controls,
 FMX.Forms,
 FMX.Graphics,
 FMX.Dialogs,
 FMX.Objects,
 FMX.StdCtrls,
 FMX.Media,
 FMX.Platform,
 FMX.MultiView,
 FMX.ListView.Types,
 FMX.ListView,
 FMX.Layouts,
 FMX.ActnList,
 FMX.TabControl,
 FMX.ListBox,
 FMX.Controls.Presentation,
 FMX.ScrollBox,
 FMX.Memo,
 FMX.Controls3D,
 ZXing.BarcodeFormat,
 ZXing.ReadResult,
 ZXing.ScanManager;

[mrmarman]

Bu linkten Compiler Version listesine bakabilirsiniz.

Kod: (Select All)

Compiler    CompilerVersion    Defined Symbol
Delphi 10.3 Rio    33    VER330
Delphi 10.2 Tokyo    32    VER320
Delphi 10.1 Berlin    31    VER310
Delphi 10 Seattle    30    VER300
Delphi XE8    29    VER290
Delphi XE7    28    VER280
Delphi XE6    27    VER270
AppMethod 1    26.5    VER265
Delphi XE5    26    VER260
Delphi XE4    25    VER250
Delphi XE3    24    VER240
Delphi XE2    23    VER230
Delphi XE    22    VER220
Delphi 2010    21    VER210
Delphi 2009    20    VER200
Delphi 2007 .NET    19    VER190
Delphi 2007    18.5    VER185 (also VER180)
Delphi 2006    18    VER180
Delphi 2005    17    VER170
Delphi 8 .NET    16    VER160
Delphi 7    15    VER150
Delphi 6    14    VER140
Delphi 5    13(*)    VER130
Delphi 4    12(*)    VER120
Delphi 3    10(*)    VER100
Delphi 2    9(*)    VER90
Delphi 1    8(*)    VER80

Siz şöyle yapacaksınız. Bu System.Permissions RIO ile geldiğinden satırın üstüne ve altına ekleme yapacaksınız.

{$if CompilerVersion = 33}
  // Delphi RIO
  System.Permissions,     // hata veren satır
{$ifend}

aşağıda da hata verecektir çünkü online Persmission sorgusunda da bu uniti kullanıyor olacaksınız, orada da bu iki direktif arasına alacaksınız.

[cinarbil]

(03-02-2019, Saat: 13:26)mrmarman Adlı Kullanıcıdan Alıntı: Bu linkten Compiler Version listesine bakabilirsiniz.

Kod: (Select All)

Compiler    CompilerVersion    Defined Symbol
Delphi 10.3 Rio    33    VER330
Delphi 10.2 Tokyo    32    VER320
Delphi 10.1 Berlin    31    VER310
Delphi 10 Seattle    30    VER300
Delphi XE8    29    VER290
Delphi XE7    28    VER280
Delphi XE6    27    VER270
AppMethod 1    26.5    VER265
Delphi XE5    26    VER260
Delphi XE4    25    VER250
Delphi XE3    24    VER240
Delphi XE2    23    VER230
Delphi XE    22    VER220
Delphi 2010    21    VER210
Delphi 2009    20    VER200
Delphi 2007 .NET    19    VER190
Delphi 2007    18.5    VER185 (also VER180)
Delphi 2006    18    VER180
Delphi 2005    17    VER170
Delphi 8 .NET    16    VER160
Delphi 7    15    VER150
Delphi 6    14    VER140
Delphi 5    13(*)    VER130
Delphi 4    12(*)    VER120
Delphi 3    10(*)    VER100
Delphi 2    9(*)    VER90
Delphi 1    8(*)    VER80

Siz şöyle yapacaksınız. Bu System.Permissions RIO ile geldiğinden satırın üstüne ve altına ekleme yapacaksınız.

{$if CompilerVersion = 33}
  // Delphi RIO
  System.Permissions,     // hata veren satır
{$ifend}

aşağıda da hata verecektir çünkü online Persmission sorgusunda da bu uniti kullanıyor olacaksınız, orada da bu iki direktif arasına alacaksınız.

Emekleriniz için teşekkür ederim önerilerinizi deneyeceğim Allah c.c razı olsun.