Sub Init()
BANAno.GetElement("#body").Empty
BANAno.GetElement("#body").Append($"<input id="fu" type="file"></input>"$)
BANAno.GetElement("#fu").HandleEvents("change", Me, "globalevent")
End Sub
Sub UploadCallback(Event As Map)
Dim Target As BANanoObject = Event.Get("target")
Dim UploadedFile As BANanoObject = Target.GetField("file")
Log("UploadedFile: " & UploadedFile.GetField("name"))
Log("DataURL: " & Target.GetField("result"))
End Sub
Sub globalevent(event As BANanoEvent)
Select Case event.ID
Case "fu"
Dim FU As BANanoElement = BANAno.GetElement("#fu")
Dim UploadedFiles() As String = FU.ToObject.GetField("files").Result
For UploadCounter = 0 To UploadedFiles.Length - 1
Dim FileReader As BANanoObject
FileReader.Initialize2("FileReader", Null)
FileReader.SetField("file", UploadedFiles(UploadCounter))
Dim evt As Map
FileReader.SetField("onload", BANAno.CallBack(Me, "uploadcallback", Array(evt)))
FileReader.RunMethod("readAsDataURL", UploadedFiles(UploadCounter))
Next
End Select
End Sub