PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Wx - Hibernate
Wx - Hibernate
Iniciado por Boller, mar., 22 2021 9:53 PM - Sem resposta
Membro registado
3.274 mensagems
Popularité : +89 (91 votes)
Publicado em março, 22 2021 - 9:53 PM
//GLOBAL INIT PROJECT

myServerIp_A is connection = myServerIp
myServerIp_B is connection = myServerIp



Procedure HConnectWithHibernet()
Ok is boolean

If Hopenconnection(myServerIp_A) = true
Hchangeconnection(“*”, myServerIp_A)

Ok = true

Else

Ok = false

If Hopenconnection(myServerIp_B) = true
Hchangeconnection(“*”, myServerIp_B)
Ok = true
Else
gnTentativa++
if gnTentativa <= 3
HconnectHibernet()
end
End

End

Result ok



Procedure Hibernet()
HCloseConnection(myServerIp)
HCloseConnection(myServerIp_A)
HCloseConnection(myServerIp_B)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/