CorryWestSide
Member
i have this kind of problem with a bluetooth module:
Start with this i wirte this Log:
Connected, servizi: (ArrayList) [00001800-0000-1000-8000-00805f9b34fb, 00001801-0000-1000-8000-00805f9b34fb, 00005301-0000-0041-4c50-574953450000] DONE
The service that i want is only Servizio id: 00005301-0000-0041-4c50-574953450000 DONE
This service have now 2 Characteristic: Key: 00005303-0000-0041-4c50-574953450000 (NOTIFY) RX | Key: 00005302-0000-0041-4c50-574953450000(WRITE) TX
The problem is here:
I have to send this value at TX:
And
The problem is that the RX not return me nothing......
The attach file is the File.txt that i have Vs the File.txt that i have to have
Example of Code:
Start with this i wirte this Log:
Connected, servizi: (ArrayList) [00001800-0000-1000-8000-00805f9b34fb, 00001801-0000-1000-8000-00805f9b34fb, 00005301-0000-0041-4c50-574953450000] DONE
The service that i want is only Servizio id: 00005301-0000-0041-4c50-574953450000 DONE
This service have now 2 Characteristic: Key: 00005303-0000-0041-4c50-574953450000 (NOTIFY) RX | Key: 00005302-0000-0041-4c50-574953450000(WRITE) TX
The problem is here:
I have to send this value at TX:
B4X:
Dim startCommandBytes() As Byte = Array As Byte(5,6,64,0,8,1,91,149)
B4X:
Dim passwordLogin As String = "00000000"
Dim passwordBytes() As Byte = passwordLogin.GetBytes("UTF8")The problem is that the RX not return me nothing......
The attach file is the File.txt that i have Vs the File.txt that i have to have
Example of Code:
Piece Of Code:
Dim startCommandBytes() As Byte = Array As Byte(5,6,64,0,8,1,91,149)
Dim passwordLogin As String = "00000000"
Dim passwordBytes() As Byte = passwordLogin.GetBytes("UTF8")
blmanager.WriteData("00005301-0000-0041-4c50-574953450000", "00005302-0000-0041-4c50-574953450000", startCommandBytes) 'TX
blmanager.WriteData("00005301-0000-0041-4c50-574953450000", "00005302-0000-0041-4c50-574953450000", passwordBytes)
blmanager.SetNotify("00005301-0000-0041-4c50-574953450000", "00005303-0000-0041-4c50-574953450000",True) 'RX