Android Question http SQL

oparra said:

the 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...

www.b4x.com

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(""...

www.b4x.com

Click to expand...

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

j.Download("http://" & IP & "/wp-json/posts?" & filter)

Click to expand...

j.PostString("http://" & IP & "/wp-json, filter)
j.GetRequest.SetHeader("Content-Type","application/json")

Click to expand...

catyinwong said:

j.Download("http://" & IP & "/wp-json/posts?" & filter)

Click to expand...