B4i Library [class] HttpUtils2

HttpUtils.CallbackActivity = "Main"
HttpUtils.CallbackJobDoneSub = "DDVerDone"
HttpUtils.Download("JobV", DD_Version)

Sub DDVerDONE (Job As String)
    ShowLoading
  
    Dim DDVerString As InputStream
    If HttpUtils.IsSuccess(DD_Version) Then
        'Msgbox("Version Downloaded", "Version")
        DDVerString = HttpUtils.GetInputStream(DD_Version)
        DDData.ExecNonQuery("CREATE TABLE IF NOT EXISTS DDVersion (Version TEXT)")
        DDVParser.Parse(DDVerString, "VerParser")
    Else
        'Msgbox("Could not get version","VerUpdate")
        HideLoading
    End If
  
End Sub

Sub JobDone (Job As HttpJob)
    Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
    If Job.Success = True Then
        Select Job.JobName
            Case "Job1", "Job2"
                'print the result to the logs
                Log(Job.GetString2("Windows-1252"))
            Case "Job3"
                'show the downloaded image
                ImageView1.Bitmap = Job.GetBitmap
        End Select
    Else
        Log("Error: " & Job.ErrorMessage)
        hd.ToastMessageShow("Error: " & Job.ErrorMessage, True)
    End If
    Job.Release
End Sub