QML Bluetooth Scanner Example

 /****************************************************************************
 **
 ** Copyright (C) 2017 The Qt Company Ltd.
 ** Copyright (C) 2013 BlackBerry Limited. All rights reserved.
 ** Contact: https://www.qt.io/licensing/
 **
 ** This file is part of the examples of the QtBluetooth module.
 **
 ** $QT_BEGIN_LICENSE:BSD$
 ** Commercial License Usage
 ** Licensees holding valid commercial Qt licenses may use this file in
 ** accordance with the commercial license agreement provided with the
 ** Software or, alternatively, in accordance with the terms contained in
 ** a written agreement between you and The Qt Company. For licensing terms
 ** and conditions see https://www.qt.io/terms-conditions. For further
 ** information use the contact form at https://www.qt.io/contact-us.
 **
 ** BSD License Usage
 ** Alternatively, you may use this file under the terms of the BSD license
 ** as follows:
 **
 ** "Redistribution and use in source and binary forms, with or without
 ** modification, are permitted provided that the following conditions are
 ** met:
 **   * Redistributions of source code must retain the above copyright
 **     notice, this list of conditions and the following disclaimer.
 **   * Redistributions in binary form must reproduce the above copyright
 **     notice, this list of conditions and the following disclaimer in
 **     the documentation and/or other materials provided with the
 **     distribution.
 **   * Neither the name of The Qt Company Ltd nor the names of its
 **     contributors may be used to endorse or promote products derived
 **     from this software without specific prior written permission.
 **
 **
 ** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 ** "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 ** LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
 ** A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
 ** OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 ** SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
 ** LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 ** DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 ** THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 ** (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 ** OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE."
 **
 ** $QT_END_LICENSE$
 **
 ****************************************************************************/

 import QtQuick 2.0
 import QtBluetooth 5.2

 Item {
     id: top

     property BluetoothService currentService

     BluetoothDiscoveryModel {
         id: btModel
         running: true
         discoveryMode: BluetoothDiscoveryModel.DeviceDiscovery
         onDiscoveryModeChanged: console.log("Discovery mode: " + discoveryMode)
         onServiceDiscovered: console.log("Found new service " + service.deviceAddress + " " + service.deviceName + " " + service.serviceName);
         onDeviceDiscovered: console.log("New device: " + device)
         onErrorChanged: {
                 switch (btModel.error) {
                 case BluetoothDiscoveryModel.PoweredOffError:
                     console.log("Error: Bluetooth device not turned on"); break;
                 case BluetoothDiscoveryModel.InputOutputError:
                     console.log("Error: Bluetooth I/O Error"); break;
                 case BluetoothDiscoveryModel.InvalidBluetoothAdapterError:
                     console.log("Error: Invalid Bluetooth Adapter Error"); break;
                 case BluetoothDiscoveryModel.NoError:
                     break;
                 default:
                     console.log("Error: Unknown Error"); break;
                 }
         }
    }

     Rectangle {
         id: busy

         width: top.width * 0.7;
         anchors.horizontalCenter: parent.horizontalCenter
         anchors.top: top.top;
         height: text.height*1.2;
         radius: 5
         color: "#1c56f3"
         visible: btModel.running

         Text {
             id: text
             text: "Scanning"
             font.bold: true
             font.pointSize: 20
             anchors.centerIn: parent
         }

         SequentialAnimation on color {
             id: busyThrobber
             ColorAnimation { easing.type: Easing.InOutSine; from: "#1c56f3"; to: "white"; duration: 1000; }
             ColorAnimation { easing.type: Easing.InOutSine; to: "#1c56f3"; from: "white"; duration: 1000 }
             loops: Animation.Infinite
         }
     }

     ListView {
         id: mainList
         width: top.width
         anchors.top: busy.bottom
         anchors.bottom: buttonGroup.top
         anchors.bottomMargin: 10
         anchors.topMargin: 10
         clip: true

         model: btModel
         delegate: Rectangle {
             id: btDelegate
             width: parent.width
             height: column.height + 10

             property bool expended: false;
             clip: true
             Image {
                 id: bticon
                 source: "qrc:/default.png";
                 width: bttext.height;
                 height: bttext.height;
                 anchors.top: parent.top
                 anchors.left: parent.left
                 anchors.margins: 5
             }

             Column {
                 id: column
                 anchors.left: bticon.right
                 anchors.leftMargin: 5
                 Text {
                     id: bttext
                     text: deviceName ? deviceName : name
                     font.family: "FreeSerif"
                     font.pointSize: 16
                 }

                 Text {
                     id: details
                     function get_details(s) {
                         if (btModel.discoveryMode == BluetoothDiscoveryModel.DeviceDiscovery) {
                             //We are doing a device discovery
                             var str = "Address: " + remoteAddress;
                             return str;
                         } else {
                             var str = "Address: " + s.deviceAddress;
                             if (s.serviceName) { str += "<br>Service: " + s.serviceName; }
                             if (s.serviceDescription) { str += "<br>Description: " + s.serviceDescription; }
                             if (s.serviceProtocol) { str += "<br>Protocol: " + s.serviceProtocol; }
                             return str;
                         }
                     }
                     visible: opacity !== 0
                     opacity: btDelegate.expended ? 1 : 0.0
                     text: get_details(service)
                     font.family: "FreeSerif"
                     font.pointSize: 14
                     Behavior on opacity {
                         NumberAnimation { duration: 200}
                     }
                 }
             }
             Behavior on height { NumberAnimation { duration: 200} }

             MouseArea {
                 anchors.fill: parent
                 onClicked: btDelegate.expended = !btDelegate.expended
             }
         }
         focus: true
     }

     Row {
         id: buttonGroup
         property var activeButton: devButton

         anchors.bottom: parent.bottom
         anchors.horizontalCenter: parent.horizontalCenter
         anchors.bottomMargin: 5
         spacing: 10

         Button {
             id: fdButton
             width: top.width/3*0.9
             //mdButton has longest text
             height: mdButton.height
             text: "Full Discovery"
             onClicked: btModel.discoveryMode = BluetoothDiscoveryModel.FullServiceDiscovery
         }
         Button {
             id: mdButton
             width: top.width/3*0.9
             text: "Minimal Discovery"
             onClicked: btModel.discoveryMode = BluetoothDiscoveryModel.MinimalServiceDiscovery
         }
         Button {
             id: devButton
             width: top.width/3*0.9
             //mdButton has longest text
             height: mdButton.height
             text: "Device Discovery"
             onClicked: btModel.discoveryMode = BluetoothDiscoveryModel.DeviceDiscovery
         }
     }

 }