Далее, в JwaBluetoothAPI.pas после

implementation uses JwaWinDLLNames;

const btapi = ‘irprops.cpl’;

Да простят нас ребята, которые эту библиотеку писали!

Все эти действия я делал для того, чтобы уменьшить архив примера. Да и не нужно тянуть за собой много лишнего. Хотя сама библиотека весьма полезна. Один модуль JwaWindows чего стоит. Там есть очень много интересного.

После того, как мы подправили эти модули, давайте добавим их в наш проект. Готово?

В этом приложении мы будем получать список локальных радиомодулей, устройств, к ним присоединенных, список сервисов, предоставляемых устройствами. Также мы должны управлять радиомодулями и научиться проходить авторизацию.

Приступаем.Оформление главной формы

На главную форму поместите компонент TPanel и установите следующие свойства:

Далее поместите компонент TTreeView и установите свойства как в таблице:

Правее TTreeView поместим TSplitter и установим следующие его свойства:

И, наконец, помещаем компонент TListView еще правее TSplitter. Устанавливаем его свойства как в таблице:

На TPanel поместим кнопку TButton.

Теперь мы готовы писать программу.Пишем код

При старте нашей программы желательно, чтобы сразу заполнялся TreeView. В нем будут показаны модули Bluetooth и устройства, которые к ним подключены.

Для этого в обработчике OnCreate формы fmMain напишем такой код: procedure TfmMain.FormCreate(Sender: TObject); begin btRefresh.Click; end;

А в обработчике OnClick кнопки btRefresh напишем следующее: procedure TfmMain.btRefreshClick(Sender: TObject); var RootNode: TTreeNode; hFind: HBLUETOOTH_RADIO_FIND; hDevFind: HBLUETOOTH_DEVICE_FIND; FindParams: BLUETOOTH_FIND_RADIO_PARAMS; SearchParams: BLUETOOTH_DEVICE_SEARCH_PARAMS; SearchParamsSize: dword; DevInfo: ^PBLUETOOTH_DEVICE_INFO; DevInfoSize: dword; hRadio: THandle; RadioInfo: PBLUETOOTH_RADIO_INFO; RadioInfoSize: dword; RadioNode: TTreeNode; Loop: integer; DevNode: TTreeNode; begin with TreeView.Items do begin BeginUpdate; // Очищаем дерево for Loop := 0 to Count — 1 do begin if TreeView.Items[Loop].ImageIndex > 0 then CloseHandle(TreeView.Items[Loop].ImageIndex); if Assigned(TreeView.Items[Loop].Data) then Dispose(TreeView.Items[Loop].Data); end; Clear; // Корневая ветвь в дереве RootNode := Add(nil, ‘Bluetooth Radios’); with RootNode do begin Data := nil; ImageIndex := -1; end; // Начинаем поиск локальных модулей Bluetooth FindParams.dwSize := SizeOf(BLUETOOTH_FIND_RADIO_PARAMS); hFind := BluetoothFindFirstRadio(@FindParams, hRadio); if hFind <> 0 then begin repeat // Получить информацию о радиомодуле New(RadioInfo); RadioInfoSize := SizeOf(BLUETOOTH_RADIO_INFO); FillChar(RadioInfo^, RadioInfoSize, 0); RadioInfo^.dwSize := RadioInfoSize; // Ошибки не обрабатываем. BluetoothGetRadioInfo(hRadio, RadioInfo^); // Добавляем радио в дерево RadioNode := AddChild(RootNode, string(RadioInfo^.szName) + ‘ [‘ + BTAdrToStr(RadioInfo^.address) + ‘]’); with RadioNode do begin // Так как мы сохраняем Handle, то не закрываем его! ImageIndex := hRadio; Data := RadioInfo; end; // Начинаем поиск устройств для найденного радиомодуля. SearchParamsSize := SizeOf(BLUETOOTH_DEVICE_SEARCH_PARAMS); FillChar(SearchParams, SearchParamsSize, 0); SearchParams.dwSize := SearchParamsSize; SearchParams.fReturnRemembered := True; SearchParams.hRadio := hRadio; New(DevInfo); DevInfoSize := SizeOf(BLUETOOTH_DEVICE_INFO); FillChar(DevInfo^, DevInfoSize, 0); DevInfo^.dwSize := DevInfoSize; // Ищем первое hDevFind := BluetoothFindFirstDevice(SearchParams, DevInfo^); if hDevFind <> 0 then begin repeat // Добавляем в дерево DevNode := AddChild(RadioNode, string(DevInfo^.szName) + ‘ [‘ + BTAdrToStr(DevInfo^.Address) + ‘]’); with DevNode do begin Data := DevInfo; ImageIndex := -2; end; // Ищем следующее устройство New(DevInfo); DevInfoSize := SizeOf(BLUETOOTH_DEVICE_INFO); FillChar(DevInfo^, DevInfoSize, 0); DevInfo^.dwSize := DevInfoSize; until not BluetoothFindNextDevice(hDevFind, DevInfo^); // Поиск устройств закончен BluetoothFindDeviceClose(hDevFind); end; // Находим следующее радио until not BluetoothFindNextRadio(hFind, hRadio); // Поиск радиомодулей закончен BluetoothFindRadioClose(hFind); end; EndUpdate; end; with TreeView do begin Selected := RootNode; Items[0].Expand(True); end; end;

В uses нашего модуля, который относится к главной форме, допишем: implementation // Уже написано. uses // Дописать! JwaBluetoothAPIs, Windows, SysUtils, Dialogs;

