1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| PROCÉDURE Status_Change(bMonStatus est un boolean = Faux, sMonCanal est une chaîne = "")
SELON bMonStatus
CAS Vrai :
Add_Debug(dbgInfo(dbgTraitement), dbgInfo(dbgLigne),Info_Application,:m_sLibelle + " : Connexion acceptée" , "")
:m_sMonCanal = sMonCanal
:m_bMonStatus = bMonStatus
:IHM_Refresh(RVB(0,255,0))
ThreadExécute("Write_"+:m_sLibelle,threadNormal,:Write)
ThreadExécute("Read_"+:m_sLibelle,threadNormal,:Read)
CAS Faux :
:m_bMonStatus = bMonStatus
:IHM_Refresh(RVB(255,0,0))
ThreadPause(500 ms)
SI :m_sMonCanal <> "" ALORS
SI SocketExiste(:m_sMonCanal) ALORS SocketFerme(:m_sMonCanal)
:m_sMonCanal = ""
FIN
TableauSupprimeTout(:m_tabListeDataToSend)
FIN |
Partager