Sub Process_Globals
Public Serial1 As Serial
Private wifi As ESP8266WiFi
Private server As WiFiServerSocket
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
RunNative( "SetIP" , Null )
If wifi.Connect2 ("","") Then
Log(wifi.LocalIp )
Else
Log("error")
End If
server.Initialize(48569, "server_NewConnection")
server.Listen
End Sub
Sub Server_NewConnection (NewSocket As WiFiSocket)
Log("Client connected")
Private astream As AsyncStreams
astream.Initialize(NewSocket.Stream, "astream_NewData", "astream_Error")
server.Listen
End Sub
Sub AStream_NewData (Buffer() As Byte)
Dim a As ByteConverter
Dim data As String= a.StringFromBytes(Buffer)
Log(data)
End Sub
Sub AStream_Error
Log("Error")
server.Listen
End Sub
#if C
void SetIP(B4R::Object* o) {
IPAddress ip(192, 168, 1, 55); // (Replace xxx with desired IP)
IPAddress gateway(192, 168, 1, 1);
IPAddress subnet(255, 255, 255, 0);
WiFi.config(ip, gateway, subnet);
}
#end if