Ниже добавим функцию: // Преобразует адрес из внутреннего формата (dword) в строку, // принятую для представления адресов устройств Bluetooth. function BTAdrToStr(const Adr: BLUETOOTH_ADDRESS): string; var Loop: byte; begin Result := IntToHex(Adr.rgBytes[0], 2); for Loop := 1 to 5 do Result := IntToHex(Adr.rgBytes[Loop], 2) + ‘:’ + Result; end;

Здесь хочу привести описание используемых структур, так как ранее я их не описывал:

BLUETOOTH_FIND_RADIO_PARAMS

BLUETOOTH_FIND_RADIO_PARAMS = record
dwSize : DWORD;
end;

Члены:

• dwSize — Входной параметр. Должен быть равен размеру структуры (dwSize := SizeOf (BLUETOOTH_FIND_RADIO_PARAMS))

BLUETOOTH_DEVICE_SEARCH_PARAMS

BLUETOOTH_DEVICE_SEARCH_PARAMS = record
dwSize : DWORD;
fReturnAuthenticated : BOOL;
fReturnRemembered : BOOL;
fReturnUnknown : BOOL;
fReturnConnected : BOOL;
fIssueInquiry : BOOL;
cTimeoutMultiplier : UCHAR;
hRadio : THandle;
end;

Члены:

• dwSize — Входной параметр. Должен быть равен размеру структуры (dwSize := SizeOf(BLUETOOTH_DEVICE_SEARCH_PARAMS))
• fReturnAuthenticated — Входной параметр. Функция будет возвращать устройства, прошедшие авторизацию.
• fReturnRemembered — Входной параметр. Функция будет возвращать устройства, уже запомненные раннее.
• fReturnUnknown — Входной параметр. Функция будет возвращать новые либо неизвестные устройства.
• fReturnConnected — Входной параметр. Функция будет возвращать подключенные устройства.
• fIssueInquiry — Входной параметр. Заставляет функцию проверять устройства.
• cTimeoutMultiplier — Входной параметр. Тайм-аут для проверки устройства.
• hRadio — Handle радиомодуля, для которого проводится поиск устройств. Если 0, то проверяются все радиомодули.

BLUETOOTH_DEVICE_INFO

BLUETOOTH_DEVICE_INFO = record
dwSize : DWORD;
Address : BLUETOOTH_ADDRESS;
ulClassofDevice : ULONG;
fConnected : BOOL;
fRemembered : BOOL;
fAuthenticated : BOOL;
stLastSeen : SYSTEMTIME;
stLastUsed : SYSTEMTIME;
szName : array [0..BLUETOOTH_MAX_NAME_SIZE — 1] of WideChar;
end;

Члены:

• dwSize — Входной параметр. Должен быть равен размеру структуры (dwSize := SizeOf(BLUETOOTH_DEVICE_INFO))
• Address — Адрес устройства Bluetooth.
• ulClassofDevice — Класс устройства. Подробнее по классам смотрите в JwaBluetoothAPIs. Константы с префиксом COD_xxx.
• fConnected — Если TRUE, то устройство подключено/используется.
• fRemembered — Если TRUE, то устройство ранее уже было найдено (запомнено).
• fAuthenticated — Если TRUE, то устройство прошло авторизацию (авторизированно).
• stLastSeen — Дата и время последнего обнаружения устройства.
• stLastUsed — Дата и время последнего использования устройства.
• szName — Название устройства (имя).

BLUETOOTH_RADIO_INFO

BLUETOOTH_RADIO_INFO = record
dwSize : DWORD;
address : BLUETOOTH_ADDRESS;
szName : array [0..BLUETOOTH_MAX_NAME_SIZE — 1] of WideChar;
ulClassofDevice : ULONG;
lmpSubversion : Word;
manufacturer : Word;
end;

Члены:

• dwSize — Должен быть равен размеру структуры (dwSize := SizeOf(BLUETOOTH_RADIO_INFO))
• Address — Адрес радиомодуля Bluetooth.
• szName — Имя радиомодуля.
• ulClassofDevice — Класс устройства (см. выше).
• lmpSubversion — Зависит от производителя.
• Manufacturer — Код производителя. Определяется константами BTH_MFG_Xxx. Более полную информацию о производителях можно получить на сайте поддержки Bluetooth.

