Android Question Download PDF

ub Process_Globals
End Sub

Sub Globals
    Dim Button2 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("InstallerUserQuick")
    Activity.Title = "D8"
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    StartActivity("D8Quick")
End Sub
Sub Button2_Click
    Dim job As HttpJob
    job.Initialize("j", Me)
    job.Download("http://www.k2mdev.com.au/ness/PDF/D8_installer_manual_rev4.7.pdf")
End Sub
Sub JobDone(job As HttpJob)
  If job.Success Then
    Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "D8Installerguide.pdf", False)
    File.Copy2(job.GetInputStream, out)
    out.Close '<------ very important
  Else
    Log("Error: " & job.ErrorMessage)
  End If
  job.Release
End Sub

Sub Button2_Click
    Dim job As HttpJob
    job.Initialize("j", Me)
    job.Download("http://www.k2mdev.com.au/ness/PDF/D8_installer_manual_rev4.7.pdf")
End Sub
Sub JobDone(job As HttpJob)
  If job.Success Then
    Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "D8Installerguide.pdf", False)
    File.Copy2(job.GetInputStream, out)
    out.Close
  Else
    Log("Error: " & job.ErrorMessage)
  End If
  job.Release
End Sub

Sub Process_Globals
    Private ph As Phone
    Dim DownloadId As Long
End Sub

Sub Globals
    Dim DOWNLOAD_ADDRESS As String="http://www.k2mdev.com.au/ness/PDF/D8_installer_manual_rev4.7.pdf"
    Dim DOWNLOAD_FILENAME As String="D8InstallerGuide.pdf"
    Dim Button2 As Button
    Dim DownloadManager1 As DownloadManager
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("InstallerUserQuick")
    Activity.Title = "D8"
    DownloadManager1.RegisterReceiver("DownloadManager1")
    If Utils.IsInitialized=False Then
      Utils.Initialize(DownloadManager1)
      End If
End Sub

Sub Activity_Resume
    ph.SetScreenOrientation(1)
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button2_Click
Dim DownloadManagerRequest1 As DownloadManagerRequest
      DownloadManagerRequest1.Initialize(DOWNLOAD_ADDRESS)
      DownloadManagerRequest1.Description="D8_installer Demo"
      DownloadManagerRequest1.DestinationUri="file://"&File.Combine(File.DirRootExternal, DOWNLOAD_FILENAME)
      DownloadManagerRequest1.Title=DOWNLOAD_FILENAME
      DownloadManagerRequest1.VisibleInDownloadsUi=True
 
  DownloadId=DownloadManager1.Enqueue(DownloadManagerRequest1)
End Sub
Sub DownloadManager1_DownloadComplete(DownloadId1 As Long)
  If DownloadId=DownloadId1 Then
      Dim DownloadManagerQuery1 As DownloadManagerQuery
      DownloadManagerQuery1.Initialize
      DownloadManagerQuery1.SetFilterById(DownloadId)
     
      Dim StatusCursor As Cursor
      StatusCursor=DownloadManager1.Query(DownloadManagerQuery1)
      If StatusCursor.RowCount>0 Then
        StatusCursor.Position=0 
       
        Dim StatusInt As Int
        StatusInt=StatusCursor.getInt(DownloadManager1.COLUMN_STATUS)
        Log("Download Status = "&Utils.GetStatusText(StatusInt))

        If StatusInt=DownloadManager1.STATUS_FAILED OR StatusInt=DownloadManager1.STATUS_PAUSED Then
            Dim ReasonInt As Int
            ReasonInt=StatusCursor.GetInt(DownloadManager1.COLUMN_REASON)
            Log("Status Reason = "&Utils.GetReasonText(ReasonInt))
        End If
       
        If StatusInt=DownloadManager1.STATUS_SUCCESSFUL Then
            Dim intent1 As Intent
            intent1.Initialize(intent1.ACTION_VIEW, DOWNLOAD_FILENAME)
            intent1.SetType("application/pdf")
            intent1.WrapAsIntentChooser("Choose PDF Viewer")
            StartActivity(intent1)
        End If
       
      Else
        Log("The DownloadManager has no trace of our request, it could have been cancelled by the user using the Android Downloads app or an unknown error has occurred.")
      End If
     
      StatusCursor.Close
      StopService("")
  End If
End Sub

intent1.Initialize(intent1.ACTION_VIEW, DOWNLOAD_FILENAME)

intent1.Initialize(intent1.ACTION_VIEW, "file://"&File.Combine(File.DirRootExternal, DOWNLOAD_FILENAME))