Как правильно задать разрешения приложению на доступ к файлам?

[Александр Алексеев]

Написал простое прложение на C++ для Android. В приложении необходимо выбрать файл, что я и делаю с помощью компонента ListView и методов TDirectory::GetDirectories(Path) и TDirectory::GetFiles(Path). Однако после установки приложения (Android 6.0) приложение не показывает не список каталогов, ни список файлов. После добавления разрешения с настройках приложения (см. скриншот) всё начинает работать. Как изначально задать эти разрешения? Вроде все необходимые галочки в разделе Permissions я выставил (см. другой скриншот). Подскажите пожалуйста!

[OnePeople]

Для доступа к памяти вам нужно запросить необходимые разрешения в реальном времени, на форуме куча примеров

[Александр Алексеев]

 

Вроде разобрался:

В момент показа формы FormShow вызываю метод проверки прав доступа CheckPermissions. А в нём передаётся имя метода, который будет сообщать о результате действий пользователя LocationPermissionRequestResult

//---------------------------------------------------------------------------
void __fastcall TForm2::CheckPermissions(TObject *Sender)
{ // Проверка прав доступа
String READ_EXTERNAL_STORAGE;
READ_EXTERNAL_STORAGE=JStringToString(TJManifest_permission::JavaClass->READ_EXTERNAL_STORAGE);
//PermissionsService->DefaultService->RequestPermissions(READ_EXTERNAL_STORAGE);
DynamicArray<String> permissions;
permissions.Length = 1;
permissions[0] = READ_EXTERNAL_STORAGE;
PermissionsService()->RequestPermissions(permissions,LocationPermissionRequestResult);
}
//---------------------------------------------------------------------------
void __fastcall TForm2::LocationPermissionRequestResult(TObject *Sender, const DynamicArray<String> APermissions, const DynamicArray<TPermissionStatus> AGrantResults)
{ // 2 permissions involved: ACCESS_COARSE_LOCATION and ACCESS_FINE_LOCATION
bool LocationPermissionGranted = (AGrantResults.Length == 1) && (AGrantResults[0] == TPermissionStatus::Granted);
if (LocationPermissionGranted) ;//ShowMessage("User granted permission");
else {
    if (Lang=="en") ShowMessage("User denied permission!");
    else ShowMessage("Пользователь запретил доступ!");
    Form2->Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormShow(TObject *Sender)
{
// Проверка прав доступа
CheckPermissions(this);
}
//---------------------------------------------------------------------------