Далее напишем такой обработчик события OnChange для TreeView: procedure TfmMain.TreeViewChange(Sender: TObject; Node: TTreeNode); var ASelected: TTreeNode; procedure ShowRadios; var Info: PBLUETOOTH_RADIO_INFO; CurNode: TTreeNode; begin // Строим столбцы with ListView.Columns do begin BeginUpdate; with Add do Caption := ‘Address’; with Add do Caption := ‘Name’; with Add do Caption := ‘Class Of Device’; with Add do Caption := ‘Manufacturer’; with Add do Caption := ‘Subversion’; with Add do Caption := ‘Connectable’; with Add do Caption := ‘Discoverable’; EndUpdate; end; // Заполняем список with ListView.Items do begin BeginUpdate; CurNode := ASelected.GetFirstChild; while Assigned(CurNode) do begin Info := PBLUETOOTH_RADIO_INFO(CurNode.Data); // Перечитать информацию о радиомодуле BluetoothGetRadioInfo(CurNode.ImageIndex, Info^); with Add do begin Data := Pointer(CurNode.ImageIndex); Caption := BTAdrToStr(Info.address); with SubItems do begin Add(string(Info.szName)); Add(IntToStr(Info.ulClassofDevice)); Add(IntToStr(Info.manufacturer)); Add(IntToStr(Info.lmpSubversion)); // NEW FUNCTIONS. Add(BoolToStr(BluetoothIsConnectable(CurNode.ImageIndex), True)); Add(BoolToStr(BluetoothIsDiscoverable(CurNode.ImageIndex), True)); end; end; CurNode := ASelected.GetNextChild(CurNode); end; EndUpdate;; end; end; procedure ShowDevices; var Info: ^PBLUETOOTH_DEVICE_INFO; CurNode: TTreeNode; begin // Строим столбцы with ListView.Columns do begin BeginUpdate; with Add do Caption := ‘Address’; with Add do Caption := ‘Name’; with Add do Caption := ‘Class Of Device’; with Add do Caption := ‘Connected’; with Add do Caption := ‘Remembered’; with Add do Caption := ‘Authenticated’; with Add do Caption := ‘Last Seen’; with Add do Caption := ‘Last Used’; EndUpdate; end; // Заполняем список with ListView.Items do begin BeginUpdate; CurNode := ASelected.GetFirstChild; while Assigned(CurNode) do begin Info := CurNode.Data; // Перечитываем информацию об устройстве // Так как передаем указатель, то она автоматом // Обновится и в том месте, где мы ее сохраняли BluetoothGetDeviceInfo(ASelected.ImageIndex, Info^); with Add do begin Data := Info; Caption := BTAdrToStr(Info^.Address); with SubItems do begin Add(string(Info^.szName)); Add(IntToStr(Info^.ulClassofDevice)); Add(BoolToStr(Info^.fConnected, True)); Add(BoolToStr(Info^.fRemembered, True)); Add(BoolToStr(Info^.fAuthenticated, True)); try // stLastSeen может быть 0 и тогда здесь ошибка будет Add(DateTimeToStr(SystemTimeToDateTime(Info^.stLastSeen))); except Add(»); end; try // stLastUsed может быть 0 и тогда здесь ошибка будет Add(DateTimeToStr(SystemTimeToDateTime(Info^.stLastUsed))); except Add(»); end; end; end; CurNode := ASelected.GetNextChild(CurNode); end; EndUpdate;; end; end; procedure ShowServices; var Info: __PBLUETOOTH_DEVICE_INFO; ServiceCount: dword; Services: array of TGUID; hRadio: THandle; Loop: integer; begin // Строим столбцы with ListView.Columns do begin BeginUpdate; with Add do Caption := ‘GUID’; EndUpdate; end; // Заполняем список with ListView.Items do begin BeginUpdate; // Получаем размер массива сервисов ServiceCount := 0; Services := nil; hRadio := ASelected.Parent.ImageIndex; Info := ASelected.Data; // NEW FUNCTION BluetoothEnumerateInstalledServices(hRadio, Info, ServiceCount, nil); // Выделяем память. SetLength(Services, ServiceCount); // Получаем список сервисов BluetoothEnumerateInstalledServices(hRadio, Info, ServiceCount, PGUID(Services)); // Рисуем их for Loop := 0 to ServiceCount — 1 do with Add do Caption := GUIDToString(Services[Loop]); // Очищаем память Services := nil; EndUpdate; end; end; begin ASelected := TreeView.Selected; // Очищаем ListView with ListView do begin with Columns do begin BeginUpdate; Clear; EndUpdate; end; with Items do begin BeginUpdate; Clear; EndUpdate; end; end; // Заполняем информацией if Assigned(ASelected) then case ASelected.ImageIndex of -2: ShowServices; -1: ShowRadios; else if ASelected.ImageIndex > 0 then ShowDevices; end; end;

В этом коде появилось три новые функции, которые выделены комментариями. Вот они:

BluetoothIsConnectable

Эта функция определяет, возможно ли подключение к указанному радиомодулю.

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

Параметры:

• hRadio — Handle радиомодуля, который мы проверяем. Если 0, то проверяются все радиомодули.

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

• Вернет TRUE, если указанный радиомодуль разрешает входящие подключения. Если hRadio=0, то вернет TRUE, если хотя бы один радиомодуль разрешает входящие подключения.
• Если входящие подключения запрещены, то вернет FALSE.

BluetoothIsDiscoverable

Функция определяет, будет ли виден указанный радиомодуль другим при поиске. Если просматриваются все радиомодули, то вернет TRUE, если хотя бы один разрешает обнаружение.

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

Параметры:

• hRadio — Handle радиомодуля, который мы проверяем. Если 0, то проверяются все радиомодули.

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

• Вернет TRUE, если указанный радиомодуль разрешает обнаружение. Если hRadio=0, то вернет TRUE, если хотя бы один радиомодуль разрешает обнаружение.
• Если обнаружение запрещено, то вернет FALSE.

BluetoothEnumerateInstalledServices

Получает список GUID сервисов, предоставляемых устройством. Если параметр hRadio=0, то просматривает все радиомодули.

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

Параметры:

• hRadio — Handle радиомодуля, который мы проверяем. Если 0, то проверяются все радиомодули.
• pbtdi — Указатель на структуру BLUETOOTH_DEVICE_INFO, в которой описано проверяемое устройство. Необходимо заполнить поля dwSize и Address.
• pcServices — При вызове — количество записей в массиве pGuidServices, возвращает в этом параметре реальное количество сервисов, предоставляемых устройством.
• pGuidServices — Указатель на массив TGUID, в который будут записаны GUID, предоставляемых устройством сервисом. Если nil и pcServices=0, то в pcServices будет записано количество сервисов. Необходимо выделить для pGuidServices память размером не менее pcServices*SizeOf(TGUID).

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

