[ANDROID] Problème de lecture SMS

1 pièce(s) jointe(s)

Bonjour,

Je souhaiterais accéder aux SMS à partir de mon application.
Dans les options du projet, j'ai bien coché "Lire les SMS"
Pièce jointe 643520
Le fichier manifest contient cette ligne

Code:

<uses-permission android:name="android.permission.READ_SMS" />

mais à l'exécution j'ai une erreur

Citation:

java.lang.SecurityException: Permission Denial reading com.android.providers.telephony.SmsProvider requires android.permission.READ_SMS, or grantUriPermission()

Des idées?

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.

Citation:

Envoyé par ShaiLeTroll

Cela change tout le temps ce genre de bazar chez Android

Tu ne crois pas si bien dire :D
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 :aie:
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:

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.

.