[Android] Problème lors de la propagation d'exception

Version imprimable

04/08/2023, 14h28
Anselme45

[Android] Problème lors de la propagation d'exception

Bonjour à tous,

Autrefois dans mes folles années de jeunesse quand je développais des application Windows en Delphi, j'avais pour habitude d'avoir une procédure générale qui était appelée en cas d'exception apparaissant dans l'application

Citation:

procedure AppException(Sender:TObject; E: Exception);

Il suffisait d'écrire dans le TForm.Create un

Citation:

Application.OnException:=AppException;

Et l'affaire était jouée en cas d'erreur dans une procédure, un try...except propageait l'exception à l'aide d'un ""raise Exception.Create" et la proc en question faisait son office...

Dans le cas d'une app Android, je constate que la propagation des exceptions ne se fait pas comme je le voudrais (quand je propage l'erreur à l'aide d'un raise, l'exception qui n'est pas traitée au niveau du dessus est perdue et ne se propage pas jusqu'au niveau de l'app), y aurait-il une notion qui aurait changée pour le traitement d'erreur avec Android ou avec les dernières versions de Delphi?
04/08/2023, 23h45
pprem

ça devrait fonctionner de la même façon

tu es sur quelle version de Delphi ?

tu utilises des threads dans ton application mobile ?
05/08/2023, 11h24
Anselme45

Citation:

Envoyé par pprem

ça devrait fonctionner de la même façon

tu es sur quelle version de Delphi ?

tu utilises des threads dans ton application mobile ?

Dans le projet en question, j'utilise Delphi 10.4.2 parce que le passage à la version 11 exige trop de modifications du code existant. A noter que cette version Delphi 10.4.2 a un gros bug: Si on veut régler les paramètres de la fonte d'un texte, on a droit à une fenêtre blanche en mode pop-up qui bloque Delphi... On est obligé de tuer la tâche Delphi (en perdant tout le code que l'on n'aurait pas sauvegardé) puis relancer Delphi. :mrgreen:

Il y a des threads mais uniquement pour des tâches expressément lancées par l'utilisateur. Ils ne sont pas actifs quand j'ai mes problèmes de propagation.

Le problème de propagation des erreurs ou pas (et oui parce que dans certaines parties du code, la propagation se fait "normalement") intervient dans le cadre d'une procédure/fonction dans laquelle il y a une structure try try... except... finally. Certaines fois, lorsque l'on propage l'erreur depuis l'except ou même depuis le finally, l'exception arrive au niveau du dessus (où la procédure/fonction a été appelée... Je l'ai testé) mais ne poursuit pas sa propagation jusqu'au niveau de l'application.

C'est un projet complexe. Vu que tu es une référence Delphi, si tu me dis qu'il n'y a pas eu de modifications du comportement au niveau de Delphi, je suppose qu'il y a un code parasite qui capture de manière non-voulue la propagation de certaines exceptions.

Je suis bon pour jouer au chien truffier détecteur de bug :calim2:

ceci fonctionne en tout cas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := AppException;
end;
 
procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
  Label1.Text := 'App Exception: ' + E.Message;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  raise Exception.Create('Message d''erreur');
end;

05/08/2023, 17h30
pprem

Citation:

Envoyé par Anselme45

Je suis bon pour jouer au chien truffier détecteur de bug :calim2:

je crains que la chasse ne soit ouverte

vérifie quand même que tu n'as pas un "except end" vide quelque part dans la pile d'appel des endroits dont tu ne vois pas les exceptions et dans ce cas n'oublie pas d'y faire un raise si tu veux qu'elle remonte (ou le virer s'il est vide et que ce n'est pas réellement intentionnel et voulu et réfléchi et fait exprès)

Bonjour à tous,

Je ramène les fruits de ma chasse :mrgreen:

La cause de non-propagation des exceptions jusqu'à la racine de l'application est due au composant TDataWedgeBroadcastListener.

Sur réception de données, la procédure TDataWedgeBroadcastListener.onReceive(context: JContext; intent: JIntent) se déclenche et lance du code.

Toute exception déclenchée par le code en question se propage jusqu'à cette procédure mais pas au-delà.

La mise en oeuvre de ce TDataWedgeBroadcastListener est basée sur un sample fourni par Embarcadero.

1. L'objet est créé dans la procedure TForm1.FormCreate(Sender: TObject) par un "DataWedgeBroadcastListener:=TDataWedgeBroadcastListener.Create();" et le create n'accepte pas de paramètre.

2. Dans l'unité, des types sont déclarés en lien avec le composant TDataWedgeBroadcastListener,
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 Type TDataWedgeDataEvent = procedure(Sender: TObject; const Data: string) of object; TDataWedgeBroadcastListener = class(TJavaLocal, JFMXBroadcastReceiverListener) private FReceiver: JBroadcastReceiver; FOnData: TDataWedgeDataEvent; public { JFMXBroadcastReceiverListener } procedure onReceive(context: JContext; intent: JIntent); cdecl; public constructor Create; destructor Destroy; override; property OnData: TDataWedgeDataEvent read FOnData write FOnData; end; --- //Une variable globale... DataWedgeBroadcastListener:TDataWedgeBroadcastListener; ... constructor TDataWedgeBroadcastListener.Create; var LIntentFilter: JIntentFilter; begin inherited; FReceiver := TJFMXBroadcastReceiver.JavaClass.init(Self); LIntentFilter := TJIntentFilter.JavaClass.init; LIntentFilter.addAction(StringToJString('com.xxx.ACTION')); // or whatever value the profile is configured for LIntentFilter.addCategory(StringToJString('android.intent.category.DEFAULT')); TAndroidHelper.Context.registerReceiver(FReceiver, LIntentFilter); end; //*** destructor TDataWedgeBroadcastListener.Destroy; begin TAndroidHelper.Context.unregisterReceiver(FReceiver); inherited; end;
Au final ce composant fonctionne mais ne se considère pas comme ayant un lien de "parenté" avec l'application. J'ai codé un traitement d'exception au niveau de TDataWedgeBroadcastListener.onReceive qui fait le même travail que le traitement d'exception à la racine de l'app mais est-ce que quelqu'un pourrait m'indiquer une méthode pour que le fils ingrat TDataWedgeBroadcastListener se rappelle qu'il a de la famille :mrgreen:

19/08/2023, 15h07
Paul TOTH

alors je ne connais pas TDataWedgeBroadcastListener mais ça sent le thread secondaire

par exemple dans ce code
https://github.com/DelphiWorlds/Kast...ng.Android.pas

on a bien un Synchronize pour déclencher le l'évènement

est-ce le cas de ton component ?
19/08/2023, 22h03
Anselme45

Citation:

Envoyé par Paul TOTH

alors je ne connais pas TDataWedgeBroadcastListener mais ça sent le thread secondaire

...

est-ce le cas de ton component ?

Dans le projet Delphi proprement dit, il n'y a pas de thread spécifique pour gérer ce TDataWedgeBroadcastListener.

TDataWedgeBroadcastListener fait appel à une class java de l'OS Android lui-même est c'est certainement à ce niveau qu'il y a un thread spécifique pour déclencher l'event onReceive