• Вернет ERROR_SUCCESS, если вызов успешен и количество сервисов в pcServices соответствует реальности.
• Вернет ERROR_MORE_DATA, если вызов успешен, но выделенное количество памяти (pcServices при вызове) меньше, чем количество предоставляемых сервисов.
• В случае ошибки — другие коды ошибок Win32.

Посмотрите на код получения списка сервисов: // Получаем размер массива сервисов ServiceCount := 0; Services := nil; hRadio := ASelected.Parent.ImageIndex; Info := ASelected.Data; // NEW FUNCTION BluetoothEnumerateInstalledServices(hRadio, Info, ServiceCount, nil); // Выделяем память. SetLength(Services, ServiceCount); // Получаем список сервисов BluetoothEnumerateInstalledServices(hRadio, Info, ServiceCount, PGUID(Services));

Сначала мы вызываем функцию с pcServices=0 и pGuidServices=nil для того, чтобы получить количество сервисов, предоставляемых устройством.

Потом выделяем память (SetLength()) и только затем вызываем функцию с реальными параметрами и получаем список сервисов.

Еще важное замечание. В файле JwaBluetoothAPIs.pas параметр pbtdi имеет тип PBLUETOOTH_DEVICE_INFO, который раскрывается в BLUETOOTH_DEVICE_INFO. Заметьте, что это НЕ УКАЗАТЕЛЬ. Это неверно, так как в исходном виде функция требует именно указатель. Поэтому, я ввел тип type __PBLUETOOTH_DEVICE_INFO = ^PBLUETOOTH_DEVICE_INFO

Так что ИСПОЛЬЗУЙТЕ файл из примера, а не из исходной библиотеки. Иначе получите нарушение доступа к памяти.

Комментарий к коду: мы перечитываем информацию об устройстве, так как за время, пока мы любуемся программой, могли произойти различные события: устройство отключили, отменили авторизацию и т.п. А мы хотим иметь самую свежую информацию об устройстве.

В принципе то, что описано выше, мы уже знали, кроме двух указанных функций.

Давайте расширим возможности нашего приложения. Добавим функции запрета/разрешения обнаружения радиомодуля и запрета/разрешения подключения к нему.

BluetoothEnableIncomingConnections и BluetoothEnableDiscoverable

Поместим на форму компонент TactionList и изменим его свойства как показано в таблице.

Теперь два раза щелкнем по ActionList и в появившемся окне редактора свойств добавим две TAction со следующими свойствами:

На панель Panel добавим две TButton и установим свойства:

Напишем такой обработчик события OnUpdate у acConnectable: procedure TfmMain.acConnectableUpdate(Sender: TObject); var SelectedItem: TListItem; SelectedNode: TTreeNode; begin SelectedNode := TreeView.Selected; SelectedItem := ListView.Selected; with TAction(Sender) do begin Enabled := Assigned(SelectedNode) and Assigned(SelectedItem) and (SelectedNode.ImageIndex = -1); if Enabled then if StrToBool(SelectedItem.SubItems[4]) then Caption := ‘Not conn.’ else Caption := ‘Connectable’; end; end;

И то же самое напишем для обработчика события OnUpdate acDiscoverable: procedure TfmMain.acDiscoverableUpdate(Sender: TObject); var SelectedItem: TListItem; SelectedNode: TTreeNode; begin SelectedNode := TreeView.Selected; SelectedItem := ListView.Selected; with TAction(Sender) do begin Enabled := Assigned(SelectedNode) and Assigned(SelectedItem) and (SelectedNode.ImageIndex = -1); if Enabled then if StrToBool(SelectedItem.SubItems[5]) then Caption := ‘Not disc.’ else Caption := ‘Discoverable’; end; end;

Теперь обработчик события OnExecute для acConnectable: procedure TfmMain.acConnectableExecute(Sender: TObject); var SelectedItem: TListItem; begin SelectedItem := ListView.Selected; if Assigned(SelectedItem) then if not BluetoothEnableIncomingConnections(Integer(SelectedItem.Data), TAction(Sender).Caption = ‘Not conn.’) then MessageDlg(‘Unable to change Radio state’, mtError, [mbOK], 0) else TreeViewChange(TreeView, TreeView.Selected); end;

Такой же обработчик напишем и для OnExecute acDiscoverable. procedure TfmMain.acConnectableExecute(Sender: TObject); var SelectedItem: TListItem; begin SelectedItem := ListView.Selected; if Assigned(SelectedItem) then if not BluetoothEnableDiscovery(Integer(SelectedItem.Data), TAction(Sender).Caption = ‘Not disc.’) then MessageDlg(‘Unable to change Radio state’, mtError, [mbOK], 0) else TreeViewChange(TreeView, TreeView.Selected); end;

Важно: если Windows сам использует радиомодуль, то он не даст поменять статус, хотя и функция выполнится без ошибок!

Здесь мы ввели две новые функции:

BluetoothEnableInfomingConnection

Функция разрешает/запрещает подключения к локальному радиомодулю Bluetooth.

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

Параметры:

• hRadio — Handle радиомодуля, статус которого мы хотим изменить. Если 0, то меняем у всех.
• fEnabled — True — разрешаем подключения; False — запрещаем.

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

