Discussion :

[Coussati]

bonsoir,

afin d'éviter l'application de se figer, je fais des requêtes http dans un Itask
une fois les données reçu, je mets à jour une listbox en passant par Synchronize
tout se passait bien, sauf que maintenant les données que je reçois sont assez volumineuse, et le passage dans le Tlistbox fige l'application (environ 5000 items)
si je laisse le passage des données dans le Tlistbox dans Itask l'application ne fige pas, mais vous savez, il y a des sacades à cause du thread (d'ou l'obligation de passer par Synchronise)

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
 
   aTask := TTask.Create(
   procedure
   begin
 
     s := IdHTTP1.Get('requête_php');
 
     var  JSon  := TJSonObject.ParseJSONValue(s);
 
     TThread.Synchronize(TThread.Current,
       procedure
       begin
 
 
         for I := 0 to TJSONArray(JSon).Count-1 do
         begin
 
		 // récupération des données
 
           TJSONArray(JSon)[i].TryGetValue<string>('id_commande', id_commande);
 
		  // ajout dans listbox
 
           listbox1.Items.Add(id_commande);
 
         end;
 
 
       end);
 
   end);
   aTask.Start;

ce n'est pas la boucle de récupération du json qui fige, mais bien l'entrée dans le Tlistbox (car j'ai essayé en le retirant)
une idée svp ?

[gbegreg]

Bonsoir,

Avez vous essayé en mettant avant le for un

Code :

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

listbox1.beginUpdate;

et après le for un

Code :

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

listbox1.endUpdate;

Cela permet d'éviter de redessiner le listbox1 à chaque insertion d'un item.

[Paul TOTH]

pour ce genre de cas je décode le JSON dans le Thread dans un TStringList (ou liste plus évoluée si besoin est), puis je synchronize la mise à jour de la ListBox...mais généralement ma ListBox et en OwnerDrawVirtual, ou au minimum Virtual...du coup pas besoin d'affecter ses items, il suffit de définir son Count et de définir l'évènement OnData ou OnDrawItem

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
 
Task := TTask.Create(
   procedure
   begin
 
     s := IdHTTP1.Get('requête_php');
 
     var  JSon  := TJSonObject.ParseJSONValue(s);
     var L := TStringList.Create;
         for I := 0 to TJSONArray(JSon).Count-1 do
         begin
 
		 // récupération des données
 
           TJSONArray(JSon)[i].TryGetValue<string>('id_commande', id_commande);
 
		  // ajout dans listbox
 
           L.(id_commande);
 
         end;
 
 
     TThread.Synchronize(TThread.Current,
       procedure
       begin
 
          FList.Free; // FList est une TStringList, membre de Form1
          FList := L; // je lui donne ma nouvelle liste (qu'il ne faut donc pas détruire ici)
          ListBox1.Count := L.Count; // mise à jour du Coun
          ListBox1.Invalidate; // nécessaire si le Count n'a pas changé
       end);
 
   end);
   aTask.Start;
...
 
procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer;
  var Data: string);
begin
  Data = FList[Index]; // correspondance entre ListBox1 et FList
end;

si tu ne veux pas de ListBox virtuelle, tu peux aussi faire

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
 
Task := TTask.Create(
   procedure
   begin
 
     s := IdHTTP1.Get('requête_php');
 
     var  JSon  := TJSonObject.ParseJSONValue(s);
     var L := TStringList.Create;
    try
         for I := 0 to TJSONArray(JSon).Count-1 do
         begin
 
		 // récupération des données
 
           TJSONArray(JSon)[i].TryGetValue<string>('id_commande', id_commande);
 
		  // ajout dans listbox
 
           L.(id_commande);
 
         end;
 
 
     TThread.Synchronize(TThread.Current,
       procedure
       begin
           ListBox1.Items.Assign(L);
       end);
     finally 
           L.Free;
     end;
   end);
   aTask.Start;
...

[Coussati]

@gbegreg super ça fonctionne, merci !
il faut dire qu'avec l'habitude de D7, j'avais oublié ces petites choses

@Paul TOTH merci également
maintenant, c'est propre au Tlistbox, si je dois afficher ces données sur d'autres compo visuelles, que devrais je faire ?

[pprem]

@Paul TOTH merci également
maintenant, c'est propre au Tlistbox, si je dois afficher ces données sur d'autres compo visuelles, que devrais je faire ?

Si le JSON est volumineux, le stocker dans une table en mémoire ou un autre format de données qui pourrait être exploité par les composants qui en auront besoin.

Si le JSON ne l'est pas, le stocker tel quel et le parcourir lorsqu'on a besoin de le traiter.

[Paul TOTH]

@gbegreg super ça fonctionne, merci !
il faut dire qu'avec l'habitude de D7, j'avais oublié ces petites choses

@Paul TOTH merci également
maintenant, c'est propre au Tlistbox, si je dois afficher ces données sur d'autres compo visuelles, que devrais je faire ?

tout dépend du composant...mais en réalité une listbox virtuelle permet d'afficher un peu n'importe quoi avec un peu de code