голошення функції:
BluetoothFindRadioClose (hFind: HBLUETOOTH_RADIO_FIND): BOOL; stdcall;
Параметри:
· hFind - описувач, який повернула функція BluetoothFindFirstRadio. Повертаються значення: поверне TRUE якщо описувач успішно закритий. Поверне FALSE у разі помилки. Для отримання коду помилки використовується GetLastError.
Для отримання списку встановлених радіомодулів Bluetooth напишемо наступну процедуру:
procedure EnumRadio ;: THandle ;: BLUETOOTH_FIND_RADIO_PARAMS ;: HBLUETOOTH_RADIO_FIND;//Ініціалізація структури BLUETOOTH_FIND_RADIO_PARAMS.dwSize:=SizeOf (BFRP);
//Починаємо пошук:=BluetoothFindFirstRadio (BFRP, hRadio); (hFind lt; gt; 0) then begin
repeat
//Щось зробити з отриманим описателем
//Закрити описувач пристрої (hRadio);// Знаходимо наступний пристрій
until (not BluetoothFindNextRadio (hFind, hRadio));
//Закриваємо пошук (hFind); end; end;
Cледующим процедура призначена для отримання інформації про модуль Bluetooth. Для цього використовується функція BluetoothGetRadioInfo, яка повертає інформацію про Радіомодуль, який представлений описателем.
Оголошення функції:
BluetoothGetRadioInfo (hRadio: THandle; var pRadioInfo: BLUETOOTH_RADIO_INFO): DWORD; stdcall;
Параметри:
· hRadio - описувач локального радиомодуля, який отримано функцією BluetoothFindRadioFirst або BluetoothFindRadioNext.
· pRadioInfo - структура, в яку записується інформація про зазначений Радіомодуль. Член dwSize повинен бути дорівнює розміру структури. Повертаються значення: поверне ERROR_SUCCESS якщо інформація отримана, в іншому випадку код помилки.
Структура BLUETOOTH_RADIO_INFO виглядай ось так:
_ BLUETOOTH_RADIO_INFO=record: dword ;: BLUETOOTH_ADDRESS ;: array [0..BLUETOOTH_MAX_NAME_SIZE - 1] of widechar ;: ulong ;: word ;: word ;;
Тут dwSize - розмір структури в байтах, address - адреса локального радиомодуля, szName - ім'я радиомодуля, ulClassofDevice - клас пристрою, lmpSubversion - встановлюється виробником, manufacturer - код виробника (константи BTH_MFG_Xxx).
Скористаємося цією інформацією і напишемо ось таку процедуру.
procedure GetRadioInfo (hRadio: THandle); RadioInfo: BLUETOOTH_RADIO_INFO;
begin//Ініціалізація структури BLUETOOTH_RADIO_INFO
FillChar (RadioInfo, 0, SizeOf (RadioInfo)) ;. dwSize:=SizeOf (RadioInfo);
//Отримуємо інформацію (BluetoothGetRadioInfo (hRadio, RadioInfo)=ERROR_SUCCESS) then begin
//Використовуємо отриману інформацію; end;
6. Створення підсистеми допомоги (керівництва користувача по налаштуванню системи управління через Bluetooth)
. 1 Встановлення та налаштування Bluetooth-адаптера на комп'ютері
Крок 1. Вставте Bluetooth-адаптер в USB-порт комп'ютера (якщо ви - користувач ноутбука з вбудованою Bluetooth-підтримкою - відразу перейдіть до кроку 3.
Крок 2. Встановіть драйвера Blue Soleil, які йдуть в комплекті до пристрою Bluetooth (підуть і ті, що запропонує Windows).
Крок 3. Перейдіть на Панель управління в Пристрої Bluetooth. Натисніть Додати. Далі поставте галочку на пункті Пристрій встановлено і готове до виявлення .
Натисніть Далі. Майстер знайде телефон (природно, Bluetooth телефону повинен бути включений), знову Далі.
Крок 4. У вікні ключ доступу поставте Вибрати ключ доступу самостійно і введіть будь-яку комбінацію цифр, наприклад 0000. Натисніть Далі. Телефон запросить додавання комп'ютера. Погодьтеся і введіть цю ж комбінацію. Якщо драйвера були встановлено на кроці 2, то майстер запропонує встановити драйвера, - нехай Windows ставить свої рідні (Автоматична установка).
Крок 5. Заходимо на Панель управління в Пристрої Bluetooth. Тепер на вкладці Пристрої ми повинні бачити телефон (ім'я та ключ доступу встановлено ).
Якщо не бачимо, то повертаємося до кроку 3. Якщо бачимо, то переходимо на вкладку параметри і обов'язково ставимо Включити виявлення і Дозволити пристроям Bluetooth підключатися до цього комп'ютера raquo ;. Тиснемо ОК. Ми поєднали телефон і комп'ютер (це можна легко перевірити по працездатності HID).
Крок 6. Необхідно знати номер com-пор...
