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

Code:

procedure EnumRadio;

var

hRadio: THandle;

BFRP: BLUETOOTH_FIND_RADIO_PARAMS;

hFind: HBLUETOOTH_RADIO_FIND;

begin

// Инициализация структуры BLUETOOTH_FIND_RADIO_PARAMS

BFRP.dwSize := SizeOf(BFRP);

// Начинаем поиск

hFind := BluetoothFindFirstRadio(@BFRP, hRadio);

if (hFind <> 0) then

begin

repeat

// Что-то сделать с полученным описателем

 

// Закрыть описатель устройства

CloseHandle(hRadio);

 

// Находим следующее устройство

until (not BluetoothFindNextRadio(hFind, hRadio));

// Закрываем поиск

BluetoothFindRadioClose(hFind);

end;

end;

 

Это, конечно, все здорово, но в принципе бесполезно. Давайте что-нибудь сделаем еще. Например, получим информацию о радиомодуле Bluetooth.

Получение информации о радиомодуле Bluetooth

Для получения информации о радиомодуле Bluetooth используется функция

BluetoothGetRadioInfo - возвращает информацию о радиомодуле, который представлен описателем.

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

Code:

function BluetoothGetRadioInfo(hRadio : THandle;

                   var pRadioInfo : BLUETOOTH_RADIO_INFO): DWORD; stdcall;

 

Параметры:

hRadio

Описатель локального радиомодуля, который получен функцией BluetoothFindRadioFirst или BluetoothFindRadioNext

pRadioInfo

Структура, в которую записывается информация об указанном радиомодуле. Член dwSize должен быть равен размеру структуры

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

· Вернет ERROR_SUCCESS если информация получена, в противном случае код ошибки.

Структура BLUETOOTH_RADIO_INFO выгляди вот так:

Code:

_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;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить