Example: /Bluetooth/Windows Bluetooth/Windows Bluetooth Services

Online Documentation   -   Statistics   -   FAQ   -   Plugin Parts (All, Dependencies)   -   Class hierarchy

New in Version 22.2 22.3 22.4 22.5 23.0 23.1 23.2 23.3 23.4 23.5 24.0 24.1

The list of the   topics,   classes,   interfaces,   controls,   modules,   global methods by category,   global methods by name,   screenshots,   licenses   and   examples.

Platforms to show: All Mac Windows Linux Cross-Platform

/Bluetooth/Windows Bluetooth/Windows Bluetooth Services


Required plugins for this example: MBS Bluetooth Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Bluetooth/Windows Bluetooth/Windows Bluetooth Services

This example is the version from Sun, 23th Jun 2018.

Project "Windows Bluetooth Services.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control List Inherits Listbox
ControlInstance List Inherits Listbox
EventHandler Sub ExpandRow(row As Integer) dim v as Variant = me.RowTag(row) if v isa WindowsBlueToothDeviceMBS then dim w as WindowsBlueToothDeviceMBS = v List.AddRow "Name", w.Name List.AddRow "LocalAddress", w.LocalAddress List.AddRow "RemoteAddress", w.RemoteAddress dim Services() as WindowsBlueToothServiceMBS = w.Services for each Service as WindowsBlueToothServiceMBS in Services Add Service next end if if v isa WindowsBlueToothServiceMBS then dim w as WindowsBlueToothServiceMBS = v List.AddRow "Name", w.Name List.AddRow "Comment", w.Comment List.AddRow "RemoteAddress", w.RemoteAddress List.AddRow "Port", str(w.Port) add w.Properties end if if v isa Dictionary then dim w as Dictionary = v // sort keys dim keys() as integer for each key as Variant in w.keys keys.Append key.IntegerValue next keys.sort for each key as Variant in keys dim val as Variant = w.Value(key) dim vv as string try if val isa MemoryBlock then dim s as string = val vv = EncodeHex(s) else vv = val.StringValue end if catch r as runtimeException // ignore? end try List.AddRow key.StringValue, vv next end if End EventHandler
End Control
EventHandler Sub Open() dim Devices() as WindowsBlueToothDeviceMBS = WindowsBlueToothDeviceMBS.Devices for each Device as WindowsBlueToothDeviceMBS in Devices Add Device next End EventHandler
Sub Add(service as Dictionary) List.AddFolder "Properties" List.RowTag(List.LastIndex) = service End Sub
Sub Add(device as WindowsBlueToothDeviceMBS) List.AddFolder device.Name List.RowTag(List.LastIndex) = device list.Expanded(List.LastIndex) = true End Sub
Sub Add(service as WindowsBlueToothServiceMBS) List.AddFolder service.Name List.RowTag(List.LastIndex) = service list.Expanded(List.LastIndex) = true End Sub
End Class
MenuBar MainMenuBar
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem EditSeparator1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem EditSeparator2 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
End Project

See also:

The items on this page are in the following plugins: MBS Bluetooth Plugin.


💬 Ask a question or report a problem