#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
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim FTP As FTP
Dim ftpjobs As List
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private Label1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("1")
ftpjobs.Initialize
If FirstTime Then
FTP.Initialize("FTP", "domain.tld", 21, "username", "password")
End If
' I know there are a lot of images in a folder... Let us take some of them and fill a "Job-List"
' You can fill this list with your textfiles (their names)
ftpjobs.Add("9.jpg")
ftpjobs.Add("10.jpg")
ftpjobs.Add("11.jpg")
ftpjobs.Add("12.jpg")
ftpjobs.Add("13.jpg")
ftpjobs.Add("14.jpg")
ftpjobs.Add("15.jpg")
ftpjobs.Add("16.jpg")
ftpjobs.Add("17.jpg")
ftpjobs.Add("18.jpg")
ftpjobs.Add("18.jpg")
ftpjobs.Add("20.jpg")
ftpjobs.Add("21.jpg")
ftpjobs.Add("22.jpg")
ftpjobs.Add("23.jpg")
ftpjobs.Add("25.jpg")
ftpjobs.Add("26.jpg")
ftpjobs.Add("28.jpg")
ftpjobs.Add("29.jpg")
ftpjobs.Add("30.jpg")
ftpjobs.Add("31.jpg")
ftpjobs.Add("32.jpg")
ftpjobs.Add("33.jpg")
ftpjobs.Add("36.jpg")
ftpjobs.Add("35.jpg")
' to test the contents of the list
For i = 0 To ftpjobs.Size -1
Log("File: "&ftpjobs.Get(i))
Next
' Now we start the first download
' after checking whether the joblist has entries or not
If ftpjobs.Size > 0 Then
' Now we get the first item in this list and start download with ftp
Label1.Text = "Downloading "&ftpjobs.Get(0)&"..."
FTP.DownloadFile("/vdfb.de/gfx/rankimages/"&ftpjobs.Get(0), False, File.DirRootExternal, ftpjobs.Get(0))
' the further logic goe on in sub FTP_DownloadCompleted
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub FTP_DownloadProgress (ServerPath As String, TotalDownloaded As Long, Total As Long)
Dim s As String
s = "Downloaded " & Round(TotalDownloaded / 1000) & "KB"
If Total > 0 Then s = s & " out of " & Round(Total / 1000) & "KB"
Log(s)
End Sub
Sub FTP_DownloadCompleted (ServerPath As String, Success As Boolean)
Log(ServerPath & ", Success=" & Success)
If Success = False Then
Log(LastException.Message)
Else
' The file is successfully downloaded.
'
' Delete the topmost job in ftpjobs
If ftpjobs.Size > 0 Then
ftpjobs.RemoveAt(0)
End If
' Now we start the next download if there are more files in the joblist
' after checking whether the joblist has entries or not
If ftpjobs.Size > 0 Then
' Now we get the first item (it was the next item before we deleted the first one ;-)))
' In this List AND start download with FTP
Label1.Text = "Downloading "&ftpjobs.Get(0)&"..."
FTP.DownloadFile("/vdfb.de/gfx/rankimages/"&ftpjobs.Get(0), False, File.DirRootExternal, ftpjobs.Get(0))
Else
Label1.Text = "All files have been downloaded"
Log("All files have been downloaded")
End If
End If
End Sub
