Android Question Curl command to B4A Code

[mike1967]

Hello, Can someone translate this curl command to b4a code:

curl --request POST \
  --url http://siteurl:8080/ \
  --header 'content-type: application/json' \
  --data '{
  "url": "template.pdf",
  "values": {
    "topmostSubform[0].Page1[0].f1_1[0]": "Foo Bar",
    "topmostSubform[0].Page1[0].f1_2[0]": "Baz LLC"
   
  }
}'

Thanks in advanced

 

[syyamoto89]

You can use with poststring and getrequest.setcontentype('application/json')

 

[aeric]

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    B4XPages.SetTitle(Me, "API Client")
    
    Dim values As Map
    values.Initialize
    values.Put("topmostSubform[0].Page1[0].f1_1[0]", "Foo Bar")
    values.Put("topmostSubform[0].Page1[0].f1_2[0]", "Baz LLC")
        
    Dim data As Map
    data.Initialize
    data.Put("url", "template.pdf")
    data.Put("values", values)
    
    CallAPI(data)
End Sub

Sub CallAPI (data As Map)
    Try
        Dim j As HttpJob
        j.Initialize("", Me)
        j.PostString("http://siteurl:8080", data.As(JSON).ToString)
        j.GetRequest.SetContentType("application/json")
        Wait For (j) JobDone(j As HttpJob)
        If j.Success Then
            Log(j.GetString)
        Else
            Log(j.ErrorMessage)
        End If
    Catch
        Log(LastException.Message)
    End Try
    j.Release
End Sub

[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

 

[mike1967]

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    B4XPages.SetTitle(Me, "API Client")
   
    Dim values As Map
    values.Initialize
    values.Put("topmostSubform[0].Page1[0].f1_1[0]", "Foo Bar")
    values.Put("topmostSubform[0].Page1[0].f1_2[0]", "Baz LLC")
       
    Dim data As Map
    data.Initialize
    data.Put("url", "template.pdf")
    data.Put("values", values)
   
    CallAPI(data)
End Sub

Sub CallAPI (data As Map)
    Try
        Dim j As HttpJob
        j.Initialize("", Me)
        j.PostString("http://siteurl:8080", data.As(JSON).ToString)
        j.GetRequest.SetContentType("application/json")
        Wait For (j) JobDone(j As HttpJob)
        If j.Success Then
            Log(j.GetString)
        Else
            Log(j.ErrorMessage)
        End If
    Catch
        Log(LastException.Message)
    End Try
    j.Release
End Sub

[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

Very Very Thanks,it's work fine. But the resulte of the request is a pdf files, how to save it to my phone ? Thanks in advances

 

[aeric]

Very Very Thanks,it's work fine. But the resulte of the request is a pdf files, how to save it to my phone ? Thanks in advances

   Wait For (j) JobDone(j As HttpJob)
   If j.Success Then
       Dim out As OutputStream = File.OpenOutput(File.DirInternal, "filename.pdf", False)
     File.Copy2(j.GetInputStream, out)
     out.Close '<------ very important
   End If
   j.Release

Taken from the tutorial. I expect you have read it.

[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

 

[mike1967]

   Wait For (j) JobDone(j As HttpJob)
   If j.Success Then
       Dim out As OutputStream = File.OpenOutput(File.DirInternal, "filename.pdf", False)
     File.Copy2(j.GetInputStream, out)
     out.Close '<------ very important
   End If
   j.Release

Taken from the tutorial. I expect you have read it.

[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

Thanks