B4J Question jOKHTTPUtils2 Is Not Working

[Ganiadi]

Dear All,

I Used below Http POST with JSON works fine in B4A, but when change to B4j it's not working for JSON, and it always threat like text and the result is in HTML format not in JSON like in B4A
Below is the code

    Dim HTTPTask As HttpJob   
    HTTPTask.Initialize("HTTPTask", Me)
    HTTPTask.PostString("https://xxxxx", cJSONSTR)
    HTTPTask.GetRequest.SetContentType("application/json")
    wait for (HTTPTask) JobDone(HTTPTask As HttpJob)
    
    If HTTPTask.Success Then
        Json.Initialize(HTTPTask.GetString)
        Log(HTTPTask.GetString)
    End If
    HTTPTask.Release

Please help


Tks

 

[Erel]

This code is correct. The problem is somewhere else.

 

[Ganiadi]

This code is correct. The problem is somewhere else.

Hi Erel, Tks for your reply,

After trying and spent many times it's wotrking now by just adding HTTPTask.GetRequest.SetHeader("Accept","application/json")

    Dim HTTPTask As HttpJob

    HTTPTask.Initialize("HTTPTask", Me)
    HTTPTask.PostString("https://xxxx", cJSONSTR)
    HTTPTask.GetRequest.SetContentType("application/json")
    HTTPTask.GetRequest.SetHeader("Accept","application/json")
    wait for (HTTPTask) JobDone(HTTPTask As HttpJob)
    
    If HTTPTask.Success Then
        Json.Initialize(HTTPTask.GetString)
        log(HTTPTask.GetString)

    End If
    HTTPTask.Release

Tks All