AYUDA EN LÍNEA
 WINDEV, WEBDEV Y WINDEV MOBILE
Este contenido se ha traducido automáticamente.  Haga clic aquí  para ver la versión en inglés.
Ayuda / WLanguage / Funciones WLanguage / Comunicación / Funciones HTTP
  • Firewall
WINDEV
WindowsLinuxJavaReportes y ConsultasCódigo de Usuario (UMC)
WEBDEV
WindowsLinuxPHPWEBDEV - Código Navegador
WINDEV Mobile
AndroidWidget Android iPhone/iPadIOS WidgetApple WatchMac Catalyst
Otros
Procedimientos almacenados
InternetConnected (Function)
Defines whether an Internet connection is enabled on the current computer.
AndroidWidget Android iPhone/iPad Allows you to be notified when the status of the Internet connection changes.
Ejemplo
// Active Internet connection?
ResConnection = InternetConnected()
IF ResConnection = True THEN
Info("An Internet connection is enabled")
ELSE
Info("No Internet connection is enabled")
END
Sintaxis

Finding out whether an Internet connection is enabled Ocultar los detalles

<Result> = InternetConnected()
<Result>: Boolean
  • True if an Internet connection is enabled on the current computer,
  • False otherwise.
AndroidWidget Android iPhone/iPad

Asking for a notification when the status of the Internet connection changes Ocultar los detalles

<Result> = InternetConnected([<WLanguage procedure>])
<Result>: Boolean
  • True if the procedure was associated with InternetConnected,
  • False otherwise.
<WLanguage procedure>: Procedure name
WLanguage procedure ("callback") called when the Internet connection status changes.
This procedure has the following format:
PROCEDURE <Procedure name>(<Status>)
<Status> is an integer constant corresponding to the new status of the Internet connection.
It can take the following values:
networkDisconnectedThe network is disconnected or inaccessible.
networkEthernetThe Internet connection is performed by Ethernet.
networkMobileThe Internet connection is made in mobile mode: edge, 2G, 3G, 4G, etc.
networkWifiThe Internet connection is performed by Wi-Fi.

If <WLanguage procedure> is an empty string (""), the previously defined WLanguage procedure will no longer be called.
Observaciones
WINDEVReportes y ConsultasCódigo de Usuario (UMC)

Firewall

InternetConnected uses a ping request to check the Internet access. Therefore, the ping must be allowed by the security parameters of the network in order for the result of the function to be pertinent.
Note: Ping is performed on Google DNS (6 seconds, 1 try). The equivalent code is:
Ping("8.8.8.8", 6000, 1)
AndroidWidget Android Required permissions
This function changes the permissions required by the application.
Permission required: ACCESS_NETWORK_STATE: this permission allows applications to access network information.
AndroidWidget Android iPhone/iPad Change of connection status (syntax 2)
  • Call to the procedure:
    • iPhone/iPad The WLanguage procedure is called only when the network status changes. It is not called when InternetConnected is called. You must call InternetConnected (without parameters) to know whether or not the Internet connection is enabled.
    • AndroidWidget Android The WLanguage procedure is automatically called when InternetConnected is called.
  • Only one procedure can be associated with InternetConnected. If InternetConnected is called multiple times with different procedure names, the procedure used to detect the status of the Internet connection will be replaced by the last procedure specified.
  • AndroidWidget Android If InternetConnected is called from a secondary thread, the procedure will be called in the main thread of the application.
Componente: wd300com.dll
Ver también
Versión mínima requerida
  • Versión 9
Esta página también está disponible para…
Comentarios
Exemplo
sRetorno is string = ""

cMyRequest is httpRequest

IF InternetConnected() = False THEN

ToastDisplay("Sem conexão com a internet",toastShort,vaBottom,haCenter)

RETURN("OFF")

ELSE

cMyRequest.URL = URL_SISTEMA+REGRA_PING
cMyRequest.Timeout = 45s

cMyResponse is httpResponse = HTTPSend(cMyRequest)

IF cMyResponse.StatusCode = 200 THEN

//sRetorno = AnsiToUnicode(cMyResponse.Content)
sRetorno = UTF8ToAnsi(cMyResponse.Content)

RETURN(sRetorno)

ELSE

RETURN("NOK")

END

END
Boller
23 05 2023
** Dica **
Cuidado, ao utilizar essa função, não é confiável para testar Internet. Usavamos em nosso ERP, porém aconteceu de parar nossa emissão de NFe devido a função retornar equivocadamente que não tinha Conexão de Internet na máquina.

Para testar Conexão de Internet recomendo utilizar, o Post do Adriano Boller:
http://forum.pcsoft.fr/fr-FR/pcsoft.us.windevmobile/605-conexao-internet/read.awp
Danilo
22 12 2016

Última modificación: 30/09/2024

Señalar un error o enviar una sugerencia | Ayuda local