B4R Question ESP8266 - reading JSON from PHP on the web

[petr4ppc]

Dear friends,

please, I can read JSON output from PHP on the web with ESP8266?

my first step is :
trying standard way as in B4J, but I see that it is not good way because of library...it strue?

Sub Go
    Dim req As HttpRequest
    req.InitializeGet("http://xxxx.xxx/yyyy/zzzz.php?" & "id=" & id)
    httpC.Execute(req,1)
End Sub

Sub httpC_ResponseSuccess (Response As HttpResponse, TaskId As Int)
 If Taskid=1 then
  'here I will work with JSON
        Dim result As String
        Dim JSON As JSONParser
        Dim restOpen As Int
        result = Response.GetString("UTF8")
 End if
End Sub

Please for advice what is the best direction for working with PHP json output in ESP8266
Best regards
p4ppc

 

[Erel]

This is bad code. Don't use it in B4J. Use jOkHttpUtils2 instead.

You need to learn how to use rHttpUtils in B4R and then parse the result with the code I previously referred you to.

 

[petr4ppc]

I go to learn how to work with jOkHttpUtils2 in B4R and in B4J I will rework my project step by step,
thank you Erel,
Best regards
p4ppc

 

[petr4ppc]

Dear friends,

with this

bc.SubString2(Job.Response, 0, Min(200, Job.Response.Length))

I get in logs JSON output from php file, I get this:

[{"id":"1","yesno":"0","text":"Something"}]

I am reading this: https://www.b4x.com/android/forum/threads/strings-and-bytes.66729/#content

but please I am doing some mistake:

Sub JobDone (Job As JobResult)
  Dim bc As ByteConverter
  Log("Response: ", bc.SubString2(Job.Response, 0, Min(200, Job.Response.Length))) 'truncate to 200 characters
 
 Dim jsontext() As Byte
 jsontext()=bc.SubString2(Job.Response, 0, Min(200, Job.Response.Length))

this is wrong declaration I know,
but how can I solve the row:

jsontext()=bc.SubString2(Job.Response, 0, Min(200, Job.Response.Length))

Thank you
p4ppc

 

[Erel]

It is actually correct. Which problem have you encountered?

 

[petr4ppc]

I have error message (over mouse cursor) : Missing parameter.

Here:

jsontext()=bc.SubString2(Job.Response, 0, Min(200, Job.Response.Length))

Error:

jsontext()=bc.SubString2(Job.Response,0,Min(200,Job.Response.Length))
Word: (

Please for advice,
thank you,
p4ppc

 

[Erel]

Dim jsontext() As Byte = bc.SubString2(Job.Response,0,Min(200,Job.Response.Length))

Or:

Dim jsontext() As Byte
jsontext = bc.SubString2(Job.Response, 0, Min(200, Job.Response.Length))

 

[petr4ppc]

Thank you very much,

it was my mistake, because in my tests I rewrite

Dim jsontext() As Byte

to

Private jsontext() As Byte

and this give me mistake,

Thank you very much
Best regards
p4ppc