Discussion :

[mail.spam]

Bonjour,

Je commence à me fammilliariser avec les threads et leurs utilisation.
(c'est quand même super pratique ces petites choses là)
Et je voulais savoir s'il existait un moyen de connaitre le nom du thread qui lance la procédure.

ce qui me permet de faire la différence lorsque je lance ma procédure dans le thread principale ou dans un thread secondaire.

Je vous remercie d'avance

[hpascal]

Bonjour
Je ne crois pas
Mais tu peux faire l'inverse : avec ThreadEtat, savoir si un thread dont on connait le nom est lancé.
Si c'est le cas c'est que ta procédure est exécutée dans un thread secondaire

Si tu as plusieurs threads en cours tu peux les mémoriser dans un tableau et les tester tous avec ThreadEtat par exemple

[Raptor92]

Bonjour mail.Spam,

En complément avec ce que dit Hpascal, lorsque j'ai commencer à comprendre les threads, je me suis basé en autre sur l'exemple WD Pool de threads.

Tu a un exemple dedans qui devrait s'approcher de ce que tu souhaites (je pense)

Tu peut lister tes threads et savoir l'état dans lequel ils se trouvent.

A voir
Bonne après midi

[mail.spam]

Bonjour,
l'exemple WD Pool de threads ne permet pas de savoir si la procédure est lancé à partir d'un thread secondaire ou principale.
J'ai résolu mon problème en ajoutant à ma procédure un paramètre optionnel.

Concraitement je lance plusieurs thread et je garde dans un tableau la liste des threads que je lance, ainsi en fin de traitement je peux vérifier si tous mes threads sont fini.

voici un exemple de ce que je fais.

code de ma procédure qui peux être lancer directement ou par thread
(j'utilise une collection de procédure perso qui me sert pour tous mes projets et c'est pour ça que des fois je passe par des threads)

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
PROCEDURE MailErreur(MessageErreur est une chaîne,NomThread est chaîne = "")
 
//
//		initialisation structure du mail
//
SectionCritiqueDébut()
Email.Expéditeur = Destinataire.AdresseMail
Email.AdresseExpéditeur = Destinataire.AdresseMail
Email.NbDestinataire = 1
Email.Destinataire = Destinataire.AdresseMail
Email.Sujet = "Retour Erreur Programme : " + fExtraitChemin(ExeInfo(exeNom), fFichier + fExtension)
Email.Message = MessageErreur
EmailOuvreSessionSMTP(Destinataire.LoginSmtp,Destinataire.PasswordSmtp, Destinataire.ServeurSmtp)
EmailEnvoieMessage(Destinataire.LoginSmtp)
SI NomThread <> "" ALORS
	//recherche de la ligne dans listeThreadPerso du thread
	TableauSupprime(ListeThreadPerso,TableauCherche(ListeThreadPerso,tcLinéairePremier,NomThread))
FIN
SectionCritiqueFin()

et voici le code qui lance le thread

Code :

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

1
2
3
4
5
6
PROCEDURE ThreadMailErreur(Val_MessageErreur est une chaîne)
 
NomThread est chaîne = "MailErreur" + HeureVersChaîne(HeureSys,"HHMMSSCC")
TableauAjouteLigne (ListeThreadPerso,NomThread)
ThreadMode(threadSectionCritique)
ThreadExécute(NomThread,threadNormal,MailErreur,Val_MessageErreur,NomThread)

ainsi quand je contrôle la présence de thread en fin de programme par exemple voici ce que j'utilise

procédure de contrôle

Code :

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

1
2
3
4
5
6
7
8
9
10
PROCEDURE ThreadPersoTerminé()
 
//trace("nbthread = " + TableauOccurrence(ListeThreadPerso))
 
POUR TOUT ELEMENT unThread DE ListeThreadPerso
	SI ThreadEtat(unthread) = threadEnCours ALORS
		RENVOYER Faux
	FIN
FIN
RENVOYER Vrai

Code de fermeture du projet

Code :

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

1
2
3
TANTQUE PAS ThreadPersoTerminé() 
	Temporisation(100)
FIN

[Bowen]

Heu, juste, tu as regardé du coté de la fonction dbgInfo(dbgTraitement, dbgTraitementAppelant) ?

[N_Ron]

Bonjour,

C'est moins rigoureux que la proposition de Bowen mais pourquoi pas un simple argument (booléen vrai par défaut (thread princ.), faux si thread secondaire)?

N_Ron.

[mail.spam]

Heu, juste, tu as regardé du coté de la fonction dbgInfo(dbgTraitement, dbgTraitementAppelant) ?

Oui j'avais déjà vérifié mais lors de l'utilisation de thread il n'y as pas d'information sur TraitementAppelant.

Sinon N_Ron je préfère avoir le numéro du thread appelant car je gère aussi des valeurs de retour et pour les différencier j'ai besoin du nom du thread