Hi guys and girls
I know the ESP8266 is a bit of an unknown here, but just chucking this out there in case anybody has had (and overcome) the issue before.
I have a sub to list the detected Wifi Networks on a web page and send it back to the user for selection.
When the above code is run, I get the following in the log.
So, the interesting part is, there are 7 networks detected but the device craps out after looping 2 (sometimes 3 or 4)
If I comment out the astream.write() in the For loop and just watch the logs I get:
So, this time it finds 6 (number 7 is very weak and sometimes shows, sometimes not) and it loops through all 6 (Logs the name). But still craps out.
Any clues?
I know the ESP8266 is a bit of an unknown here, but just chucking this out there in case anybody has had (and overcome) the issue before.
I have a sub to list the detected Wifi Networks on a web page and send it back to the user for selection.
B4X:
Sub astream_NewData (Buffer() As Byte)
Log(Buffer)
If bc.IndexOf(Buffer, "GET") <> -1 Then 'we have a GET request to process
Log("Get Request")
If bc.IndexOf(Buffer, "/set?") <> -1 Then
'save details
else If bc.IndexOf(Buffer, "/set") <> -1 Then
'Show Settings page
Log("Set Page")
BeginOKResponse
astream.Write("<h1>Settings</h1>").Write(CRLF)
astream.Write("<div class=""section"">").Write(CRLF)
astream.Write("<form action=""/set"" method=""get"">").Write(CRLF)
astream.Write("<select>").Write(CRLF)
'get available networks
Dim NetworkCount As Int = Main.Wifi.Scan
Log("Found ", NetworkCount, " Networks")
For i = 0 To NetworkCount - 1
Log("Adding Option: ", Main.Wifi.ScannedSSID(i))
astream.Write("<option>").Write(Main.Wifi.ScannedSSID(i)).Write("</option>")
'astream.Write("<option value=""").Write(Main.Wifi.ScannedSSID(i)).Write(""">").Write(Main.Wifi.ScannedSSID(i)).Write("</option>").Write(CRLF)
Next
Log(1)
astream.Write("</select>").Write(CRLF)
astream.Write("Password: <input type=""password"" name=""password""></input>").Write(CRLF)
astream.Write("<input type=""submit"" value=""Save""").Write(CRLF)
astream.Write("</form>").Write(CRLF)
astream.Write("</div>").Write(CRLF)
Log(2)
EndResponse
Else If bc.IndexOf(Buffer, " / ") <> -1 Then
'Home page
Log("Home Page")
BeginOKResponse
astream.Write("home page").Write(CRLF)
EndResponse
Else
'Page not found
Log("No Page")
astream.Write("HTTP/1.1 404").Write(CRLF)
End If
CallSubPlus("CloseConnection", 200, 0)
End If
End SubWhen the above code is run, I get the following in the log.
So, the interesting part is, there are 7 networks detected but the device craps out after looping 2 (sometimes 3 or 4)
If I comment out the astream.write() in the For loop and just watch the logs I get:
So, this time it finds 6 (number 7 is very weak and sometimes shows, sometimes not) and it loops through all 6 (Logs the name). But still craps out.
Any clues?