PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 25 → InternetConnected()
InternetConnected()
Débuté par IGOR, 22 déc. 2016 11:51 - 3 réponses
#1
Membre enregistré
1 message
Posté le 22 décembre 2016 - 11:51
Pessoal cuidado com essa função para testar internet,
não é recomendada, tive problemas serio na empresa em que trabalho,
usava para testar conexão e se internet ok, enviar nota fiscal eletrônica,
Ontem caiu a internet principal da empresa e como contingencia tenho outras, porem a função deixou de funcionar, retornava sem internet mesmo eu tendo internet.


// Active Internet connection?
ResConnection = InternetConnected()
IF ResConnection = True THEN
Info("An Internet connection is enabled")
ELSE
Info("No Internet connection is enabled")
END
#2
Membre enregistré
3 655 messages
Popularité : +175 (223 votes)
Posté le 22 décembre 2016 - 14:01
Prezado Igor,

Você deve ter uma Multi thread consultando o tempo todo se esta ok o serviço, estamos no Brasil e não na Europa, nossa internet é muito ruim.

Use Httprequest(url)

variavelresultado is string = httpgetresult()

se tem o dado da pagina na variavelresultado

use positionocurrence(...) para ver se tem a informação

se tem, esta on

se nao, ta off

Mas use multithread!... esse é o segredo...

:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
#3
Membre enregistré
123 messages
Popularité : +46 (46 votes)
Posté le 28 décembre 2016 - 14:41
Adriano totalmente fora de contexto sua resposta ao problema do IGOR

--
Atte. Willian Fernando
#4
Membre enregistré
3 655 messages
Popularité : +175 (223 votes)
Posté le 18 janvier 2018 - 14:03
// Résumé : <indiquez ici ce que fait la procédure>
// Syntaxe :
//[ <Résultat> = ] VerificaWebservice (<WebserviceURL>, <nTimeOut>)
//
// Paramètres :
// WebserviceURL : <indiquez ici le rôle de WebserviceURL>
// nTimeOut : <indiquez ici le rôle de nTimeOut>
// Valeur de retour :
// booléen : // Aucune
//
// Exemple :
// Indiquez ici un exemple d'utilisation.
//
Procedure VerificaWebservice(WebserviceURL, nTimeOut)

ok is boolean = False

PosicaoOK is int = 0

HttpRetorno is string

IF WebserviceURL = ""
WebserviceURL = "http://www.google.com.br"
END

IF nTimeOut = 0 OR nTimeOut = "" THEN
nTimeOut = 3000 //3s
END

HTTPTimeOut(nTimeOut)

IF httpRequest(WebserviceURL) = True THEN

HttpRetorno = HTTPGetResult(httpHeader)

PosicaoOK = PositionOccurrence(HttpRetorno,"Connection",firstRank,IgnoreCase)
IF PosicaoOK = 0 THEN
PosicaoOK = PositionOccurrence(Upper(HttpRetorno),"200",firstRank,IgnoreCase)
IF PosicaoOK = 0 THEN
PosicaoOK = PositionOccurrence(Upper(HttpRetorno),"OK",firstRank,IgnoreCase)
END
END

IF WebserviceURL <> "" AND PosicaoOK > 0 AND HttpRetorno <> "" THEN
ok = True
ELSE
ok = False
END

ELSE
ok = False
END

RESULT(ok)


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