B4J Tutorial [BANanoWebix] Lesson 22 Uploader Method 2

Ola

Lesson 22 Method 1

Method 2 of the file uploader is a method that actually places an uploader on a form including a list that displays the files that have been selected. The same events as depicted in Lesson 22 Method 1 apply.

'create a page with a header and set 'space' layout
    pg.Initialize("").SetHeader("Lesson 22: File Uploader - Part 2 (Linked List)")
    pg.Page.SetTypeSpace
    '
    'create a row
    Dim R1 As WixRow
    R1.Initialize("R1")
    '
    'create a form
    myForm.Initialize("myform")
    '
    'create an uploader
    Dim up As WixUploader
    up.Initialize("upload").SetValue("Upload File").SetLink("mylist").SetUpload("./assets/upload.php").SetDataType("json")
    'create the list
    Dim lst As WixList
    lst.Initialize("mylist").SetTypeUploader(True).SetAutoHeight(True).SetBorderLess(True)
    '
    'add uploader to a form row collection
    myForm.AddRows(up.Item)
    'add list to a form row collection
    myForm.AddRows(lst.Item)
    '
    'add form to R1
    R1.AddRows(myForm.Item)
    'add R1 to page
    pg.AddRow(R1)
    '
    'render the page
    pg.ui
    '
    Dim ffile As BANanoObject
    pg.OnFileUploadError("upload", BANano.CallBack(Me, "onFileUploadError", Array(ffile)))
    pg.onFileUpload("upload", BANano.CallBack(Me, "onFileUpload", Array(ffile)))
End Sub

1. We create a Row and then create a form that we will add to the row R1
2. We create an uploader and add it to the Rows collection of the form.
3. We create a listview and add it to the rows collection of the form
4. We add the form to R1
5. We add R1 to the page and we then render the page.
6. We attach events to the uploader. The uploader is linked to upload.php which saves our imported files to the ./assets folder of our app.

Dim ffile As BANanoObject
    pg.OnFileUploadError("upload", BANano.CallBack(Me, "onFileUploadError", Array(ffile)))
    pg.onFileUpload("upload", BANano.CallBack(Me, "onFileUpload", Array(ffile)))
End Sub

Sub onFileUpload(ffile As BANanoObject)
    Log("onFileUpload")
    Log(ffile)
    Dim status As String = ffile.GetField("status").Result
    Select Case status
    Case "success", "server"
    Case Else
        pg.Alert("Error during file upload!")
    End Select
End Sub

Sub OnFileUploadError(ffile As Object)
    Log("OnFileUploadError")
    pg.Alert("Error during file upload!")
End Sub

The purpose of our list is to display all the files we have selected and show the progress of the uploads. Bu default these files are auto-sent to the server for upload. One can turn this option off anyway.

Ta!