Работа с Bluetooth в Delphi

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

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

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

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

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

Code:

function BluetoothIsConnectable(const hRadio : THandle): BOOL; stdcall;

Параметры:

hRadio

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

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

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

·	Если входящие подключения запрещены, то вернет FALSE.

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

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

Code:

function BluetoothIsDiscoverable(const hRadio : THandle): BOOL; stdcall;

Параметры:

hRadio

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

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

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

·	Если обнаружение запрещено, то вернет FALSE.

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

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

Code:

function BluetoothEnumerateInstalledServices(

hRadio : THandle;

pbtdi : __PBLUETOOTH_DEVICE_INFO;

var pcServices : dword;

pGuidServices : PGUID): dword; stdcall;

Параметры:

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.

Примечания:

Посмотрите на код получения списка сервисов:

Code:

// Получаем размер массива сервисов

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))

Новые статьи

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

Работа с Bluetooth в Delphi