Sub JobDone (Job As String)
Select Job
Case "Job1" 'database file only
Dim FileUrl As String
FileUrl=HttpUtils.tasks.Get(0)
If HttpUtils.IsSuccess(FileUrl) Then
Dim database As InputStream
database=HttpUtils.GetInputStream(FileUrl)
Dim out As OutputStream
Main.sql_main.Close
out = File.OpenOutput(File.DirDefaultExternal,"WINE_TABLET.DB",False)
File.Copy2(HttpUtils.GetInputStream(FileUrl), out)
out.Close
ToastMessageShow("Database Download Complete", True)
Main.sql_main.Initialize(File.DirDefaultExternal,"WINE_TABLET.DB",False)
End If
Case "Job2" 'all image files
Log ("Job2 Started")
Dim link As String
Dim file_name As String
Dim file_path As String
Dim file_plus_path As String
Dim out As OutputStream
'on first run, create appropriate directories
Dim path_test As String
path_test=File.DirDefaultExternal & "/images/themes"
If Not(File.Exists(path_test,"")) Then 'if this folder exists, then the others should exist also
File.MakeDir(File.DirDefaultExternal,"images/themes")
File.MakeDir(File.DirDefaultExternal,"images/wine")
File.MakeDir(File.DirDefaultExternal,"images/beer")
File.MakeDir(File.DirDefaultExternal,"images/liquor")
End If
For i = 0 To HttpUtils.Tasks.Size - 1
link = HttpUtils.Tasks.Get(i)
Log(link)
If HttpUtils.IsSuccess(link) Then
file_plus_path=link.SubString(39)
file_name=file_plus_path.SubString(file_plus_path.LastIndexOf("/")+1)
file_path=file_plus_path.SubString2(0,file_plus_path.LastIndexOf("/"))
Try 'in case a file is not found
out = File.OpenOutput(File.DirDefaultExternal & "/" & file_path, file_name,False)
File.Copy2(HttpUtils.GetInputStream(link), out)
out.Close
Catch
End Try
End If
Next
Log("Image Download Complete")
ToastMessageShow("Image Download Complete", True)
Case "Job3" 'new APK file
Dim FileUrl As String
FileUrl=HttpUtils.tasks.Get(0)
If HttpUtils.IsSuccess(FileUrl) Then
Dim apk_file As InputStream
apk_file=HttpUtils.GetInputStream(FileUrl)
Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal,"temp.apk",False)
File.Copy2(HttpUtils.GetInputStream(FileUrl), out)
out.Close
Dim Intent1 As Intent
Intent1.Initialize(Intent1.ACTION_VIEW, "file:///sdcard/temp.apk")
Intent1.SetType("application/vnd.android.package-archive")
StartActivity(Intent1)
End If
End Select
End Sub