• Вернет TRUE, если вызов успешен и статус изменен, в противном случае вернет FALSE.

BluetoothEnableDiscovery

Функция разрешает/запрещает обнаружение локального радиомодуля Bluetooth.

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

Параметры:

• hRadio — Handle радиомодуля, статус которого мы хотим изменить. Если 0, то меняем у всех.
• fEnabled — True — разрешаем обнаружение; False — запрещаем.

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

• Вернет TRUE, если вызов успешен и статус изменен, в противном случае вернет FALSE.

Вывод окна свойств устройства

Теперь давайте научимся выводить системное окно свойств устройства Bluetooth. Для этого добавим к ActionList еще один TAction с такими свойствами:

Добавим на Panel кнопку TButton с такими свойствами:

Теперь напишем такой обработчик событий OnUpdate у acProperty: procedure TfmMain.acPropertyUpdate(Sender: TObject); var SelectedNode: TTreeNode; SelectedItem: TListItem; begin SelectedNode := TreeView.Selected; SelectedItem := ListView.Selected; TAction(Sender).Enabled := Assigned(SelectedNode) and Assigned(SelectedItem) and (SelectedNode.ImageIndex > 0); end;

И обработчик OnExecute для нее же: procedure TfmMain.acPropertyExecute(Sender: TObject); var Info: BLUETOOTH_DEVICE_INFO; begin Info := BLUETOOTH_DEVICE_INFO(ListView.Selected.Data^); BluetoothDisplayDeviceProperties(Handle, Info); end;

Важно: в исходном виде в файле JwaBluetoothAPIs функция BluetoothDisplayDeviceProperties объявлена неверно. Второй параметр должен быть указателем, а там он передается как структура. Я исправил функцию так, чтобы он передавался как var-параметр (по ссылке). Используйте модуль JwaBluetoothAPIs из этого примера, чтобы не возникало ошибок доступа к памяти.

Важно: ни в этой процедуре, ни ранее, ни далее я не провожу проверку ошибок, чтобы не загромождать код лишними подробностями. В реальном приложении НЕОБХОДИМО проверять возвращаемые функциями значения и указатели.

Итак, в этом коде есть новая функция:

BluetoothDisplayDeviceProperty

Функция выводит стандартное окно свойств устройства Bluetooth.

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

Важно: в оригинале (см. примечание выше) функция выглядит так: function BluetoothEnableDiscovery( hwndParent : HWND; pbtdi : PBLUETOOTH_DEVICE_INFO): BOOL; stdcall;

Это неверно, так как в документации Microsoft указано, что параметр pbtdi должен передаваться как указатель (что подразумевает запись PBLUETOOTH_DEVICE_INFO), но как я писал выше, этот тип ошибочен. Он не является указателем. Я изменил функцию так, как показано выше (так она и должна быть, если не менять определение типа).

Параметры:

• hwndParent — Handle родительского окна, которому будет принадлежать диалог свойств. Может быть 0, тогда родительским выбирается окно Desktop.
• pbtdi — Указатель на структуру BLUETOOTH_DEVICE_INFO, в которой содержится адрес требуемого устройства.

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

• Вернет TRUE, если вызов успешен, в противном случае вернет FALSE, код ошибки можно узнать вызовом функции GetLastError.

Выбор устройства

Рассмотрим, как вызвать окно диалога выбора устройства.

Добавим в наш проект на Panel еще одну кнопку TButton, и установим ее свойства как в таблице:

Напишем такой обработчик события OnClick у этой кнопки: procedure TfmMain.btSelectClick(Sender: TObject); var ASelParams: BLUETOOTH_SELECT_DEVICE_PARAMS; ASelParamsSize: dword; begin ASelParamsSize := SizeOf(BLUETOOTH_SELECT_DEVICE_PARAMS); FillChar(ASelParams, ASelParamsSize, 0); with ASelParams do begin dwSize := ASelParamsSize; hwndParent := Handle; fShowRemembered := True; fAddNewDeviceWizard := True; end; BluetoothSelectDevices(@ASelParams); BluetoothSelectDevicesFree(@ASelParams); end;

В этой части кода две новые функции.

BluetoothSelectDevices

Функция разрешает/запрещает обнаружение локального радиомодуля Bluetooth.

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

Параметры:

• pbtsdp — Описание смотрите ниже в описании структуры.

Если функция вернула TRUE, то пользователь выбрал устройства. Pbtsdp^.pDevices будет указывать на корректные данные. После вызова необходимо проверить флаги fAuthenticated and fRemembered, чтобы удостовериться в корректности данных. Для освобождения памяти используйте функцию BluetoothSelectDevicesFree, только если функция вернет TRUE.

Вернет FALSE, если вызов прошел неудачно. Используйте GetLastError для получения дополнительных сведений. Возможные ошибки:

• ERROR_CANCELLED — Пользователь отменил выбор устройства.
• ERROR_INVALID_PARAMETER — Параметр pbsdp равен nil.
• ERROR_REVISION_MISMATCH — Структура, переданная в pbsdp неизвестного или неверного размера.
• Другие ошибки Win32

BLUETOOTH_SELECT_DEVICE_PARAMS

