Android Question B4A +ESP_WIFI connection OK("No internet Connection")+ESP8266 (WIFI_MODE_AP , HttpServer) + Http_Request( Not Response)

ardeshir.omid said:

Hi Erel

Click to expand...

Erel said:

Please don't limit your questions to a single member.

First step is to test it with airplane mode on and wifi enabled. This way you will be sure that the device doesn't switch to the cellular network.

Click to expand...

Private Sub CheckWiFi()
    'State - One of the following values: CONNECTING, CONNECTED, SUSPENDED, DISCONNECTING, DISCONNECTED, UNKNOWN.
    Dim p As Phone  'Phone Library
    MsgboxAsync ("sdkVer="&p.SdkVersion,"") 'for test
    If p.GetSettings ("wifi_on") <> 1 Then
        MsgboxAsync ("WiFi is OFF","") '!!!!!
    Else  'WiFi is on
        If p.GetDataState = "DISCONNECTED" Then ' Phone carrier's data network is disconnected
            MsgboxAsync ("WiFi is ON and CONNECTED","")
        Else
            MsgboxAsync ("WiFi is ON but NOT connected to a WiFi network","")
        End If
    End If
End Sub

Sub Process_Globals

Public PhoneEvent1 As PhoneEvents
Public wifi_status , mobile_data_status As String
End Sub

...

Sub Service_Create

PhoneEvent1.Initialize("PhoneEvent")

End Sub

....

Sub PhoneEvent_ConnectivityChanged(NetworkType As String, State As String, Intent As Intent)

If(NetworkType="WIFI")Then
        wifi_status=State
    End If
If(NetworkType="mobile")Then
        mobile_data_status =State
    End If
    ToastMessageShow(NetworkType & " Status Change to "&State,True)
End Sub

ardeshir.omid said:

show:
net:ERR_CLEARTEXT_NOT_PPERMITTED

Click to expand...

DonManfred said:

Search Results

www.b4x.com

Click to expand...

ardeshir.omid said:

hi
thanks

@1: First step is to test it with airplane mode on and Wifi enabled
at this test , my CheckWiFi subroutin show: "WiFi is OFF"

wificheck routin:

Private Sub CheckWiFi()
    'State - One of the following values: CONNECTING, CONNECTED, SUSPENDED, DISCONNECTING, DISCONNECTED, UNKNOWN.
    Dim p As Phone  'Phone Library
    MsgboxAsync ("sdkVer="&p.SdkVersion,"") 'for test
    If p.GetSettings ("wifi_on") <> 1 Then
        MsgboxAsync ("WiFi is OFF","") '!!!!!
    Else  'WiFi is on
        If p.GetDataState = "DISCONNECTED" Then ' Phone carrier's data network is disconnected
            MsgboxAsync ("WiFi is ON and CONNECTED","")
        Else
            MsgboxAsync ("WiFi is ON but NOT connected to a WiFi network","")
        End If
    End If
End Sub

and not response from esp_http server



'-----------------
at starter service my program report wifi changed to connected when airplane=on wifi=on

starter service check connection status:

Sub Process_Globals

Public PhoneEvent1 As PhoneEvents
Public wifi_status , mobile_data_status As String
End Sub

...

Sub Service_Create

PhoneEvent1.Initialize("PhoneEvent")

End Sub

....

Sub PhoneEvent_ConnectivityChanged(NetworkType As String, State As String, Intent As Intent)

If(NetworkType="WIFI")Then
        wifi_status=State
    End If
If(NetworkType="mobile")Then
        mobile_data_status =State
    End If
    ToastMessageShow(NetworkType & " Status Change to "&State,True)
End Sub

my starter service code show:ToastMessageShow -> "wifi Status Change to CONNECTED")

but response (=time out) from http:192.168.4.1 by httpjob
and
WebView1.LoadUrl("http://192.168.4.1")
show:
net:ERR_CLEARTEXT_NOT_PPERMITTED

Click to expand...