Send a PUT request with HttpUtils2

[avalle]

Hello,
I'm struggling with using the HttpUtils2 classes to send an HTTP PUT request.
I don't see a PutString method to use like in the following:

Dim job1 As HttpJob
job1.Initialize("UpdateData", Me)
job1.PutString("http://myurl", "MyData")

Can anyone help? :BangHead:

Thanks
Andrea

 

[Erel]

You can add these two methods to HttpJob:

Public Sub PutString(Link As String, Text As String)
   PutBytes(Link, Text.GetBytes("UTF8"))
End Sub

Public Sub PutBytes(Link As String, Data() As Byte)
   mLink = Link
   req.InitializePut2(Link, Data)
   CallSubDelayed2(HttpUtils2Service, "SubmitJob", Me)
End Sub

 

[avalle]

Thanks Erel,
actually I had just found an old reply in the very long HttpUtils2 thread where you suggested the same solution:
http://www.b4x.com/forum/basic4android-getting-started-tutorials/18992-httputils2-web-services-now-even-simpler-11.html#post125674

Sorry, but it was not easy to find by searching a thread with more than 200 messages...

Here's my contribution: an updated HttpJab.bas file (v.2.0.1) for those who are interested in the same additional functions.

Regards
Andrea

 

[Erel]

Sorry, but it was not easy to find by searching a thread with more than 200 messages...

I agree. This is why I usually ask posters to start a new thread for their question.

 

[appie21]

Hello I am interesting in this

Can you upload the complete zip file?

 

[avalle]

Grab the HTTP2utils library from post #1 in this thread:
http://www.b4x.com/android/forum/threads/httputils2-web-services-are-now-even-simpler.18992/

You can use the Flicker sample from the same post as a starting point. If you need the PUT function in your code just take the HttpJob.bas file modified by me as per post #3 above, and replace the file with the same filename in your project.

Looking at your other thread on Philips Hue lights control, the call you need to set your light state using PUT would look like this:

Sub Activity_Create(FirstTime As Boolean)
    Dim job1 As HttpJob

    'Send a PUT request to set light state
    job1.Initialize("SetLightState", Me)
    job1.PutString("http://192.168.1.5/api/newdeveloper/lights/2/state", "...your JSON string...")
   
End Sub

Hope it helps, regards
Andrea

 

[appie21]

Hithanks but job1.putstring isa unknown member

how to do

I have

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim job1 As HttpJob
    Dim req As HttpRequest
    Dim Button1 As Button
    Dim aan As String
    Dim url As String
    aan = "{""on"": ""true""}"
    url  = "http://192.168.1.42/api/newdeveloper/lights/2/state"
    Dim mLink As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout1")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Public Sub PutString(Link As String, Text As String)
  PutBytes(Link, Text.GetBytes("UTF8"))
End Sub

Public Sub PutBytes(Link As String, Data() As Byte)
  mLink = Link
  req.InitializePut2(Link, Data)
  CallSubDelayed2(HttpUtils2Service, "SubmitJob", Me)
End Sub


Sub Button1_Click

    'Send a PUT request to set light state
    job1.Initialize("SetLightState", Me)
      job1.PutString("http://192.168.1.41/api/newdeveloper/lights/2/state", "{""on"": ""true""}")
End Sub
Sub JobDone (Job As HttpJob)
  Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
  If Job.Success = True Then
 
  Else
      Log("Error: " & Job.ErrorMessage)
      ToastMessageShow("Error: " & Job.ErrorMessage, True)
  End If
  Job.Release
End Sub

 

[avalle]

Hithanks but job1.putstring isa unknown member

how to do

As I said, you have to add the modified HttpJob.bas source to your project.
It contains the definition of pustring method.
Get it from post #3 in this thread.

 

[appie21]

i have do that can you helpme by skype and teamviewer

 

[appie21]

by button1 click eveni have remov job1. and it works
(but my app stopped)
but in your code you talk about
mLink = Link
but what is mlink do/?

It looks like you module is not loaded i have add it but it not working must i put a extra line in my code to load your module too?

I have add my project

 

[appie21]

double postng?

 

[appie21]

Nobody?

 

[Erel]

Please start a new thread for your question and explain exactly what you did and what is the problem.