www.b4x.com
www.b4x.com
Sub Server_HandleRequest (Request As ServletRequest, Response As ServletResponse)
Try
Log("Client: " & Request.RemoteAddress & ", Request: " & Request.RequestURI)
Dim page As String = GetTemplate("template.html")
Response.SetContentType("text/html")
Dim query As String = Request.GetParameter("query")
If query <> "" Then 'a query has been sent
page = page.Replace("$QUERY$", query)
Dim table As String
Try
table = DBUtils.ExecuteHtml(SQL, query, Null, 200, False)
Catch
table = LastException.Message 'There might be an error in the query.
End Try
page = page.Replace("$TABLE$", table)
Else
page = page.Replace("$QUERY$", "SELECT * FROM Students")
page = page.Replace("$TABLE$", "")
End If
Response.SendString(page)
Catch
Response.Status = 500
Log("Error serving request: " & LastException)
Response.SendString("Error serving request: " & LastException)
End Try
End Subthe client app can connect with the server device? Yes
Can we do that with JdbcSQL? No
what should the driver type and connection string be?
Only via web API returning Json data (GET and POST)
see example:
Embed an Http Server in your Android Application
The HttpServer library is a new library, based on an open source project named Jetty. This library allows you to easily embed an Http server in your application. Http server means that you can point a browser to the device IP address (and relevant port) and communicate with your app. It can be...
Modify Response:
Response.SendString(page)
page = Html to Data Json
B4X:Sub 8 (Request As ServletRequest, Response As ServletResponse) Try Log("Client: " & Request.RemoteAddress & ", Request: " & Request.RequestURI) Dim page As String = GetTemplate("template.html") Response.SetContentType("text/html") Dim query As String = Request.GetParameter("query") If query <> "" Then 'a query has been sent page = page.Replace("$QUERY$", query) Dim table As String Try table = DBUtils.ExecuteHtml(SQL, query, Null, 200, False) Catch table = LastException.Message 'There might be an error in the query. End Try page = page.Replace("$TABLE$", table) Else page = page.Replace("$QUERY$", "SELECT * FROM Students") page = page.Replace("$TABLE$", "") End If Response.SendString(page) Catch Response.Status = 500 Log("Error serving request: " & LastException) Response.SendString("Error serving request: " & LastException) End Try End Sub
Use APP client:
[B4X] OkHttpUtils2 with Wait For
Downloading resources is simpler with the new Resumable Subs feature. Using Wait For we can wait for the JobDone event in the same sub that started the download. No longer is it needed to have a single sub that handles all requests results. Simplest example: Dim j As HttpJob j.Initialize(""...
Sub DownloadQuote
Dim j As HttpJob j.Initialize("", Me) 'name is empty as it is no longer needed
Dim filter as string = "select * from table"
Dim IP as string = "xxx.xxx.xxx.x"
j.Download("http://" & IP & "/wp-json/posts?" & filter)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then 'The result is a json string. We parse it and log the fields.
Dim jp As JSONParser jp.Initialize(j.GetString) Dim quotes As List = jp.NextArray
For Each quot As Map In quotes Log("Title: " & quot.Get("title")) Log("Content: " & quot.Get("content")) Next
End If
j.Release
End Sub
I assume you are using wordpress. According to wordpress REST API Handbook, the link to get the json of post is:
