Heritage Interface - Surcharge

Version imprimable

Bonjour,

Comment heritier une Interface avec des methodes Overload?

Heritier cette interface:

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
 
[JavaSignature('android/telephony/PhoneStateListener')]
  JPhoneStateListener = interface(JObject)
    ['{50CE10E1-C584-4145-BC72-65BFA48BB281}']
    procedure onCallForwardingIndicatorChanged(cfi: Boolean); cdecl;
    procedure onCallStateChanged(state: Integer; incomingNumber: JString); cdecl;
    procedure onCellInfoChanged(cellInfo: JList); cdecl;
    procedure onCellLocationChanged(location: JCellLocation); cdecl;
    procedure onDataActivity(direction: Integer); cdecl;
    procedure onDataConnectionStateChanged(state: Integer); cdecl; overload;
    procedure onDataConnectionStateChanged(state: Integer; networkType: Integer); cdecl; overload;
    procedure onMessageWaitingIndicatorChanged(mwi: Boolean); cdecl;
    procedure onServiceStateChanged(serviceState: JServiceState); cdecl;
    procedure onSignalStrengthChanged(asu: Integer); cdecl;//Deprecated
    procedure onSignalStrengthsChanged(signalStrength: JSignalStrength); cdecl;
  end;
 
  TPL = Class(TJavaLocal, JPhoneStateListener)
    Public
      Constructor Create;
      Destructor Destroy; Override;
      procedure onCallForwardingIndicatorChanged(cfi: Boolean); cdecl;
      procedure onCallStateChanged(state: Integer; incomingNumber: JString); cdecl;
      procedure onCellInfoChanged(cellInfo: JList); cdecl;
      procedure onCellLocationChanged(location: JCellLocation); cdecl;
      procedure onDataActivity(direction: Integer); cdecl;
      procedure onDataConnectionStateChanged(state: Integer); cdecl; Overload;
      procedure onDataConnectionStateChanged(state: Integer; networkType: Integer);  cdecl; Overload;
      procedure onMessageWaitingIndicatorChanged(mwi: Boolean); cdecl;
      procedure onServiceStateChanged(serviceState: JServiceState); cdecl;
      procedure onSignalStrengthChanged(asu: Integer); cdecl;
      procedure onSignalStrengthsChanged(signalStrength: JSignalStrength); cdecl;
  End;
 
Implementation
 
Constructor TPL.Create;
Begin
 
End;
Destructor TPL.Destroy;
Begin
  Inherited Destroy;
End;
procedure TPL.onCallForwardingIndicatorChanged(cfi: Boolean);
Begin
 
End;
procedure TPL.onCallStateChanged(state: Integer; incomingNumber: JString);
Begin
 
End;
procedure TPL.onCellInfoChanged(cellInfo: JList);
Begin
 
End;
procedure TPL.onCellLocationChanged(location: JCellLocation);
Begin
 
End;
procedure TPL.onDataActivity(direction: Integer);
Begin
 
End;
procedure TPL.onDataConnectionStateChanged(state: Integer);
Begin
 
End;
procedure TPL.onDataConnectionStateChanged(state: Integer; networkType: Integer);
Begin
 
End;
procedure TPL.onMessageWaitingIndicatorChanged(mwi: Boolean);
Begin
 
End;
procedure TPL.onServiceStateChanged(serviceState: JServiceState);
Begin
 
End;
procedure TPL.onSignalStrengthChanged(asu: Integer);
Begin
 
End;
procedure TPL.onSignalStrengthsChanged(signalStrength: JSignalStrength);
Begin
 
End;

La compilation donne des erreurs suivants:

Citation:

[DCC Erreur] Unit31.pas(33): E2211 La déclaration de 'equals' diffère de la déclaration dans l'interface 'JPhoneStateListener'

J'ai déjà essaié avec DELPHI XE6, Delphi XE7 et XE8.

J'ai déjà esaie de rajouter sur le methode overload (Reintroduce, virtual, .....), ça ne marche pas encore.

