Часть 1
Вступление
Этой статьей хочу начать серию по работе с Bluetooth в Delphi под Microsoft Windows XP. Так как тема весьма сложная, прошу внимательно читать. Повторяться не буду.
Все программы написаны на Delphi 6 и тестировались со стандартным стеком Bluetooth от Microsoft под Windows XP + SP2.
Все необходимые библиотеки прилагаются. Так что дополнительно ничего качать не нужно. При разработке использовал только API функции с JEDI.
Описание функций будут даны в стиле Object Pascal. Сионистов просьба обращаться к MSDN и Microsoft Platform SDK.
Получение списка установленных радиомодулей Bluetooth
Итак, для начала попробуем получить список установленных на компьютере радиомодулей Bluetooth.
BluetoothFindFirstRadio - начинает перечисление локальных радиомодулей Bluetooth.
Объявление функции:
|
Code: |
|
function BluetoothFindFirstRadio( const pbtfrp : PBlueToothFindRadioParams; var phRadio : THandle): HBLUETOOTH_RADIO_FIND; stdcall; |
Параметры:
|
pbtfrp |
указатель на структуру BLUETOOTH_FIND_RADIO_PARAMS. Член dwSize этой структуры должен содержать размер структуры (устанавливается посредством SizeOf(BLUETOOTH_FIND_RADIO_PARAMS)). |
|
phRadio |
описатель (Handle) найденного устройства. |
Возвращаемые значения:
| · | В случае успешного выполнения функция вернет корректный описатель в phRadio и корректный описатель в качестве результата |
| · | В случае ошибки будет возвращен 0. Для получения кода ошибки используйте функцию GetLastError |
BluetoothFindNextRadio - находит следующий установленный радиомодуль Bluetooth.
Объявление функции:
|
Code: |
|
function BluetoothFindNextRadio( hFind : HBLUETOOTH_RADIO_FIND; var phRadio : THandle): BOOL; stdcall; |
Параметры:
|
hFind |
Описатель, который вернула функция BluetoothFindFirstRadio |
|
phRadio |
Сюда будет помещен описатель следующего найденного радиомодуля |
Возвращаемые значения:
| · | Вернет TRUE, если устройство найдено. В phRadio корректный описатель на найденный радиомодуль. |
| · | Вернет FALSE в случае отсутствия устройства. phRadio содержит некорректный описатель. Используйте GetLastError для получения кода ошибки. |
BluetoothFindRadioClose - закрывает описатель перечисления радиомодулей Bluetooth.
Объявление функции:
|
Code: |
|
function BluetoothFindRadioClose(hFind : HBLUETOOTH_RADIO_FIND): BOOL; stdcall; |
Параметры:
|
hFind |
Описатель, который вернула функция BluetoothFindFirstRadio |
Возвращаемые значения:
| · | Вернет TRUE если описатель успешно закрыт. |
| · | Вернет FALSE в случае ошибки. Для получения кода ошибки используйте GetLastError. |
Теперь у нас достаточно знаний, чтобы получить список установленных радиомодулей Bluetooth.
Напишем вот такую процедуру:
- Назад
- Вперёд >>
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!