German Download per FTP

Sub Process_Globals
    Dim FTP As FTP
    'usw
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        FTP.Initialize("FTP", "ftp.example.com", 21, "user", "password")
    End If
    'usw
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)
'
fertig = True
'
End Sub


Sub do_mein_download
    FTP.DownloadFile("/somefolder/files/1.zip", False, File.DirRootExternal, "1.zip")
    Dim fertig As Boolean  : fertig=False
    do while fertig = False
       wait(1)
       loop
    Msgbox("Download beendet!","")
End Sub

[...]
Sub FTP_DownloadCompleted (ServerPath As String, Success As Boolean)
Log(ServerPath & ", Success=" & Success)
If Success = False Then Log(LastException.Message)

    Msgbox("Download beendet!","")

End Sub

Sub do_mein_download
    FTP.DownloadFile("/somefolder/files/1.zip", False, File.DirRootExternal, "1.zip")
End Sub

Sub Update
  '
  pnlUP.Initialize("pnlUP")
  Dim bgnd As ColorDrawable
  bgnd.Initialize(Colors.Black, 5dip)
  pnlUP.Background = bgnd
  Activity.addView(pnlUP, 25%x,40%y, 400dip, 155dip)
  '      
  Dim lblUP As Label
  lblUP.Initialize("lblUP")
  lblUP.Text = "bitte warten, das Update wird heruntergeladen..."
  pnlUP.AddView(lblUP, 20dip, 10dip, 360dip, 20dip)     
  '
  prbUP.Initialize("prbUP")
  pnlUP.addView(prbUP, 20dip,45dip, 360,40) 
  '
  btnUP.Initialize("btnUP")
  btnUP.Text = "Download abbrechen"
  pnlUP.AddView(btnUP, 110dip, 105dip, 180dip, 40dip)  
  '
  FTPu.DownloadFile("/html/LFupdate/LF.apk", False, ListDir, "LFapk.tmp")
  '
End Sub


Sub FTPu_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)
    '
    prbUP.Progress =  Round(TotalDownloaded / (Total/100) )
    '    
  End If 
End Sub