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

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;

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

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

Kod:

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.