pcsoft.fr.windevCopyright 2026, PC SOFT7 Dec 2018 15:07:12 Z5 Dec 2018 11:04:01 ZBonjour, Si vous avez comme moi à accéder à des zones mémoires, tableau en lecture, écriture par plusieurs threads, vous vous êtes surement cassé la tête avec des section critiques bloquantes et non performante. J'ai fait une mise en oeuvre avec une classe qui implémente le patron décrit par Wikipédia: https://en.wikipedia.org/wiki/Readers%E2%80%93writer_lock Je vous soumet donc cette classe qui peut être utiliser de n'importe où en instanciant un objet local soit en lecture ou en écriture. Tout se passe dans le constructeur, destructeur. Le gros avantage est qu'il peut y avoir autant de lecteurs que l'on veut mais un et un seul écrivain. Et lorsque l'écrivain prends la main, on est assuré que les lecteurs sont sortis et qu'ils vont attendre la fin de l'écriture. [code:wl] ETypeAccèsMémoire est un Enumération AccèsLecture=1 AccèsÉcriture=2 FIN clAccèsMémoire est une Classe CONSTANTE PREFIXE_MUTEX_="MUTEX_ZONEMEMOIRE_" PREFIXE_SIGNAL_="SIGNAL_ZONEMEMOIRE_" FIN PRIVÉ m_sZoneMémoire est une chaîne m_eType est un ETypeAccèsMémoire GLOBAL mg_taLecteur est un tableau associatif d'entiers//Clé: nom de la zone à protéger, nombre de lecteurs mg_taMutex est un tableau associatif de chaîne//Clé: nom de la zone à protéger mg_taÉcriture est un tableau associatif de booléen//Clé: nom de la zone à protéger, état si en écriture FIN PROCÉDURE Constructeur(sZoneMémoire est une chaîne, eType est un ETypeAccèsMémoire) m_sZoneMémoire=ChaîneFormate(sZoneMémoire,ccSansAccent+ccSansEspace+ccMajuscule) m_eType=eType SI mg_taLecteur[m_sZoneMémoire]..Vide ALORS GénérerAccès(m_sZoneMémoire) FIN SELON m_eType CAS AccèsLecture //Wikipédia: //Lock m (blocking). //While w: // wait c, m[a] //Increment r. //Unlock m. MutexDébut(PREFIXE_MUTEX_+m_sZoneMémoire) TANTQUE mg_taÉcriture[m_sZoneMémoire] MutexFin(PREFIXE_MUTEX_+m_sZoneMémoire) SignalAttend(PREFIXE_SIGNAL_+m_sZoneMémoire) MutexDébut(PREFIXE_MUTEX_+m_sZoneMémoire) FIN mg_taLecteur[m_sZoneMémoire]++//ici le thread a le lock SI EnModeTest() ALORS TraceConstruit("Lecture %1 compteur: %2",PREFIXE_MUTEX_+m_sZoneMémoire,mg_taLecteur[m_sZoneMémoire]) FIN MutexFin(PREFIXE_MUTEX_+m_sZoneMémoire)//Release du lock //La lecture de l'accès mémoire peut commencer car la condition write est désactivé et le compteur>0 CAS AccèsÉcriture //Wikipédia: //Lock m (blocking). //While w: // wait c, m //Set w to true. //While r > 0: // wait c, m //Unlock m. MutexDébut(PREFIXE_MUTEX_+m_sZoneMémoire) TANTQUE mg_taÉcriture[m_sZoneMémoire] MutexFin(PREFIXE_MUTEX_+m_sZoneMémoire) SignalAttend(PREFIXE_SIGNAL_+m_sZoneMémoire) MutexDébut(PREFIXE_MUTEX_+m_sZoneMémoire) FIN mg_taÉcriture[m_sZoneMémoire]=Vrai//ici le thread a le lock TANTQUE mg_taLecteur[m_sZoneMémoire]>0 MutexFin(PREFIXE_MUTEX_+m_sZoneMémoire) SignalAttend(PREFIXE_SIGNAL_+m_sZoneMémoire) MutexDébut(PREFIXE_MUTEX_+m_sZoneMémoire) FIN SI EnModeTest() ALORS TraceConstruit("Écriture %1",PREFIXE_MUTEX_+m_sZoneMémoire) FIN MutexFin(PREFIXE_MUTEX_+m_sZoneMémoire) //L'écriture dans la zone mémoire peut commencer car la condition write est activée FIN PROCÉDURE Destructeur() SI m_sZoneMémoire<>"" ALORS SELON m_eType CAS AccèsLecture //Wikipédia: Releasing a read lock is done by decrementing r and signalling c if r has become zero (both while holding m) //On doit reprendre le lock pour décrémenter et signaler si on est arrivé à zéro MutexDébut(PREFIXE_MUTEX_+m_sZoneMémoire) mg_taLecteur[m_sZoneMémoire]-- SI mg_taLecteur[m_sZoneMémoire]=0 ALORS SignalOuvre(PREFIXE_SIGNAL_+m_sZoneMémoire) FIN SI EnModeTest() ALORS TraceConstruit("Fin lecture %1 compteur: %2",PREFIXE_MUTEX_+m_sZoneMémoire,mg_taLecteur[m_sZoneMémoire]) FIN MutexFin(PREFIXE_MUTEX_+m_sZoneMémoire) CAS AccèsÉcriture //Wikipédia: Releasing the write lock means setting w to false and broadcasting on c (again while holding m). //On doit reprendre le lock pour désactiver la condition d'écriture MutexDébut(PREFIXE_MUTEX_+m_sZoneMémoire) mg_taÉcriture[m_sZoneMémoire]=Faux SignalOuvre(PREFIXE_SIGNAL_+m_sZoneMémoire) SI EnModeTest() ALORS TraceConstruit("Fin écriture %1",PREFIXE_MUTEX_+m_sZoneMémoire) FIN MutexFin(PREFIXE_MUTEX_+m_sZoneMémoire) FIN FIN [/code] Vous n'avez donc qu'a instancier un objet de lecture avec eType=AccèsLecture et avec eType=AccèsÉcriture pour l'écriture juste avant les portions de codes correspondantes. Vous devez bien sur utiliser la même chaîne sZoneMémoire dans le constructeur pour contrôler le même élément mémoire. -- Youri JUTEAU Montréal30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222394-multiple-reader-single-writer-implantation/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)Youri JUTEAUpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222394-multiple-reader-single-writer-implantation-222468/read.awp7 Dec 2018 15:07:12 ZOui possible. Je vais l'ajouter pour voir. Mais je fonctione avec 12 threads qui se partage des dizaines d'endroits tant en lect…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222394-multiple-reader-single-writer-implantation-222468/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222394-multiple-reader-single-writer-implantation-222468/read.awpMultiple reader/single writer implantationOlivier Hpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222394-multiple-reader-single-writer-implantation-222458/read.awp7 Dec 2018 13:46:56 ZBonjour, Merci pour le partage, cela est intéressant. Cependant, il manque la fonction GénérerAccès() ca devrait être ?[cod…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222394-multiple-reader-single-writer-implantation-222458/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/222394-multiple-reader-single-writer-implantation-222458/read.awpMultiple reader/single writer implantation