#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 400
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Dim UDPSocket1 As UDPSocket
Private memo As TextArea
Dim bconv As ByteConverter
End Sub
Sub AppStart (Form1 As Form, Args() As String)
UDPSocket1.Initialize("UDP", 5606, 16384)
MainForm = Form1
MainForm.SetFormStyle("UNIFIED")
MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
memo.Text = ""
MainForm.Show
End Sub
Sub UDP_PacketArrived (Packet As UDPPacket)
Dim msg As String
msg = BytesToString(Packet.Data, Packet.Offset, Packet.Length, "UTF8")
Log("> NEW PACKET")
Log("Host: "&Packet.Host)
Log("Adress: "&Packet.HostAddress)
Log("Port: "&Packet.Port)
Log("Len: "&Packet.Length)
Log("ToString: "&Packet.toString)
Log("HEX: "&bconv.HexFromBytes(Packet.Data))
memo.Text = memo.Text & Chr(13)&Chr(10)&msg
'Msgbox.show("Message received: " & msg, "")
Log(msg)
End Sub