Объявление функции: BLUETOOTH_SELECT_DEVICE_PARAMS = record
dwSize : DWORD;
cNumOfClasses : ULONG;
prgClassOfDevices : PBlueToothCodPairs;
pszInfo : LPWSTR;
hwndParent : HWND;
fForceAuthentication : BOOL;
fShowAuthenticated : BOOL;
fShowRemembered : BOOL;
fShowUnknown : BOOL;
fAddNewDeviceWizard : BOOL;
fSkipServicesPage : BOOL;
pfnDeviceCallback : PFN_DEVICE_CALLBACK;
pvParam : Pointer;
cNumDevices : DWORD;
pDevices : __PBLUETOOTH_DEVICE_INFO;
end;

Члены:

• dwSize — Должен быть равен размеру структуры (dwSize := SizeOf(BLUETOOTH_RADIO_INFO))
• cNumOfClasses — Входной параметр. Количество записей в массиве prgClassOfDevice. Если 0, то ищутся все устройства.
• prgClassOfDevices — Входной параметр. Массив COD (классов устройств), которые необходимо искать.
• pszInfo — Входной параметр. Если не nil, то задает текст заголовка окна выбора устройства.
• hwndParent — Входной параметр. Handle родительского окна для диалога выбора устройства. Если 0, то родителем будет Desktop.
• fForceAuthentication — Входной параметр. Если TRUE, то требует принудительной авторизации устройств.
• fShowAuthenticated — Входной параметр. Если TRUE, то авторизованные устройства будут доступны для выбора.
• fShowRemembered — Входной параметр. Если TRUE, то запомненные устройства будут доступны для выбора.
• fShowUnknown — Входной параметр. Если TRUE, то неизвестные (неавторизованные и не запомненные) устройства будут доступны для выбора.
• fAddNewDeviceWizard — Входной параметр. Если TRUE, то запускает мастер добавления нового устройства.
• fSkipServicesPage — Входной параметр. Если TRUE, то пропускает страницу Сервисы в мастере.
• pfnDeviceCallback — Входной параметр. Если не nil, то является указателем на функцию обратного вызова, которая вызывается для каждого найденного устройства. Если функция вернет TRUE, то устройства добавляется в список, если нет, то устройство игнорируется.
• pvParam — Входной параметр. Его значение будет передано функции pfnDeviceCallback в качестве параметра pvParam.
• cNumDevices — Как входной параметр — количество устройств, которое требуется вернуть. Если 0, то нет ограничений. Как выходной параметр — количество возвращенных устройств (выбранных).
• pDevices — Выходной параметр. Указатель на массив структур BLUETOOTH_DEVICE_INFO. Для его освобождения используйте функцию BluetoothSelectDevicesFree. Важно: в оригинале этот параметр объявлен как PBLUETOOTH_DEVICE_INFO. По этому поводу здесь много комментариев.

BluetoothSelectDevicesFree

Эта функция должна вызываться, только если вызов BluetoothSelectDevices был успешен. Эта функция освобождает память и ресурсы, задействованные функцией BluetoothSelectDevices в структуре BLUETOOTH_SELECT_DEVICE_PARAMS.

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

Параметры:

• pbtsdp — Описание смотрите выше в описании структуры.

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

• Если функция вернула TRUE, то вызов успешен. FALSE — нечего освобождать.

Управление сервисами

Для управления сервисами Microsoft Bluetooth API предоставляет функцию:

BluetoothSetServiceState

Включает или выключает указанный сервис для устройства Bluetooth. Система проецирует сервис Bluetooth на соответствующий драйвер. При отключении сервиса — драйвер удаляется. При его включении — драйвер устанавливается. Если выполняется включение не поддерживаемого сервиса, то драйвер не будет установлен.

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

Параметры:

• hRadio — Описатель радиомодуля.
• pbtdi — Указатель на структуру BLUETOOTH_DEVICE_INFO.
• pGuidService — GUID сервиса, который необходимо включить/выключить.
• dwServiceFlags — Флаги управления сервисом:
  BLUETOOTH_SERVICE_DISABLE — отключает сервис;
  BLUETOOTH_SERVICE_ENABLE — включает сервис.

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

• Возвращает ERROR_SUCCESS, если вызов прошел успешно. Если вызов не удался, то вернет один из следующих кодов:
  • ERROR_INVALID_PARAMETER — Неверные флаги в dwServiceFlags.
  • ERROR_SERVICE_DOES_NOT_EXIST — Указанный сервис не поддерживается
  • Другие ошибки Win32

Важно: в оригинале (см. примечание выше) функция выглядит так: function BluetoothSetServiceState( hRadio : Thandle; pbtdi : PBLUETOOTH_DEVICE_INFO; const pGuidService : TGUID; dwServiceFlags : DWORD): DWORD; stdcall;

Это неверно, так как в документации Microsoft указано, что параметр pbtdi должен передаваться как указатель (что подразумевает запись PBLUETOOTH_DEVICE_INFO), но как я писал выше, этот тип ошибочен. Он не является указателем. Я изменил функцию так, как показано выше (так она и должна быть, если не менять определение типа).

Как использовать функцию? Давайте добавим к ActionList еще одну TAction с такими свойствами:

И добавим на Panel еще одну кнопку TButton, установив у нее следующие свойства:

В обработчике события OnUpdate для acEnable напишем такой код: procedure TfmMain.acEnableUpdate(Sender: TObject); var SelectedNode: TTreeNode; SelectedItem: TListItem; begin SelectedNode := TreeView.Selected; SelectedItem := ListView.Selected; TAction(Sender).Enabled := Assigned(SelectedNode) and Assigned(SelectedItem) and (SelectedNode.ImageIndex = -2); end;

