Android Tutorial HttpUtils2 - Web services are now even simpler

Dim job1 As HttpJob
           job1.Initialize("MyJobName",Me)
      job1.download("http://someurl")
      job1.GetRequest

job1.GetRequest.Timeout=3000

CancelScheduledService(HttpUtils2Service)

Sub HC_ResponseSuccess (Response As HttpResponse, TaskId As Int)

Response.GetAsynchronously("Response", File.OpenOutput(File.DirInternalCache, "temp.txt", False), True, TaskId)
End Sub

Sub Response_StreamFinish (Success As Boolean, TaskId As Int)
   If Success Then
   'open it from the temp file
   reader.Initialize(File.OpenInput(File.DirInternalCache, "temp.txt"))
 lvoutput.Clear ' clear the listview reay for the new data
'readlist returns data as a list, so i pass it to a list and then extract the data out in a loop   
   Dim List1 As List 'make a list, and pass the data to it
    List1 = reader.ReadList
   reader.Close 'close the reader

Sub btncallDB_Click
Dim getall As String

getall = "http://dsed.visioncollege.ac.nz/Gary_netdb.php?action=getall"
   
NetDBdownload.Download(getall)
   
ProgressDialogShow("Fetching all data...")
End Sub
'success data comes back stick it in a temp file and pull it out below

Sub JobDone (job As HttpJob)
'this runs when your job has been done, the data all comes back through this common sub. 
   Log("JobName = " & job.JobName & ", Success = " & job.Success)
   If job.Success = True Then 'If the job comes down
      
     Select job.JobName 'get the name of the job AND choose it from the Select statement below
            
         Case "DBGetall"
'pass the data To the Sub below

ProgressDialogShow("Now downloading ...")   
Dim out As OutputStream
out = File.OpenOutput(File.DirInternal,"getall.txt",False )
File.Copy2(job.GetInputStream, out)
out.Close
      End Select
   Else
      Log("Error: " & job.ErrorMessage)
      ToastMessageShow("Error: " & job.ErrorMessage, True)
      ProgressDialogHide
      End If
   job.Release
End Sub

Sub JobDone (Job As HttpJob)
    Dim TempStr As String
    Dim TempImg As Bitmap
    Dim Out As OutputStream
    TempImg.InitializeMutable(200, 200)
    If Job.Success = True Then
        Select Job.JobName
            Case "summary"
                'Save file to DirDefaultExternal
                File.WriteString(PathN, "summary.txt", Job.GetString)
            Case "0", "1", "2", "3"
                TempImg = Job.GetBitmap
                Out = File.OpenOutput(PathN, FName, False)
                TempImg.WriteToStream(Out, 100, "JPEG")
                Out.Close
        End Select
    Else
        ToastMessageShow("Error: " & Job.ErrorMessage, True)
    End If
    Job.Release
End Sub