Sub download_files
'
Dim pnlP As Panel
pnlP.Initialize("pnlP")
Dim bgnd As ColorDrawable
bgnd.Initialize(Colors.Black, 5dip)
pnlP.Background = bgnd
Activity.addView(pnlP,15%x,40%y,70%x,16%y)
'
Dim lblP As Label
lblP.Initialize("lblP")
lblP.Text = "bitte warten, die Dateien werden heruntergeladen..."
'
lblLFD.Initialize("lblLFD")
lblLFD.Text = "kopiere: " & FileList.Get(lfd)
'
pnlP.AddView(lblP,3%x,1%y,64%x,4%y)
pnlP.AddView(lblLFD,3%x,11%y,64%x,4%y)
'
prb.Initialize("prb")
pnlP.addView(prb,3%x,5%y,64%x,5%y)
'
lfd=0
SMB2.Initialize("SMB2")
SMB2.DownloadFile("SMB://"&WINip&"/"&WINpfad&"/"&BILDpfad&"/",FileList.Get(lfd),AppDir&"/Daten",FileList.Get(lfd))
'
End Sub
Sub SMB2_DownloadCompleted (uurl As String, RemoteFile As String, Success As Boolean)
If Success = True Then
Log(FileList.Get(lfd) & "OK")
Else
Log(FileList.Get(lfd) & "nicht OK")
End If
'
lfd=lfd+1
If lfd < FileList.Size Then
Try
lblLFD.Text = "kopiere: " & FileList.Get(lfd)
SMB2.DownloadFile("SMB://"&WINip&"/"&WINpfad&"/"&BILDpfad&"/",FileList.Get(lfd),AppDir&"/Daten",FileList.Get(lfd))
Catch
End Try
End If
End Sub