Gestion des Threads

Bonjour à tous,
Je réalise un logiciel où je suis en interaction entre un pistolet de type Powerscan M8300 et un écran tactile. J'ai donc réalisé une procédure locale exécutée en tâche de fond (Thread) toutes les secondes pour voir si le pistolet me dit quelquechose et intéragir en fonction sans altérer la partie tournant sur le tactile. J'ai souvent des AppCrashB1 que je ne peux pas expliquer alors j'ai réalisé un audit d'exécution et je m'aperçois que j'ai un grand nombre de message du genre

Citation:

---

Erreur dans le traitement Clic sur BTN_Valider.
Le thread 'THREADxxxx' est bloqué et n'a pas pu être arrêté normalement, il a été détruit.

---

J'ai, pourtant, systématiquement fait un "FinAutomatismeProcédure" à la fermeture de chacune de mes fenêtres. Des idées?

Bonjour,

Ne serait-il pas plus judicieux de passer par des événements pour communiquer avec le pistolet ?

Cela éviterais d'utiliser un thread toutes les x secondes.

Comment cela fonctionne ? Socket ? Port USB ?

C'est clair qu'il faut que je fasse l'essai. C'est un pistolet en USB (COM5). Toutes les secondes je récupère une lecture sur le port. Je me plonge dans la doc... merci de la piste!

D'accord, cela devrais être faisable :)

Comme ça, dès que le pistolet doit communiquer, il envoi un événement que tu intercepte dans ton appli sans trop bloquer le thread principal.

Bonjour,
Cela fonctionne mais j'ai encore un soucis. J'ai donc fait une gestion d’événement sur un écran :

Code:

---

sEvénement(gtaTab_lecteur[gnNbPeriph]:nNumPort,sEveCaractèreReçu, LireCBPlanning)

---

Dans la procédure LireCBPlanning, j’appelle une autre procédure qui ouvre un nouvel écran. Avant cela, je fais bien un

Code:

---

sFinEvénement(gtaTab_lecteur[gnIndicePeriph]:nNumPort,sEveCaractèreReçu)

---

qui me renvoie Faux d'ailleurs :koi: et même un

Code:

---

gclPeriph:FermerConnexion(gtaTab_lecteur[gnIndicePeriph]:nNumPort)//Fermer le port COM

---

pour assurer le coup.
Dans le nouvel écran, j'ouvre à nouveau mon port et je fais un nouvel événement :

Code:

---

bTest = sEvénement(gtaTab_lecteur[gnIndicePeriph]:nNumPort, sEveCaractèreReçu, LireCBIncorporation)

---

là j'ai un renvoi à Vrai mais l’évènement ne fonctionne pas! Quand je quitte l'écran je referme mon port je reviens dans l'écran précédent, j'ouvre ma COM et je redéfinie l'événement, cela remarche!! Y'a un truc qui m'échappe là!

Je serais toi je ne ferais pas de sFinEvénement, je laisserais le pistolet envoyé autant d’événements qu'il souhaite...

Essai et dis moi.

Je voudrais bien mais entre les 2 fenêtres le comportement du périphérique n'est pas le même. J'ai une procédure défini par écran!

Je ne vois pas le soucis... :?

Tu crée une procédure qui effectue la bonne action selon la fenêtre ouverte ? Non ..?

Oui j'ai une procédure par écran.
1er écran -> initialisation :

Code:

---

sEvénement(gtaTab_lecteur[gnNbPeriph]:nNumPort,sEveCaractèreReçu, LireCBPlanning)

---

dans la fonction LireCBPlanning, j'ai un appel à

Code:

---

sFinEvénement(gtaTab_lecteur[gnIndicePeriph]:nNumPort)

---

puis l'ouverture d'un nouvel écran avec la fonction Ouvre et dans l'initialisation de celle-ci j'ai un

Code:

---

sEvénement(gtaTab_lecteur[gnIndicePeriph]:nNumPort, sEveCaractèreReçu, LireCBIncorporation)

---

Mais l’événement de la 2ème fenêtre ne fonctionne pas! Quand je quitte la 2ème fenêtre pour revenir à la 1ère, je réactive l’événement et cela fonctionne!! Je constate que le sFinEvénement de la première fenêtre me renvoie faux mais sans explication. J'ai essayé de fermer le port de COM puis de le réouvrir mais sans succès! Pour l'instant j'ai crée un thread qui boucle toutes les 1s dans ma 2ème fenêtre et qui scrute le port mais j'ai l'impression que le FinAutomatismeProcédure ne fonctionne pas à chaque fois!

Problème soumis à PcSoft...

et botté en touche 24h après...

Citation:

---

Dans ce cas, il faudrait disposer de votre périphérique et le service Assistance Directe pourrait vous aider à la mise au point du processus. Ce niveau de prestation est assuré par le service Assistance Directe uniquement (disponible sur abonnement). N’hésitez pas à contacter notre équipe commerciale à son sujet.

---