Discussion :

[pascal pierre]

Bonsoir à tous,

j'ai des difficultés à écrie un fichier dans le répertoire Documents sur Android. J'ai fait plusieurs tentatives avec les variables systèmes. Ma dernière :

NomMabaseExportee := System.IOUtils.TPath.Combine(System.IOUtils.TPath.GetSharedDocumentsPath, 'Base.csv');

Est ce que quelqu'un sait comment on peut écrire dans le répertoire Documents ou le répertoire Téléchargement éventuellement ?


Merci pour votre aide.

Pascal

[Paul TOTH]

attention, sous Android il y a des droits beaucoup plus stricts que sous Windows, pour accéder au dossier publique il faut en demander l'autorisation.

https://www.developpez.net/forums/d2...r-permissions/

[pascal pierre]

Bonjour,

J'ai lu et relu les messages mais je ne trouve pas la solution à mon problème.

un petit exemple concret serait le bienvenu.

Pascal

[pascal pierre]

Bonsoir,

voici mon code en me basant sur le code qu'on m'a donné ci-dessus :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
{$IFDEF ANDROID}
function TfrmParametres.PermissionAndroid : boolean;
begin
PermissionsService.RequestPermissions(['android.permission.WRITE_INTERNAL_STORAGE'],
   procedure(const APermissions: TClassicStringDynArray;
      const AGrantResults: TClassicPermissionStatusDynArray)
  begin
    if (Length(AGrantResults) = 1) and
      (AGrantResults[0] = TPermissionStatus.Granted) then
    begin
       // autorisation reçue, faire ce qu'on ferait si on n'était pas sous Android
    end
    else
    begin
      // Pas d'autorisation, c'est triste, mais c'est son droit
    end;
  end,
  procedure(const APermissions: TClassicStringDynArray;
    const APostRationaleProc: TProc)
  begin
    // affiche un message à l'utilisateur pour justifier de la demande de permission (par exemple ShowMessage)
    // appelle APostRationaleProc en sortie (sur le bouton du ShowMessage par exemple)
  end);
 
  result:=PermissionsService.IsPermissionGranted('android.permission.WRITE_INTERNAL_STORAGE');
end;
{$ENDIF}

J'ai inventé android.permission.WRITE_INTERNAL_STORAGE en passant en revue toutes les constantes définies, mon but c'est de pouvoir écrire dans le répertoire "Documents" de mon téléphone.

Un petit coup de main s'il vous plaît.

Merci d'avance pour partager vos connaissances.

Pascal

[Paul TOTH]

je n'ai pas la réponse, mais c'est un problème Android, tu trouveras la réponse à ta question dans la doc Android

déjà, TPath.GetSharedDocumentsPath utiliser getExternalStoragePublicDirectory qui n'est plus utilisé sous Android Q...tout change tout le temps sous Android :/

Ensuite, il faut suivre les erreurs (que tu ne donnes pas) car elles dépendent de ta version de Android et du niveau d'API

si je cherche getExternalStoragePublicDirectory et access denied par exemple
https://stackoverflow.com/questions/...ied-on-android

bref, développer sous Android (ou iOS) c'est plutôt simple avec Delphi, mais on ne peut pas s'affranchir de se documenter sur l'OS lui même quand il est question de dialoguer avec l'extérieur (disque, réseau, autres applications...) voir même de suivre le cycle de vie de l'application qui n'a aucun rapport avec celui d'une appli Windows (et même OSX ou Linux d'ailleurs).

sinon en cherchant un peu sur Google on trouve cet exemple Delphi
https://github.com/Embarcadero/RADSt...heet/uMain.pas

qui utilise

Code :

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

1
2
3
 
  FPermissionReadExternalStorage := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE);
  FPermissionWriteExternalStorage := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE);

non, on n'invente pas les droits, on regarde ce qui dit la doc

[papyvore]

salut peut être ça t'aidera

Code :

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

1
2
3
4
5
6
begin
  SourcePath := TPath.Combine(TPath.GetDocumentsPath, 'NomFic.sdb'); 
  DestPath := TPath.Combine(TPath.GetSharedDocumentsPath, 'NomFic.sdb');//copie dans stockage interne /documents
  TFile.Copy(SourcePath, DestPath, true);     //true = delete fichier si il éxiste
  Notifie('Fichier copié ');
end;

[pascal pierre]

@Paul
merci pour ton aide mais pourrais tu m'aider en me donnant les uses qu'il faut que j'ajoute à mon code. J'ai cherché avec google sans succès.