FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
WEBDEV (versiones precedentes)
→
Websocket
Websocket
Iniciado por jean, 09,may. 2023 13:44 - No hay respuesta
Conéctese…
jean
#1
Publicado el 09,mayo 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 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
)
)
Informar
0
0
→ Volver a WEBDEV (versiones precedentes)
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (versiones precedentes)
WEBDEV (versiones precedentes)
WINDEV Mobile (versiones precedentes)
Reports & Queries
Irrelevante
Herramientas
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto