Hi all,
a very common sub that I use to check whether there's Internet access (and specifically whether my server is reachable).
Works in Android. Fails in iOS
wscdisp is working if tested by browser and any Android-based app. It's an HTTPS URL if it can matters.
a very common sub that I use to check whether there's Internet access (and specifically whether my server is reachable).
Works in Android. Fails in iOS
B4X:
'Check connection to DGC server. Timeout in 5 seconds
Public Sub CheckInternet As ResumableSub
LogColor("check Internet start", 0xFFFFFF00)
Dim j As HttpJob
j.Initialize("", Me)
j.GetRequest.Timeout = 5000
j.Download(wscdisp) 'Hello service
Wait For (j) JobDone(j As HttpJob)
Dim res As Boolean = j.Success
If j.Success Then
Log(j.GetString)
Else
Log("No connection to server")
End If
j.Release
LogColor("check Internet finish", 0xFFFFFF00)
Return res
End Subwscdisp is working if tested by browser and any Android-based app. It's an HTTPS URL if it can matters.