#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region
Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private manager As BleManager2
End Sub
Public Sub Initialize
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Private Sub Permissions
Dim PM As PermissionsManager
PM.CheckAndRequestPermission(PermissionsManager.DANGEROUS_BLUETOOTH_SCAN)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
Log("BLUETOOTH_SCAN NOT Grantet")
End If
PM.CheckAndRequestPermission(PermissionsManager.DANGEROUS_BLUETOOTH_CONNECT)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
Log("ACCESS_BLUETOOTH_CONNECT NOT Grantet")
End If
PM.CheckAndRequestPermission(PermissionsManager.DANGEROUS_ACCESS_FINE_LOCATION)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
Log("ACCESS_FINE_LOCATION NOT Grantet")
End If
End Sub
Private Sub Button1_Click
Permissions
manager.Initialize("manager")
If manager.State <> manager.STATE_POWERED_ON Then
Log("Error starting discovery process. Is bluetooth active")
Else
Log("Start discovery")
manager.Scan(Null)
End If
End Sub
Sub Manager_DeviceFound (Name As String, Id As String, AdvertisingData As Map, RSSI As Double)
Log("Found: " & Name & ", " & Id & ", RSSI = " & RSSI & ", " & AdvertisingData)
End Sub
