Discussion :

[vinkelwin]

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:

1. J'affiche un écran "chargement en cours..."
2. Je fais la requête
3. 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 :

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
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

[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.

[vinkelwin]

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é!!!

[pprem]

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

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
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;

[Paul TOTH]

euh à priori je ferais simplement

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
 
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;

[gbegreg]

Bonjour,

Je me permets d'ajouter une autre possibilité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Andnotor]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vinkelwin]

Un grand remerciement à tous pour votre aide.

La solution de pprem avec le "try...finally" (tellement simple que je n'y ai pas pensé ) 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 :

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
 
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;

[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.

[pprem]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[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.

[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.