Android Tutorial Android Bluetooth / BluetoothAdmin Tutorial

Better implementation based on B4XPages:

[B4XPages] Bluetooth Chat Example

Updated implementation, based on B4XPages of https://www.b4x.com/android/forum/threads/android-bluetooth-bluetoothadmin-tutorial.14768/#content. The code is much simpler compared to the previous example. Note that you can call Serial.Listen without making the device discoverable. This is useful...

www.b4x.com

Tutorial was rewritten in April 2018.
We will create a chat example between two Android devices.

All the non-UI code is implemented in a class named BluetoothManager. It is initialized in Service_Create of the starter service.

It is always better to implement communication related code in a service or a class initialized from a service. This way the communication state is not affected by the activities more complicated state.

The activities call the class methods directly. Calling the activities subs is done with CallSub. Remember that CallSub doesn't do anything if the activity is paused.

The first activity, the main activity, shows two buttons. One for searching other devices and one for listening for connections.

Searching other devices requires a "dangerous" permissions (see the runtime permissions tutorial for more information).
Note that you need to add the permission in the manifest editor:

AddPermission(android.permission.ACCESS_FINE_LOCATION)

Sub btnSearchForDevices_Click
   rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
   Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
   If Result = False Then
       ToastMessageShow("No permission...", False)
       Return
   End If
   Starter.Manager.SearchForDevices
End Sub

The second button sends an intent to the OS to make the device discoverable and then calls Serial.Listen.

Once a connection is established:
1. AsyncStreams is initialized in prefix mode (see the AsyncStreams tutorial for more information).
2. The ChatActivity is started.

Notes

- In this example we send text messages. Use B4XSerializator to send more complex types.

 

[Computersmith64]

You should make sure that BluetoothAdmin is initialized exactly once and is a process global variable.

I'm pretty sure that's what I'm doing. I'm doing it in a service & admin is declared in Process_Globals & initialized in Service_Create. Once the transfer is complete, I stop the service then start it again if necessary. Would that count as initializing admin more than once, or is it OK because the variable is destroyed when the service is stopped?

- Colin.

 

[Erel]

I'm doing it in a service & admin is declared in Process_Globals & initialized in Service_Create

This is the problem. Process global variables are not destroyed when the service is destroyed. Check whether the object IsInitialized before you initialize it.

I recommend you to avoid stopping the service. It will do no good and will only complicate things.

 

[Computersmith64]

This is the problem. Process global variables are not destroyed when the service is destroyed. Check whether the object IsInitialized before you initialize it.

I recommend you to avoid stopping the service. It will do no good and will only complicate things.

OK, thanks - I'll try that. I was stopping the service because I thought it would be good practice to clean it up if it's not being used.

- Colin.

 

[red30]

Dim MyMac(50) As String   
Dim U=0,m=0 As Int
Sub Admin_DeviceFound (Name As String, MacAddress As String)
    Log(Name & ":" & MacAddress)
    Dim nm As NameAndMac
    nm.Name = Name
    nm.Mac = MacAddress
        If m=0 Then
            foundDevices.Add(nm)
            ProgressDialogShow("Searching for devices (~ device founded)".Replace("~", foundDevices.Size))
            MyMac(0)=MacAddress
            m=m+1
        Else
            For i=0 To m-1
                U=0
                If MyMac(i)=MacAddress Then Exit
                U=1
            Next
            If U=1 Then
                foundDevices.Add(nm)
                ProgressDialogShow("Searching for devices (~ device founded)".Replace("~", foundDevices.Size))
                MyMac(m)=MacAddress
                m=m+1
            End If
        End If
End Sub

Corrects the multiple search error of the same device.

 

[Erel]

You should use a Map. It will be simpler:

Sub Admin_DeviceFound (Name As String, MacAddress As String)
 Devices.Put(MacAddress, Name)
 ProgressDialogShow($"Searching for devices (${Devices.Size} device founded)"$)
End Sub

 

[krokiz]

Million times "THANK YOU" for putting this information on Page 1:

"AddPermission(android.permission.ACCESS_COARSE_LOCATION)"

I was struggling for months to make my application to work on Android versions higher than 4.4.2 !

!!!!!!!!!1

 

[KMatle]

Devices.Put(MacAddress, Name)

Hint: "putting" data to a map with the same existing key just overrides the value. So no duplicates will be created

 

[Gianluca Esposito]

hi,
How do I send the following command?

Command sent:
0x8001 (Fixed)
0x0000 (Message ID)
0x00005358 (Vendor ID = CAEN SpA)
0x0021 (Message Length)
0x0000 (Reserved)
0x0008 (AVP Length)
0x0001 (AVP Type = CommandName)
0x0013 (AVP Value = InventoryTag)
0x0000 (Reserved)
0x000F (AVP Length)
0x00FB (AVP Type = SourceName)
0x536F757263655F3000 (AVP Value = “Source_0”)

Thanks

 

[Erel]

Please start a new thread for this question.

 

[Gianluca Esposito]

https://www.b4x.com/android/forum/threads/android-bluetooth-sent-command.85190/

Thanks

 

[Erel]

The tutorial and example in the first post was rewritten.

It is implemented in a more robust way and the targetSdkVersion is set to 26.

 

[Beja]

The tutorial and example in the first post was rewritten.

It is implemented in a more robust way and the targetSdkVersion is set to 26.

Great update.. Thanks.
worth mentioning that the new version requires B4A 8+

 

[Beja]

Done!.. working like a charm, very fast.. you only need to have something to say

 

[amidgeha]

Tutorial was rewritten in April 2018.
We will create a chat example between two Android devices.

All the non-UI code is implemented in a class named BluetoothManager. It is initialized in Service_Create of the starter service.

It is always better to implement communication related code in a service or a class initialized from a service. This way the communication state is not affected by the activities more complicated state.

The activities call the class methods directly. Calling the activities subs is done with CallSub. Remember that CallSub doesn't do anything if the activity is paused.

The first activity, the main activity, shows two buttons. One for searching other devices and one for listening for connections.

Searching other devices requires a "dangerous" permissions (see the runtime permissions tutorial for more information).

Sub btnSearchForDevices_Click
   rp.CheckAndRequest(rp.PERMISSION_ACCESS_COARSE_LOCATION)
   Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
   If Result = False Then
       ToastMessageShow("No permission...", False)
       Return
   End If
   Starter.Manager.SearchForDevices
End Sub

The second button sends an intent to the OS to make the device discoverable and then calls Serial.Listen.

Once a connection is established:
1. AsyncStreams is initialized in prefix mode (see the AsyncStreams tutorial for more information).
2. The ChatActivity is started.

Notes

- There is a potential issue on Android 8.0+ devices related to the change in the service life cycle explained here: https://www.b4x.com/android/forum/threads/automatic-foreground-mode.90546/#content
If the app is in the background for several minutes then the starter service will be destroyed and the manager will be paused until the app is killed and restarted.
A possible workaround is to call ExitApplication from Service_Destroy of the starter service.
Note that this issue will not happen with B4A 8.1+ (not released at the time of writing) as the starter service implementation will be modified in such way that it will never be paused.

- In this example we send text messages. Use B4XSerializator to send more complex types.

Hi, Is it possible to use this example to send and receive OBD data?

 

[Erel]

Thread locked. Please start a new thread for any question you have.

 

[Erel]

Updated to targetSdkVersion 29. Note that the ACCESS_FINE_LOCATION permission is now required.