Работа с Bluetooth в Delphi

hFind

Описатель, который вернула функция BluetoothFindFirstDevice

Code:

function BluetoothGetDeviceInfo(hRadio : THandle;

                      var pbtdi : BLUETOOTH_DEVICE_INFO): DWORD; stdcall;

hRadio

Описатель локального радиомодуля Bluetooth

pbtdi

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

Code:

procedure GetDevices(_hRadio: THandle);

var

DeviceInfo: PBLUETOOTH_DEVICE_INFO;

DeviceSearchParams: BLUETOOTH_DEVICE_SEARCH_PARAMS;

DeviceFind: HBLUETOOTH_DEVICE_FIND;

begin

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

with DeviceSearchParams do

begin

dwSize := SizeOf(BLUETOOTH_DEVICE_SEARCH_PARAMS);

fReturnRemembered := true; // Вернуть запомненные

hRadio := _hRadio;

end;

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

FillChar(DeviceInfo, SizeOf(BLUETOOTH_DEVICE_INFO), 0);

DeviceInfo.dwSize := SizeOf(PBLUETOOTH_DEVICE_INFO);

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

DeviceFind := BluetoothFindFirstDevice(DeviceSearchParams, DeviceInfo);

if (DeviceFind <> 0) then begin

repeat

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

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

FillChar(DeviceInfo, SizeOf(BLUETOOTH_DEVICE_INFO), 0);

DeviceInfo.dwSize := SizeOf(PBLUETOOTH_DEVICE_INFO);

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

until (not BluetoothFindNextDevice(DeviceFind, DeviceInfo));

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

BluetoothFindDeviceClose(DeviceFind);

end;

end

;