Android Tutorial HttpUtils2 - Web services are now even simpler

Sub JobDone (Job AsHttpJob)
 
  Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
 
  If Job.Success = TrueThen
 
      Select Job.JobName
 
        Case"Job1"
 
            'print the result to the logs
 
            status = Job.GetString
 
      EndSelect
 
  Else
 
      Log("Error: " & Job.ErrorMessage)
 
      ToastMessageShow("Error: " & Job.ErrorMessage, True)
 
  EndIf
 
  Job.Release
 
End Sub
 
 
Sub light1_Click
 
  job1.poststring("http://192.168.1.152:5000/light1on")
 
  Label3.Text = status
 
End Sub

#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.

End Sub

Sub Activity_Create(FirstTime As Boolean)
      Dim job1 As HttpJob
  Activity.LoadLayout("Layout1")
  job1.Initialize("Job1", Me)
  job1.Download2("http://192.168.1.5/api/newdeveloper/", _
      Array As String("first key", "first value :)", "second key", "value 2"))
'http://192.168.1.5/api/newdeveloper/lights
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

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

job1.Download("http://192.168.1.5/api/newdeveloper/lights/1")

Dim aan As String
  Dim lampstatus As String = "true"
  aan = "{""on"": " & lampstatus & "}"
  If Job.Success = True Then
      ToastMessageShow(Job.GetString,True)
Job.PostString("http://192.168.1.5/api/newdeveloper/lights/2/state", aan )

'Returns the response as a string.
Public Sub GetString2(Encoding As String) As String
    Dim tr As TextReader,res As String
    If File.Exists(HttpUtils2Service.TempFolder, taskId) Then
        tr.Initialize2(File.OpenInput(HttpUtils2Service.TempFolder, taskId), Encoding)
        res = tr.ReadAll
        tr.Close
    Else
        Log("CACHE FILE MISSING")
    End If
    Return res
End Sub

'Add dim URL As String to Class_Globals

'Submits a HTTP GET request.
'Consider using Download2 if the parameters should be escaped.
Public Sub Download(Link As String)
    req.InitializeGet(FilterURL(Link))
    CallSubDelayed2(HttpUtils2Service, "SubmitJob", Me)
End Sub

Private Sub FilterURL(Link As String) As String
    URL = link.Replace(" ", "%20").Replace(",", "%2C")
    Return URL
End Sub

'Submits a HTTP GET request.
'Encodes illegal parameter characters.
'<code>Example:
'job.Download2("http://www.example.com", _
'    Array As String("key1", "value1", "key2", "value2"))</code>
Public Sub Download2(Link As String, Parameters() As String)
    Dim sb As StringBuilder
    sb.Initialize
    sb.Append(FilterURL(Link))
    If Parameters.Length > 0 Then sb.Append("?")
    Dim su As StringUtils
    For i = 0 To Parameters.Length - 1 Step 2
        If i > 0 Then sb.Append("&")
        sb.Append(su.EncodeUrl(Parameters(i), "UTF8")).Append("=")
        sb.Append(su.EncodeUrl(Parameters(i + 1), "UTF8"))
    Next
    req.InitializeGet(sb.ToString)
    CallSubDelayed2(HttpUtils2Service, "SubmitJob", Me)       
End Sub

  'Send a POST request
   job2.Initialize("Job2", Me)
   job2.PostString("http://www.google.com", "first key=first value&key2=value2")

    job1.Initialize("Job1", Me)
    job1.Download2("http://southafricanweather.mobi", _
    Array As String("first key", "first value", "second key", "second value"))
    job2.Initialize("Job2", Me) 
    job2.Download2("http://southafricanweather.mobi/city.aspx?province=Eastern%20Cape", _
    Array As String("first key", "first value", "second key", "second value"))
    job3.Initialize("Job3", Me)
    job3.Download2("http://southafricanweather.mobi/weather.aspx?city=Algoapark&province=Eastern%20Cape", _
    Array As String("first key", "first value", "second key", "second value"))

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
 
Dim hc As HttpClient
Dim req As HttpRequest
Dim In As InputStream
 
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 Button1 As Button
Dim edtgeo As EditText
 
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
'    If FirstTime Then
'    End If
    Activity.LoadLayout("1")
    hc.Initialize("hc")
 
End Sub
 
Sub Activity_Resume
 
End Sub
 
Sub Activity_Pause (UserClosed As Boolean)
 
End Sub
Sub Button1_Click
 
    Dim townpath As String
    edtgeo.Text = ""
    townpath = "http://southafricanweather.mobi/city.aspx?province=Eastern%20Cape"
    req.InitializeGet(townpath)
    hc.Execute(req, 1)
   
End Sub
Sub hc_ResponseSuccess(Response As HttpResponse, TaskId As Int)
    Response.GetAsynchronously("StrmResponse",File.OpenOutput(File.DirDefaultExternal, "Tempjhs.xml", False), True, TaskId)
End Sub
Sub hc_ResponseError(Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
    If Response <> Null Then
      Msgbox("Connection Error", "")
      Response.Release
    End If
End Sub
Sub StrmResponse_StreamFinish(Success As Boolean, TaskId As Int)
 
    In = File.OpenInput(File.DirDefaultExternal, "Tempjhs.xml")
    edtgeo.Text= File.ReadString(File.DirDefaultExternal, "Tempjhs.xml")
    In.Close
 
End Sub

Array As String("province", "Eastern Cape", ...)