PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WX - VerificaLinkOnline - Usando Redundancia de conexões de fibra otica com ips diferentes e avaliando qual a melhor conexao a ser usada
WX - VerificaLinkOnline - Usando Redundancia de conexões de fibra otica com ips diferentes e avaliando qual a melhor conexao a ser usada
Iniciado por Boller, abr., 29 2021 6:11 PM - 1 resposta
Membro registado
3.288 mensagems
Popularité : +89 (91 votes)
Publicado em abril, 29 2021 - 6:11 PM
Bom dia

Exemplo de como usar LOAD Balance Connection, para ter uma Redundancia de conexões de fibra otica com ips diferentes provedores e avaliando qual a melhor conexao a ser usada para gravar os dados

PROCEDURE VerificaLinkOnline(msg)

Connectok is boolean

MyHfsql_Copel.User = "admin"
MyHfsql_Copel.Password = "1234567890"

MyHfsql_Horizon.User = "admin"
MyHfsql_Horizon.Password = "1234567890"

HCreationIfNotFound(HF_LOCAL,"Senha-Secreta")

HCreationIfNotFound(HF_SERVER,"Senha-Secreta")

HModifyStructure(HF_LOCAL,hmsBackgroundTask)

HModifyStructure(HF_SERVER,hmsBackgroundTask)

//----- Conexões
HCS.Timeout = INTERNET

HCS.FrameSize = INTERNET

HOpenConnection(MyHfsql_Local)

HCloseConnection(MyHfsql_Copel)

HCloseConnection(MyHfsql_Horizon)

nQualidadeCopel is int = HConnectionQuality(MyHfsql_Copel)

nQualidadeHoriz is int = HConnectionQuality(MyHfsql_Horizon)

IF nQualidadeCopel > nQualidadeHoriz THEN

IF Ping("177.220.189.6",3s) = True

MyHfsql_Copel.User = "admin"

MyHfsql_Copel.Password = "1234567890"

HModifyStructure(HF_SERVER,hmsBackgroundTask)

HCreationIfNotFound(HF_SERVER,"Senha-Secreta")

HOpenConnection(MyHfsql_Copel)

Connectok = HChangeConnection(HF_SERVER,MyHfsql_Copel)

IF Connectok = True THEN
gbOnline = True
ELSE
gbOnline = False
END

gbStatusServidor = Connectok

IF msg = 1
ToastDisplay("Esta usando o Ip da Copel",toastLong,vaMiddle,haCenter)
END
END

ELSE IF nQualidadeCopel < nQualidadeHoriz THEN

IF Ping("187.95.147.141",6s) = True

MyHfsql_Horizon.User = "admin"

MyHfsql_Horizon.Password = "1234567890"

HModifyStructure(HF_SERVER,hmsBackgroundTask)

HCreationIfNotFound(HF_SERVER,"Senha-Secreta")

HOpenConnection(MyHfsql_Horizon)

Connectok = HChangeConnection(HF_SERVER,MyHfsql_Horizon)

IF Connectok = True THEN
gbOnline = True
ELSE
gbOnline = False
END

gbStatusServidor = Connectok

IF msg = 1
ToastDisplay("Esta usando o Ip da Horizon",toastLong,vaMiddle,haCenter)
END

END

END


IF gbOnline = False

NextTitle("Atenção")
Info("Servidores indisponiveis!")
Connectok = False

END


RESULT Connectok


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.288 mensagems
Popularité : +89 (91 votes)
Publicado em abril, 29 2021 - 6:13 PM
Detalhe

Para isso foi usado como equipamento de redundancia um Microtick 4011

2 links de internet dedicado de fibra ótica com ip fixos diferentes

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