Italian DOTTE DISQUISIZIONI SU APP RISTORANTE

    Dim AscoltoServer As ServerSocket
    Dim ListaConnessiAstream As List
    Dim ListaConnessiInfo As List

    Dim TimElabora As Timer

    Dim Cht As String = Chr(8)

End Sub

Sub Service_Create
    If AscoltoServer.IsInitialized=False Then
        AscoltoServer.Initialize(porta,"AscoltoServer")
        ListaConnessiAstream.Initialize
        ListaConnessiInfo.Initialize
    End If
End Sub

Sub Service_Start (StartingIntent As Intent)
    AscoltoServer.Listen
    TimElabora.Initialize("TimElabora",1000)
    TimElabora.Enabled=True
End Sub

Sub AscoltoServer_NewConnection (Successful As Boolean, NewSocket As Socket)
    If Successful Then
        Dim Stream1 As AsyncStreams
        Stream1.Initialize(NewSocket.InputStream,NewSocket.OutputStream,"AStreams")
        'Stream1.Write("ID".GetBytes("UTF8"))
        ListaConnessiAstream.Add(Stream1)
        Dim Elem As TElementi
        Elem.Nome=ListaConnessiAstream.Size
        Elem.DatiRicevuti=""
        Elem.Ping=0
        ListaConnessiInfo.Add(Elem)
        ToastMessageShow("Cameriere connesso n." & ListaConnessiAstream.Size, False)
        CallSub(Main,"AggiornaConnessioni")
    Else
        Log("Errore connessione server")
    End If

    AscoltoServer.Listen
End Sub

Sub AStreams_NewData (Buffer() As Byte)
    Dim Dati As String
    Dim BC As ByteConverter
    Dim Stream1 As AsyncStreams

    Stream1=Sender
    Dati=BC.StringFromBytes(Buffer,"UTF-8")

    Try
        For i=1 To ListaConnessiAstream.Size
            If Stream1=ListaConnessiAstream.Get(i-1) Then
                Dim Elem As TElementi
                Elem=ListaConnessiInfo.Get(i-1)
                Elem.DatiRicevuti=Elem.DatiRicevuti & Dati
            End If
        Next
    Catch
        Log(LastException.Message)
        End Try
 
    End Sub

            Dim ClientSock As Socket

            Ip=EditTextIP.Text
            ClientSock.Initialize("ClientSock")
            ClientSock.Connect(Ip,porta,20000)

Sub ClientSock_Connected(ConStatus As Boolean)

    If ConStatus = True Then
        LabelInformazioni.Text="Sei connesso alla cucina"
        AStreams.Initialize(ClientSock.InputStream, ClientSock.OutputStream, "AStreams")
     Else
        Msgbox("Assicurati di aver inserito IP-Addr correttamente" & Chr(10) & LastException.Message, "Connessione rifiutata")
        LabelInformazioni.Text="Non sei connesso alla cucina"
    End If
End Sub