B4J Tutorial [BANanoWebix] Lesson 22 Uploader Method 2

Discussion in 'B4J Tutorials' started by Mashiane, Jul 1, 2019.

  1. Mashiane

    Mashiane Expert Licensed User

    Ola

    Lesson 22 Method 1

    Lesson22.2.gif

    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.

    Code:
    '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.

    Code:
    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!
     
    joulongleu likes this.
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice