B4J Question HttpJob API help

imbault

Well-Known Member
Licensed User
Longtime User
Hi,

I'm trying to get this API throught b4j :

https://developer.safetyculture.io/?shell#search-audits

My code is :

B4X:
    Dim j As HttpJob
   
    Dim lastSuccessful = "2015-01-01T00:00:00.000Z" As String
    Dim search_url = "?field=audit_id&field=modified_at&template=" & template_id & "&modified_after=" & lastSuccessful As String

    Dim api_token = "1580562d13c5b96710a640c07e60b1d74637b333f0ec96a21100049e1fc68235" As String

    Dim  audits_url = "https://api.safetyculture.io/audits/search" As String

    Dim template_id = "template_f78380769fbd45b0b68d07a33df297b3" As String


   
    j.Initialize("jobDone",Me)
    j.PostString(audits_url , search_url)
    j.GetRequest.SetHeader("Content-Type", "application/json; charset=utf-8")
    J.GetRequest.SetHeader("Authorization:", "Bearer " & api_token )

Sub JobDone (job1 As HttpJob)
    Dim resultJSON As String
    Log("jobName " &  job1.JobName) 
    Log("jobsucess " & job1.Success )
    resultJSON = job1.GetString
    Log ("JSON " & resultJSON)

    job1.Release
End Sub
I'm always receive {"statusCode":404,"error":"Not Found"}

Help please....
 

billzhan

Active Member
Licensed User
Longtime User
Try this:
B4X:
Sub req

    Dim j As HttpJob
' define template_id before use it
    Dim template_id = "template_f78380769fbd45b0b68d07a33df297b3" As String
    Dim lastSuccessful = "2015-01-01T00:00:00.000Z" As String
    Dim search_url = "?field=audit_id&field=modified_at&template=" & template_id & "&modified_after=" & lastSuccessful As String

    Dim api_token = "1580562d13c5b96710a640c07e60b1d74637b333f0ec96a21100049e1fc68235" As String
    Dim  audits_url = "https://api.safetyculture.io/audits/search" As String

   'HTTP GET request  ; safer to use j.Download2
    j.Initialize("",Me)
    j.Download(audits_url&search_url)
    j.GetRequest.SetHeader("Authorization", "Bearer " & api_token )
      
    'j.PostString(audits_url , search_url)
    'j.GetRequest.SetHeader("Content-Type", "application/json; charset=utf-8")   
    'j.GetRequest.SetHeader("Authorization:", "Bearer " & api_token )

End Sub

Sub JobDone (job1 As HttpJob)
    Dim resultJSON As String
    Log("jobName " &  job1.JobName)
    Log("jobsucess " & job1.Success )
    resultJSON = job1.GetString
    Log ("JSON " & resultJSON)

    job1.Release
End Sub
 
Upvote 0
Top