Discussion :

[lejert]

Salut !

Je dois charger des arborescences de +/- 15000 items à partir d'une DB. Pour ce faire je charge chaque arborescence dans un TTreeView, afin de profiter de ses fonctionnalité (celui-ci n'est jamais affiché, juste utilisé pour la navigation). J'ai donc créé une TList de TTreeView que je viens peupler au démarrage de l'appli.

J'utilise un Thread pour cela, afin que l'utilisateur puisse garder la main sur le soft pendant le chargement (+/- 2 minutes) - Le temps de se loguer etc... on gagne un peu de temps ...

J'ai 2 problemes (tres liés a mon avis )

1°) Je ne rentre jamais dans ma procedure OnTerminate
2°) Le thread s'execute au démarrage du programme mais ne rends jamais la main à l'utilisateur, donc ca bloque et mon Thread ne sert a rien en plus comme il ne se termine pas ...

J'ai lu quelques tutos sur ce site mais n'ai pas trouvé l'info ...

Voici un peu de code :

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
43
44
45
46
47
48
49
50
51
 
type
  TChapterLoader = class(TThread)
 
  private
    { Déclarations privées }
 
    Procedure MakeTree(ChapterID : Integer; tvwChapterTree : TTreeView);
 ...
    procedure   OnTerminateProcedure(Sender : TObject);
  protected
    procedure Execute; override;
 
  public
    ThreadTerminated : Boolean;
 
    constructor Create(Suspended: Boolean);
  end;
 
 
constructor TChapterLoader.Create(Suspended : Boolean);
Begin
    FreeOnTerminate := True;
    inherited Create(Suspended);
    Priority      := tpHigher;
    VirForm     := TForm.Create(frmMain);<- form que je créé uniquement pour que le composant ait un parent
    OnTerminate := OnTerminateProcedure;
end;
 
 
procedure TChapterLoader.Execute;
var
    i : Integer;
    NewTreeView : TTreeview;
begin
  { Placez le code du thread ici }
  FillStrListWithChapters(CHAPTER_LIST); <- stringlist utile dans mon prog...
  ThreadTerminated := False;
  for i := 0 to CHAPTER_LIST.Count - 1 do Begin
      NewTreeView        := TTreeview.Create(VirForm);
      NewTreeView.Parent := TWinControl(VirForm);
      Self.MakeTree(Integer(CHAPTER_LIST.Objects[i]), NewTreeView); <-appel de fonction récursive pour l''arborescence...
      CHAPTER_TVW_LIST.Add(Pointer(NewTreeView)); <- Ajout de mon TTreeView dans ma TList
  End;
end;
 
// Ne rentre jamais dans cette fonction !!!! :(
procedure TChapterLoader.OnTerminateProcedure(Sender : TObject);
Begin
    ThreadTerminated := True;
End;

Merci pour votre aide

[sjrd]

Ben à mon avis ça vient surtout de ce qu'il est interdit de faire des appels API threadés. Et utiliser un TTreeView dans ton thread revient à faire ça.

D'ailleurs, c'est vraiment affreux d'utiliser un composant visuel uniquement comme structure de données !
Récris tes propres objets de gestion de l'arbre et tout ira bien. Ce sera même nettement plus rapide.

[lejert]

Merci sjrd,

Je suis en effet conscient que utiliser un composant visuel n'est pas la meilleure solution, malheureusement pris par le temps, j'ai voulu profiter de quelque chose de tout fait, pret à l'emploi, pour la gestion d'une arborescence...

Un de mes collègue vient de me sugerer d'utiliser plutot les classes TTreeNodes et TTreeNode afin de se libérer de l'aspect composant... à tester...

En ce qui concerne la rapidité d'execution, je pense que dans ce cas ci, elle est aussi et surtout tributaire de l'acces à la DB (Création et execution de queries à la volée)

[lejert]

Voila, j'ai apparement trouvé la solution.

Il n'est pas possible d'utiliser les classes TTreeNodes et TTreeNode car elles demandent un owner de type TCustomTreeView...

J'ai trouvé un composant issu de Rm Component, nommé TrmTreeNonView qui est un TreeView 'non visuel', assez rapide et qui apparement possède les mêmes fonctionnalités du TreeView que ce que j'avais besoin... je dois encore le tester mais le Thread fonctionne bien )

(http://www.mills-enterprise.ca/software/rmcontrols.html)