Работа с Bluetooth в Delphi

Code:

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

Название устройства (имя)

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;

dwSize

Должен быть равен размеру структуры (dwSize := SizeOf(BLUETOOTH_RADIO_INFO))

Address

Адрес радиомодуля Bluetooth

szName

Имя радиомодуля

ulClassofDevice

Класс устройства (см. выше)

lmpSubversion

Зависит от производителя

Manufacturer

Код производителя. Определяется константами BTH_MFG_Xxx. Более полную информацию о производителях можно получить на сайте поддержки Bluetooth.