Downloading files works, but not all files every time. There are 24 downloads. Sometimes it downloads all the files but sometimes only half.
Is there a way to make this more consistent? Only downloading six and a time?
Another idea...is there a way to pre-install these files in DirRootExternal as part of the .apk file?
Also, I tried to use the code editor. Sorry about that. Next time, I hope.
Sub GetFiles
Dim job1 As HttpJob
job1.Initialize("job1", Me)
job1.Download("http://www.mysite.com/" & FolderName & "/textfiles/InetLolo.txt")
Dim job2 As HttpJob
job2.Initialize("job2", Me)
job2.Download("http://www.mysite.com/" & FolderName & "/textfiles/InetLo.txt")
End Sub
Select job.jobName
Case "job1"
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "QQFiles/InetLolo.txt", False)
File.Copy2(job.GetInputStream, out)
out.Close
Case "job2"
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "QQFiles/InetLo.txt", False)
File.Copy2(job.GetInputStream, out)
out.Close
End Select
Is there a way to make this more consistent? Only downloading six and a time?
Another idea...is there a way to pre-install these files in DirRootExternal as part of the .apk file?
Also, I tried to use the code editor. Sorry about that. Next time, I hope.
Sub GetFiles
Dim job1 As HttpJob
job1.Initialize("job1", Me)
job1.Download("http://www.mysite.com/" & FolderName & "/textfiles/InetLolo.txt")
Dim job2 As HttpJob
job2.Initialize("job2", Me)
job2.Download("http://www.mysite.com/" & FolderName & "/textfiles/InetLo.txt")
End Sub
Select job.jobName
Case "job1"
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "QQFiles/InetLolo.txt", False)
File.Copy2(job.GetInputStream, out)
out.Close
Case "job2"
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "QQFiles/InetLo.txt", False)
File.Copy2(job.GetInputStream, out)
out.Close
End Select
Last edited: