Discussion :

[Desraux]

Bonjour,

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

Code :

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

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 :

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

MyList.Add(Self);

Puis dans le destructor :

Code :

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

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 :

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

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 ?

[Dry]

Admetons, tu fais

Code :

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

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 :

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

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 :

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

1
2
3
 
initialization
Gbl_CriticalSection := TCriticalSection.Create;

Code :

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

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 :

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

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 :

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

1
2
3
4
5
6
7
 
Gbl_CriticalSection.Acquire;
try
  MyList.Add(Self);
finally
  Gbl_CriticalSection.Release;
end;

[Desraux]

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 ?

[Desraux]

J'ai compris mon erreur : L'instruction

MyList.Add(Self)

doit être placée après

Inherited Create(CreateSuspended);

Merci.