А в обработчике OnExecute для acEnable такой код: procedure TfmMain.acEnableExecute(Sender: TObject); var GUID: TGUID; begin GUID := StringToGUID(ListView.Selected.Caption); BluetoothSetServiceState(TreeView.Selected.Parent.ImageIndex, BLUETOOTH_DEVICE_INFO(TreeView.Selected.Data^), GUID, BLUETOOTH_SERVICE_DISABLE); end;

Важно: после нажатия на кнопку btEnable сервис будет удален из системы. Включить его можно будет через окно свойств устройства Bluetooth.

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

Удаление устройств

Для удаления устройств используется функция:

BluetoothRemoveDevice

Функция удаляет авторизацию между компьютером и устройством Bluetooth. Также очищает кэш-записи об этом устройстве.

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

Параметры:

• hAddress — Адрес устройства, которое удаляется.

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

• Возвращает ERROR_SUCCESS, если устройство удалено и ERROR_NOT_FOUND, если устройство не найдено.

Давайте попробуем. Добавим в ActionList TAction со следующими свойствами:

И на Panel кнопку TButton со свойствами:

В обработчике OnUpdate для acRemove напишем следующий код: procedure TfmMain.acRemoveUpdate(Sender: TObject); begin TAction(Sender).Enabled := acProperty.Enabled; end;

А для события OnExecute такой код: procedure TfmMain.acRemoveExecute(Sender: TObject); var Info: BLUETOOTH_DEVICE_INFO; Res: dword; begin Info := BLUETOOTH_DEVICE_INFO(ListView.Selected.Data^); Res := BluetoothRemoveDevice(Info.Address); if Res <> ERROR_SUCCESS then MessageDlg(‘Device not found’, mtError, [mbOK], 0); TreeViewChange(TreeView, TreeView.Selected); end;

Процедура выполняется достаточно долго, так что не думайте, что программа зависла.

Важно: устройство удаляется из списка. Однако если уже иметь адрес устройства, то можно получить о нем информацию.

Есть еще одна функция, которая связана с BluetoothRemoveDevice. Это:

BluetoothUpdateDeviceRecord

Функция обновляет данные об устройстве в кэше.

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

Параметры:

• pbtdu — Указатель на структуру BLUETOOTH_DEVICE_INFO. В ней должны быть заполнены поля:
  • dwSize — размер структуры;
  • Address — адрес устройства;
  • szName — новое имя устройства.

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

• ERROR_SUCCESS — Функция выполнена успешно.
• ERROR_INVALID_PARAMETER — Указатель pbtdi=nil. (Для варианта в Delphi не реально, так как указатель мы получаем из структуры, передавая ее как var-параметр).
• ERROR_REVISION_MISMATCH — Размер структуры в dwSize не правильный.
• Другие ошибки Win32

Попробуем использовать и ее. Схема стандартная: TAction к ActionList, TButton на Panel:

Код: procedure TfmMain.acUpdateUpdate(Sender: TObject); begin TAction(Sender).Enabled := acProperty.Enabled; end;

procedure TfmMain.acUpdateExecute(Sender: TObject); var Info: BLUETOOTH_DEVICE_INFO; Res: dword; NewName: string; begin if InputQuery(‘Имя устройства’, ‘Новое имя’, NewName) then begin lstrcpyW(Info.szName, PWideChar(WideString(NewName))); Res := BluetoothUpdateDeviceRecord(Info); if Res <> ERROR_SUCCESS then RaiseLastOsError; TreeViewChange(TreeView, TreeView.Selected); end; end;

Как видите, все просто.

Итак, удалять устройства мы умеем. Давайте теперь научимся их добавлять. Для этого Bluetooth API предоставляет две функции:

BluetoothAuthenticateDevice

Функция отправляет запрос на авторизацию удаленному устройству Bluetooth. Есть два режима авторизации: «Wizrd mode» и «Blind Mode«.

«Wizard Mode» запускается, когда параметр pszPasskey = nil. В этом случае открывается окно «Мастера подключения». У пользователя будет запрошен пароль, который будет отправлен в запросе на авторизацию удаленному устройству. Пользователь будет оповещен системой об успешном или не успешном выполнении авторизации и получит возможность попытаться авторизировать устройства еще раз.

«Blind Mode» вызывается, когда pszPasskey <> nil. В этом случае пользователь не увидит никакого мастера. Вам необходимо программно запросить код авторизации (pszPasskey) и уведомить пользователя о результате.

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

Параметры:

• hwndParent — Handle родительского окна. Если 0, то родительским окном станет окно Desktop.
• hRadio — Handle локального радиомодуля. Если 0, то авторизация будет проведена на всех радиомодулях. Если хотя бы один пройдет авторизацию, функция выполнится успешно.
• pbdti — Информация об устройстве, на котором необходимо авторизироваться.
• pszPasskey — PIN для авторизации. Если nil, то вызывается мастер авторизации (описано выше). Важно: pszPasskey не NULL-терминированная строка!
• ulPasskeyLength — Длина строки в байтах. Должна быть меньше либо равна BLUETOOTH_MAX_PASSKEY_SIZE * SizeOf(WCHAR).

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

• ERROR_SUCCESS — Функция выполнена успешно.
• ERROR_CANCELLED — Пользователь отменил процесс авторизации.
• ERROR_INVALID_PARAMETER — Структура pbtdi неверна.
• ERROR_NO_MORE_ITEMS — Устройство в pbtdi уже авторизированно.
• Другие ошибки Win32

