'This sub will start listening to UDP packets for 2 seconds
'This part is on the iPhone device
'Dim autodiscover as UDPSocket
'Dim mapDevices as Map
Sub ListenForPackets
hd.ProgressDialogShow("Finding devices on your network...")
LocalDeviceList.Clear
LocalDeviceList.Initialize
mapDevices.Initialize
autodiscover.Initialize("AutoDiscover",51042,8000)
Sleep(2000)
autodiscover.Close
hd.ProgressDialogHide
If(mapDevices.Size>0)Then
'BuildList
Else
hd.ToastMessageShow("No Devices found on local network!",True)
End If
End Sub
Private Sub AutoDiscover_PacketArrived (Packet As UDPPacket)
Try
Dim bc As ByteConverter
Dim data(Packet.Length) As Byte
bc.ArrayCopy(Packet.Data, Packet.Offset, data, 0, Packet.Length)
Dim ds As String = serializator.ConvertBytesToObject(data)
Log(ds)
If(ds.Contains("/"))Then
Dim name As String = ds.SubString2(0,ds.IndexOf("/"))
Dim ip As String = ds.SubString2(ds.IndexOf("/")+1,ds.LastIndexOf("/"))
Dim mac As String = ds.SubString(ds.LastIndexOf("/")+1)
End If
Dim tmap As Map
tmap.Initialize
tmap.Put("ip",ip)
tmap.Put("name",name)
mapDevices.Put(mac,tmap)
Catch
Log(LastException)
End Try
End Sub