pcsoft.fr.windevCopyright 2026, PC SOFT19 Jan 2019 22:12:20 Z16 Jan 2019 12:59:32 ZBonjour, J'ai codé un thread qui est exécuté au lancement de mon programme, ce thread va lire , le status de plusieurs services sur mon serveur. Pour qu'il sorte proprement du thread quand l'utilisateur clic sur la fermeture du programme, je met ma variable globale a Vrai, et je teste cette variable dans mon thread pour quiter le thread le plus proprement possible. [code:wl] gbSortieDuProgramme est un booléen, section critique gbSortieDuProgramme = Faux [/code] TEMPS_SERVICES est égale a 300 pour faire 5 minutes entre chaque exécution du thread. AffichageDesServices est une procédure qui affiche dans un mémo le résultat du traitement. Dite moi si c'est propre d’après vous ou s'il y a des choses a corriger ? [code:wl] PROCÉDURE ListeDesServices() nAttente est un entier sMaListe est une chaîne BOUCLE sMaListe = "" sMaListe += EtatEnTexte("SFTP") sMaListe += EtatEnTexte("ILE01") sMaListe += EtatEnTexte("ILE02") sMaListe += EtatEnTexte("ILE03") sMaListe += EtatEnTexte("ILE04") ExécuteThreadPrincipal(AffichageDesServices, sMaListe) nAttente = 0 TANTQUE nAttente < TEMPS_SERVICES // pause de 2 secondes ThreadPause(2s) // Incrémente de 2 le compte de temps Ajoute(nAttente, 2) // Sort du thread si le programme demande a sortir en ayant mis le booléen a Vrai SI gbSortieDuProgramme ALORS ThreadFin() FIN FIN PROCÉDURE INTERNE EtatEnTexte(LOCAL plEtat est une chaîne): chaîne lsRésultat est une chaîne SELON ServiceEtat(plEtat, "SRV-Prods") CAS serviceEtatArrêté: lsRésultat = "Arrêté" CAS serviceEtatAttenteArrêt: lsRésultat = "Attente Arrêt" CAS serviceEtatAttenteDémarrage: lsRésultat = "Attente Démarrage" CAS serviceEtatAttentePause: lsRésultat = "Attente Pause" CAS serviceEtatAttenteRelancement: lsRésultat = "Attente Relancement" CAS serviceEtatDémarré: lsRésultat = "Démarré" CAS serviceEtatEnPause: lsRésultat = "En Pause" CAS serviceEtatTimeout: lsRésultat = "Timeout" AUTRE CAS: lsRésultat = "Indéterminé" FIN RENVOYER ChaîneConstruit("- %1 : %2.%3", plEtat, lsRésultat, CR) FIN // FIN de ListeDesServices() [/code] -- ——————————————————————————————————— Ce qui se conçoit bien se code clairement et se débogue facilement... - Pastiche d’une citation de Nicolas Boileau -30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)Der§enpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223430/read.awp19 Jan 2019 22:12:20 ZComme j’ai des « surprises » à la fermeture de mon programme. Je suis à la recherche d’un exemple de fonctionnement d’un thre…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223430/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223430/read.awp[WD23] Conseil sur un threadDer§enpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223365/read.awp17 Jan 2019 11:21:07 ZIl y a un truc que je fait surement mal car quand je quitte le programme sans aucun code pour stopper les thread dans la partie …https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223365/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223365/read.awp[WD23] Conseil sur un threadDer§enpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223352/read.awp16 Jan 2019 20:40:20 ZChristophe PRADEL a écrit : > Si "ListeDesServices" est bien la procédure lancée en Thread, pourquoi ne pas seulement sortir d…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223352/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223352/read.awp[WD23] Conseil sur un threadchristophe.pradelpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223346/read.awp16 Jan 2019 17:28:33 ZSi "ListeDesServices" est bien la procédure lancée en Thread, pourquoi ne pas seulement sortir de la procédure lorsque gbSortieD…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223346/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223346/read.awp[WD23] Conseil sur un threadDer§enpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223343/read.awp16 Jan 2019 16:02:43 ZMerci pour le conseil, je vais faire la modif... -- ——————————————————————————————————— Ce qui se conçoit bien se code clai…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223343/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223343/read.awp[WD23] Conseil sur un threadFrançois C.pcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223339/read.awp16 Jan 2019 14:50:20 ZHello, Oui çà à l'air correct. tu peux même mettre à la place de BOUCLE : TANTQUE PAS gbSortieDuProgramme ALORS // Ton t…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223339/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223335-wd23-conseil-sur-thread-223339/read.awp[WD23] Conseil sur un thread