Работа с Bluetooth в Delphi

Code:

implementation // Уже написано!!!

uses // Дописать!

JwaBluetoothAPIs, Windows, SysUtils, Dialogs;

Code:

// Преобразует адрес из внутреннего формата (dword) в строку,

// принятую для представления адресов устройств Bluetooth.

function BTAdrToStr(const Adr: BLUETOOTH_ADDRESS): string;

var

Loop: byte;

begin

Result := IntToHex(Adr.rgBytes[0], 2);

for Loop := 1 to 5 do

Result := IntToHex(Adr.rgBytes[Loop], 2) + ‘:’ + Result;

end;

Code:

BLUETOOTH_DEVICE_SEARCH_PARAMS = record

dwSize : DWORD;

fReturnAuthenticated : BOOL;

fReturnRemembered : BOOL;

fReturnUnknown : BOOL;

fReturnConnected : BOOL;

fIssueInquiry : BOOL;

cTimeoutMultiplier : UCHAR;

hRadio : THandle;

end;

dwSize

Входной параметр. Должен быть равен размеру структуры (dwSize := SizeOf(BLUETOOTH_DEVICE_SEARCH_PARAMS))

fReturnAuthenticated

Входной параметр. Функция будет возвращать устройства, прошедшие авторизацию.

fReturnRemembered

Входной параметр. Функция будет возвращать устройства, уже запомненные раннее.

fReturnUnknown

Входной параметр. Функция будет возвращать новые либо неизвестные устройства.

fReturnConnected

Входной параметр. Функция будет возвращать подключенные устройства.

fIssueInquiry

Входной параметр. Заставляет функцию проверять устройства.

cTimeoutMultiplier

Входной параметр. Тайм-аут для проверки устройства.

hRadio

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