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 28 29 30
| PROCÉDURE PublishError(LOCAL pclSrc est un Session <utile>, LOCAL pclArgs est un PublishErrorEventArgs <utile>)
nBTentative est entier = 60
bUAEndpointsValide est un booléen
Trace(HeureVersChaîne(HeureSys,"HH:mm:SS"),dbgInfo(dbgTraitement),"Status.ToString=",pclArgs.Status.ToString())
Trace(HeureVersChaîne(HeureSys,"HH:mm:SS"),dbgInfo(dbgTraitement),"Status.Code=",pclArgs.Status.Code)
//Trace(HeureVersChaîne(HeureSys,"HH:mm:SS"),dbgInfo(dbgTraitement),"SubscriptionId=",pclArgs.SubscriptionId)
//Trace(HeureVersChaîne(HeureSys,"HH:mm:SS"),dbgInfo(dbgTraitement),"get_Connected=",pclSrc.get_Connected())
SELON pclArgs.Status.Code
CAS 2156265472
// on tente une reconnexion si le serveur est joignable
POUR nTentative = 1 _À_ nBTentative
bUAEndpointsValide = GetUAEndpoints(gsOPCUrl)
Trace(HeureVersChaîne(HeureSys,"HH:mm:SS"),"nTentative",nTentative,"GetUAEndpoints",bUAEndpointsValide)
SI bUAEndpointsValide ALORS
Trace(HeureVersChaîne(HeureSys,"HH:mm:SS"),"mySession.Reconnect()")
mySession.Reconnect()
// ThreadPause(1000)
SORTIR
FIN
ThreadPause(1000)
FIN
AUTRE CAS
FIN |
Partager