4D v14.3Tester semaphore |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D v14.3
Tester semaphore
|
Tester semaphore ( sémaphore ) -> Résultat | ||||||||
Paramètre | Type | Description | ||||||
sémaphore | Chaîne |
![]() |
Nom du sémaphore à tester | |||||
Résultat | Booléen |
![]() |
Vrai = le sémaphore existe, Faux = le sémaphore n’existe pas | |||||
La commande Tester semaphore permet de tester l’existence d’un sémaphore.
A la différence de la fonction Semaphore, Tester semaphore ne crée pas le sémaphore s’il n’existe pas.
Si le sémaphore existe, la fonction retourne Vrai, s’il n’existe pas elle retourne Faux.
Note : Attention, 4D tient compte de la casse des caractères en ce qui concerne les noms de sémaphores (le programme considère par exemple que "MonSémaphore" est différent de "monsémaphore").
Cet exemple permet de connaître l’état d’un traitement (en l’occurrence, la modification d’un code) sans modifier le sémaphore :
Creer fenetre(x1;x2;y1;y2;-Fenêtre palette)
Repeter
Si(Tester semaphore("Code d’encryptage"))
POSITION MESSAGE($x3;$y3)
MESSAGE("Code d'encryptage en cours de modification.")
Sinon
POSITION MESSAGE($x3;$y3)
MESSAGE("Modification du code d'encryptage autorisée.")
Fin de si
Jusque(StopInfo)
FERMER FENETRE
Produit : 4D
Thème : Process (Communications)
Numéro :
652
Nom intl. : Test semaphore
Créé : 4D v6.5
4D - Langage ( 4D v12.4)
4D - Langage ( 4D v11 SQL Release 6)
4D - Langage ( 4D v14 R3)
4D - Langage ( 4D v14 R2)
4D - Langage ( 4D v13.5)
4D - Langage ( 4D v14.3)
4D - Langage ( 4D v14 R4)