Для «Blind Mode» соответствие кодов ошибок Bluetooth кодам ошибок Win32 приведено в таблице:

BluetoothAuthenticateMultipleDevices

Позволяет авторизироваться сразу на нескольких устройствах при помощи одной копии «Мастера авторизации».

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

Параметры:

• hwndParent — Handle родительского окна. Если 0, то родительским окном станет окно Desktop.
• hRadio — Handle локального радиомодуля. Если 0, то авторизация будет проведена на всех радиомодулях. Если хотя бы один пройдет авторизацию, функция выполнится успешно.
• cDevices — Количество элементов в массиве rgpbtdi.
• rgpbtdi — Массив структур BLUETOOTH_DEVICE_INFO, в котором представлены устройства для авторизации.

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

• ERROR_SUCCESS — Функция выполнена успешно. Проверьте флаг fAuthenticated у каждого устройства, чтобы знать, какие прошли авторизацию.
• ERROR_CANCELLED — Пользователь отменил процесс авторизации. Проверьте флаг fAuthenticated у каждого устройства, чтобы знать, какие прошли авторизацию.
• ERROR_INVALID_PARAMETER — Один или несколько элементов массива rgpbtdi неверны.
• ERROR_NO_MORE_ITEMS — Все устройства в массиве уже авторизированны.
• Другие ошибки Win32

Важно: в оригинале функция выглядит вот так: function BluetoothAuthenticateMultipleDevices( hwndParent : HWND; hRadio : THandle; cDevices : DWORD; pbtdi : PBLUETOOTH_DEVICE_INFO): DWORD; stdcall;

Это неверно, так как в документации Microsoft указано, что параметр rgpbtdi должен передаваться как указатель (что подразумевает запись PBLUETOOTH_DEVICE_INFO), но как я писал выше, этот тип ошибочен. Он не является указателем. Я изменил функцию так, как показано выше. По поводу типа __PBLUETOOTH_DEVICE_INFO я писал выше.

Описывать с примером, как использовать эти функции, не буду, так как они тривиальны (если вы прочитали все вышеизложенное). Остались последние три функции, которые мы не рассмотрели:

BluetoothRegisterForAuthentication

Регистрирует функцию обратного вызова, которая будет вызываться на запрос устройства об авторизации. Если несколько приложений зарегистрировало такую функцию, то будет вызвана функция в последнем приложении.

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

Параметры:

• pbtdi — Указатель на BLUETOOTH_DEVICE_INFO. Используется адрес устройства, для которого регистрируется функция. Обратите внимание на параметр. В оригинале он опять передается не как указатель.
• phRegHandle — Указатель, куда будет возвращен Handle регистрации, которой потом используется в BluetoothUnregisterAuthentication.
• pfnCallback — Функция обратного вызова.
• pvParam — Опциональный параметр, который без изменения передается в функцию обратного вызова.

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

• ERROR_SUCCESS — Функция выполнена успешно.
• ERROR_OUTOFMEMORY — Недостаточно памяти.
• Другие ошибки Win32

BluetoothUnregisterAuthentication

Удаляет функцию обратного вызова, зарегистрированную функцией BluetoothRegisterForAuthentication и закрывает Handle.

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

Параметры:

• hRegHandle — Handle регистрации, полученный функцией BluetoothRegisterForAuthentication.

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

• Вернет TRUE, если вызов успешен и FALSE в случае неудачи. Используйте GetLastError для получения дополнительной информации.

BluetoothSendAuthenticationResponse

Эта функция должна вызываться из функции обратного вызова при запросе авторизации удаленным устройством для передачи PIN.

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

Параметры:

• hRadio — Handle радиомодуля, для которого проводим авторизацию. Если 0, то пытаемся на всех.
• pbtdi — Указатель на BLUETOOTH_DEVICE_INFO с данными об устройстве, от которого поступил запрос на авторизацию. Может быть, тот же указатель, который передан в функцию обратного вызова.
• pszPasskey — Указатель на UNICODE строку, в которой содержится ключ авторизации (PIN).

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

• ERROR_SUCCESS — Функция выполнена успешно.
• ERROR_CANCELED — Устройство отвергло авторизационный код (PIN). Также, возможно, имеются проблемы со связью
• E_FAIL — Устройство вернуло ошибку авторизации.
• Другие ошибки Win32

И, наконец, функция обратного вызова:

PFN_AUTHENTICATION_CALLBACK

Описание этой функции дано выше. Здесь приведу лишь определеннее.

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

Параметры:

• pvParam — Указатель на параметр, который мы передали в BluetoothRegisterForAuthentication.
• pDevice — Указатель на BLUETOOTH_DEVICE_INFO с данными об устройстве, от которого поступил запрос на авторизацию.

Заключение

На этот раз все. Мы рассмотрели все функции Bluetooth API от Microsoft. Также мы научились управлять устройствами и радиомодулями Bluetooth, проводить авторизацию и получать информацию об этих устройствах.

Но актуальным остается вопрос, который мне многие задают. Как же все-таки передавать данные между устройствами Bluetooth?

Ответ на этот вопрос читайте в следующей серии статей «Передача данных через Bluetooth«.

Конечно, можно было всю эту информацию уместить в эти статьи, но объем ее не сравним с предоставленным здесь. Так что наберитесь терпения. Я постараюсь надолго не задерживать с выходом новой серии.

Полностью рабочий пример, рассмотренный в этой статье, вы можете скачать здесь.

Я буду рад любым замечаниям и пожеланиям по данной теме.