Android Tutorial Download huge files with HttpUtils2

Better to use: https://www.b4x.com/android/forum/threads/simple-progress-http-download.127214/#post-796463

The attached project includes a slightly modified version of HttpUtils2 and a new service named DownloadService. The purpose of DownloadService is to make it simple to download files of any size.

It is very simple to use this service.

Start a download:

Sub btnDownload_Click
   Dim dd As DownloadData
   dd.url = link1 '<--- download link
   dd.EventName = "dd"
   dd.Target = Me
   CallSubDelayed2(DownloadService, "StartDownload", dd)
End Sub

Handle the events:

Sub dd_Progress(Progress As Long, Total As Long)
   ProgressBar1.Progress = Progress / Total * 100
   Label1.Text = NumberFormat(Progress / 1024, 0, 0) & "KB / " & _
      NumberFormat(Total / 1024, 0, 0) & "KB"
End Sub

Sub dd_Complete(Job As HttpJob)
   Log("Job completed: " & Job.Success)
   Job.Release
End Sub

Cancel a download:

Sub btnCancel_Click
   CallSubDelayed2(DownloadService, "CancelDownload", link1)
End Sub

DownloadService allows you to download multiple files at once and track the progress of each one of them.

The following libraries are required:
OkHttp
StringUtils
Phone (required in order to acquire a partial lock during the download)
RandomAccessFile

As this is a modified version of OkHttpUtils2 you should not reference OkHttpUtils2 library. You should instead add the three modules from the attached project. Note that the modified code is in Sub hc_ResponseSuccess.

 

[Erel]

It is not related to https. The total size is fetched from the content length header.

I guess that in this case the server doesn't return the correct value in this header.

 

[zeuspower]

ΟΚ,Thanks !

 

[Ricardo Bunschoten]

If i want to write the download file to a folder like the default folder Download in the internal or external memory ? is that possible instead of to the android data/app dir ?

And if so whats the exact code then ?

I have now this code and with the help of this topic it downloads the zipfile and saves it in the android data/application name folder

But i want it to be in the default Download dir of the internal memory or on a sd card and then in a specified folder

Second if i download like a apk file with this script is it also possible in B4a to execute that downloaded apk so it's been installed ?

#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
    Private link1 As String = "http://download.thinkbroadband.com/20MB.zip"
End Sub

Sub Globals
    Dim ProgressBar1 As ProgressBar
    Dim Label1 As Label
    Dim btnDownload As Button
    Dim btnCancel As Button
End Sub

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

Sub btnDownload_Click
    Dim dd As DownloadData
    dd.url = link1
    dd.EventName = "dd"
    dd.Target = Me
    CallSubDelayed2(DownloadService, "StartDownload", dd)
End Sub

Sub dd_Progress(Progress As Long, Total As Long)
    ProgressBar1.Progress = Progress / Total * 100
    Label1.Text = NumberFormat(Progress / 1024, 0, 0) & "KB / " & _
        NumberFormat(Total / 1024, 0, 0) & "KB"
End Sub

