Android Tutorial Android Bluetooth / BluetoothAdmin Tutorial

Erel · Feb 7, 2012

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:

B4X:

AddPermission(android.permission.ACCESS_FINE_LOCATION)

B4X:

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.

georgestheking · Apr 8, 2012

Hi,

I try to compile the bluetooth program using Basic4Android 1.9 but I get compilation errors !!!!!

Any update ?

Georges

Erel · Apr 8, 2012

Which errors?

maleche · Apr 22, 2012

Help!
This is the error in Log I recived any time I try sending "ATZ" using the Bluetooth example. I changed to AsyncStreams per this post and still unable to send without lock ups.

java.lang.OutOfMemoryError at anywheresoftware.ba.randomaccessfile.AsyncStreams$AIN.run(AsyncStreams.java:168)
at java.lang.Thread.run(Thread.java:1019)
** Activity (chatactivity) Pause, UserClosed = true **

I just need to send via Bluetooth. any other examples to try?
Thanks!
DM

Erel · Apr 22, 2012

This error usually happens when you use AsyncStreams in prefix mode and don't implement the protocol correctly in the other side.

AsyncStreams Tutorial

fdx12345 · Apr 27, 2012

Not running

When I run the example I keep getting a pause at line 26: If admin.IsEnabled=Flase. When I click continue, every thing is greyed out and nothing works.

I am running Basic4Android program as an administrator and my account (my pc) is type administrator.

Bill

Erel · Apr 27, 2012

You should check the logs and post the full error message.

balistreri1 · May 3, 2012

Hello Erel,

Bluetooth serial example bug report:
Sending 8 characters works fine.

Sending 9 or more characters results in extra
garbage data ahead of the actual data.

Key data is entered into a TextEdit called txtinput
and then sent out with the following button click

Sub btnSend_Click
AStream.Write(txtInput.Text.GetBytes("UTF8"))
txtInput.SelectAll
txtInput.RequestFocus
LogMessage("Me", txtInput.Text)
End Sub

Any help???

walterf25 · May 3, 2012

Bluetooth help

Hi all, i finally got my RN-41 bluetooth Module to communicate with my Motorola Photon, i'm using the Erel's latest example, now i have another issue, while running this example i can send data and i see that i receive it on the other side, i'm basically just using a windows terminal to see what i send from the phone, now the problem is that when i want to reply from the terminal to the phone, i get an error that says.
"An error has occured in sub:
java.lang.Exception: Sub astreams_newdata was not found."

below is the log i get from the phone

FireFly-A09F:00:06:66:43:A0:9F
connected: true
java.lang.Exception: Sub astreams_newdata was not found.
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:142)
at anywheresoftware.b4a.BA$2.run(BA.java:244)
at android.os.Handler.handleCallback(Handler.java:587)
at android.os.Handler.dispatchMessage(Handler.java:92)
at android.os.Looper.loop(Looper.java:130)
at android.app.ActivityThread.main(ActivityThread.java:3806)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:507)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:839)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:597)
at dalvik.system.NativeStart.main(Native Method)
java.lang.Exception: Sub astreams_newdata was not found.

any ideas why this is happening, just to clarify i got it working by using this

B4X:

serial1.ConnectInsecure(admin,connectedDevice.Mac,1)

and this

B4X:

AStream.Initialize(Main.Serial1.InputStream, Main.Serial1.OutputStream, "AStreams")

any help will be greatly appreciated guys.

Thanks,
:sign0085:

walterf25 · May 3, 2012

Bluetooth help

I'm sorry everyone, for some reason the

B4X:

AStream.Initialize(Main.Serial1.InputStream, Main.Serial1.OutputStream, "AStreams")

'AStreams event was misspelled, i corrected to this

B4X:

Sub AStreams_NewData (Buffer() As Byte)
   LogMessage("You", BytesToString(Buffer, 0, Buffer.Length, "UTF8"))
End Sub

now i have another question, when i send data back from the terminal to the phone, i don't receive all the characters in one line, i get one character per line, is there a way to receive the characters collect them in an array and then display them in the text box?

thanks,
Walter

Erel · May 4, 2012

This is exactly the purpose of "prefix" mode. Each message is prefixed with the message length and the library is responsible pass complete messages.

In regular mode the event is raised whenever there is data available. Your device probably sends the characters one after another. You will need to collect the data in your code.

walterf25 · May 4, 2012

Bluetooth help

I see, thanks a lot for that info Erel, now i understand a little better the whole bluetooth communication deal, i was actually able to program a microcontroller and read an analog voltage and display the voltage on my android phone last night, I will try to post some pictures when i get a chance, B4Android rocks.

cheers,
Walter

hpk2000 · Jun 5, 2012

serial.ConnectInsecure doubt

hi, how can I use the method? especially de Port argument. Don't know what to put there.

Erel · Jun 6, 2012

For some reason you appear as an unlicensed user in the forum. Please contact support@basic4ppc.com in order to fix it.

CSP · Sep 13, 2012

Bluetooth program error

Will this example run on Android 1.6? The code runs perfect on my Droids, but on my Motorola Blur, I get this error on app execution:

Sorry! The application Bluetooth Example (process anywheresoftware.b4a.samples.bluetooth) has stopped unexpectedly. Please try again. (force close)

I've tried enabling bluetooth, disabling it, re-enabling it, resetting the phone, etc, all to no avail.

Erel · Sep 13, 2012

Bluetooth APIs (the native APIs) are only available on Android 2.0 and above.

luke2012 · Sep 18, 2012

Bluetooth file transfer

Hi!
It's possible to send a file between two paired devices ?

Erel · Sep 19, 2012

Yes. Instead of sending text you can send bytes.

mclightning · Sep 29, 2012

why i dont have access to this file, even though i just registered...

Erel · Sep 29, 2012

Some of the files are only available to licensed users. Contact support@basic4ppc.com if you have bought Basic4android.

PD5DJ · Oct 30, 2012

Hi Erel

I have some issues using the Asyncstreams,

Also caused by the fact im very new to this..

But neverteless I cant get my situation working..

I want to receive the following sentences from an embedded device.

Header = $
Stopper = #
Variable = 1234

$1234#

I have made a similar code for my embedded work, and that works fine..

This is what i made with Astreams_newdata.
I looks like I am missing a lot of characters sended in..

What I want is full control over all the characters 1 by 1 coming in, without missing some.

:sign0163:

B4X:

Sub AStreams_NewData (D() As Byte)
  
   Dd = BytesToString(D,0,1,"UTF-8")
   
   Dim Bytecounter As Byte
   Dim Cmaxchar As Byte :Cmaxchar = 20
   Dim Buffer As String
   Dim Dd As String
   
   If Connected Then
   
      If Bytecounter < Cmaxchar Then
   
         Bytecounter = Bytecounter + 1
      
         If Dd = "#" Then
            Buffer = ""
            Bytecounter = 0
            Label1.Text = Buffer
            
         
            Else If Dd = "$" Then
         
               Buffer= ""
               Bytecounter = 0
            Else
         
               Buffer = Buffer & Dd
                              
               If Bytecounter > 19 Then
                  Buffer = ""
                  Bytecounter = 0
               End If
            
         End If
      End If
   End If
   
End Sub

Android Tutorial Android Bluetooth / BluetoothAdmin Tutorial

Attachments

New Member

B4X founder

Active Member

B4X founder

Active Member

B4X founder

Member

Expert

Expert

B4X founder

Expert

Member

B4X founder

Member

B4X founder

Well-Known Member

B4X founder

New Member

B4X founder

Member

Similar Threads

Privacy & Transparency

Privacy & Transparency