pcsoft.fr.windevCopyright 2026, PC SOFT25 Feb 2020 09:03:01 Z24 Feb 2020 07:43:20 ZBonjour, A l'ouverture de la fenêtre j’exécute le traitement ci-dessous : [code:wl] SI gpclMesPhotos=Null ALORS Trace(HeureVersChaîne(HeureSys())) gpclMesPhotos = allouer un CPhotosLst(CPicture.Dossier,Dossier.D0CleUnik,Dossier.DossierNo,gclMesParamètres.m_stChemins.sPhotos,"") gpclMesPhotos.Charger() Trace("Photos chargées " + HeureVersChaîne(HeureSys())) soit t2 est une TâcheParallèle=TâcheParallèleExécute(ImporterPhotosExistantes,(gpclMesPhotos)) Ajoute(gtabMesTaches,t2) TâcheParallèleAttend(t2) TâcheParallèleExécuteAprès(t2,Fini,("Importation"),tpoThreadPrincipal) POUR TOUTE clUnePhoto,nCpt, Posi de gpclMesPhotos.m_tabItems soit t=TâcheParallèleExécute(PhotoCharger,(clUnePhoto)) TâcheParallèleExécuteAprès(t,MajPhotoLst,(ValeurRenvoyéeTâchePrécédente,nCpt))//,tpoThreadPrincipal) Ajoute(gtabMesTaches,t) PROCÉDURE INTERNE PhotoCharger(clMaPhoto) clMaPhoto.JpgCharger() RENVOYER clMaPhoto FIN PROCÉDURE INTERNE MajPhotoLst(clMaPhoto, nPosi ) SectionCritiqueDébut(gpclMesPhotos.m_tabItems) gpclMesPhotos.m_tabItems[nPosi]=clMaPhoto SectionCritiqueFin(gpclMesPhotos.m_tabItems) FIN PROCÉDURE INTERNE Fini(sInfo est une chaîne="") Trace(sInfo+HeureVersChaîne(HeureSys())) // ToastAffiche(sInfo+heuresys()) FIN FIN PROCÉDURE INTERNE ImporterPhotosExistantes(clMesPhotosImportations est un CPhotosLst dynamique) clMesPhotosImportations.ImporterDepuisDossier() FIN PROCÉDURE INTERNE FinChargementPhotos() ToastAffiche("Photos chargées") FIN FIN TâcheParallèleExécuteAprèsToutes(gtabMesTaches,Fini,("Tout fini"), tpoThreadPrincipal) [/code] Le traitement s'effectue correctement mais j'ai un sablier +- 5s et je ne récupère le focus que lorsque le traitement est effectué. Je pensais que lorsqu'une tâche parallèle s'exécute l'utilisateur avait complètement la main sur l'interface. Qu'ai-je fait de travers ? Merci d'avance et bonne journée Pierre30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237243-tache-parallele-rend-pas-main/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)Pierrepcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237243-tache-parallele-rend-pas-main-237267/read.awp25 Feb 2020 09:03:01 ZBonjour, Merci pour l'info. Ce n'est pas encore solutionné mais j'ai découvert que la procédure de t2 n'est pas adaptée pour …https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237243-tache-parallele-rend-pas-main-237267/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237243-tache-parallele-rend-pas-main-237267/read.awpTâche parallèle ne rend pas la mainThierry Mpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237243-tache-parallele-rend-pas-main-237247/read.awp24 Feb 2020 11:40:52 ZBonjour la ligne "TâcheParallèleAttend(t2)" y est sans doute pour quelque chose ;-) puisque la fonction "TâcheParallèleAtt…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237243-tache-parallele-rend-pas-main-237247/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/237243-tache-parallele-rend-pas-main-237247/read.awpTâche parallèle ne rend pas la main