PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WEBDEV (précédentes versions) → Websocket
Websocket
Débuté par jean, 09 mai 2023 13:44 - Aucune réponse
#1
Posté le 09 mai 2023 - 13:44
Bonjour à tous.

J'ai implanté un serveur de WebSocket en version 27 de WebDev.

Le serveur fonctionne bien mais au bout de quelques jours l'erreur suivante survient dans la boucle du service global.

<Le processus actuel a utilisé tout son lot alloué par le système de descripteurs pour les objets du gestionnaire de fenêtre.>

Par contre le Websocket continu de répondre aux demande de connexion/déconnexion.

Voici le code

Procedure verification() <intervalle = 30 s>



QUAND EXCEPTIONEXCEPTION DANS
gclCalendarChange.tabShippingChange.SupprimeTout()
gclCalendarChange.tabProductionChange.SupprimeTout()
sShippingChange est une chaîne = ""
sProductionChange est une chaîne = ""

SI HExécuteRequêteSQL(reqsql,hRequêteDéfaut,ChaîneConstruit("select * from Shipping where shipping.Modifieddate > '%1'",Lastsynchro)) ALORS

fEcritLigne(IDWebSocket,Lastsynchro +" Nombre de modification:"+HNbEnr(reqsql))
POUR CHAQUE reqsql
sShippingChange+= [":"]+reqsql.idshipping
FIN


SINON
fEcritLigne(IDWebSocket,HErreurInfo(hErrMessage))
FIN


SI HExécuteRequêteSQL(reqsql,hRequêteDéfaut,ChaîneConstruit("select * from Production where Production.Modifieddate > '%1'",Lastsynchro)) ALORS

fEcritLigne(IDWebSocket,Lastsynchro +" Nombre de modification:"+HNbEnr(reqsql))
POUR CHAQUE reqsql
sProductionChange+= [":"]+reqsql.idProduction
FIN
SINON
fEcritLigne(IDWebSocket,HErreurInfo(hErrMessage))

FIN
HLibèreRequête(reqsql)

SI sShippingChange <> "" _OU_ sProductionChange <> "" ALORS
gtabCalendarChangeString[1] = sShippingChange
gtabCalendarChangeString[2] = sProductionChange
UpdateClient(gtabCalendarChangeString)
FIN
Lastsynchro = DateHeureSys()
FAIRE
fEcritLigne(IDWebSocket,"Exception : "+ExceptionInfo(errComplet)) FIN


CAS EXCEPTION:
fEcritLigne(IDWebSocket,ExceptionInfo(errComplet))
→ Revenir à WEBDEV (précédentes versions)