PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
Home
→
WEBDEV (earlier versions)
→
Websocket
Websocket
Started by jean, May, 09 2023 1:44 PM - No answer
Connect yourself…
jean
#1
Posted on May, 09 2023 - 1:44 PM
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 EXCEPTION
EXCEPTION DANS
gcl
CalendarChange.tabShippingChange.SupprimeTout
(
)
gcl
CalendarChange.tabProductionChange.SupprimeTout
(
)
s
ShippingChange
est une chaîne
=
""
s
ProductionChange
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
C
HAQUE
reqsql
s
ShippingChange
+
= [
":"
]
+
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
C
HAQUE
reqsql
s
ProductionChange
+
= [
":"
]
+
reqsql.idProduction
FIN
SINON
fEcritLigne
(
IDWebSocket
,
HErreurInfo
(
hErrMessage
)
)
FIN
HLibèreRequête
(
reqsql
)
SI
s
ShippingChange
<
>
""
_OU_
s
ProductionChange
<
>
""
ALORS
gtab
CalendarChangeString
[
1
]
=
s
ShippingChange
gtab
CalendarChangeString
[
2
]
=
s
ProductionChange
UpdateClient
(
gtab
CalendarChangeString
)
FIN
Lastsynchro
=
DateHeureSys
(
)
FAIRE
fEcritLigne
(
IDWebSocket
,
"Exception : "
+
ExceptionInfo
(
errComplet
)
)
FIN
CAS EXCEPTION
:
fEcritLigne
(
IDWebSocket
,
ExceptionInfo
(
errComplet
)
)
Report
0
0
→ Go back to WEBDEV (earlier versions)
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (earlier versions)
WEBDEV (earlier versions)
WINDEV Mobile (earlier versions)
Reports & Queries
Off-topic
Tools
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text