Android Question [ OkHttpUtils2 ] Bug on HttpJob Header ?

[Waldemar Lima]

hello all !

I'm trying to make a request to an API using httpjob and I'm having an "unknown" error, see the clues below :

    Dim j As HttpJob
    j.Initialize("", Me)
    j.PostString("https://pay.api","")  'the request parameter is empty as it has no importance in this case as the errors are about the headers ...
    ' ######
    ' if I comment out the 2 lines below that are setting headers, I get a "coherent" result
    ' result : ResponseError. Reason: Forbidden, Response: {"HasError":true,"ErrorCode":"403","Error":"It was not possible to authenticate with the informed parameters."}
    ' if I uncomment the headers, I get an "unknown" error from the API
    ' result : ResponseError. Reason: Bad Request, Response: {"HasError":true,"ErrorCode":"999","Error":"An uncataloged error has occurred. ","RequestId":"d2xx-xxx-xxxx-xxxxx-xxxxx"}
    ' ######
'    j.GetRequest.SetHeader("X-API-KEY", "XXXXXXXXXXXXXXXXXXXXXXXXXXX")
'    j.GetRequest.SetHeader("content-type", "application/json")
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Log(j.GetString)
    End If
    j.Release

with the same information I put in postman , am I doing something wrong ?

 

[mcqueccu]

It can also be that you are not sending the parameters in the correct order or format. Are you sending them as json?

In postman, click Code and choose java HTTP or curl and post the resulting code here.
We can be able to use that to help.

 

[Erel]

The content type should be set with j.GetRequest.SetContentType.

 

[Waldemar Lima]

I talked to the support people, and they say that my request is not arriving in "JSON", and they sent this log:

HTTP/1.1 200
Date: Wed, 16 Jun 2021 14:38:39 GMT

my code :

'Handler class
Sub Class_Globals
    
    Private Json As String
    
End Sub

Public Sub Initialize
    
End Sub

Sub Handle(req As ServletRequest, resp As ServletResponse)

    Log("Initializing Request")

    Json = resp.Write(File.ReadString(File.DirAssets,"request.json"))
    
    Dim data() As Byte
    data = Json.GetBytes("UTF8")
    
    Dim j As HttpJob
    j.Initialize("", Me)
    j.PostBytes("https://api.pagseguro.com.br/v2/Payment",data)
    j.GetRequest.SetContentType("application/json")
    j.GetRequest.SetHeader("X-API-KEY", "XXXXXXXXXXXXXXXXXXXXXXXX")
    Wait For (j) JobDone(j As HttpJob)

    If j.Success Then
        Log("response : "&j.GetString)
    End If
    j.Release
    
End Sub

 

[aeric]

I talked to the support people, and they say that my request is not arriving in "JSON", and they sent this log:

HTTP/1.1 200
Date: Wed, 16 Jun 2021 14:38:39 GMT

my code :

'Handler class
Sub Class_Globals
   
    Private Json As String
   
End Sub

Public Sub Initialize
   
End Sub

Sub Handle(req As ServletRequest, resp As ServletResponse)

    Log("Initializing Request")

    Json = resp.Write(File.ReadString(File.DirAssets,"request.json"))
   
    Dim data() As Byte
    data = Json.GetBytes("UTF8")
   
    Dim j As HttpJob
    j.Initialize("", Me)
    j.PostBytes("https://api.pagseguro.com.br/v2/Payment",data)
    j.GetRequest.SetContentType("application/json")
    j.GetRequest.SetHeader("X-API-KEY", "XXXXXXXXXXXXXXXXXXXXXXXX")
    Wait For (j) JobDone(j As HttpJob)

    If j.Success Then
        Log("response : "&j.GetString)
    End If
    j.Release
   
End Sub

1. Why you use resp.Write ?
I think you can read the json file to json variable by using File.ReadString
2. Why you change job.PostString to job.PostBytes ?

 

[mcqueccu]

Is your request.json a properly formed json file?

Know you can build json string with json library

 

[Waldemar Lima]

fixed, ended up going unnoticed by me on this line >

  Json = resp.Write(File.ReadString(File.DirAssets,"request.json"))

' I removed "resp.Write()" and fixed !!!
' it was lack of attention on my part

working code :

'Handler class
Sub Class_Globals
   
    Private Json As String
   
End Sub

Public Sub Initialize
   
End Sub

Sub Handle(req As ServletRequest, resp As ServletResponse)

    Json = File.ReadString(File.DirAssets,"request.json")

   
    Download(resp)
    StartMessageLoop '<---

End Sub

Sub Download (resp As ServletResponse)

    Dim j As HttpJob
    j.Initialize("", Me)
    j.PostString("https://api.pagseguro.com.br/v2/Payment",Json)
    j.GetRequest.SetContentType("application/json")
    j.GetRequest.SetHeader("X-API-KEY", "XXXXXXXXXXXXXXXXXXXXXXXXX")
    Wait For (j) JobDone(j As HttpJob)
   
    If j.Success Then
        Log("resposta : "&j.GetString)
    End If

    j.Release

   StopMessageLoop '<----
End Sub

thank you all for your attention