B4J Tutorial AsyncStreamsObject - Send and receive objects over the network

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.Title = "AsyncStreamsObject Example"
    MainForm.RootPane.LoadLayout("1") 'Load the layout file.
    MainForm.Show
    MainForm.BackColor = fx.Colors.White
    astreamO.Initialize(Me, "astreamO")
    lblMyIP.Text = "My IP: " & server.GetMyIP
    cvs.Initialize("cvs")
    paneCanvas.AddNode(cvs, 0, 0, paneCanvas.Width, paneCanvas.Height)
    server.Initialize(port,"server")    '********************************************
    If File.Exists(File.DirApp, "ip.txt") Then
        txtIP.Text = File.ReadString(File.DirApp, "ip.txt")
    End If
    Log(txtIP)
End Sub

Sub astreamO_NewObject(Key As String, Value As Object)
    Select Key
        Case "form"
            Dim p As Person = Value
            Msgbox(p.First & " " & p.Last, "Aboo" )
            'edcomando.Text = p.First
            'edresposta.Text = p.Last
        Case "simple value"
            Dim number As Int = Value
            ToastMessageShow("Received lucky number: " & number, False)
        Case "image"


        Case "arquivo"
            Dim fileName As String = Value
            Log(fileName)
            Log("Received file. File size: " & File.Size(astreamO.TempFolder, fileName))
    End Select
End Sub

Private Sub astream_NewStream (Dir As String, FileName As String)
    Dim value As Object
    Dim deleteFile As Boolean = True
    If waitingForAnotherStream Then
        waitingForAnotherStream = False
        'this is the second part of the object
        Select waitingForType
            Case TYPE_BITMAP
                value = LoadBitmap(Dir, FileName)
            Case TYPE_FILE
                Log("aki: "& FileName)
                Log("aki: "& value)
                value = FileName 'just return the file name
                deleteFile = False
        End Select
    Else
        Dim raf As RandomAccessFile
        raf.Initialize(Dir, FileName, True)
        waitingForKey = raf.ReadObject(raf.CurrentPosition)
        waitingForName = raf.ReadObject(raf.CurrentPosition)
        waitingForType = raf.ReadSignedByte(raf.CurrentPosition)
        Select waitingForType
            Case TYPE_OBJECT
                value = raf.ReadObject(raf.CurrentPosition)
                raf.Close
            Case TYPE_FILE, TYPE_BITMAP
                'wait for the second part of the message
                waitingForAnotherStream = True
                raf.Close
                Log("aki: "& FileName)
                File.delete(Dir, FileName)
                Return '<--- return!!!
        End Select
    End If
    waitingForAnotherStream = False
    If deleteFile Then File.delete(Dir, FileName)
    CallSub3(target, event & "_NewObject", waitingForKey, value)
    astream.Write(waitingForName.GetBytes("UTF8"))
End Sub

Private Sub astream_NewData (Buffer() As Byte)
    Dim fileName As String = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    File.Delete(TempFolder, fileName)
    File.Delete(TempFolder, "~" & fileName) 'delete the second part of the message if such exist
    Dim key As String = FileToKey.Remove(fileName)
    CallSub2(target, event & "_ObjectSent", key)
End Sub

Sub btnSendFile_Action
    Dim fc As FileChooser
    fc.Initialize
    fc.InitialDirectory = File.DirApp
    Dim name As String = fc.ShowOpen(MainForm)
    If name <> "" Then
        astreamO.WriteFile("file", "", name , "lala.png")
    End If
End Sub

'Sends a file. This method doesn't support files from the asset folder.
Public Sub WriteFile (Key As String, Dir As String, FileName As String, Nome As String)
    Dim len As Long = File.Size(Dir, FileName)
    If len = 0 Then
        Log("Error getting file size.")
        Return
    End If
    Dim name(1) As String
    Dim raf As RandomAccessFile = sharedWrite(Key, name)
    raf.WriteByte(TYPE_FILE, raf.CurrentPosition)
    sharedWriteComplete(raf, name(0))
    astream.WriteStream(File.OpenInput(Dir, FileName), len)
End Sub

    astream.WriteStream(File.OpenInput(Dir, FileName), len)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''' MUSICAS MUSICAS MUSICAS''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub btenviarmusicas_MouseClicked (EventData As MouseEvent)
    If listamusicas.Items.Size > 0 Then
   
   
    For i = 0 To listamusicas.Items.Size -1
    astreamO.WriteFile("arquivo:"&File.GetName(listamusicas.Items.Get(i)), "", listamusicas.Items.Get(i))
    File.GetName(listamusicas.Items.Get(i))
    Next
   
    Else
    msg.DialogType = "INFO"
    msg.Show("Sua Lista de transferências está vazia","Aboo")
   
    End If

   
'    Dim p As Person
'    p.First = "Douglas"
'    p.Last = "Farias"
'    astreamO.WriteObject("form", p)
End Sub

Public Sub WriteFile (Key As String, Dir As String, FileName As String)
    Key.SubString(8)
    Dim len As Long = File.Size(Dir, FileName)
    If len = 0 Then
        Log("Error getting file size.")
        Return
    End If
    Dim name(1) As String
    Dim raf As RandomAccessFile = sharedWrite(Key, name)
    raf.WriteByte(TYPE_FILE, raf.CurrentPosition)
    sharedWriteComplete(raf, name(0))
    astream.WriteStream(File.OpenInput(Dir, FileName), len)
End Sub