Работа с Bluetooth в Delphi

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;

Code:

function BluetoothGetRadioInfo(hRadio : THandle;

                   var pRadioInfo : BLUETOOTH_RADIO_INFO): DWORD; stdcall;

hRadio

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

pRadioInfo

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

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;