Terradrones
Active Member
Hi All
I need a kick in the right direction again please.
I used to be able to list all Paired Devices and select one of them on the list and it worked fine. Now it does not even show the list, although I have 4 paired Instruments.
Here I call the Function in the "Bluetooth" Class from the "Parameter" Activity:
I need a kick in the right direction again please.
I used to be able to list all Paired Devices and select one of them on the list and it worked fine. Now it does not even show the list, although I have 4 paired Instruments.
Here I call the Function in the "Bluetooth" Class from the "Parameter" Activity:
B4X:
[/
Sub Paired_Click
Dim success As Boolean = CGlobals.BT.Connect
If success = False Then
ToastMessageShow("Cannot Connect.", True)
Else
ToastMessageShow("Connected.", True)
End If
ProgressDialogHide
End Sub
]
In the "Bluetooth" Class:
[CODE=b4x][/
Public Sub Connect As Boolean
Dim PairedDevices As Map
Try
PairedDevices = Serial.GetPairedDevices
Dim list As List
list.Initialize
For i = 0 To PairedDevices.Size - 1
list.Add(PairedDevices.GetKeyAt(i))
Next
Dim Res As Int
Res = InputListAsync(list, "Select Instrument", -1,False) 'show list with paired devices
If Res <> DialogResponse.CANCEL Then
ProgressDialogShow2("Trying To Connect...", True)
Serial.Connect(PairedDevices.Get(list.Get(Res))) 'convert the name to mac address
CGlobals.Mac = PairedDevices.Get(list.Get(Res)) 'Mac Address
CGlobals.Name = PairedDevices.GetKeyAt(Res) 'Name
Return True
End If
Catch
Log(LastException)
End Try
Return False
End Sub
Under "PairedDevices" there are 4 Survey Instruments, but the program crashes at "Res=". Even the "Log(LastException" does not show anything.
It used to work, but not anymore.
Any suggestions?
Thanks
Michael
]