IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

API, COM et SDKs Delphi Discussion :

[ANDROID] Problème de lecture SMS


Sujet :

API, COM et SDKs Delphi

  1. #1
    Membre confirmé
    Avatar de Higgins
    Inscrit en
    Juillet 2002
    Messages
    520
    Détails du profil
    Informations forums :
    Inscription : Juillet 2002
    Messages : 520
    Points : 543
    Points
    543
    Par défaut [ANDROID] Problème de lecture SMS
    Bonjour,

    Je souhaiterais accéder aux SMS à partir de mon application.
    Dans les options du projet, j'ai bien coché "Lire les SMS"
    Nom : sms.png
Affichages : 95
Taille : 4,4 Ko
    Le fichier manifest contient cette ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    <uses-permission android:name="android.permission.READ_SMS" />
    mais à l'exécution j'ai une erreur
    java.lang.SecurityException: Permission Denial reading com.android.providers.telephony.SmsProvider requires android.permission.READ_SMS, or grantUriPermission()


    Des idées?
    7 fois à terre, 8 fois debout

  2. #2
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 447
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 447
    Points : 24 849
    Points
    24 849
    Par défaut
    Ne faut-il pas que l'utilisateur donne son accord via PermissionsService.RequestPermissions ?
    Cela change tout le temps ce genre de bazar chez Android.
    Bon, je ne fais pas de FMX et encore moins d'Android mais les blogs Delphi sont inondés des changements mobiles à chaque version API.
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  3. #3
    Membre confirmé
    Avatar de Higgins
    Inscrit en
    Juillet 2002
    Messages
    520
    Détails du profil
    Informations forums :
    Inscription : Juillet 2002
    Messages : 520
    Points : 543
    Points
    543
    Par défaut
    Citation Envoyé par ShaiLeTroll Voir le message
    Cela change tout le temps ce genre de bazar chez Android
    Tu ne crois pas si bien dire
    Apparemment, depuis l'article de pprem pour Delphi 11, les permissions sont revenues dans l'unité System.Permissions comme pour Delphi 10.3 et plus dans system.Types
    Bref, grâce à ton aide et au code de pprem (et un autre plus ancien trouvé sur le web), j'ai pu faire une maquette qui fonctionne.
    Voici le code tout pourri pour ceux que ça intéresserait
    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
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
     
    unit Unit2;
     
    interface
     
    uses
      System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
      FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Memo.Types,
      FMX.ScrollBox, FMX.Memo, FMX.Controls.Presentation, FMX.StdCtrls,Androidapi.Helpers,system.permissions;
     
    type
      TForm2 = class(TForm)
        Button1: TButton;
        Memo1: TMemo;
        procedure Button1Click(Sender: TObject);
      private
        { Déclarations privées }
      public
        { Déclarations publiques }
        procedure onresult(Sender: TObject; const APermissions: TClassicStringDynArray;
        const AGrantResults: TClassicPermissionStatusDynArray) ;
        procedure onDisplay(Sender: TObject; const APermissions: TClassicStringDynArray; const APostRationaleProc: TProc);
      end;
     
    var
      Form2: TForm2;
     
    implementation
     
    {$R *.fmx}
    uses
    FMX.Helpers.Android,
    Androidapi.JNI.GraphicsContentViewText,
    Androidapi.JNI.Net,
    Androidapi.JNI.JavaTypes,
    Androidapi.JNI.Telephony
    ;
     
    procedure TForm2.Button1Click(Sender: TObject);
     
     
     
    begin
     PermissionsService.RequestPermissions(['android.permission.READ_SMS'],
      onresult,onDisplay);
     
    end;
     
     
    procedure TForm2.onresult(Sender: TObject; const APermissions: TClassicStringDynArray;
    const AGrantResults: TClassicPermissionStatusDynArray) ;
    var
    cursor: JCursor;
    uri: Jnet_Uri;
    address,person,msgdatesent,protocol,msgread,msgstatus,msgtype,
    msgreplypathpresent,subject,body,
    servicecenter,locked:string;
    msgunixtimestampms:int64;
    addressidx,personidx,msgdateidx,msgdatesentidx,protocolidx,msgreadidx,
    msgstatusidx,msgtypeidx,msgreplypathpresentidx,subjectidx,bodyidx,
    servicecenteridx,lockedidx:integer;
    begin
    if (Length(AGrantResults) = 1) and
          (AGrantResults[0] = TPermissionStatus.Granted) then
           begin
              uri:=StrToJURI('content://sms/inbox');
              cursor := SharedActivity.getContentResolver.query(uri, nil, nil,nil,nil);
              addressidx:=cursor.getColumnIndex(StringToJstring('address'));
              personidx:=cursor.getColumnIndex(StringToJstring('person'));
              msgdateidx:=cursor.getColumnIndex(StringToJstring('date'));
              msgdatesentidx:=cursor.getColumnIndex(StringToJstring('date_sent'));
              protocolidx:=cursor.getColumnIndex(StringToJstring('protocol'));
              msgreadidx:=cursor.getColumnIndex(StringToJstring('read'));
              msgstatusidx:=cursor.getColumnIndex(StringToJstring('status'));
              msgtypeidx:=cursor.getColumnIndex(StringToJstring('type'));
              msgreplypathpresentidx:=cursor.getColumnIndex(StringToJstring('reply_path_present'));
              subjectidx:=cursor.getColumnIndex(StringToJstring('subject'));
              bodyidx:=cursor.getColumnIndex(StringToJstring('body'));
              servicecenteridx:=cursor.getColumnIndex(StringToJstring('service_center'));
              lockedidx:=cursor.getColumnIndex(StringToJstring('locked'));
              while (cursor.moveToNext) do begin
                  address:=JStringToString(cursor.getString(addressidx));
                  person:=JStringToString(cursor.getString(personidx));
                  msgunixtimestampms:=cursor.getLong(msgdateidx);
                  msgdatesent:=JStringToString(cursor.getString(msgdatesentidx));
                  protocol:=JStringToString(cursor.getString(protocolidx));
                  msgread:=JStringToString(cursor.getString(msgreadidx));
                  msgstatus:=JStringToString(cursor.getString(msgstatusidx));
                  msgtype:=JStringToString(cursor.getString(msgtypeidx));
                  msgreplypathpresent:=JStringToString(cursor.getString(msgreplypathpresentidx));
                  subject:=JStringToString(cursor.getString(subjectidx));
                  body:=JStringToString(cursor.getString(bodyidx));
                  servicecenter:=JStringToString(cursor.getString(servicecenteridx));
                  locked:=JStringToString(cursor.getString(lockedidx));
                  memo1.Lines.Add(IntToStr(trunc(msgunixtimestampms/1000))+' '+address+' '+body);
              end
           end
     
     else
        begin
     
          showmessage('Accès aux SMS refusé');
          close;
        end;
     
    end;
     
        procedure TForm2.onDisplay(Sender: TObject; const APermissions: TClassicStringDynArray; const APostRationaleProc: TProc);
        begin
          //rien ici, j'en ai pas besoin pour mon test ;-)
        end;
     
        end.
    .
    7 fois à terre, 8 fois debout

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [débutant] problème de lecture d'image
    Par shura dans le forum OpenGL
    Réponses: 16
    Dernier message: 03/07/2004, 18h05
  2. [TFileStream] Problème de lecture de string
    Par Pedro dans le forum Langage
    Réponses: 6
    Dernier message: 28/06/2004, 13h06
  3. problème de lecture base de registre
    Par pafounet3 dans le forum MFC
    Réponses: 10
    Dernier message: 31/12/2003, 14h06
  4. [fread] Problème de lecture de buffer
    Par karl3i dans le forum C
    Réponses: 2
    Dernier message: 25/09/2003, 09h21
  5. Réponses: 4
    Dernier message: 23/07/2003, 13h07

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo