Android Tutorial Download huge files with HttpUtils2

Erel said:

You should work with the job in this sub, before it is released. I recommend you to go over HttpUtils2 tutorial to understand how HttpJob works.

Click to expand...

Erel said:

The logs appear in the Logs tab at the right side of the IDE. If you are using B4A-Bridge then they will only appear in debug mode.

Click to expand...

Erel said:

The file is downloaded to a temporary folder. You should use File.Copy2 together with Job.GetInputStream to copy the file.

Click to expand...

ibra939 said:

how can i use file.copy2

Click to expand...

Erel said:

@Inman where is StartDownload declared? Can you post the code that starts the download?

Click to expand...

Public Sub StartDownload(data As DownloadData)
    If jobs.ContainsKey(data.url) Then
        Log("Ignoring duplicate request.")
        Return
    End If
    Dim J As HttpJob
    J.Initialize(data.url, Me)
    Dim tag As JobTag
    tag.Initialize
    tag.data = data
    J.tag = tag
    jobs.Put(data.url, J)
    J.Download(data.url)
    If timer1.Enabled = False Then StartTimer(data.Target)
End Sub

Inman said:

I didn't modify. I used the following code from example.

B4X:

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

And surprisingly it works fine from the second time with the same code. The error only happens when IsPaused(DownloadService)=True.

Click to expand...

Erel said:

HttpUtils2 saves the file to a temporary folder. You will need to modify it if you want to save it to a different location directly.

Click to expand...

Erel said:

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:

B4X:

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:

B4X:

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:

B4X:

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:
Http v1.31+ the download will not be properly canceled with previous versions of Http library.
StringUtils
Phone (required in order to acquire a partial lock during the download)
RandomAccessFile

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

Erel said:

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:

B4X:

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:

B4X:

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:

B4X:

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:
Http v1.31+ the download will not be properly canceled with previous versions of Http library.
StringUtils
Phone (required in order to acquire a partial lock during the download)
RandomAccessFile

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

Click to expand...

Where the downloaded data shall be stored..

Click to expand...

Where the downloaded data shall be stored..

Click to expand...

Sub dd_Complete(Job As HttpJob)
    Log("Job completed: " & Job.Success)
    If Job.Success Then
        Dim tag As JobTag = job.Tag
        Dim dd As DownloadData = Tag.Data
        Log("Download of "&GetFilename(dd.url)&" finished...")
    Dim OutStream As OutputStream
    OutStream = File.OpenOutput(File.DirRootExternal, GetFilename(dd.url), False)
        File.Copy2(Job.GetInputStream,OutStream) ' save the file
       OutStream.Close
       Log(GetFilename(dd.url)&" written to "&File.DirRootExternal) ' Write the Originalname to the log to see what happens ;-)
    End If
    Job.Release
End Sub

Sub GetFilename(fullpath As String) As String
   Return fullpath.SubString(fullpath.LastIndexOf("/") + 1)
End Sub