Sub dd_Complete(Job As HttpJob)
    Log("Job completed: " & Job.Success)

    Dim o As OutputStream
    o = File.OpenOutput(File.DirDefaultExternal, "20mb.zip", False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
    Job.Release
End Sub

Sub btnCancel_Click
    CallSubDelayed2(DownloadService, "CancelDownload", link1)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

[Erel]

Second if i download like a apk file with this script is it also possible in B4a to execute that downloaded apk so it's been installed ?

It is possible and there are several threads that explain how to do it. Start a new thread if you don't find them.

Your code will copy the file to DirDefaultExternal. What exactly do you want to change?

 

[Ricardo Bunschoten]

Thnx for the reply.

The code copiess/saves the file to android/data/applicationmamefolder/files/

I want the downloaded file to be saved somewhere else.

Android has a default folder named Download

I want the file to be saved in that Downloadfolder.

Standard that folder is located in internal sdcard/Download

 

[Erel]

The downloads folder is File.Combine(File.DirRootExternal, "Download").

Copying the file to this folder is simple. If you wan to save it directly to this folder then you will need to understand how HttpUtils2 works and modify it (or use HttpClient directly).

 

[Ricardo Bunschoten]

Thank you will see how that will work out.

Directly save is not needed copy is also good.

 

[Ricardo Bunschoten]

OK i managed to change the code so that the file is beeing downloaded to the internal folder Download
Not like you said but this also works

#Region  Project Attributes
    #ApplicationLabel: Veolo 4K Kodi Skin installer
    #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
    Private link1 As String = "https://copy.com/6R9j8KkEkocJTU3k/WINDOWS+XP.pdf"
End Sub

Sub Globals
    Dim ProgressBar1 As ProgressBar
    Dim Label1 As Label
    Dim btnDownload As Button
    Dim btnCancel As Button
End Sub

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

Sub btnDownload_Click
    Dim dd As DownloadData
    dd.url = link1
    dd.EventName = "dd"
    dd.Target = Me
    CallSubDelayed2(DownloadService, "StartDownload", dd)
End Sub

Sub dd_Progress(Progress As Long, Total As Long)
    ProgressBar1.Progress = Progress / Total * 100
    Label1.Text = NumberFormat(Progress / 1024, 0, 0) & "KB / " & _
        NumberFormat(Total / 1024, 0, 0) & "KB"
End Sub

Sub dd_Complete(Job As HttpJob)
    Log("Job completed: " & Job.Success)

    Dim o As OutputStream
    o = File.OpenOutput(File.dirrootExternal, "Download/Windowsxp.pdf", False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
    Job.Release
End Sub

Sub btnCancel_Click
    CallSubDelayed2(DownloadService, "CancelDownload", link1)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

The part

     Dim o As OutputStream
    o = File.OpenOutput(File.dirrootExternal, "Download/Windowsxp.pdf", False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
    Job.Release
End Sub

Saves it to the default download folder.

 

[fixit30]

You should really check that Job.Success = True before trying to save the file otherwise it could cause you issues if the job fails.

 

[Ricardo Bunschoten]

Yes indeed thnx

 

[Ricardo Bunschoten]

Question. I want to download files from a bunch of urls. These urls are specified in a txt file and this file located on a webserver

Example http://www.acryan.com/Veolo4kskin/url.txt
This file contains the filename and url

Is this possible ?

You can use the List1 = File.ReadList(File.DirAssets, "url.txt") option but then you have to put the txt file local and i want it online so i can change the urls without recompiling the app

is there a example maybe available how to to this ?

 

[DonManfred]

download the file with httputils. Then parse the result

it will be

test.zip
https://copy.com/f0m16GtdU2h7wIqz/

in this case.

Create a new downloadjob for

https://copy.com/f0m16GtdU2h7wIqz/test.zip

then...

 

[Ricardo Bunschoten]

I know i have to parse it but can not find in the documentation how to do that


I know use this

Sub btnDownload_ClickDim dd As DownloadData
 dd.url = link1
 dd.EventName = "dd"
 dd.Target = Me
 CallSubDelayed2(DownloadService, "StartDownload", dd)

where link 1 is specified in Sub Process_GlobalsPrivate link1 As String = https://copy.com/f0m16GtdU2h7wIqz/test.zip

 

[ibra939]

OK i managed to change the code so that the file is beeing downloaded to the internal folder Download
Not like you said but this also works

#Region  Project Attributes
    #ApplicationLabel: Veolo 4K Kodi Skin installer
    #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
    Private link1 As String = "https://copy.com/6R9j8KkEkocJTU3k/WINDOWS+XP.pdf"
End Sub

Sub Globals
    Dim ProgressBar1 As ProgressBar
    Dim Label1 As Label
    Dim btnDownload As Button
    Dim btnCancel As Button
End Sub

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

Sub btnDownload_Click
    Dim dd As DownloadData
    dd.url = link1
    dd.EventName = "dd"
    dd.Target = Me
    CallSubDelayed2(DownloadService, "StartDownload", dd)
End Sub

Sub dd_Progress(Progress As Long, Total As Long)
    ProgressBar1.Progress = Progress / Total * 100
    Label1.Text = NumberFormat(Progress / 1024, 0, 0) & "KB / " & _
        NumberFormat(Total / 1024, 0, 0) & "KB"
End Sub

Sub dd_Complete(Job As HttpJob)
    Log("Job completed: " & Job.Success)

    Dim o As OutputStream
    o = File.OpenOutput(File.dirrootExternal, "Download/Windowsxp.pdf", False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
    Job.Release
End Sub

Sub btnCancel_Click
    CallSubDelayed2(DownloadService, "CancelDownload", link1)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

The part

     Dim o As OutputStream
    o = File.OpenOutput(File.dirrootExternal, "Download/Windowsxp.pdf", False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
    Job.Release
End Sub

Saves it to the default download folder.

This is working if i make URL for any thing ? any one test it

 

[Ricardo Bunschoten]

what to test then ?

 

[Mashiane]

Hi I cant compile this app, its giving me an error when I try to run

src\b4a\example\httputils2service.java:144: error: cannot access ParseException
anywheresoftware.b4a.keywords.Common.Log(_response.GetString("UTF8"));
                                                            ^
  class file for org.apache.http.ParseException not found

 

[DonManfred]

the class is using the "old" httputils instead of the new provided with okHTTP?
Or you are using android 6? In this case you need to update your httputils with the okHTTP version of them

 

[Mashiane]

the class is using the "old" httputils instead of the new provided with okHTTP?
Or you are using android 6? In this case you need to update your httputils with the okHTTP version of them

Thanks, solves everything...

 

[ArminKH]

the class is using the "old" httputils instead of the new provided with okHTTP?
Or you are using android 6? In this case you need to update your httputils with the okHTTP version of them

i get above error too
i'm using android 23 to compile my app and i'm failed but there is not any problem when i'm using android 22
as you said the problem is when i want to use it in android 6
so as this is a class how is possible to change themes based on ok http?
which part of code should be changed and what is the ok http code for that point?
thank u

 

[ArminKH]

maybe @Erel need to update this class (or add another version) to support OkHttp