Private Sub Button1_Click
Wait For (GetBluetoothName) Complete (Result As String)
If Result <> "no permission" Then
Log("Name: " & Result)
Else
Log("no permission!")
End If
End Sub
Private Sub GetBluetoothName As ResumableSub
Dim rp As RuntimePermissions
Dim phone As Phone
If phone.SdkVersion >= 31 Then
rp.CheckAndRequest("android.permission.BLUETOOTH_CONNECT")
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
Return "no permission"
End If
End If
Dim adapter As JavaObject
adapter = adapter.InitializeStatic("android.bluetooth.BluetoothAdapter").RunMethod("getDefaultAdapter", Null)
Dim name As JavaObject = adapter.RunMethod("getName", Null)
Return IIf(name.IsInitialized, name, "")
End Sub