French Serveur http

[SIMONEAU]

Bonjour,
Je débute en B4A. Et je voudrais créer un petit serveur pour récupérer des données envoyées par des IOT avec des requêtes HTTP de type post.
Pouvez-vous me communiquer quelques exemples qui pourrait illustrer la démarche à suivre.
Merci.

 

[Quandalle]

Cela peut se faire avec B4J + module JSERVER (serveur Web Jetty)
Divers exemples d'utilisation existent sur le forum comme par exemple : https://www.b4x.com/android/forum/threads/webapp-web-apps-overview.39811/#content

Dans votre cas un module simple de traitement d'une requête HTTP Post, envoyant un structure JSON pourrait être quelquechose comme le code suivant

[CODE lang="b4x" title="Exemple B4J+ JSERVER"]' Module main

Sub Process_Globals
Public srvr As Server
End Sub

Sub AppStart (Args() As String)

srvr.Initialize("srvr")
srvr.AddHandler("/traiter", "traiterIOT",False)
srvr.Start
StartMessageLoop

End Sub




'Module de classe Server Handler : traiterIOT

Sub Class_Globals

End Sub

Public Sub Initialize
End Sub

Sub Handle(req As ServletRequest, resp As ServletResponse)

' exemple récupération de 3 paramètres du post passés dans une structure JSON
Dim jp As JSONParser
Dim data() As Byte = Bit.InputStreamToBytes(req.InputStream)
jp.Initialize(BytesToString(data, 0, data.Length, "UTF8"))
Dim json As Map = jp.NextObject
Dim optionsearch As Boolean = json.Get("optionsearch")
Dim language As String = json.Get("language")
Dim distance As Int = json.Get("distance")


' traiter la requête



' exemple de retour de la requête
resp.contentType = "text/plain"
resp.Write("ok")
End sub [/CODE]