Discussion :

[supaplex]

Bonjour,

J'ai le code suivant (Projet Android 32-bit) qui marchait sur Delphi 10.1. J'ai upgradé Delphi à la version 10.3 et surprise ! Il ne marche plus ! J'explique ...
Le code me retournait la liste des fichiers du dossier Documents en cliquant sur un bouton, ça marchait également pour les autres dossiers.
Je précise que Read+Write External Storage sont à True dans les propriétés du projet.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
var LList: TStringDynArray;
 
procedure TForm1.Button1Click(Sender: TObject);
var LSearchOption: TSearchOption;
begin
    LSearchOption := TSearchOption.soAllDirectories ;
    LList := TDirectory.GetFiles(System.IOUtils.TPath.GetSharedDocumentsPath,'*.pdf' , LSearchOption);
    ....

Length(LList) renvoie zéro.

Alors, ai-je zappé quelque chose ?

Merci à vous.

[Paul TOTH]

ce doit être lié à la nouvelle gestion des droits Android

http://docwiki.embarcadero.com/RADSt...rmission_Model

[supaplex]

J'arrive un peu en retard, mais vu que ça peut servir à quelqu'un d'autre, j'ai résolu mon problème en suivant cet exemple:

https://github.com/Embarcadero/RADSt...ets/ShareSheet

@Paul: Merci pour ta réponse, en effet c'est une question de droits !