Pouvez vous m'aider SVP?

Merci d'avance.

13/06/2015, 12h59
Paul TOTH

comme indiqué dans le message d'erreur, le problème est dans JObject.equals(). TJavaLocal n'implémente pas JObject et il contient une méthode equals() qui n'a pas la même signature que celle de JObject

à priori il faut partir de JObjectClass et non de JObject

https://github.com/FMXExpress/androi...teListener.pas
13/06/2015, 13h41
rdr2510

Merci pour la réponse,

J'ai pas trop compris

Citation:

à priori il faut partir de JObjectClass et non de JObject

Un peu d’exemple pour que je puisse comprendre.

Merci.

Paul, dans l'extrait de code fourni en lien, c'est bien à base de
JObject pour l'interface JPhoneStateListener
et JObjectClass pour JPhoneStateListenerClass

c'est le TJavaLocal qui ne semble pas correct pour la déclaration du listener TPL

ton code devrait plutôt être
Code:

1 2 3 4 5 6 TPL = class(TJavaGenericImport<JPhoneStateListenerClass, JPhoneStateListener>) Public Constructor Create; Destructor Destroy; Override; ... end;
Sinon, il faudrait passer par une Clause de résolution de méthode

en supposant que JObject c'est le Object du Java Android
Je n'ai pas Android dans mon XE7 ! dommage !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 TPL = Class(TJavaLocal, JPhoneStateListener ) public Constructor Create; Destructor Destroy; Override; //... tes autres méthodes // la méthode Equals du JPhoneStateListener function AutreEquals(o: JObject): Boolean; public // Clause de résolution de méthode function JPhoneStateListener.Equals = AutreEquals; end;

Merci pour la réponse de ShaiLeTroll.

J'ai essayé le code
Code:

1 2 3 4 5 6 TPL = class(TJavaGenericImport<JPhoneStateListenerClass, JPhoneStateListener>) Public Constructor Create; Destructor Destroy; Override; ... end;
La compilation passe très bien, il n'y a plus d'erreur. Sauf ça ne marche pas.

Voila mon code pour l'utilisation du classe TPL ci-dessus.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TForm31.Button1Click(Sender: TObject); Var obj: JObject; identifier: String; tm: JTelephonyManager; Tj: TPL; begin obj:= SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE); if obj <> nil then begin tm:= TJTelephonyManager.Wrap((obj as ILocalObject).GetObjectID); if tm <> nil then begin Tj:= TPL.Create; Tm.listen(Tj, TJPhoneStateListener.JavaClass.LISTEN_CALL_STATE); End; End; end;
En fait je voulais traduire ce code java http://www.truiton.com/2014/08/andro...tener-example/ en delphi mais ça ne marche pas.

Mon but est de détecter si le téléphone reçoit un appel et identifiant le numéro de téléphone.
Avec ce code ça marche le status de l'appel mais pas le numéro de l'appelant.
Code:

1 2 3 4 5 6 7 8 9 10 11 obj:= SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE); if obj <> nil then begin tm:= TJTelephonyManager.Wrap((obj as ILocalObject).GetObjectID); if tm <> nil then begin CASE tm.getCallState OF CALL_STATE_IDLE: Label1.Text:= 'StandBy'; CALL_STATE_OFFHOOK: Label1.Text:= 'Appel Sortant...'; CALL_STATE_RINGING: Label1.Text:= 'Appel entrant...'; END; End; End;
C'est pour ça que je cherche la solution à partir de déclenchement de l'événement

Code:

JPhoneStateListener.onCallStateChanged(state: Integer; incomingNumber: JString);

pour trouver aussi en même temps le numéro de l'appelant en cours.

Si quelqu'un a une idée l'utilisation LISTENER en delphi.

J'ai déjà essayé aussi en BroadCast aussi mais c'est ça ne marche et j'arrive pas aussi encore à implémenter en delphi.

18/06/2015, 10h43
Paul TOTH

as-tu ajouté les droits ?

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