[DELPHI6] et TList et TThread

Bonjour,

Je développe une application qui gère plusieurs trheads de même type. Le type dérive de TThread.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

type PTThreadTmp = ^TThreadTmp; TThreadTmp = class(TThread) private Toto : String; protected procedure Execute; override; public constructor Create(CreateSuspended:Boolean); destructor Destroy; override; end;

---

Je voudrais obtenir la liste exhaustive des threads qui ont été créés par mon application ?

Pour cela j'ajoute dans le constructor create :

Code:

---

MyList.Add(Self);

---

Puis dans le destructor :

Code:

---

1 2	Index:=MyList.IndexOf(Self); MyList.Delete(Index);

---

(MyList a été créé dans Initialization)

Dans ma fonction qui parcours l'ensemble des objets de MyList je procède comme suit :

Code:

---

1 2 3 4

For i:=0 To Pred(ListOfRess.Count) Do Begin pThread:=PTThreadTmp(MyList .Items[i]); Result:=Result+pThread.Toto+Crlf; End;

---

Mais j'ai des violations d'accès.

Comment faire pour enregistrer dans une TList mes objets TThreadTmp ?

Admetons, tu fais

Code:

---

For i:=0 To Pred(ListOfRess.Count) Do

---

dans le thread pricipale, tu n'avais créé qu'un thread, i va donc varier de 0 à 0.

A ce moment précit, le systeme d'exploitation décide de donner la main au thread, mais celui-ci se termine, le destructeur du thread s'exécute et donc le thread "s'efface" de la liste. N'ayant plus rien a exécuter dans ce thread, le System d'exploitation redonne la main au thread principal, pour exécuter

Code:

---

pThread:=PTThreadTmp(MyList.Items[i]);

---

à ce moment là, ta variable i vaux toujours 0 (mais ta liste de thread est vide).
Le thread principale essaie donc d'acceder à MyList.Items[0], cette adresse mémoire n'est plus allouée, d'où violation l'accès !!

La solution : une section critique à chaque fois que tu "touche" à ta liste de thread. (touche = ajout d'element, suppression d'element, parcours de la liste etc...)

exemple :

Code:

---

1 2 3

initialization Gbl_CriticalSection := TCriticalSection.Create;

---

Code:

---

1 2 3 4 5 6 7 8

Gbl_CriticalSection.Acquire; try Index:=MyList.IndexOf(Self); MyList.Delete(Index); finally Gbl_CriticalSection.Release; end;

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Gbl_CriticalSection.Acquire; try For i:=0 To Pred(ListOfRess.Count) Do Begin pThread:=PTThreadTmp(MyList .Items[i]); Result:=Result+pThread.Toto+Crlf; End; finally Gbl_CriticalSection.Release; end;

---

Code:

---

1 2 3 4 5 6 7

Gbl_CriticalSection.Acquire; try MyList.Add(Self); finally Gbl_CriticalSection.Release; end;

---

C'est vrai que potentiellement le thread peut disparaître. Mais au moment où je parcours MyList , mes threads ne peuvent pas diparaître.

Le problème viendrait plutôt de ma manière d'enregistrer dans MyList self. Est-ce tout simplement possible ?

J'ai compris mon erreur : L'instruction

MyList.Add(Self)

doit être placée après

Inherited Create(CreateSuspended);

Merci.