[FMX][Android] Détecter la fin d'un thread secondaire dans le thread principal

Version imprimable

Bonjour,

Dans une app Android, j'ai une requête à une base de données qui prend de 5 à 10 secondes pour récupérer les informations demandées.

Je désire donc ajouter à l'app un fonctionnement du style:

J'affiche un écran "chargement en cours..."
Je fais la requête
A la fin de la requête, j'efface l'écran "chargement en cours..."

Aucun problème sur windows, mais je n'arrive pas à avoir ce fonctionnement sur Android: Impossible d'effacer l'écran. Je pense que la ligne de code qui efface l'écran s'exécute avant la fin de la requête et donc au final l'app reste bloquée sur l'écran "chargement en cours...".

J'ai essayé avec un thread du style:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure TForm1.GetDataFromServer; begin Tthread.CreateAnonymousThread( procedure begin TabControl1.ActiveTab:=tabLoading; //Affichage de l'écran "Chargement en cours" {Appel à la procédure qui effectue la requête et traite les données reçues}; Tthread.Synchronize(TThread.CurrentThread, procedure begin TabControl1.ActiveTab:=tabSynchro; //Suppression de l'écran "Chargement en cours" par l'appel d'un autre écran end); end).Start;
Ce code fonctionne avec windows mais pas avec Android.

Je ne suis pas un grand spécialiste des Thread. Est-ce que je peux détecter en dehors du Thread (après le code ".start;") la fin du Thread pour placer ma commande "TabControl1.ActiveTab:=tabSynchro;"? Si oui, comment?

Est-ce qu'il y a une autre solution?

Merci de votre aide

21/02/2021, 15h20
pprem

Attention : tout accès à l'interface utilisateur depuis un thread doit être synchronisé avec le thread principal.

Tu le fais bien pour la réactivation de l'écran de base, il faut aussi le faire lorsque tu affiches l'autre.
21/02/2021, 17h48
vinkelwin

Citation:

Envoyé par pprem

Attention : tout accès à l'interface utilisateur depuis un thread doit être synchronisé avec le thread principal.

Tu le fais bien pour la réactivation de l'écran de base, il faut aussi le faire lorsque tu affiches l'autre.

J'ai aussi testé le code avec le premier écran synchronisé. Que le premier écran soit synchronisé ou pas, il apparait normalement.

C'est l'écran qui suit la requête longue qui n'apparait pas malgré le fait qu'il soit synchronisé!!! :zen:

ça devrait passer, mais par mesure de prudence peut-être devrais-tu écrire un truc comme ça ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.GetDataFromServer;
begin
 Tthread.CreateAnonymousThread(
  procedure
   begin
    Tthread.Synchronize(TThread.CurrentThread,
     procedure
      begin
    TabControl1.ActiveTab:=tabLoading; //Affichage de l'écran "Chargement en cours"
end);
try 
    {Appel à la procédure qui effectue la requête et traite les données reçues};
 finally
    Tthread.Synchronize(TThread.CurrentThread,
     procedure
      begin
       TabControl1.ActiveTab:=tabSynchro; //Suppression de l'écran "Chargement en cours" par l'appel d'un autre écran
      end);
 end;
   end).Start;

euh à priori je ferais simplement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TForm1.GetDataFromServer;
begin
  TabControl1.ActiveTab:=tabLoading; //Affichage de l'écran "Chargement en cours"
 
  Tthread.CreateAnonymousThread(
  procedure
   begin
 
    {Appel à la procédure qui effectue la requête et traite les données reçues}; 
     ...
 
    Tthread.Synchronize(TThread.CurrentThread,
     procedure
      begin
       TabControl1.ActiveTab:=tabSynchro; //Suppression de l'écran "Chargement en cours" par l'appel d'un autre écran
      end);
 
   end).Start;
end;

Bonjour,

Je me permets d'ajouter une autre possibilité :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.GetDataFromServer;
begin
  TTask.Create( procedure
    begin
      TabControl1.ActiveTab:=tabLoading; //Affichage de l'écran "Chargement en cours"
      [... Traitement long...]
      TabControl1.ActiveTab:=tabSynchro; //Suppression de l'écran "Chargement en cours" par l'appel d'un autre écran
    end
  ).start
end;

Citation:

Envoyé par vinkelwin

Est-ce que je peux détecter en dehors du Thread (après le code ".start;") la fin du Thread pour placer ma commande "TabControl1.ActiveTab:=tabSynchro;"? Si oui, comment?

Bien sûr. CreateAnonymousThread crée une instance TThread. Tu peux dès lors lui associer un événement OnTerminate.
Code:

1 2 3 4 5 TThread.CreateAnonymousThread(procedure begin TThread.Current.OnTerminate := MyThreadTerminated; ... end).Start;

Un grand remerciement à tous pour votre aide.

La solution de pprem avec le "try...finally" (tellement simple que je n'y ai pas pensé :traine:) fonctionne parfaitement.

La solution de Toth: Oui il est logique de mettre "TabControl1.ActiveTab:=tabLoading;" en dehors du thread par contre la synchronisation dans le thread ne permet pas d'afficher l'écran après la procédure longue.

Idem pour la solution de gbegreg, l'écran après la procédure longue n'apparait pas.

Merci à Andnotor pour la réponse à ma question initiale. Je ne vais pas utiliser cette approche içi, mais ta réponse me sera très utile dans d'autre cas.

Au final, la solution prend la forme suivante:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 procedure TForm1.GetDataFromServer; begin TabControl1.ActiveTab:=tabLoading; //Affichage de l'écran "Chargement en cours" Tthread.CreateAnonymousThread( procedure begin try {Appel à la procédure qui effectue la requête et traite les données reçues}; ... finally Tthread.Synchronize(TThread.CurrentThread, procedure begin TabControl1.ActiveTab:=tabSynchro; //Suppression de l'écran "Chargement en cours" par l'appel d'un autre écran end); end; end).Start; end;

22/02/2021, 10h41
pprem

Par contre, si ma solution fonctionne, ça veut dire que ton code génère une exception. Pense à vérifier ce qu'il en est en.

Citation:

Envoyé par gbegreg

Code:

1
2
3
4
5
6
7
8
 
  TTask.Create( procedure
    begin
      TabControl1.ActiveTab:=tabLoading; //Affichage de l'écran "Chargement en cours"
      [... Traitement long...]
      TabControl1.ActiveTab:=tabSynchro; //Suppression de l'écran "Chargement en cours" par l'appel d'un autre écran
    end
  ).start

dans ce cas peut-être plutôt TTask.run(), ça évite d'oublier le .start (ce que je loupe assez régulièrement)

22/02/2021, 11h05
Andnotor

Attention tout de même : TTask ne dispense pas d'une synchronisation avec le thread principal. La proposition de gbegreg n'est pas thread-safe.
22/02/2021, 11h50
gbegreg

Oui tout à fait Andnotor, je suis allé un peu vite.
On peut rajouter la synchronisation comme dans l'exemple de Paul. C'était juste une autre possibilité (mais très similaire) que celle du CreateAnonymousThread.