Android Question Download multiple images to device

[ginsh]

Hi,

I am trying to download multiple image files from online web server to device by reading a text file with full file path. I am using download service example. but it is only creating file names with 0KB and not downloading the actual files. below is the code I am using. Also I am getting file null error.

Please let me know what could be the issue.

Thanks.

Main Activity

'Activity module
Sub Process_Globals
    Dim image As Bitmap
    Dim Dir As String: Dir = File.DirRootExternal & "/Downloadservice"
End Sub

Sub Globals
    Dim btnDownload As Button
    Private CheckBox1 As CheckBox
    Dim Button1 As Button
    Dim todownload As List
  
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    'check if we already loaded the image previously.
  
    If FirstTime And File.Exists(Dir, "*.*") = False Then
        File.MakeDir(File.DirRootExternal, "Downloadservice")
      
    End If
  
    If File.Exists(Dir, "test.txt") = False Then
            'copy the default DB
            File.Copy(File.DirAssets, "test.txt", Dir, "test.txt")
          
            End If
          
  
  
        todownload.Initialize
Dim TextRd1 As TextReader    
TextRd1.Initialize(File.OpenInput(Dir, "test.txt"))   
todownload.Clear  
Dim line As String      
line = TextRd1 .ReadLine         
todownload.Add(line)
Do While line <> Null                     
line = TextRd1.ReadLine          
todownload.Add(line) 
  

Loop      
TextRd1.Close
  
End Sub

Sub Activity_Resume
    'check if download has finished while the activity was paused
    If btnDownload.Enabled = False And DownloadService.JobStatus = DownloadService.STATUS_DONE Then
        FinishDownload
    End If
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnDownload_Click
  
    Try
    Do While todownload <> Null

If todownload.Size > 0 Then
                todownload.RemoveAt(0)
            End If
  
    'If todownload.Size > 0 Then
        Dim furl As String = todownload.Get(0)
  
      
    ToastMessageShow("Picupdate... " &furl,False)
   'End If
    'Loop
    Dim fullpath As String
  
    fullpath = furl
    fullpath = fullpath.SubString(fullpath.LastIndexOf("/") + 1)
    ' If File.Exists(Dir, fullpath) = False Then
  
    DownloadService.URL = furl
    DownloadService.Target = File.OpenOutput(Dir, fullpath, False)
    StartService(DownloadService)
    btnDownload.Enabled = False
    'End If
    Loop
    Catch
      
    End Try
  
End Sub

Sub FinishDownload
    'Load the saved image

    btnDownload.Enabled = True
    DownloadService.JobStatus = DownloadService.STATUS_NONE
End Sub

Download service

#Region Module Attributes
    #StartAtBoot: False
#End Region

'Service module
Sub Process_Globals
    Dim HC As HttpClient
    'Activity is expected to set URL
    Dim URL As String
    Dim Target As OutputStream
    Dim JobStatus As Int
    Dim STATUS_NONE, STATUS_WORKING, STATUS_DONE As Int
    STATUS_NONE = 0
    STATUS_WORKING = 1
    STATUS_DONE = 2
    Dim DoneSuccessfully As Boolean
    Dim Notification1 As Notification
End Sub
Sub Service_Create
    HC.Initialize("HC")
    Notification1.Initialize
    Notification1.Icon = "icon" 'use the application icon file for the notification
    Notification1.Vibrate = False
End Sub

Sub Service_Start
    'URL and Target should be set by the calling module
    Dim request As HttpRequest
    request.InitializeGet(URL)
    HC.Execute(request, 1)
    JobStatus = STATUS_WORKING
    Notification1.SetInfo("Download Service example", "Downloading: " & URL, Main)
    Notification1.Sound = False
    'Make sure that the process is not killed during the download
    'This is important if the download is expected to be long.
    'This will also show the status bar notification
    Service.StartForeground(1, Notification1)
End Sub

Sub HC_ResponseError (Reason As String, StatusCode As Int, TaskId As Int)
    ToastMessageShow("Error downloading file: " & Reason, True)
    DoneSuccessfully = False
    Finish
End Sub

Sub HC_ResponseSuccess (Response As HttpResponse, TaskId As Int)
    'Asynchronously download the stream
    Response.GetAsynchronously("Response", Target, True, TaskId)
End Sub

Sub Response_StreamFinish (Success As Boolean, TaskId As Int)
    If Success = False Then
        ToastMessageShow("Error downloading file: " & LastException.Message, True)
    Else
        ToastMessageShow("Download successfully.", True)
    End If
    DoneSuccessfully = Success
    Finish
End Sub

Sub Finish
    Log("Service finished downloading")
    JobStatus = STATUS_DONE
    'Notify the activity that the download has finished.
    'It will do nothing if the activity is currently paused.
    'CallSub(Main, "FinishDownload")
    Service.StopForeground(1) 'Return the service to the "background" (also removes the ongoing notification)
    If IsPaused(Main) Then
        'The activity is paused. The user is probably busy with some other activity.
        'Notify the user that the download has finished
        Notification1.Sound = True
        Notification1.SetInfo("Download Service", "Download complete", Main)
        Notification1.AutoCancel = True
        Notification1.Notify(1)
    End If
End Sub
Sub Service_Destroy

End Sub

 

[DonManfred]

You should use okhttp for this. It will be much simpler.

Additional you should handle the Jobdone event and there you need to copy the response from the temppath to anywhere orher...

 

[ginsh]

Hi,

Can anyone help me out with an example. Also there are 120-130 images to be downloaded and I do not want the application to freeze till it downloads.

 

[DonManfred]

It is the same technique