Discussion :

[Pascal_]

Bonjour,
mon but est de créer un programme simple qui affiche le numéro de téléphone entrant sous Android.
Je compile et charge le programme sur mon téléphone , aucun problème. Mais lorsque j'appelle mon téléphone il ne se passe rien ...

Sur ma form j'ai un "memo1" et un "label1".

Voici mon code :

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
unit Unit1;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, System.Permissions,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.PhoneDialer,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.ScrollBox, FMX.Memo;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
 
  private
    FService: IFMXPhoneDialerService;
    procedure CallStateChangedHandler(const ACallID: string; const AState: TCallState);
  public
    constructor Create(AOwner: TComponent); override;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.fmx}
{$R *.LgXhdpiPh.fmx ANDROID}
 
uses
  FMX.Platform;
 
{ TForm1 }
 
constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  TPermissionsService.DefaultService.RequestPermissions(['android.permission.READ_PHONE_STATE'],
    procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
    begin
      if AGrantResults[0] = TPermissionStatus.Granted then
      begin
        if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, FService) then
          FService.OnCallStateChanged := CallStateChangedHandler;
            memo1.lines.add ('Passe par create // permission granted');
      end
       else
            memo1.lines.add ('Passe par create // PAS permission granted');
    end
  );
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 inherited;
  TPermissionsService.DefaultService.RequestPermissions(['android.permission.READ_PHONE_STATE'],
    procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
    begin
      if AGrantResults[0] = TPermissionStatus.Granted then
      begin
        if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, FService) then
          FService.OnCallStateChanged := CallStateChangedHandler;
            memo1.lines.add ('Passe par create // permission granted');
      end
       else
            memo1.lines.add ('Passe par create // PAS permission granted');
    end
  );
end;
 
procedure TForm1.CallStateChangedHandler(const ACallID: string; const AState: TCallState);
begin
  memo1.lines.add ('Passe par callstatechange');
  case AState of
    TCallState.Incoming:
      memo1.lines.add ('Incoming call from: ' + ACallID);
  end;
end;
 
end.

Je suis débutant je ne comprends pas pourquoi ça ne fonctionne pas. Merci de votre aide.

[Paul TOTH]

je ne l'ai jamais fait, mais ton code est insuffisant

voici comment le faire sous Android Studio
https://stackoverflow.com/questions/...android-device

il faut déjà déclarer dans le fichier AndroidManifest un receiver...après il faut voir comment l'implémenter sous Delphi, je ne sais pas si c'est possible car Delphi est compilé en natif ARM, c'est l'équivalent du NDK Android (Native Developement Kit)...donc pour ce genre de chose il faut regarder s'il existe un exemple basé sur le NDK

[SergioMaster]

Bonjour,
J'étudierai aussi les pistes services Androïd et tout ce qui concerne les Java Intents (JNI)

[Pascal_]

D'abord merci a vous deux pour vos pistes de recherche.

Je vais tenter de mieux comprendre le fonctionnement des "Java Intents" , je pense en effet que c'est la clef.
Pour le moment c'est plutôt flou tout ça , j'ai du mal a comprendre le fonctionnement d'android en fait.
Si je prends l'exemple de "ms-dos" , c'était relativement facile a comprendre il suffisait de rediriger l'interruption vers notre code pour qu'il se déclenche , puis de repasser la main au code d'origine , mais là c'est plus compliquer a comprendre ; comment déclencher notre code en fonction d'un événement ? mystère ...

>il faut déjà déclarer dans le fichier AndroidManifest un receiver.
Je pensais qu'il ne fallait pas modifier manuellement androidManifest car il est généré par delphi , de plus je ne sais pas comment spécifier un "receiver" dans delphi , ni dans le "manifest" d'ailleur.

Bref, j'ai encore BEAUCOUP de pain sur la planche.... Mon "CallStateChangedHandler" n'est jamais appelé et je ne saurai supporter cela bien longtemps

Ce qui me sidéré , c'est que ANDROID est connu avant tout pour son utilisation sur smartphone et qu'il n'y a pas d'exemple pour détecter une sonnerie. J'arrive a faire vibrer mon téléphone , à lui faire passer des appels mais pas a les intercepter...
Encore merci. Je vous tiendrai au courant si je trouve la solution.

[Pascal_]

Ça marche !

Avec l'aide de "Dave Nottage" du site delphiworlds.com j'ai enfin mon appli android programmé en Pascal sous Delphi qui détecte lorsque je reçois un appel et m'affiche le numéro de téléphone.

Voici le code source a télécharger :
https://github.com/DelphiWorlds/Misc...dPhoneDemo.zip

[Paul TOTH]

super, et merci pour le retour

je n'ai pas regardé le détail, mais je vois qu'il y a un dw-telephony.jar qui correspond à un bout de Java nécessaire à cela

[franckcl]

Ça marche !

Avec l'aide de "Dave Nottage" du site delphiworlds.com j'ai enfin mon appli android programmé en Pascal sous Delphi qui détecte lorsque je reçois un appel et m'affiche le numéro de téléphone.

Voici le code source a télécharger :
https://github.com/DelphiWorlds/Misc...dPhoneDemo.zip

Bonjour Pascal,
Je sais que ce post commence à dater mais je serais intéréssé par ton code et le lien ne fonctionne plus.
Pourrais-tu le partager à nouveau ? ou le déposer sur ce site ?
merci
Franck