Содержание материала

Страница 4 из 26

Работа с Bluetooth в Delphi

Часть 2

Вступление

В первой части статьи мы научились получать список локальных радиомодулей Bluetooth и узнавать их свойства.

Теперь пришло время получить список устройств Bluetooth, которые подключены к нашим локальным радиомодулям.

Получение списка устройств Bluetooth

Для получения списка устройств Bluetooth нам понадобятся следующие функции (они очень похожи на функции, используемые для получения списка локальных радиомодулей).

BluetoothFindFirstDevice - начинает перечисление устройств Bluetooth.

Объявление функции:

Code:

function BluetoothFindFirstDevice(

const pbtsp : BLUETOOTH_DEVICE_SEARCH_PARAMS;

var pbtdi : BLUETOOTH_DEVICE_INFO): HBLUETOOTH_DEVICE_FIND; stdcall;

Параметры:

Pbtsp

Указатель на структуру BLUETOOTH_DEVICE_SEARCH_PARAMS. Член dwSize этой структуры должен содержать размер структуры (устанавливается посредством SizeOf(BLUETOOTH_DEVICE_SEARCH_PARAMS)). Член hRadio должен содержать описатель локального радиомодуля, полученный вызовом функции BluetoothFindFirstRadio.

Pbtdi

Структура BLUETOOTH_DEVICE_INFO в которую будет возвращена информации об устройстве Bluetooth.

Возвращаемые значения:

·	В случае успешного выполнения функция вернет корректный описатель в качестве результата.

·	В случае ошибки будет возвращен 0. Для получения кода ошибки используйте функцию GetLastError

BluetoothFindNextDevice - находит следующее устройство Bluetooth.

Объявление функции:

Code:

function BluetoothFindNextDevice(hFind : HBLUETOOTH_DEVICE_FIND;

var pbtdi : BLUETOOTH_DEVICE_INFO): BOOL; stdcall;

Параметры:

hFind	Описатель, который вернула функция BluetoothFindFirstDevice
pbtdi	Структура BLUETOOTH_DEVICE_INFO, в которую будет помещена информацию об устройстве

Возвращаемые значения:

·	Вернет TRUE, если устройство найдено.

·	Вернет FALSE в случае отсутствия устройства. Используйте GetLastError для получения кода ошибки.

BluetoothFindDeviceClose - закрывает описатель перечисления устройств Bluetooth.

Объявление функции:

Code:

function BluetoothFindDeviceClose(hFind : HBLUETOOTH_DEVICE_FIND): BOOL; stdcall;

Новые статьи

Библиотека для работы с BlueTooth

Работа с Bluetooth в Delphi