|
|
|
|
|
|
|
|
|
|
- Exemple d'utilisation de la propriété AjoutTerminé
Exemple d'utilisation de la propriété AjoutTerminé Pour mettre en place cet exemple : - Créer une fenêtre. Saisir le code WLangage associé à l'événement "Initialisation" de cette fenêtre.
- Créer un champ Bouton "BTN_Ajouter". Saisir le code WLangage correspondant à l'événement "Clic" de ce champ.
- Créer un champ Bouton "BTN_Arrêter". Saisir le code WLangage correspondant à l'événement "Clic" de ce champ.
- Créer et saisir la procédure du thread.
Pour tester cet exemple : - Afficher la fenêtre : le thread se lance, rien ne se passe. Ce fonctionnement est normal, car le thread attend si la pile est vide.
- Cliquer sur le champ Bouton permettant l'ajout (BTN_Ajout) : seules les traces des fichiers sont affichées. La trace de fin n'est pas affichée.
- Cliquer encore une fois sur le champ Bouton permettant l'ajout (BTN_Ajout) : seules les traces des fichiers sont affichées. La trace de fin n'est toujours pas affichée.
- Cliquer sur le champ Bouton de terminaison (BTN_Arrêter) : la trace de fin s'affiche (le thread s'arrête).
- Cliquer sur le champ bouton permettant l'ajout (BTN_Ajout) : rien ne se passe. Ce fonctionnement est normal car le thread est arrêté.
// --Evénement "Initialisation" de la fenêtre
// Dans le code d'initialisation de la fenêtre, lancer uniquement le thread
ThreadExécute("test", threadNormal, TraitementsDeFichiers)
// -- Evénement "Clic" sur le champ Bouton BTN_Ajouter
// Code d'ajout (permet de relancer le test)
sListfic est une chaîne = fListeFichier("c:\temp\*.*", frNonRécursif)
stUnFic est un STFile
gFilesnames.AjoutTerminé = Faux
POUR TOUTE CHAÎNE sUnfic DE sListfic SÉPARÉE PAR RC
stUnFic.sChemin = sUnfic
stUnFic.sNomfic = fExtraitChemin(sUnfic, fFichier + fExtension)
Empile(gFilesnames, stUnFic)
FIN
// -- Evénement "Clic" sur le champ Bouton BTN_Arrêter
// Code d'arrêt (pour contrôler le moment de l'arrêt dans l'exemple)
gFilesnames.AjoutTerminé = Vrai
// Procédure du thread (avec une trace à la fin)
PROCÉDURE TraitementsDeFichiers()
stTemp est un STFile
tt est un booléen
Â
tt = Dépile(gFilesnames, stTemp, AttendSiVide)
TANTQUE tt
Trace(stTemp.sNomfic)
tt = Dépile(gFilesnames, stTemp, AttendSiVide)
FIN
Trace("fin")
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|