diff options
Diffstat (limited to 'nimbluez/msbt')
| -rw-r--r-- | nimbluez/msbt/ms_bluetoothapis.nim | 1653 | ||||
| -rw-r--r-- | nimbluez/msbt/ms_bthdef.nim | 1279 | ||||
| -rw-r--r-- | nimbluez/msbt/ms_bthsdpdef.nim | 98 | ||||
| -rw-r--r-- | nimbluez/msbt/ms_ws2bth.nim | 372 |
4 files changed, 3402 insertions, 0 deletions
diff --git a/nimbluez/msbt/ms_bluetoothapis.nim b/nimbluez/msbt/ms_bluetoothapis.nim new file mode 100644 index 0000000..c895128 --- /dev/null +++ b/nimbluez/msbt/ms_bluetoothapis.nim @@ -0,0 +1,1653 @@ +# +# Copyright 2002 - 2004, Microsoft Corporation +# +#//////////////////////////////////////////////////////////////////////////// + +{.deadCodeElim: on.} +when not defined(windows): + {.error: "MSBT is supported by windows".} + + +const + libbluetooth* = "bthprops.cpl" + +import winlean +import ms_bthdef, ms_bthsdpdef + +const + BTH_MAX_PIN_SIZE = 16 + +const + BLUETOOTH_MAX_NAME_SIZE* = (248) + BLUETOOTH_MAX_PASSKEY_SIZE* = (16) + BLUETOOTH_MAX_PASSKEY_BUFFER_SIZE* = (BLUETOOTH_MAX_PASSKEY_SIZE + 1) + BLUETOOTH_MAX_SERVICE_NAME_SIZE* = (256) + BLUETOOTH_DEVICE_NAME_SIZE* = (256) + +# *************************************************************************** +# +# Bluetooth Address +# +# *************************************************************************** +type + INNER_C_UNION_1866013399* = object {.union.} + ullLong*: BTH_ADDR # easier to compare again BLUETOOTH_NULL_ADDRESS + rgBytes*: array[6, BYTE] # easier to format when broken out + BLUETOOTH_ADDRESS_STRUCT* = object + ano_116103095*: INNER_C_UNION_1866013399 + BLUETOOTH_ADDRESS* = BLUETOOTH_ADDRESS_STRUCT + +const + BLUETOOTH_NULL_ADDRESS* = 0x0'i64 +type + BLUETOOTH_LOCAL_SERVICE_INFO_STRUCT* = object + Enabled*: BOOL # If TRUE, the enable the services + btAddr*: BLUETOOTH_ADDRESS # If service is to be advertised for a particular remote device + szName*: array[BLUETOOTH_MAX_SERVICE_NAME_SIZE, WCHAR] # SDP Service Name to be advertised. + szDeviceString*: array[BLUETOOTH_DEVICE_NAME_SIZE, WCHAR] # Local device name (if any) like COM4 or LPT1 + BLUETOOTH_LOCAL_SERVICE_INFO* = BLUETOOTH_LOCAL_SERVICE_INFO_STRUCT + PBLUETOOTH_LOCAL_SERVICE_INFO* = ptr BLUETOOTH_LOCAL_SERVICE_INFO +# *************************************************************************** +# +# Radio Enumeration +# +# Description: +# This group of APIs enumerates the installed Bluetooth radios. +# +# Sample Usage: +# HANDLE hRadio; +# BLUETOOTH_FIND_RADIO_PARAMS btfrp = { sizeof(btfrp) }; +# +# HBLUETOOTH_RADIO_FIND hFind = BluetoothFindFirstRadio( &btfrp, &hRadio ); +# if ( NULL != hFind ) +# { +# do +# { +# // +# // TODO: Do something with the radio handle. +# // +# +# CloseHandle( hRadio ); +# +# } while( BluetoothFindNextRadio( hFind, &hRadio ) ); +# +# BluetoothFindRadioClose( hFind ); +# } +# +# *************************************************************************** +type + BLUETOOTH_FIND_RADIO_PARAMS* = object + dwSize*: DWORD # IN sizeof this structure + + HBLUETOOTH_RADIO_FIND* = HANDLE +# +# Description: +# Begins the enumeration of local Bluetooth radios. +# +# Parameters: +# pbtfrp +# A pointer to a BLUETOOTH_FIND_RADIO_PARAMS structure. The dwSize +# member of this structure must match the sizeof the of the structure. +# +# phRadio +# A pointer where the first radio HANDLE enumerated will be returned. +# +# Return Values: +# NULL +# Error opening radios or no devices found. Use GetLastError() for +# more info. +# +# ERROR_INVALID_PARAMETER +# pbtfrp parameter is NULL. +# +# ERROR_REVISION_MISMATCH +# The pbtfrp structure is not the right length. +# +# ERROR_OUTOFMEMORY +# Out of memory. +# +# other Win32 errors. +# +# any other +# Success. The return handle is valid and phRadio points to a valid handle. +# +proc BluetoothFindFirstRadio*(pbtfrp: ptr BLUETOOTH_FIND_RADIO_PARAMS; + phRadio: ptr HANDLE): HBLUETOOTH_RADIO_FIND {. + stdcall, importc: "BluetoothFindFirstRadio", dynlib: libbluetooth.} +# +# Description: +# Finds the next installed Bluetooth radio. +# +# Parameters: +# hFind +# The handle returned by BluetoothFindFirstRadio(). +# +# phRadio +# A pointer where the next radio HANDLE enumerated will be returned. +# +# Return Values: +# TRUE +# Next device succesfully found. pHandleOut points to valid handle. +# +# FALSE +# No device found. pHandleOut points to an invalid handle. Call +# GetLastError() for more details. +# +# ERROR_INVALID_HANDLE +# The handle is NULL. +# +# ERROR_NO_MORE_ITEMS +# No more radios found. +# +# ERROR_OUTOFMEMORY +# Out of memory. +# +# other Win32 errors +# +proc BluetoothFindNextRadio*(hFind: HBLUETOOTH_RADIO_FIND; + phRadio: ptr HANDLE): BOOL {.stdcall, + importc: "BluetoothFindNextRadio", dynlib: libbluetooth.} +# +# Description: +# Closes the enumeration handle. +# +# Parameters +# hFind +# The handle returned by BluetoothFindFirstRadio(). +# +# Return Values: +# TRUE +# Handle succesfully closed. +# +# FALSE +# Failure. Check GetLastError() for details. +# +# ERROR_INVALID_HANDLE +# The handle is NULL. +# +proc BluetoothFindRadioClose*(hFind: HBLUETOOTH_RADIO_FIND): BOOL {.stdcall, + importc: "BluetoothFindRadioClose", dynlib: libbluetooth.} +# *************************************************************************** +# +# Radio Information +# +# *************************************************************************** +type + BLUETOOTH_RADIO_INFO* = object + dwSize*: DWORD # Size, in bytes, of this entire data structure + address*: BLUETOOTH_ADDRESS # Address of the local radio + szName*: array[BLUETOOTH_MAX_NAME_SIZE, WCHAR] # Name of the local radio + ulClassofDevice*: ULONG # Class of device for the local radio + lmpSubversion*: USHORT # lmpSubversion, manufacturer specifc. + manufacturer*: USHORT # Manufacturer of the radio, BTH_MFG_Xxx value. For the most up to date + # list, goto the Bluetooth specification website and get the Bluetooth + # assigned numbers document. + + PBLUETOOTH_RADIO_INFO* = ptr BLUETOOTH_RADIO_INFO +# +# Description: +# Retrieves the information about the radio represented by the handle. +# +# Parameters: +# hRadio +# Handle to a local radio retrieved through BluetoothFindFirstRadio() +# et al or SetupDiEnumerateDeviceInterfaces() +# +# pRadioInfo +# Radio information to be filled in. The dwSize member must match the +# size of the structure. +# +# Return Values: +# ERROR_SUCCESS +# The information was retrieved successfully. +# +# ERROR_INVALID_PARAMETER +# pRadioInfo or hRadio is NULL. +# +# ERROR_REVISION_MISMATCH +# pRadioInfo->dwSize is invalid. +# +# other Win32 error codes. +# +proc BluetoothGetRadioInfo*(hRadio: HANDLE; + pRadioInfo: PBLUETOOTH_RADIO_INFO): DWORD {. + stdcall, importc: "BluetoothGetRadioInfo", dynlib: libbluetooth.} +# *************************************************************************** +# +# Device Information Stuctures +# +# *************************************************************************** +type + BLUETOOTH_DEVICE_INFO_STRUCT* = object + dwSize*: DWORD # size, in bytes, of this structure - must be the sizeof(BLUETOOTH_DEVICE_INFO) + Address*: BLUETOOTH_ADDRESS # Bluetooth address + ulClassofDevice*: ULONG # Bluetooth "Class of Device" + fConnected*: BOOL # Device connected/in use + fRemembered*: BOOL # Device remembered + fAuthenticated*: BOOL # Device authenticated/paired/bonded + stLastSeen*: SYSTEMTIME # Last time the device was seen + stLastUsed*: SYSTEMTIME # Last time the device was used for other than RNR, inquiry, or SDP + szName*: array[BLUETOOTH_MAX_NAME_SIZE, WCHAR] # Name of the device + + BLUETOOTH_DEVICE_INFO* = BLUETOOTH_DEVICE_INFO_STRUCT + PBLUETOOTH_DEVICE_INFO* = ptr BLUETOOTH_DEVICE_INFO +# +# Support added after KB942567 +# +type + INNER_C_UNION_2689769052* = object {.union.} + Numeric_Value*: ULONG + Passkey*: ULONG + +type + BLUETOOTH_AUTHENTICATION_METHOD* {.size: sizeof(cint).} = enum + BLUETOOTH_AUTHENTICATION_METHOD_LEGACY = 0x00000001, + BLUETOOTH_AUTHENTICATION_METHOD_OOB, + BLUETOOTH_AUTHENTICATION_METHOD_NUMERIC_COMPARISON, + BLUETOOTH_AUTHENTICATION_METHOD_PASSKEY_NOTIFICATION, + BLUETOOTH_AUTHENTICATION_METHOD_PASSKEY + PBLUETOOTH_AUTHENTICATION_METHOD* = ptr BLUETOOTH_AUTHENTICATION_METHOD + BLUETOOTH_IO_CAPABILITY* {.size: sizeof(cint).} = enum + BLUETOOTH_IO_CAPABILITY_DISPLAYONLY = 0x00000000, + BLUETOOTH_IO_CAPABILITY_DISPLAYYESNO = 0x00000001, + BLUETOOTH_IO_CAPABILITY_KEYBOARDONLY = 0x00000002, + BLUETOOTH_IO_CAPABILITY_NOINPUTNOOUTPUT = 0x00000003, + BLUETOOTH_IO_CAPABILITY_UNDEFINED = 0x000000FF + BLUETOOTH_AUTHENTICATION_REQUIREMENTS* {.size: sizeof(cint).} = enum + BLUETOOTH_MITM_ProtectionNotRequired = 0, + BLUETOOTH_MITM_ProtectionRequired = 0x00000001, + BLUETOOTH_MITM_ProtectionNotRequiredBonding = 0x00000002, + BLUETOOTH_MITM_ProtectionRequiredBonding = 0x00000003, + BLUETOOTH_MITM_ProtectionNotRequiredGeneralBonding = 0x00000004, + BLUETOOTH_MITM_ProtectionRequiredGeneralBonding = 0x00000005, + BLUETOOTH_MITM_ProtectionNotDefined = 0x000000FF + BLUETOOTH_AUTHENTICATION_CALLBACK_PARAMS* = object + deviceInfo*: BLUETOOTH_DEVICE_INFO + authenticationMethod*: BLUETOOTH_AUTHENTICATION_METHOD + ioCapability*: BLUETOOTH_IO_CAPABILITY + authenticationRequirements*: BLUETOOTH_AUTHENTICATION_REQUIREMENTS + ano_869376366*: INNER_C_UNION_2689769052 + + PBLUETOOTH_AUTHENTICATION_CALLBACK_PARAMS* = ptr BLUETOOTH_AUTHENTICATION_CALLBACK_PARAMS +# *************************************************************************** +# +# Device Enumeration +# +# Description: +# Enumerates the Bluetooth devices. The types of returned device depends +# on the flags set in the BLUETOOTH_DEVICE_SEARCH_PARAMS (see structure +# definition for details). +# +# Sample Usage: +# HBLUETOOTH_DEVICE_FIND hFind; +# BLUETOOTH_DEVICE_SEARCH_PARAMS btsp = { sizeof(btsp) }; +# BLUETOOTH_DEVICE_INFO btdi = { sizeof(btdi) }; +# +# btsp.fReturnAuthenticated = TRUE; +# btsp.fReturnRemembered = TRUE; +# +# hFind = BluetoothFindFirstDevice( &btsp, &btdi ); +# if ( NULL != hFind ) +# { +# do +# { +# // +# // TODO: Do something useful with the device info. +# // +# +# } while( BluetoothFindNextDevice( hFind, &btdi ) ); +# +# BluetoothFindDeviceClose( hFind ); +# } +# +# *************************************************************************** +type + BLUETOOTH_DEVICE_SEARCH_PARAMS* = object + dwSize*: DWORD # IN sizeof this structure + fReturnAuthenticated*: BOOL # IN return authenticated devices + fReturnRemembered*: BOOL # IN return remembered devices + fReturnUnknown*: BOOL # IN return unknown devices + fReturnConnected*: BOOL # IN return connected devices + fIssueInquiry*: BOOL # IN issue a new inquiry + cTimeoutMultiplier*: UCHAR # IN timeout for the inquiry + hRadio*: HANDLE # IN handle to radio to enumerate - NULL == all radios will be searched + + HBLUETOOTH_DEVICE_FIND* = HANDLE +# +# Description: +# Begins the enumeration of Bluetooth devices. +# +# Parameters: +# pbtsp +# A pointer to a BLUETOOTH_DEVICE_SEARCH_PARAMS structure. This +# structure contains the flags and inputs used to conduct the search. +# See BLUETOOTH_DEVICE_SEARCH_PARAMS for details. +# +# pbtdi +# A pointer to a BLUETOOTH_DEVICE_INFO structure to return information +# about the first Bluetooth device found. Note that the dwSize member +# of the structure must be the sizeof(BLUETOOTH_DEVICE_INFO) before +# calling because the APIs hast to know the size of the buffer being +# past in. The dwSize member must also match the exact +# sizeof(BLUETOOTH_DEVICE_INFO) or the call will fail. +# +# Return Values: +# NULL +# Error opening radios or not devices found. Use GetLastError for more info. +# +# ERROR_INVALID_PARAMETER +# pbtsp parameter or pbtdi parameter is NULL. +# +# ERROR_REVISION_MISMATCH +# The pbtfrp structure is not the right length. +# +# other Win32 errors +# +# any other value +# Success. The return handle is valid and pbtdi points to valid data. +# +proc BluetoothFindFirstDevice*(pbtsp: ptr BLUETOOTH_DEVICE_SEARCH_PARAMS; + pbtdi: ptr BLUETOOTH_DEVICE_INFO): HBLUETOOTH_DEVICE_FIND {. + stdcall, importc: "BluetoothFindFirstDevice", dynlib: libbluetooth.} +# +# Description: +# Finds the next Bluetooth device in the enumeration. +# +# Parameters: +# hFind +# The handle returned from BluetoothFindFirstDevice(). +# +# pbtdi +# A pointer to a BLUETOOTH_DEVICE_INFO structure to return information +# about the first Bluetooth device found. Note that the dwSize member +# of the structure must be the sizeof(BLUETOOTH_DEVICE_INFO) before +# calling because the APIs hast to know the size of the buffer being +# past in. The dwSize member must also match the exact +# sizeof(BLUETOOTH_DEVICE_INFO) or the call will fail. +# +# Return Values: +# TRUE +# Next device succesfully found. pHandleOut points to valid handle. +# +# FALSE +# No device found. pHandleOut points to an invalid handle. Call +# GetLastError() for more details. +# +# ERROR_INVALID_HANDLE +# The handle is NULL. +# +# ERROR_NO_MORE_ITEMS +# No more radios found. +# +# ERROR_OUTOFMEMORY +# Out of memory. +# +# other Win32 errors +# +proc BluetoothFindNextDevice*(hFind: HBLUETOOTH_DEVICE_FIND; + pbtdi: ptr BLUETOOTH_DEVICE_INFO): BOOL {. + stdcall, importc: "BluetoothFindNextDevice", dynlib: libbluetooth.} +# +# Description: +# Closes the enumeration handle. +# +# Parameters: +# hFind +# The handle returned from BluetoothFindFirstDevice(). +# +# Return Values: +# TRUE +# Handle succesfully closed. +# +# FALSE +# Failure. Check GetLastError() for details. +# +# ERROR_INVALID_HANDLE +# The handle is NULL. +# +proc BluetoothFindDeviceClose*(hFind: HBLUETOOTH_DEVICE_FIND): BOOL {. + stdcall, importc: "BluetoothFindDeviceClose", dynlib: libbluetooth.} +# +# Description: +# Retrieves information about a remote device. +# +# Fill in the dwSize and the Address members of the pbtdi structure +# being passed in. On success, the rest of the members will be filled +# out with the information that the system knows. +# +# Parameters: +# hRadio +# Handle to a local radio retrieved through BluetoothFindFirstRadio() +# et al or SetupDiEnumerateDeviceInterfaces() +# +# pbtdi +# A pointer to a BLUETOOTH_DEVICE_INFO structure to return information +# about the first Bluetooth device found. The dwSize member of the +# structure must be the sizeof the structure in bytes. The Address +# member must be filled out with the Bluetooth address of the remote +# device. +# +# Return Values: +# ERROR_SUCCESS +# Success. Information returned. +# +# ERROR_REVISION_MISMATCH +# The size of the BLUETOOTH_DEVICE_INFO isn't compatible. Check +# the dwSize member of the BLUETOOTH_DEVICE_INFO structure you +# passed in. +# +# ERROR_NOT_FOUND +# The radio is not known by the system or the Address field of +# the BLUETOOTH_DEVICE_INFO structure is all zeros. +# +# ERROR_INVALID_PARAMETER +# pbtdi is NULL. +# +# other error codes +# +proc BluetoothGetDeviceInfo*(hRadio: HANDLE; + pbtdi: ptr BLUETOOTH_DEVICE_INFO): DWORD {. + stdcall, importc: "BluetoothGetDeviceInfo", dynlib: libbluetooth.} +# +# Description: +# Updates the computer local cache about the device. +# +# Parameters: +# pbtdi +# A pointer to the BLUETOOTH_DEVICE_INFO structure to be updated. +# The following members must be valid: +# dwSize +# Must match the size of the structure. +# Address +# Must be a previously found radio address. +# szName +# New name to be stored. +# +# Return Values: +# ERROR_SUCCESS +# The device information was updated successfully. +# +# ERROR_INVALID_PARAMETER +# pbtdi is NULL. +# +# ERROR_REVISION_MISMATCH +# pbtdi->dwSize is invalid. +# +# other Win32 error codes. +# +proc BluetoothUpdateDeviceRecord*(pbtdi: ptr BLUETOOTH_DEVICE_INFO): DWORD {. + stdcall, importc: "BluetoothUpdateDeviceRecord", dynlib: libbluetooth.} +# +# Description: +# Delete the authentication (aka "bond") between the computer and the +# device. Also purges any cached information about the device. +# +# Return Values: +# ERROR_SUCCESS +# The device was removed successfully. +# +# ERROR_NOT_FOUND +# The device was not found. If no Bluetooth radio is installed, +# the devices could not be enumerated or removed. +# +proc BluetoothRemoveDevice*(pAddress: ptr BLUETOOTH_ADDRESS): DWORD {. + stdcall, importc: "BluetoothRemoveDevice", dynlib: libbluetooth.} +when not (hostCPU == "arm"): + # + # *************************************************************************** + # + # Device Picker Dialog + # + # Description: + # Invokes a common dialog for selecting Bluetooth devices. The list + # of devices displayed to the user is determined by the flags and + # settings the caller specifies in the BLUETOOTH_SELECT_DEVICE_PARAMS + # (see structure definition for more details). + # + # If BluetoothSelectDevices() returns TRUE, the caller must call + # BluetoothSelectDevicesFree() or memory will be leaked within the + # process. + # + # Sample Usage: + # + # BLUETOOTH_SELECT_DEVICE_PARAMS btsdp = { sizeof(btsdp) }; + # + # btsdp.hwndParent = hDlg; + # btsdp.fShowUnknown = TRUE; + # btsdp.fAddNewDeviceWizard = TRUE; + # + # BOOL b = BluetoothSelectDevices( &btsdp ); + # if ( b ) + # { + # BLUETOOTH_DEVICE_INFO * pbtdi = btsdp.pDevices; + # for ( ULONG cDevice = 0; cDevice < btsdp.cNumDevices; cDevice ++ ) + # { + # if ( pbtdi->fAuthenticated || pbtdi->fRemembered ) + # { + # // + # // TODO: Do something usefull with the device info + # // + # } + # + # pbtdi = (BLUETOOTH_DEVICE_INFO *) ((LPBYTE)pbtdi + pbtdi->dwSize); + # } + # + # BluetoothSelectDevicesFree( &btsdp ); + # } + # + # + # *************************************************************************** + type + BLUETOOTH_COD_PAIRS* = object + ulCODMask*: ULONG # ClassOfDevice mask to compare + pcszDescription*: LPCWSTR # Descriptive string of mask + + PFN_DEVICE_CALLBACK* = proc (pvParam: LPVOID; + pDevice: ptr BLUETOOTH_DEVICE_INFO): BOOL {. + stdcall.} + BLUETOOTH_SELECT_DEVICE_PARAMS* = object + dwSize*: DWORD # IN sizeof this structure + cNumOfClasses*: ULONG # IN Number in prgClassOfDevice - if ZERO search for all devices + prgClassOfDevices*: ptr BLUETOOTH_COD_PAIRS # IN Array of CODs to find. + pszInfo*: LPWSTR # IN If not NULL, sets the "information" text + hwndParent*: HWND # IN parent window - NULL == no parent + fForceAuthentication*: BOOL # IN If TRUE, authenication will be forced before returning + fShowAuthenticated*: BOOL # IN If TRUE, authenticated devices will be shown in the picker + fShowRemembered*: BOOL # IN If TRUE, remembered devices will be shown in the picker + fShowUnknown*: BOOL # IN If TRUE, unknown devices that are not authenticated or "remember" will be shown. + fAddNewDeviceWizard*: BOOL # IN If TRUE, invokes the add new device wizard. + fSkipServicesPage*: BOOL # IN If TRUE, skips the "Services" page in the wizard. + pfnDeviceCallback*: PFN_DEVICE_CALLBACK # IN If non-NULL, a callback that will be called for each device. If the + # the callback returns TRUE, the item will be added. If the callback is + # is FALSE, the item will not be shown. + pvParam*: LPVOID # IN Parameter to be passed to pfnDeviceCallback as the pvParam. + cNumDevices*: DWORD # IN number calles wants - ZERO == no limit. + # OUT the number of devices returned. + pDevices*: PBLUETOOTH_DEVICE_INFO # OUT pointer to an array for BLUETOOTH_DEVICE_INFOs. + # call BluetoothSelectDevicesFree() to free + + # + # Description: + # (See header above) + # + # Return Values: + # TRUE + # User selected a device. pbtsdp->pDevices points to valid data. + # Caller should check the fAuthenticated && fRemembered flags to + # determine which devices we successfuly authenticated or valid + # selections by the user. + # + # Use BluetoothSelectDevicesFree() to free the nessecary data + # such as pDevices only if this function returns TRUE. + # + # FALSE + # No valid data returned. Call GetLastError() for possible details + # of the failure. If GLE() is: + # + # ERROR_CANCELLED + # The user cancelled the request. + # + # ERROR_INVALID_PARAMETER + # The pbtsdp is NULL. + # + # ERROR_REVISION_MISMATCH + # The structure passed in as pbtsdp is of an unknown size. + # + # other WIN32 errors + # + proc BluetoothSelectDevices*(pbtsdp: ptr BLUETOOTH_SELECT_DEVICE_PARAMS): BOOL {. + stdcall, importc: "BluetoothSelectDevices", dynlib: libbluetooth.} + # + # Description: + # This function should only be called if BluetoothSelectDevices() returns + # TRUE. This function will free any memory and resource returned by the + # BluetoothSelectDevices() in the BLUETOOTH_SELECT_DEVICE_PARAMS + # structure. + # + # Return Values: + # TRUE + # Success. + # + # FALSE + # Nothing to free. + # + proc BluetoothSelectDevicesFree*(pbtsdp: ptr BLUETOOTH_SELECT_DEVICE_PARAMS): BOOL {. + stdcall, importc: "BluetoothSelectDevicesFree", dynlib: libbluetooth.} +# *************************************************************************** +# +# Device Property Sheet +# +# *************************************************************************** +# +# Description: +# Invokes the CPLs device info property sheet. +# +# Parameters: +# hwndParent +# HWND to parent the property sheet. +# +# pbtdi +# A pointer to a BLUETOOTH_DEVICE_INFO structure of the device +# to be displayed. +# +# Return Values: +# TRUE +# The property page was successfully displayed. +# +# FALSE +# Failure. The property page was not displayed. Check GetLastError +# for more details. +# +proc BluetoothDisplayDeviceProperties*(hwndParent: HWND; + pbtdi: ptr BLUETOOTH_DEVICE_INFO): BOOL {.stdcall, + importc: "BluetoothDisplayDeviceProperties", dynlib: libbluetooth.} +# *************************************************************************** +# +# Radio Authentication +# +# *************************************************************************** +# +# Description: +# Sends an authentication request to a remote device. +# +# There are two modes of operation. "Wizard mode" and "Blind mode." +# +# "Wizard mode" is invoked when the pszPasskey is NULL. This will cause +# the "Bluetooth Connection Wizard" to be invoked. The user will be +# prompted to enter a passkey during the wizard after which the +# authentication request will be sent. The user will see the success +# or failure of the authentication attempt. The user will also be +# given the oppurtunity to try to fix a failed authentication. +# +# "Blind mode" is invoked when the pszPasskey is non-NULL. This will +# cause the computer to send a authentication request to the remote +# device. No UI is ever displayed. The Bluetooth status code will be +# mapped to a Win32 Error code. +# +# Parameters: +# +# hwndParent +# The window to parent the authentication wizard. If NULL, the +# wizard will be parented off the desktop. +# +# hRadio +# A valid local radio handle or NULL. If NULL, then all radios will +# be tired. If any of the radios succeed, then the call will +# succeed. +# +# pbtdi +# BLUETOOTH_DEVICE_INFO record of the device to be authenticated. +# +# pszPasskey +# PIN to be used to authenticate the device. If NULL, then UI is +# displayed and the user steps through the authentication process. +# If not NULL, no UI is shown. The passkey is NOT NULL terminated. +# +# ulPasskeyLength +# Length of szPassKey in bytes. The length must be less than or +# equal to BLUETOOTH_MAX_PASSKEY_SIZE * sizeof(WCHAR). +# +# Return Values: +# +# ERROR_SUCCESS +# Success. +# +# ERROR_CANCELLED +# User aborted the operation. +# +# ERROR_INVALID_PARAMETER +# The device structure in pbtdi is invalid. +# +# ERROR_NO_MORE_ITEMS +# The device in pbtdi is already been marked as authenticated. +# +# other WIN32 error +# Failure. Return value is the error code. +# +# For "Blind mode," here is the current mapping of Bluetooth status +# code to Win32 error codes: +# +# { BTH_ERROR_SUCCESS, ERROR_SUCCESS }, +# { BTH_ERROR_NO_CONNECTION, ERROR_DEVICE_NOT_CONNECTED }, +# { BTH_ERROR_PAGE_TIMEOUT, WAIT_TIMEOUT }, +# { BTH_ERROR_HARDWARE_FAILURE, ERROR_GEN_FAILURE }, +# { BTH_ERROR_AUTHENTICATION_FAILURE, ERROR_NOT_AUTHENTICATED }, +# { BTH_ERROR_MEMORY_FULL, ERROR_NOT_ENOUGH_MEMORY }, +# { BTH_ERROR_CONNECTION_TIMEOUT, WAIT_TIMEOUT }, +# { BTH_ERROR_LMP_RESPONSE_TIMEOUT, WAIT_TIMEOUT }, +# { BTH_ERROR_MAX_NUMBER_OF_CONNECTIONS, ERROR_REQ_NOT_ACCEP }, +# { BTH_ERROR_PAIRING_NOT_ALLOWED, ERROR_ACCESS_DENIED }, +# { BTH_ERROR_UNSPECIFIED_ERROR, ERROR_NOT_READY }, +# { BTH_ERROR_LOCAL_HOST_TERMINATED_CONNECTION, ERROR_VC_DISCONNECTED }, +# +proc BluetoothAuthenticateDevice*(hwndParent: HWND; hRadio: HANDLE; + pbtbi: ptr BLUETOOTH_DEVICE_INFO; + pszPasskey: PWSTR; ulPasskeyLength: ULONG): DWORD {. + stdcall, importc: "BluetoothAuthenticateDevice", dynlib: libbluetooth, + deprecated.} +# +# Support added after KB942567 +# +# +# Replaces previous API +# +# +# Common header for all PIN related structures +# +type + BLUETOOTH_PIN_INFO* = object + pin*: array[BTH_MAX_PIN_SIZE, UCHAR] + pinLength*: UCHAR + + PBLUETOOTH_PIN_INFO* = ptr BLUETOOTH_PIN_INFO + BLUETOOTH_OOB_DATA_INFO* = object + C*: array[16, UCHAR] + R*: array[16, UCHAR] + + PBLUETOOTH_OOB_DATA_INFO* = ptr BLUETOOTH_OOB_DATA_INFO + BLUETOOTH_NUMERIC_COMPARISON_INFO* = object + NumericValue*: ULONG + + PBLUETOOTH_NUMERIC_COMPARISON_INFO* = ptr BLUETOOTH_NUMERIC_COMPARISON_INFO + BLUETOOTH_PASSKEY_INFO* = object + passkey*: ULONG + + PBLUETOOTH_PASSKEY_INFO* = ptr BLUETOOTH_PASSKEY_INFO +# +# Description: +# Sends an authentication request to a remote device. +# +# There are two modes of operation. "Wizard mode" and "Blind mode." +# +# "Wizard mode" is invoked when the pbtOobData is NULL. This will cause +# the "Bluetooth Connection Wizard" to be invoked. The user will be +# prompted to respond to the device authentication during the wizard +# after which the authentication request will be sent. The user will see the success +# or failure of the authentication attempt. The user will also be +# given the oppurtunity to try to fix a failed authentication. +# +# "Blind mode" is invoked when the pbtOobData is non-NULL. This will +# cause the computer to send a authentication request to the remote +# device. No UI is ever displayed. The Bluetooth status code will be +# mapped to a Win32 Error code. +# +# Parameters: +# +# hwndParent +# The window to parent the authentication wizard. If NULL, the +# wizard will be parented off the desktop. +# +# hRadio +# A valid local radio handle or NULL. If NULL, then all radios will +# be tired. If any of the radios succeed, then the call will +# succeed. +# +# pbtdi +# BLUETOOTH_DEVICE_INFO record of the device to be authenticated. +# +# pbtOobData +# Out of band data to be used to authenticate the device. If NULL, then UI is +# displayed and the user steps through the authentication process. +# If not NULL, no UI is shown. +# +# authenticationRequirement +# The Authentication Requirement of the caller. MITMProtection* +# +# +# Return Values: +# +# ERROR_SUCCESS +# Success. +# +# ERROR_CANCELLED +# User aborted the operation. +# +# ERROR_INVALID_PARAMETER +# The device structure in pbtdi is invalid. +# +# ERROR_NO_MORE_ITEMS +# The device in pbtdi is already been marked as authenticated. +# +# other WIN32 error +# Failure. Return value is the error code. +# +# For "Blind mode," here is the current mapping of Bluetooth status +# code to Win32 error codes: +# +# { BTH_ERROR_SUCCESS, ERROR_SUCCESS }, +# { BTH_ERROR_NO_CONNECTION, ERROR_DEVICE_NOT_CONNECTED }, +# { BTH_ERROR_PAGE_TIMEOUT, WAIT_TIMEOUT }, +# { BTH_ERROR_HARDWARE_FAILURE, ERROR_GEN_FAILURE }, +# { BTH_ERROR_AUTHENTICATION_FAILURE, ERROR_NOT_AUTHENTICATED }, +# { BTH_ERROR_MEMORY_FULL, ERROR_NOT_ENOUGH_MEMORY }, +# { BTH_ERROR_CONNECTION_TIMEOUT, WAIT_TIMEOUT }, +# { BTH_ERROR_LMP_RESPONSE_TIMEOUT, WAIT_TIMEOUT }, +# { BTH_ERROR_MAX_NUMBER_OF_CONNECTIONS, ERROR_REQ_NOT_ACCEP }, +# { BTH_ERROR_PAIRING_NOT_ALLOWED, ERROR_ACCESS_DENIED }, +# { BTH_ERROR_UNSPECIFIED_ERROR, ERROR_NOT_READY }, +# { BTH_ERROR_LOCAL_HOST_TERMINATED_CONNECTION, ERROR_VC_DISCONNECTED }, +# +proc BluetoothAuthenticateDeviceEx*(hwndParentIn: HWND; hRadioIn: HANDLE; + pbtdiInout: ptr BLUETOOTH_DEVICE_INFO; + pbtOobData: PBLUETOOTH_OOB_DATA_INFO; + authenticationRequirement: BLUETOOTH_AUTHENTICATION_REQUIREMENTS): DWORD {. + stdcall, importc: "BluetoothAuthenticateDeviceEx", + dynlib: libbluetooth.} +# +# Description: +# Allows the caller to prompt for multiple devices to be authenticated +# within a single instance of the "Bluetooth Connection Wizard." +# +# Parameters: +# +# hwndParent +# The window to parent the authentication wizard. If NULL, the +# wizard will be parented off the desktop. +# +# hRadio +# A valid local radio handle or NULL. If NULL, then all radios will +# be tired. If any of the radios succeed, then the call will +# succeed. +# +# cDevices +# Number of devices in the rgbtdi array. +# +# rgbtdi +# An array BLUETOOTH_DEVICE_INFO records of the devices to be +# authenticated. +# +# Return Values: +# +# ERROR_SUCCESS +# Success. Check the fAuthenticate flag on each of the devices. +# +# ERROR_CANCELLED +# User aborted the operation. Check the fAuthenticate flags on +# each device to determine if any of the devices were authenticated +# before the user cancelled the operation. +# +# ERROR_INVALID_PARAMETER +# One of the items in the array of devices is invalid. +# +# ERROR_NO_MORE_ITEMS +# All the devices in the array of devices are already been marked as +# being authenticated. +# +# other WIN32 error +# Failure. Return value is the error code. +# +proc BluetoothAuthenticateMultipleDevices*(hwndParent: HWND; hRadio: HANDLE; + cDevices: DWORD; rgbtdi: ptr BLUETOOTH_DEVICE_INFO): DWORD {.stdcall, + importc: "BluetoothAuthenticateMultipleDevices", dynlib: libbluetooth, + deprecated.} +# +# Deprecated after Vista SP1 and KB942567 +# + +# *************************************************************************** +# +# Bluetooth Services +# +# *************************************************************************** +const + BLUETOOTH_SERVICE_DISABLE* = 0x00000000 + BLUETOOTH_SERVICE_ENABLE* = 0x00000001 + BLUETOOTH_SERVICE_MASK* = ( + BLUETOOTH_SERVICE_DISABLE or BLUETOOTH_SERVICE_ENABLE) +# +# Description: +# Enables/disables the services for a particular device. +# +# The system maintains a mapping of service guids to supported drivers for +# Bluetooth-enabled devices. Enabling a service installs the corresponding +# device driver. Disabling a service removes the corresponding device driver. +# +# If a non-supported service is enabled, a driver will not be installed. +# +# Parameters +# hRadio +# Handle of the local Bluetooth radio device. +# +# pbtdi +# Pointer to a BLUETOOTH_DEVICE_INFO record. +# +# pGuidService +# The service GUID on the remote device. +# +# dwServiceFlags +# Flags to adjust the service. +# BLUETOOTH_SERVICE_DISABLE - disable the service +# BLUETOOTH_SERVICE_ENABLE - enables the service +# +# Return Values: +# ERROR_SUCCESS +# The call was successful. +# +# ERROR_INVALID_PARAMETER +# dwServiceFlags are invalid. +# +# ERROR_SERVICE_DOES_NOT_EXIST +# The GUID in pGuidService is not supported. +# +# other WIN32 error +# The call failed. +# +proc BluetoothSetServiceState*(hRadio: HANDLE; + pbtdi: ptr BLUETOOTH_DEVICE_INFO; + pGuidService: ptr GUID; dwServiceFlags: DWORD): DWORD {. + stdcall, importc: "BluetoothSetServiceState", dynlib: libbluetooth.} +# +# Description: +# Enumerates the services guids enabled on a particular device. If hRadio +# is NULL, all device will be searched for the device and all the services +# enabled will be returned. +# +# Parameters: +# hRadio +# Handle of the local Bluetooth radio device. If NULL, it will search +# all the radios for the address in the pbtdi. +# +# pbtdi +# Pointer to a BLUETOOTH_DEVICE_INFO record. +# +# pcService +# On input, the number of records pointed to by pGuidServices. +# On output, the number of valid records return in pGuidServices. +# +# pGuidServices +# Pointer to memory that is at least *pcService in length. +# +# Return Values: +# ERROR_SUCCESS +# The call succeeded. pGuidServices is valid. +# +# ERROR_MORE_DATA +# The call succeeded. pGuidService contains an incomplete list of +# enabled service GUIDs. +# +# other WIN32 errors +# The call failed. +# +proc BluetoothEnumerateInstalledServices*(hRadio: HANDLE; + pbtdi: ptr BLUETOOTH_DEVICE_INFO; pcServiceInout: ptr DWORD; + pGuidServices: ptr GUID): DWORD {.stdcall, + importc: "BluetoothEnumerateInstalledServices", dynlib: libbluetooth.} +# +# Description: +# Change the discovery state of the local radio(s). +# If hRadio is NULL, all the radios will be set. +# +# Use BluetoothIsDiscoverable() to determine the radios current state. +# +# The system ensures that a discoverable system is connectable, thus +# the radio must allow incoming connections (see +# BluetoothEnableIncomingConnections) prior to making a radio +# discoverable. Failure to do so will result in this call failing +# (returns FALSE). +# +# Parameters: +# hRadio +# If not NULL, changes the state of a specific radio. +# If NULL, the API will interate through all the radios. +# +# fEnabled +# If FALSE, discovery will be disabled. +# +# Return Values +# TRUE +# State was successfully changed. If the caller specified NULL for +# hRadio, at least of the radios accepted the state change. +# +# FALSE +# State was not changed. If the caller specified NULL for hRadio, all +# of the radios did not accept the state change. +# +proc BluetoothEnableDiscovery*(hRadio: HANDLE; fEnabled: BOOL): BOOL {. + stdcall, importc: "BluetoothEnableDiscovery", dynlib: libbluetooth.} +# +# Description: +# Determines if the Bluetooth radios are discoverable. If there are +# multiple radios, the first one to say it is discoverable will cause +# this function to return TRUE. +# +# Parameters: +# hRadio +# Handle of the radio to check. If NULL, it will check all local +# radios. +# +# Return Values: +# TRUE +# A least one radio is discoverable. +# +# FALSE +# No radios are discoverable. +# +proc BluetoothIsDiscoverable*(hRadio: HANDLE): BOOL {.stdcall, + importc: "BluetoothIsDiscoverable", dynlib: libbluetooth.} +# +# Description: +# Enables/disables the state of a radio to accept incoming connections. +# If hRadio is NULL, all the radios will be set. +# +# Use BluetoothIsConnectable() to determine the radios current state. +# +# The system enforces that a radio that is not connectable is not +# discoverable too. The radio must be made non-discoverable (see +# BluetoothEnableDiscovery) prior to making a radio non-connectionable. +# Failure to do so will result in this call failing (returns FALSE). +# +# Parameters: +# hRadio +# If not NULL, changes the state of a specific radio. +# If NULL, the API will interate through all the radios. +# +# fEnabled +# If FALSE, incoming connection will be disabled. +# +# Return Values +# TRUE +# State was successfully changed. If the caller specified NULL for +# hRadio, at least of the radios accepted the state change. +# +# FALSE +# State was not changed. If the caller specified NULL for hRadio, all +# of the radios did not accept the state change. +# +proc BluetoothEnableIncomingConnections*(hRadio: HANDLE; fEnabled: BOOL): BOOL {. + stdcall, importc: "BluetoothEnableIncomingConnections", + dynlib: libbluetooth.} +# +# Description: +# Determines if the Bluetooth radios are connectable. If there are +# multiple radios, the first one to say it is connectable will cause +# this function to return TRUE. +# +# Parameters: +# hRadio +# Handle of the radio to check. If NULL, it will check all local +# radios. +# +# Return Values: +# TRUE +# A least one radio is allowing incoming connections. +# +# FALSE +# No radios are allowing incoming connections. +# +proc BluetoothIsConnectable*(hRadio: HANDLE): BOOL {.stdcall, + importc: "BluetoothIsConnectable", dynlib: libbluetooth.} +# *************************************************************************** +# +# Authentication Registration +# +# *************************************************************************** +type + HBLUETOOTH_AUTHENTICATION_REGISTRATION* = HANDLE + PFN_AUTHENTICATION_CALLBACK* = proc (pvParam: LPVOID; + pDevice: PBLUETOOTH_DEVICE_INFO): BOOL {.stdcall.} +# +# Description: +# Registers a callback function to be called when a particular device +# requests authentication. The request is sent to the last application +# that requested authentication for a particular device. +# +# Parameters: +# pbtdi +# A pointer to a BLUETOOTH_DEVICE_INFO structure. The Bluetooth +# address will be used for comparision. +# +# phRegHandle +# A pointer to where the registration HANDLE value will be +# stored. Call BluetoothUnregisterAuthentication() to close +# the handle. +# +# pfnCallback +# The function that will be called when the authentication event +# occurs. This function should match PFN_AUTHENTICATION_CALLBACK's +# prototype. +# +# pvParam +# Optional parameter to be past through to the callback function. +# This can be anything the application was to define. +# +# Return Values: +# ERROR_SUCCESS +# Success. A valid registration handle was returned. +# +# ERROR_OUTOFMEMORY +# Out of memory. +# +# other Win32 error. +# Failure. The registration handle is invalid. +# +proc BluetoothRegisterForAuthentication*(pbtdi: ptr BLUETOOTH_DEVICE_INFO; + phRegHandle: ptr HBLUETOOTH_AUTHENTICATION_REGISTRATION; + pfnCallback: PFN_AUTHENTICATION_CALLBACK; pvParam: PVOID): DWORD {. + stdcall, importc: "BluetoothRegisterForAuthentication", + dynlib: libbluetooth, + deprecated.} +# +# Support added in KB942567 +# +# +# Replaces previous API +# +type + PFN_AUTHENTICATION_CALLBACK_EX* = proc (pvParam: LPVOID; + pAuthCallbackParams: PBLUETOOTH_AUTHENTICATION_CALLBACK_PARAMS): BOOL {. + stdcall.} +# +# Description: +# Registers a callback function to be called when a particular device +# requests authentication. The request is sent to the last application +# that requested authentication for a particular device. +# +# Parameters: +# pbtdi +# A pointer to a BLUETOOTH_DEVICE_INFO structure. The Bluetooth +# address will be used for comparision. +# +# phRegHandle +# A pointer to where the registration HANDLE value will be +# stored. Call BluetoothUnregisterAuthentication() to close +# the handle. +# +# pfnCallback +# The function that will be called when the authentication event +# occurs. This function should match PFN_AUTHENTICATION_CALLBACK_EX's +# prototype. +# +# pvParam +# Optional parameter to be past through to the callback function. +# This can be anything the application was to define. +# +# Return Values: +# ERROR_SUCCESS +# Success. A valid registration handle was returned. +# +# ERROR_OUTOFMEMORY +# Out of memory. +# +# other Win32 error. +# Failure. The registration handle is invalid. +# +proc BluetoothRegisterForAuthenticationEx*( + pbtdiIn: ptr BLUETOOTH_DEVICE_INFO; + phRegHandleOut: ptr HBLUETOOTH_AUTHENTICATION_REGISTRATION; + pfnCallbackIn: PFN_AUTHENTICATION_CALLBACK_EX; pvParam: PVOID): DWORD {. + stdcall, importc: "BluetoothRegisterForAuthenticationEx", + dynlib: libbluetooth.} +# +# Description: +# Unregisters an authentication callback and closes the handle. See +# BluetoothRegisterForAuthentication() for more information about +# authentication registration. +# +# Parameters: +# hRegHandle +# Handle returned by BluetoothRegisterForAuthentication(). +# +# Return Value: +# TRUE +# The handle was successfully closed. +# +# FALSE +# The handle was not successfully closed. Check GetLastError for +# more details. +# +# ERROR_INVALID_HANDLE +# The handle is NULL. +# +# other Win32 errors. +# +proc BluetoothUnregisterAuthentication*( + hRegHandle: HBLUETOOTH_AUTHENTICATION_REGISTRATION): BOOL {.stdcall, + importc: "BluetoothUnregisterAuthentication", dynlib: libbluetooth.} +# +# Description: +# This function should be called after receiving an authentication request +# to send the passkey response. +# +# Parameters: +# +# hRadio +# Optional handle to the local radio. If NULL, the function will try +# each radio until one succeeds. +# +# pbtdi +# A pointer to a BLUETOOTH_DEVICE_INFO structure describing the device +# being authenticated. This can be the same structure passed to the +# callback function. +# +# pszPasskey +# A pointer to UNICODE zero-terminated string of the passkey response +# that should be sent back to the authenticating device. +# +# Return Values: +# ERROR_SUCESS +# The device accepted the passkey response. The device is authenticated. +# +# ERROR_CANCELED +# The device denied the passkey reponse. This also will returned if there +# is a communications problem with the local radio. +# +# E_FAIL +# The device returned a failure code during authentication. +# +# other Win32 error codes +# +proc BluetoothSendAuthenticationResponse*(hRadio: HANDLE; + pbtdi: ptr BLUETOOTH_DEVICE_INFO; pszPasskey: LPCWSTR): DWORD {.stdcall, + importc: "BluetoothSendAuthenticationResponse", dynlib: libbluetooth, + deprecated.} +# +# Support added in KB942567 +# +# +# Replaces previous API +# +# +# Structure used when responding to BTH_REMOTE_AUTHENTICATE_REQUEST event +# +type + INNER_C_UNION_1965546500* = object {.union.} + pinInfo*: BLUETOOTH_PIN_INFO + oobInfo*: BLUETOOTH_OOB_DATA_INFO + numericCompInfo*: BLUETOOTH_NUMERIC_COMPARISON_INFO + passkeyInfo*: BLUETOOTH_PASSKEY_INFO + +type + BLUETOOTH_AUTHENTICATE_RESPONSE* = object + bthAddressRemote*: BLUETOOTH_ADDRESS + authMethod*: BLUETOOTH_AUTHENTICATION_METHOD + ano_660658457*: INNER_C_UNION_1965546500 + negativeResponse*: UCHAR + + PBLUETOOTH_AUTHENTICATE_RESPONSE* = ptr BLUETOOTH_AUTHENTICATE_RESPONSE +# +# Description: +# This function should be called after receiving an authentication request +# to send the authentication response. (Bluetooth 2.1 and above) +# +# Parameters: +# +# hRadio +# Optional handle to the local radio. If NULL, the function will try +# each radio until one succeeds. +# +# pbtdi +# A pointer to a BLUETOOTH_DEVICE_INFO structure describing the device +# being authenticated. This can be the same structure passed to the +# callback function. +# +# pauthResponse +# A pointer to a BTH_AUTHENTICATION_RESPONSE structure. +# +# Return Values: +# ERROR_SUCESS +# The device accepted the passkey response. The device is authenticated. +# +# ERROR_CANCELED +# The device denied the passkey reponse. This also will returned if there +# is a communications problem with the local radio. +# +# E_FAIL +# The device returned a failure code during authentication. +# +# other Win32 error codes +# +proc BluetoothSendAuthenticationResponseEx*(hRadioIn: HANDLE; + pauthResponse: PBLUETOOTH_AUTHENTICATE_RESPONSE): DWORD {.stdcall, + importc: "BluetoothSendAuthenticationResponseEx", dynlib: libbluetooth.} +# *************************************************************************** +# +# SDP Parsing Functions +# +# *************************************************************************** +type + INNER_C_STRUCT_3139021411* = object + value*: LPBYTE # raw string buffer, may not be encoded as ANSI, use + # BluetoothSdpGetString to convert the value if it is described + # by the base language attribute ID list + # raw length of the string, may not be NULL terminuated + length*: ULONG + +type + INNER_C_STRUCT_467337881* = object + value*: LPBYTE + length*: ULONG + +type + INNER_C_STRUCT_4155600511* = object + value*: LPBYTE # raw sequence, starts at sequence element header + # raw sequence length + length*: ULONG + +type + INNER_C_STRUCT_1234813489* = object + value*: LPBYTE # raw alternative, starts at alternative element header + # raw alternative length + length*: ULONG + +type + INNER_C_UNION_122694421* = object {.union.} + int128*: SDP_LARGE_INTEGER_16 # type == SDP_TYPE_INT + # specificType == SDP_ST_INT128 + int64*: LONGLONG # specificType == SDP_ST_INT64 + int32*: LONG # specificType == SDP_ST_INT32 + int16*: SHORT # specificType == SDP_ST_INT16 + int8*: CHAR # specificType == SDP_ST_INT8 + # type == SDP_TYPE_UINT + uint128*: SDP_ULARGE_INTEGER_16 # specificType == SDP_ST_UINT128 + uint64*: ULONGLONG # specificType == SDP_ST_UINT64 + uint32*: ULONG # specificType == SDP_ST_UINT32 + uint16*: USHORT # specificType == SDP_ST_UINT16 + uint8*: UCHAR # specificType == SDP_ST_UINT8 + # type == SDP_TYPE_BOOLEAN + booleanVal*: UCHAR # type == SDP_TYPE_UUID + uuid128*: GUID # specificType == SDP_ST_UUID128 + uuid32*: ULONG # specificType == SDP_ST_UUID32 + uuid16*: USHORT # specificType == SDP_ST_UUID32 + # type == SDP_TYPE_STRING + string*: INNER_C_STRUCT_3139021411 # type == SDP_TYPE_URL + url*: INNER_C_STRUCT_467337881 # type == SDP_TYPE_SEQUENCE + sequence*: INNER_C_STRUCT_4155600511 # type == SDP_TYPE_ALTERNATIVE + alternative*: INNER_C_STRUCT_1234813489 + +type + SDP_ELEMENT_DATA* = object + `type`*: SDP_TYPE # + # Enumeration of SDP element types. Generic element types will have a + # specificType value other then SDP_ST_NONE. The generic types are: + # o SDP_TYPE_UINT + # o SDP_TYPE_INT + # o SDP_TYPE_UUID + # + # + # Specific types for the generic SDP element types. + # + specificType*: SDP_SPECIFICTYPE # + # Union of all possible data types. type and specificType will indicate + # which field is valid. For types which do not have a valid specificType, + # specific type will be SDP_ST_NONE. + # + data*: INNER_C_UNION_122694421 + + PSDP_ELEMENT_DATA* = ptr SDP_ELEMENT_DATA +# +# Description: +# Retrieves and parses the element found at pSdpStream +# +# Parameters: +# IN pSdpStream +# pointer to valid SDP stream +# +# IN cbSdpStreamLength +# length of pSdpStream in bytes +# +# OUT pData +# pointer to be filled in with the data of the SDP element at the +# beginning of pSdpStream +# +# Return Values: +# ERROR_INVALID_PARAMETER +# one of required parameters is NULL or the pSdpStream is invalid +# +# ERROR_SUCCESS +# the sdp element was parsed correctly +# +proc BluetoothSdpGetElementData*(pSdpStream: LPBYTE; + cbSdpStreamLength: ULONG; + pData: PSDP_ELEMENT_DATA): DWORD {.stdcall, + importc: "BluetoothSdpGetElementData", dynlib: libbluetooth.} +type + HBLUETOOTH_CONTAINER_ELEMENT* = HANDLE +# +# Description: +# Iterates over a container stream, returning each elemetn contained with +# in the container element at the beginning of pContainerStream +# +# Parameters: +# IN pContainerStream +# pointer to valid SDP stream whose first element is either a sequence +# or alternative +# +# IN cbContainerlength +# length in bytes of pContainerStream +# +# IN OUT pElement +# Value used to keep track of location within the stream. The first +# time this function is called for a particular container, *pElement +# should equal NULL. Upon subsequent calls, the value should be +# unmodified. +# +# OUT pData +# pointer to be filled in with the data of the SDP element at the +# current element of pContainerStream +# +# Return Values: +# ERROR_SUCCESS +# The call succeeded, pData contains the data +# +# ERROR_NO_MORE_ITEMS +# There are no more items in the list, the caller should cease calling +# BluetoothSdpGetContainerElementData for this container. +# +# ERROR_INVALID_PARAMETER +# A required pointer is NULL or the container is not a valid SDP +# stream +# +# Usage example: +# +# HBLUETOOTH_CONTAINER_ELEMENT element; +# SDP_ELEMENT_DATA data; +# ULONG result; +# +# element = NULL; +# +# while (TRUE) { +# result = BluetoothSdpGetContainerElementData( +# pContainer, ulContainerLength, &element, &data); +# +# if (result == ERROR_NO_MORE_ITEMS) { +# // We are done +# break; +# } +# else if (result != ERROR_SUCCESS) { +# // error +# } +# +# // do something with data ... +# } +# +# +proc BluetoothSdpGetContainerElementData*(pContainerStream: LPBYTE; + cbContainerLength: ULONG; pElement: ptr HBLUETOOTH_CONTAINER_ELEMENT; + pData: PSDP_ELEMENT_DATA): DWORD {.stdcall, + importc: "BluetoothSdpGetContainerElementData", dynlib: libbluetooth.} +# +# Description: +# Retrieves the attribute value for the given attribute ID. pRecordStream +# must be an SDP stream that is formatted as an SDP record, a SEQUENCE +# containing UINT16 + element pairs. +# +# Parameters: +# IN pRecordStream +# pointer to a valid SDP stream which is formatted as a singl SDP +# record +# +# IN cbRecordlnegh +# length of pRecordStream in bytes +# +# IN usAttributeId +# the attribute ID to search for. see bthdef.h for SDP_ATTRIB_Xxx +# values. +# +# OUT pAttributeData +# pointer that will contain the attribute ID's value +# +# Return Values: +# ERRROR_SUCCESS +# Call succeeded, pAttributeData contains the attribute value +# +# ERROR_INVALID_PARAMETER +# One of the required pointers was NULL, pRecordStream was not a valid +# SDP stream, or pRecordStream was not a properly formatted SDP record +# +# ERROR_FILE_NOT_FOUND +# usAttributeId was not found in the record +# +# Usage: +# +# ULONG result; +# SDP_DATA_ELEMENT data; +# +# result = BluetoothSdpGetAttributeValue( +# pRecordStream, cbRecordLength, SDP_ATTRIB_RECORD_HANDLE, &data); +# if (result == ERROR_SUCCESS) { +# printf("record handle is 0x%x\n", data.data.uint32); +# } +# +proc BluetoothSdpGetAttributeValue*(pRecordStream: LPBYTE; + cbRecordLength: ULONG; + usAttributeId: USHORT; + pAttributeData: PSDP_ELEMENT_DATA): DWORD {. + stdcall, importc: "BluetoothSdpGetAttributeValue", dynlib: libbluetooth.} +# +# These three fields correspond one to one with the triplets defined in the +# SDP specification for the language base attribute ID list. +# +type + SDP_STRING_TYPE_DATA* = object + encoding*: USHORT # + # How the string is encoded according to ISO 639:1988 (E/F): "Code + # for the representation of names of languages". + # + # + # MIBE number from IANA database + # + mibeNum*: USHORT # + # The base attribute where the string is to be found in the record + # + attributeId*: USHORT + + PSDP_STRING_TYPE_DATA* = ptr SDP_STRING_TYPE_DATA +# +# Description: +# Converts a raw string embedded in the SDP record into a UNICODE string +# +# Parameters: +# IN pRecordStream +# a valid SDP stream which is formatted as an SDP record +# +# IN cbRecordLength +# length of pRecordStream in bytes +# +# IN pStringData +# if NULL, then the calling thread's locale will be used to search +# for a matching string in the SDP record. If not NUL, the mibeNum +# and attributeId will be used to find the string to convert. +# +# IN usStringOffset +# the SDP string type offset to convert. usStringOffset is added to +# the base attribute id of the string. SDP specification defined +# offsets are: STRING_NAME_OFFSET, STRING_DESCRIPTION_OFFSET, and +# STRING_PROVIDER_NAME_OFFSET (found in bthdef.h). +# +# OUT pszString +# if NULL, pcchStringLength will be filled in with the required number +# of characters (not bytes) to retrieve the converted string. +# +# IN OUT pcchStringLength +# Upon input, if pszString is not NULL, will contain the length of +# pszString in characters. Upon output, it will contain either the +# number of required characters including NULL if an error is returned +# or the number of characters written to pszString (including NULL). +# +# Return Values: +# ERROR_SUCCES +# Call was successful and pszString contains the converted string +# +# ERROR_MORE_DATA +# pszString was NULL or too small to contain the converted string, +# pccxhStringLength contains the required length in characters +# +# ERROR_INVALID_DATA +# Could not perform the conversion +# +# ERROR_NO_SYSTEM_RESOURCES +# Could not allocate memory internally to perform the conversion +# +# ERROR_INVALID_PARAMETER +# One of the rquired pointers was NULL, pRecordStream was not a valid +# SDP stream, pRecordStream was not a properly formatted record, or +# the desired attribute + offset was not a string. +# +# Other HRESULTs returned by COM +# +proc BluetoothSdpGetString*(pRecordStream: LPBYTE; cbRecordLength: ULONG; + pStringData: PSDP_STRING_TYPE_DATA; + usStringOffset: USHORT; pszString: PWSTR; + pcchStringLength: PULONG): DWORD {.stdcall, + importc: "BluetoothSdpGetString", dynlib: libbluetooth.} +# *************************************************************************** +# +# Raw Attribute Enumeration +# +# *************************************************************************** +type + PFN_BLUETOOTH_ENUM_ATTRIBUTES_CALLBACK* = proc (uAttribId: ULONG; + pValueStream: LPBYTE; cbStreamSize: ULONG; pvParam: LPVOID): BOOL {. + stdcall.} +# +# Description: +# Enumerates through the SDP record stream calling the Callback function +# for each attribute in the record. If the Callback function returns +# FALSE, the enumeration is stopped. +# +# Return Values: +# TRUE +# Success! Something was enumerated. +# +# FALSE +# Failure. GetLastError() could be one of the following: +# +# ERROR_INVALID_PARAMETER +# pSDPStream or pfnCallback is NULL. +# +# ERROR_INVALID_DATA +# The SDP stream is corrupt. +# +# other Win32 errors. +# +proc BluetoothSdpEnumAttributes*(pSDPStream: LPBYTE; cbStreamSize: ULONG; + pfnCallback: PFN_BLUETOOTH_ENUM_ATTRIBUTES_CALLBACK; pvParam: LPVOID): BOOL {. + stdcall, importc: "BluetoothSdpEnumAttributes", dynlib: libbluetooth.} +const + BluetoothEnumAttributes* = BluetoothSdpEnumAttributes +# +# The following APIs are only available on Vista or later +# +proc BluetoothSetLocalServiceInfo*(hRadioIn: HANDLE; pClassGuid: ptr GUID; + ulInstance: ULONG; pServiceInfoIn: ptr BLUETOOTH_LOCAL_SERVICE_INFO): DWORD {. + stdcall, importc: "BluetoothSetLocalServiceInfo", dynlib: libbluetooth.} + +# +# Support added in KB942567 +# + +# +# IsBluetoothVersionAvailable +# +# Description: +# Indicate if the installed Bluetooth binary set supports +# the requested version +# +# Return Values: +# TRUE if the installed bluetooth binaries support the given +# Major & Minor versions +# +# Note this function is only exported in version 2.1 and later. +# +proc BluetoothIsVersionAvailable*(MajorVersion: UCHAR; MinorVersion: UCHAR): BOOL {. + stdcall, importc: "BluetoothIsVersionAvailable", dynlib: libbluetooth.} diff --git a/nimbluez/msbt/ms_bthdef.nim b/nimbluez/msbt/ms_bthdef.nim new file mode 100644 index 0000000..96be91d --- /dev/null +++ b/nimbluez/msbt/ms_bthdef.nim @@ -0,0 +1,1279 @@ +#++ +# +#Copyright (c) 2000 Microsoft Corporation +# +#Module Name: +# +# bthdef.h +# +#Abstract: +# +# This module contains the Bluetooth common structures and definitions +# +#Author: +# +#Notes: +# +#Environment: +# +# Kernel mode only +# +# +#Revision History: +# +# -- +import winlean +import ms_bthsdpdef + +template DEFINE_GUID*(name: expr; p1: int32; p2, p3: int16; + p41, p42, p43, p44, p45, p46, p47, p48: int8): stmt {.immediate.} = + const + name* = GUID(D1: int32(p1), D2: int16(p2), D3: int16(p3), + D4: [int8(p41), int8(p42), int8(p43), int8(p44), + int8(p45), int8(p46), int8(p47), int8(p48)]) +# +# Bluetooth 2.1 support added in KB942567 +# + +# {0850302A-B344-4fda-9BE9-90576B8D46F0} +DEFINE_GUID(GUID_BTHPORT_DEVICE_INTERFACE, 0x0850302A, 0x0000B344, + 0x00004FDA, 0x0000009B, 0x000000E9, 0x00000090, 0x00000057, + 0x0000006B, 0x0000008D, 0x00000046, 0x000000F0) +# RFCOMM device interface GUID for RFCOMM services +# {b142fc3e-fa4e-460b-8abc-072b628b3c70} +DEFINE_GUID(GUID_BTH_RFCOMM_SERVICE_DEVICE_INTERFACE, 0xB142FC3E, + 0x0000FA4E, 0x0000460B, 0x0000008A, 0x000000BC, 0x00000007, + 0x0000002B, 0x00000062, 0x0000008B, 0x0000003C, 0x00000070) +# {EA3B5B82-26EE-450E-B0D8-D26FE30A3869} +DEFINE_GUID(GUID_BLUETOOTH_RADIO_IN_RANGE, 0xEA3B5B82, 0x000026EE, + 0x0000450E, 0x000000B0, 0x000000D8, 0x000000D2, 0x0000006F, + 0x000000E3, 0x0000000A, 0x00000038, 0x00000069) +# {E28867C9-C2AA-4CED-B969-4570866037C4} +DEFINE_GUID(GUID_BLUETOOTH_RADIO_OUT_OF_RANGE, 0xE28867C9, 0x0000C2AA, + 0x00004CED, 0x000000B9, 0x00000069, 0x00000045, 0x00000070, + 0x00000086, 0x00000060, 0x00000037, 0x000000C4) +# {7EAE4030-B709-4AA8-AC55-E953829C9DAA} +DEFINE_GUID(GUID_BLUETOOTH_L2CAP_EVENT, 0x7EAE4030, 0x0000B709, + 0x00004AA8, 0x000000AC, 0x00000055, 0x000000E9, 0x00000053, + 0x00000082, 0x0000009C, 0x0000009D, 0x000000AA) +# {FC240062-1541-49BE-B463-84C4DCD7BF7F} +DEFINE_GUID(GUID_BLUETOOTH_HCI_EVENT, 0xFC240062, 0x00001541, 0x000049BE, + 0x000000B4, 0x00000063, 0x00000084, 0x000000C4, 0x000000DC, + 0x000000D7, 0x000000BF, 0x0000007F) +# +# Support added in KB942567 +# +# {5DC9136D-996C-46DB-84F5-32C0A3F47352} +DEFINE_GUID(GUID_BLUETOOTH_AUTHENTICATION_REQUEST, 0x5DC9136D, + 0x0000996C, 0x000046DB, 0x00000084, 0x000000F5, 0x00000032, + 0x000000C0, 0x000000A3, 0x000000F4, 0x00000073, 0x00000052) +# {D668DFCD-0F4E-4EFC-BFE0-392EEEC5109C} +DEFINE_GUID(GUID_BLUETOOTH_KEYPRESS_EVENT, 0xD668DFCD, 0x00000F4E, + 0x00004EFC, 0x000000BF, 0x000000E0, 0x00000039, 0x0000002E, + 0x000000EE, 0x000000C5, 0x00000010, 0x0000009C) +# {547247e6-45bb-4c33-af8c-c00efe15a71d} +DEFINE_GUID(GUID_BLUETOOTH_HCI_VENDOR_EVENT, 0x547247E6, 0x000045BB, + 0x00004C33, 0x000000AF, 0x0000008C, 0x000000C0, 0x0000000E, + 0x000000FE, 0x00000015, 0x000000A7, 0x0000001D) +# +# Bluetooth base UUID for service discovery +# +DEFINE_GUID(Bluetooth_Base_UUID, 0x00000000, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +# +# UUID for the root of the browse group list +# +DEFINE_GUID(SDP_PROTOCOL_UUID, 0x00000001, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(UDP_PROTOCOL_UUID, 0x00000002, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(RFCOMM_PROTOCOL_UUID, 0x00000003, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(TCP_PROTOCOL_UUID, 0x00000004, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(TCSBIN_PROTOCOL_UUID, 0x00000005, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(TCSAT_PROTOCOL_UUID, 0x00000006, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(OBEX_PROTOCOL_UUID, 0x00000008, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(IP_PROTOCOL_UUID, 0x00000009, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(FTP_PROTOCOL_UUID, 0x0000000A, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(HTTP_PROTOCOL_UUID, 0x0000000C, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(WSP_PROTOCOL_UUID, 0x0000000E, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(BNEP_PROTOCOL_UUID, 0x0000000F, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(UPNP_PROTOCOL_UUID, 0x00000010, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(HID_PROTOCOL_UUID, 0x00000011, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(HCCC_PROTOCOL_UUID, 0x00000012, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(HCDC_PROTOCOL_UUID, 0x00000014, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(HN_PROTOCOL_UUID, 0x00000016, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(AVCTP_PROTOCOL_UUID, 0x00000017, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(AVDTP_PROTOCOL_UUID, 0x00000019, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(CMPT_PROTOCOL_UUID, 0x0000001B, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(UDI_C_PLANE_PROTOCOL_UUID, 0x0000001D, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(L2CAP_PROTOCOL_UUID, 0x00000100, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +const + SDP_PROTOCOL_UUID16* = (0x00000001) + UDP_PROTOCOL_UUID16* = (0x00000002) + RFCOMM_PROTOCOL_UUID16* = (0x00000003) + TCP_PROTOCOL_UUID16* = (0x00000004) + TCSBIN_PROTOCOL_UUID16* = (0x00000005) + TCSAT_PROTOCOL_UUID16* = (0x00000006) + OBEX_PROTOCOL_UUID16* = (0x00000008) + IP_PROTOCOL_UUID16* = (0x00000009) + FTP_PROTOCOL_UUID16* = (0x0000000A) + HTTP_PROTOCOL_UUID16* = (0x0000000C) + WSP_PROTOCOL_UUID16* = (0x0000000E) + BNEP_PROTOCOL_UUID16* = (0x0000000F) + UPNP_PROTOCOL_UUID16* = (0x00000010) + HID_PROTOCOL_UUID16* = (0x00000011) + HCCC_PROTOCOL_UUID16* = (0x00000012) + HCDC_PROTOCOL_UUID16* = (0x00000014) + HCN_PROTOCOL_UUID16* = (0x00000016) + AVCTP_PROTOCOL_UUID16* = (0x00000017) + AVDTP_PROTOCOL_UUID16* = (0x00000019) + CMPT_PROTOCOL_UUID16* = (0x0000001B) + UDI_C_PLANE_PROTOCOL_UUID16* = (0x0000001D) + L2CAP_PROTOCOL_UUID16* = (0x00000100) +DEFINE_GUID(ServiceDiscoveryServerServiceClassID_UUID, 0x00001000, + 0x00000000, 0x00001000, 0x00000080, 0x00000000, 0x00000000, + 0x00000080, 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(BrowseGroupDescriptorServiceClassID_UUID, 0x00001001, + 0x00000000, 0x00001000, 0x00000080, 0x00000000, 0x00000000, + 0x00000080, 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(PublicBrowseGroupServiceClass_UUID, 0x00001002, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(SerialPortServiceClass_UUID, 0x00001101, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(LANAccessUsingPPPServiceClass_UUID, 0x00001102, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(DialupNetworkingServiceClass_UUID, 0x00001103, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(IrMCSyncServiceClass_UUID, 0x00001104, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(OBEXObjectPushServiceClass_UUID, 0x00001105, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(OBEXFileTransferServiceClass_UUID, 0x00001106, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(IrMCSyncCommandServiceClass_UUID, 0x00001107, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(HeadsetServiceClass_UUID, 0x00001108, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(CordlessTelephonyServiceClass_UUID, 0x00001109, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(AudioSourceServiceClass_UUID, 0x0000110A, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(AudioSinkServiceClass_UUID, 0x0000110B, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(AVRemoteControlTargetServiceClass_UUID, 0x0000110C, + 0x00000000, 0x00001000, 0x00000080, 0x00000000, 0x00000000, + 0x00000080, 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(AdvancedAudioDistributionServiceClass_UUID, 0x0000110D, + 0x00000000, 0x00001000, 0x00000080, 0x00000000, 0x00000000, + 0x00000080, 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(AVRemoteControlServiceClass_UUID, 0x0000110E, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(AVRemoteControlControllerServiceClass_UUID, 0x0000110F, + 0x00000000, 0x00001000, 0x00000080, 0x00000000, 0x00000000, + 0x00000080, 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(IntercomServiceClass_UUID, 0x00001110, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(FaxServiceClass_UUID, 0x00001111, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(HeadsetAudioGatewayServiceClass_UUID, 0x00001112, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(WAPServiceClass_UUID, 0x00001113, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(WAPClientServiceClass_UUID, 0x00001114, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(PANUServiceClass_UUID, 0x00001115, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(NAPServiceClass_UUID, 0x00001116, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(GNServiceClass_UUID, 0x00001117, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(DirectPrintingServiceClass_UUID, 0x00001118, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(ReferencePrintingServiceClass_UUID, 0x00001119, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(ImagingServiceClass_UUID, 0x0000111A, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(ImagingResponderServiceClass_UUID, 0x0000111B, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(ImagingAutomaticArchiveServiceClass_UUID, 0x0000111C, + 0x00000000, 0x00001000, 0x00000080, 0x00000000, 0x00000000, + 0x00000080, 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(ImagingReferenceObjectsServiceClass_UUID, 0x0000111D, + 0x00000000, 0x00001000, 0x00000080, 0x00000000, 0x00000000, + 0x00000080, 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(HandsfreeServiceClass_UUID, 0x0000111E, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(HandsfreeAudioGatewayServiceClass_UUID, 0x0000111F, + 0x00000000, 0x00001000, 0x00000080, 0x00000000, 0x00000000, + 0x00000080, 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(DirectPrintingReferenceObjectsServiceClass_UUID, 0x00001120, + 0x00000000, 0x00001000, 0x00000080, 0x00000000, 0x00000000, + 0x00000080, 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(ReflectedUIServiceClass_UUID, 0x00001121, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(BasicPringingServiceClass_UUID, 0x00001122, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(PrintingStatusServiceClass_UUID, 0x00001123, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(HumanInterfaceDeviceServiceClass_UUID, 0x00001124, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(HardcopyCableReplacementServiceClass_UUID, 0x00001125, + 0x00000000, 0x00001000, 0x00000080, 0x00000000, 0x00000000, + 0x00000080, 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(HCRPrintServiceClass_UUID, 0x00001126, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(HCRScanServiceClass_UUID, 0x00001127, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(CommonISDNAccessServiceClass_UUID, 0x00001128, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(VideoConferencingGWServiceClass_UUID, 0x00001129, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(UDIMTServiceClass_UUID, 0x0000112A, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(UDITAServiceClass_UUID, 0x0000112B, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(AudioVideoServiceClass_UUID, 0x0000112C, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(SimAccessServiceClass_UUID, 0x0000112D, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(PhonebookAccessPceServiceClass_UUID, 0x0000112E, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(PhonebookAccessPseServiceClass_UUID, 0x0000112F, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(PnPInformationServiceClass_UUID, 0x00001200, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(GenericNetworkingServiceClass_UUID, 0x00001201, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(GenericFileTransferServiceClass_UUID, 0x00001202, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(GenericAudioServiceClass_UUID, 0x00001203, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(GenericTelephonyServiceClass_UUID, 0x00001204, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(UPnpServiceClass_UUID, 0x00001205, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(UPnpIpServiceClass_UUID, 0x00001206, 0x00000000, 0x00001000, + 0x00000080, 0x00000000, 0x00000000, 0x00000080, 0x0000005F, + 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(ESdpUpnpIpPanServiceClass_UUID, 0x00001300, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(ESdpUpnpIpLapServiceClass_UUID, 0x00001301, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(ESdpUpnpL2capServiceClass_UUID, 0x00001302, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(VideoSourceServiceClass_UUID, 0x00001303, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(VideoSinkServiceClass_UUID, 0x00001304, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +DEFINE_GUID(VideoDistributionServiceClass_UUID, 0x00001305, 0x00000000, + 0x00001000, 0x00000080, 0x00000000, 0x00000000, 0x00000080, + 0x0000005F, 0x0000009B, 0x00000034, 0x000000FB) +# +# Fixing typos introduced in previous releases +# +const + BasicPrintingServiceClass_UUID* = BasicPringingServiceClass_UUID + ServiceDiscoveryServerServiceClassID_UUID16* = (0x00001000) + BrowseGroupDescriptorServiceClassID_UUID16* = (0x00001001) + PublicBrowseGroupServiceClassID_UUID16* = (0x00001002) + SerialPortServiceClassID_UUID16* = (0x00001101) + LANAccessUsingPPPServiceClassID_UUID16* = (0x00001102) + DialupNetworkingServiceClassID_UUID16* = (0x00001103) + IrMCSyncServiceClassID_UUID16* = (0x00001104) + OBEXObjectPushServiceClassID_UUID16* = (0x00001105) + OBEXFileTransferServiceClassID_UUID16* = (0x00001106) + IrMcSyncCommandServiceClassID_UUID16* = (0x00001107) + HeadsetServiceClassID_UUID16* = (0x00001108) + CordlessServiceClassID_UUID16* = (0x00001109) + AudioSourceServiceClassID_UUID16* = (0x0000110A) + AudioSinkSourceServiceClassID_UUID16* = (0x0000110B) + AVRemoteControlTargetServiceClassID_UUID16* = (0x0000110C) + AdvancedAudioDistributionServiceClassID_UUID16* = (0x0000110D) + AVRemoteControlServiceClassID_UUID16* = (0x0000110E) + AVRemoteControlControllerServiceClass_UUID16* = (0x0000110F) + IntercomServiceClassID_UUID16* = (0x00001110) + FaxServiceClassID_UUID16* = (0x00001111) + HeadsetAudioGatewayServiceClassID_UUID16* = (0x00001112) + WAPServiceClassID_UUID16* = (0x00001113) + WAPClientServiceClassID_UUID16* = (0x00001114) + PANUServiceClassID_UUID16* = (0x00001115) + NAPServiceClassID_UUID16* = (0x00001116) + GNServiceClassID_UUID16* = (0x00001117) + DirectPrintingServiceClassID_UUID16* = (0x00001118) + ReferencePrintingServiceClassID_UUID16* = (0x00001119) + ImagingServiceClassID_UUID16* = (0x0000111A) + ImagingResponderServiceClassID_UUID16* = (0x0000111B) + ImagingAutomaticArchiveServiceClassID_UUID16* = (0x0000111C) + ImagingReferenceObjectsServiceClassID_UUID16* = (0x0000111D) + HandsfreeServiceClassID_UUID16* = (0x0000111E) + HandsfreeAudioGatewayServiceClassID_UUID16* = (0x0000111F) + DirectPrintingReferenceObjectsServiceClassID_UUID16* = (0x00001120) + ReflectsUIServiceClassID_UUID16* = (0x00001121) + BasicPrintingServiceClassID_UUID16* = (0x00001122) + PrintingStatusServiceClassID_UUID16* = (0x00001123) + HumanInterfaceDeviceServiceClassID_UUID16* = (0x00001124) + HardcopyCableReplacementServiceClassID_UUID16* = (0x00001125) + HCRPrintServiceClassID_UUID16* = (0x00001126) + HCRScanServiceClassID_UUID16* = (0x00001127) + CommonISDNAccessServiceClass_UUID16* = (0x00001128) + VideoConferencingGWServiceClass_UUID16* = (0x00001129) + UDIMTServiceClass_UUID16* = (0x0000112A) + UDITAServiceClass_UUID16* = (0x0000112B) + AudioVideoServiceClass_UUID16* = (0x0000112C) + PnPInformationServiceClassID_UUID16* = (0x00001200) + GenericNetworkingServiceClassID_UUID16* = (0x00001201) + GenericFileTransferServiceClassID_UUID16* = (0x00001202) + GenericAudioServiceClassID_UUID16* = (0x00001203) + GenericTelephonyServiceClassID_UUID16* = (0x00001204) +# +# The SIG renamed the uuid for VideoConferencingServiceClass +# +const + VideoConferencingServiceClass_UUID* = AVRemoteControlControllerServiceClass_UUID + VideoConferencingServiceClassID_UUID16* = AVRemoteControlControllerServiceClass_UUID16 + +# +# max length of device friendly name. +# +const + BTH_MAX_NAME_SIZE* = (248) + BTH_MAX_PIN_SIZE* = (16) + BTH_LINK_KEY_LENGTH* = (16) + BTH_MFG_ERICSSON* = (0) + BTH_MFG_NOKIA* = (1) + BTH_MFG_INTEL* = (2) + BTH_MFG_IBM* = (3) + BTH_MFG_TOSHIBA* = (4) + BTH_MFG_3COM* = (5) + BTH_MFG_MICROSOFT* = (6) + BTH_MFG_LUCENT* = (7) + BTH_MFG_MOTOROLA* = (8) + BTH_MFG_INFINEON* = (9) + BTH_MFG_CSR* = (10) + BTH_MFG_SILICONWAVE* = (11) + BTH_MFG_DIGIANSWER* = (12) + BTH_MFG_TI* = (13) + BTH_MFG_PARTHUS* = (14) + BTH_MFG_BROADCOM* = (15) + BTH_MFG_MITEL* = (16) + BTH_MFG_WIDCOMM* = (17) + BTH_MFG_ZEEVO* = (18) + BTH_MFG_ATMEL* = (19) + BTH_MFG_MITSIBUSHI* = (20) + BTH_MFG_RTX_TELECOM* = (21) + BTH_MFG_KC_TECHNOLOGY* = (22) + BTH_MFG_NEWLOGIC* = (23) + BTH_MFG_TRANSILICA* = (24) + BTH_MFG_ROHDE_SCHWARZ* = (25) + BTH_MFG_TTPCOM* = (26) + BTH_MFG_SIGNIA* = (27) + BTH_MFG_CONEXANT* = (28) + BTH_MFG_QUALCOMM* = (29) + BTH_MFG_INVENTEL* = (30) + BTH_MFG_AVM_BERLIN* = (31) + BTH_MFG_BANDSPEED* = (32) + BTH_MFG_MANSELLA* = (33) + BTH_MFG_NEC* = (34) + BTH_MFG_WAVEPLUS_TECHNOLOGY_CO* = (35) + BTH_MFG_ALCATEL* = (36) + BTH_MFG_PHILIPS_SEMICONDUCTOR* = (37) + BTH_MFG_C_TECHNOLOGIES* = (38) + BTH_MFG_OPEN_INTERFACE* = (39) + BTH_MFG_RF_MICRO_DEVICES* = (40) + BTH_MFG_HITACHI* = (41) + BTH_MFG_SYMBOL_TECHNOLOGIES* = (42) + BTH_MFG_TENOVIS* = (43) + BTH_MFG_MACRONIX_INTERNATIONAL* = (44) + BTH_MFG_NORDIC_SEMICONDUCTORS_ASA* = (89) + BTH_MFG_INTERNAL_USE* = (65535) +type + BTH_ADDR* = ULONGLONG + PBTH_ADDR* = ptr ULONGLONG + BTH_COD* = ULONG + PBTH_COD* = ptr ULONG + BTH_LAP* = ULONG + PBTH_LAP* = ptr ULONG +const + NAP_BIT_OFFSET* = (8 * 4) + SAP_BIT_OFFSET* = (0) +template GET_NAP*(bth_addr: expr): expr = + ((USHORT)(((bth_addr) and NAP_MASK) shr NAP_BIT_OFFSET)) + +template GET_SAP*(bth_addr: expr): expr = + ((ULONG)(((bth_addr) and SAP_MASK) shr SAP_BIT_OFFSET)) + +template SET_NAP*(nap: expr): expr = + (((ULONGLONG)((USHORT)(nap))) shl NAP_BIT_OFFSET) + +template SET_SAP*(sap: expr): expr = + (((ULONGLONG)((ULONG)(sap))) shl SAP_BIT_OFFSET) + +template SET_NAP_SAP*(nap, sap: expr): expr = + (SET_NAP(nap) or SET_SAP(sap)) + +const + COD_FORMAT_BIT_OFFSET* = (0) + COD_MINOR_BIT_OFFSET* = (2) + COD_MAJOR_BIT_OFFSET* = (8 * 1) + COD_SERVICE_BIT_OFFSET* = (8 * 1 + 5) + COD_FORMAT_MASK* = (0x00000003) + COD_MINOR_MASK* = (0x000000FC) + COD_MAJOR_MASK* = (0x00001F00) + COD_SERVICE_MASK* = (0x00FFE000) +template GET_COD_FORMAT*(cod: expr): expr = + ((cod) and COD_FORMAT_MASK shr COD_FORMAT_BIT_OFFSET) + +template GET_COD_MINOR*(cod: expr): expr = + (((cod) and COD_MINOR_MASK) shr COD_MINOR_BIT_OFFSET) + +template GET_COD_MAJOR*(cod: expr): expr = + (((cod) and COD_MAJOR_MASK) shr COD_MAJOR_BIT_OFFSET) + +template GET_COD_SERVICE*(cod: expr): expr = + (((cod) and COD_SERVICE_MASK) shr COD_SERVICE_BIT_OFFSET) + +template SET_COD_MINOR*(cod, minor: expr): expr = + (cod) = ((cod) and not COD_MINOR_MASK) or + ((minor) shl COD_MINOR_BIT_OFFSET) + +template SET_COD_MAJOR*(cod, major: expr): expr = + (cod) = ((cod) and not COD_MAJOR_MASK) or + ((major) shl COD_MAJOR_BIT_OFFSET) + +template SET_COD_SERVICE*(cod, service: expr): expr = + (cod) = ((cod) and not COD_SERVICE_MASK) or + ((service) shl COD_SERVICE_BIT_OFFSET) + +const + COD_VERSION* = (0x00000000) + COD_SERVICE_LIMITED* = (0x00000001) + COD_SERVICE_POSITIONING* = (0x00000008) + COD_SERVICE_NETWORKING* = (0x00000010) + COD_SERVICE_RENDERING* = (0x00000020) + COD_SERVICE_CAPTURING* = (0x00000040) + COD_SERVICE_OBJECT_XFER* = (0x00000080) + COD_SERVICE_AUDIO* = (0x00000100) + COD_SERVICE_TELEPHONY* = (0x00000200) + COD_SERVICE_INFORMATION* = (0x00000400) + COD_SERVICE_VALID_MASK* = (COD_SERVICE_LIMITED or + COD_SERVICE_POSITIONING or COD_SERVICE_NETWORKING or + COD_SERVICE_RENDERING or COD_SERVICE_CAPTURING or + COD_SERVICE_OBJECT_XFER or COD_SERVICE_AUDIO or + COD_SERVICE_TELEPHONY or COD_SERVICE_INFORMATION) + COD_SERVICE_MAX_COUNT* = (9) +# +# Major class codes +# +const + COD_MAJOR_MISCELLANEOUS* = (0x00000000) + COD_MAJOR_COMPUTER* = (0x00000001) + COD_MAJOR_PHONE* = (0x00000002) + COD_MAJOR_LAN_ACCESS* = (0x00000003) + COD_MAJOR_AUDIO* = (0x00000004) + COD_MAJOR_PERIPHERAL* = (0x00000005) + COD_MAJOR_IMAGING* = (0x00000006) + COD_MAJOR_WEARABLE* = (0x00000007) + COD_MAJOR_TOY* = (0x00000008) + COD_MAJOR_HEALTH* = (0x00000009) + COD_MAJOR_UNCLASSIFIED* = (0x0000001F) +# +# Minor class codes specific to each major class +# +const + COD_COMPUTER_MINOR_UNCLASSIFIED* = (0x00000000) + COD_COMPUTER_MINOR_DESKTOP* = (0x00000001) + COD_COMPUTER_MINOR_SERVER* = (0x00000002) + COD_COMPUTER_MINOR_LAPTOP* = (0x00000003) + COD_COMPUTER_MINOR_HANDHELD* = (0x00000004) + COD_COMPUTER_MINOR_PALM* = (0x00000005) + COD_COMPUTER_MINOR_WEARABLE* = (0x00000006) + COD_PHONE_MINOR_UNCLASSIFIED* = (0x00000000) + COD_PHONE_MINOR_CELLULAR* = (0x00000001) + COD_PHONE_MINOR_CORDLESS* = (0x00000002) + COD_PHONE_MINOR_SMART* = (0x00000003) + COD_PHONE_MINOR_WIRED_MODEM* = (0x00000004) + COD_AUDIO_MINOR_UNCLASSIFIED* = (0x00000000) + COD_AUDIO_MINOR_HEADSET* = (0x00000001) + COD_AUDIO_MINOR_HANDS_FREE* = (0x00000002) + COD_AUDIO_MINOR_HEADSET_HANDS_FREE* = (0x00000003) + COD_AUDIO_MINOR_MICROPHONE* = (0x00000004) + COD_AUDIO_MINOR_LOUDSPEAKER* = (0x00000005) + COD_AUDIO_MINOR_HEADPHONES* = (0x00000006) + COD_AUDIO_MINOR_PORTABLE_AUDIO* = (0x00000007) + COD_AUDIO_MINOR_CAR_AUDIO* = (0x00000008) + COD_AUDIO_MINOR_SET_TOP_BOX* = (0x00000009) + COD_AUDIO_MINOR_HIFI_AUDIO* = (0x0000000A) + COD_AUDIO_MINOR_VCR* = (0x0000000B) + COD_AUDIO_MINOR_VIDEO_CAMERA* = (0x0000000C) + COD_AUDIO_MINOR_CAMCORDER* = (0x0000000D) + COD_AUDIO_MINOR_VIDEO_MONITOR* = (0x0000000E) + COD_AUDIO_MINOR_VIDEO_DISPLAY_LOUDSPEAKER* = (0x0000000F) + COD_AUDIO_MINOR_VIDEO_DISPLAY_CONFERENCING* = (0x00000010) +# #define COD_AUDIO_MINOR_RESERVED (0x11) +const + COD_AUDIO_MINOR_GAMING_TOY* = (0x00000012) + COD_PERIPHERAL_MINOR_KEYBOARD_MASK* = (0x00000010) + COD_PERIPHERAL_MINOR_POINTER_MASK* = (0x00000020) + COD_PERIPHERAL_MINOR_NO_CATEGORY* = (0x00000000) + COD_PERIPHERAL_MINOR_JOYSTICK* = (0x00000001) + COD_PERIPHERAL_MINOR_GAMEPAD* = (0x00000002) + COD_PERIPHERAL_MINOR_REMOTE_CONTROL* = (0x00000003) + COD_PERIPHERAL_MINOR_SENSING* = (0x00000004) + COD_IMAGING_MINOR_DISPLAY_MASK* = (0x00000004) + COD_IMAGING_MINOR_CAMERA_MASK* = (0x00000008) + COD_IMAGING_MINOR_SCANNER_MASK* = (0x00000010) + COD_IMAGING_MINOR_PRINTER_MASK* = (0x00000020) + COD_WEARABLE_MINOR_WRIST_WATCH* = (0x00000001) + COD_WEARABLE_MINOR_PAGER* = (0x00000002) + COD_WEARABLE_MINOR_JACKET* = (0x00000003) + COD_WEARABLE_MINOR_HELMET* = (0x00000004) + COD_WEARABLE_MINOR_GLASSES* = (0x00000005) + COD_TOY_MINOR_ROBOT* = (0x00000001) + COD_TOY_MINOR_VEHICLE* = (0x00000002) + COD_TOY_MINOR_DOLL_ACTION_FIGURE* = (0x00000003) + COD_TOY_MINOR_CONTROLLER* = (0x00000004) + COD_TOY_MINOR_GAME* = (0x00000005) + COD_HEALTH_MINOR_BLOOD_PRESSURE_MONITOR* = (0x00000001) + COD_HEALTH_MINOR_THERMOMETER* = (0x00000002) + COD_HEALTH_MINOR_WEIGHING_SCALE* = (0x00000003) + COD_HEALTH_MINOR_GLUCOSE_METER* = (0x00000004) + COD_HEALTH_MINOR_PULSE_OXIMETER* = (0x00000005) + COD_HEALTH_MINOR_HEART_PULSE_MONITOR* = (0x00000006) + COD_HEALTH_MINOR_HEALTH_DATA_DISPLAY* = (0x00000007) + COD_HEALTH_MINOR_STEP_COUNTER* = (0x00000008) +# +# Cannot use GET_COD_MINOR for this b/c it is embedded in a different manner +# than the rest of the major classes +# +const + COD_LAN_ACCESS_BIT_OFFSET* = (5) + COD_LAN_MINOR_MASK* = (0x0000001C) + COD_LAN_ACCESS_MASK* = (0x000000E0) +template GET_COD_LAN_MINOR*(cod: expr): expr = + (((cod) and COD_LAN_MINOR_MASK) shr COD_MINOR_BIT_OFFSET) + +template GET_COD_LAN_ACCESS*(cod: expr): expr = + (((cod) and COD_LAN_ACCESS_MASK) shr COD_LAN_ACCESS_BIT_OFFSET) + +# +# LAN access percent usage subcodes +# +const + COD_LAN_MINOR_UNCLASSIFIED* = (0x00000000) + COD_LAN_ACCESS_0_USED* = (0x00000000) + COD_LAN_ACCESS_17_USED* = (0x00000001) + COD_LAN_ACCESS_33_USED* = (0x00000002) + COD_LAN_ACCESS_50_USED* = (0x00000003) + COD_LAN_ACCESS_67_USED* = (0x00000004) + COD_LAN_ACCESS_83_USED* = (0x00000005) + COD_LAN_ACCESS_99_USED* = (0x00000006) + COD_LAN_ACCESS_FULL* = (0x00000007) +# +# Extended Inquiry Response (EIR) defines. +# +const + BTH_EIR_FLAGS_ID* = (0x00000001) + BTH_EIR_16_UUIDS_PARTIAL_ID* = (0x00000002) + BTH_EIR_16_UUIDS_COMPLETE_ID* = (0x00000003) + BTH_EIR_32_UUIDS_PARTIAL_ID* = (0x00000004) + BTH_EIR_32_UUIDS_COMPLETE_ID* = (0x00000005) + BTH_EIR_128_UUIDS_PARTIAL_ID* = (0x00000006) + BTH_EIR_128_UUIDS_COMPLETE_ID* = (0x00000007) + BTH_EIR_LOCAL_NAME_PARTIAL_ID* = (0x00000008) + BTH_EIR_LOCAL_NAME_COMPLETE_ID* = (0x00000009) + BTH_EIR_TX_POWER_LEVEL_ID* = (0x0000000A) + BTH_EIR_OOB_OPT_DATA_LEN_ID* = (0x0000000B) # OOB only. + BTH_EIR_OOB_BD_ADDR_ID* = (0x0000000C) # OOB only. + BTH_EIR_OOB_COD_ID* = (0x0000000D) # OOB only. + BTH_EIR_OOB_SP_HASH_ID* = (0x0000000E) # OOB only. + BTH_EIR_OOB_SP_RANDOMIZER_ID* = (0x0000000F) # OOB only. + BTH_EIR_MANUFACTURER_ID* = (0x000000FF) +# +# Extended Inquiry Response (EIR) size. +# +const + BTH_EIR_SIZE* = (240) +# +# General Inquiry Access Code. +# +const + LAP_GIAC_VALUE* = (0x009E8B33) +# +# Limited Inquiry Access Code. +# +const + LAP_LIAC_VALUE* = (0x009E8B00) + BTH_ADDR_IAC_FIRST* = (0x009E8B00) + BTH_ADDR_IAC_LAST* = (0x009E8B3F) + BTH_ADDR_LIAC* = (0x009E8B00) + BTH_ADDR_GIAC* = (0x009E8B33) +template BTH_ERROR*(btStatus: expr): expr = + ((btStatus) != BTH_ERROR_SUCCESS) + +template BTH_SUCCESS*(btStatus: expr): expr = + ((btStatus) == BTH_ERROR_SUCCESS) + +const + BTH_ERROR_SUCCESS* = (0x00000000) + BTH_ERROR_UNKNOWN_HCI_COMMAND* = (0x00000001) + BTH_ERROR_NO_CONNECTION* = (0x00000002) + BTH_ERROR_HARDWARE_FAILURE* = (0x00000003) + BTH_ERROR_PAGE_TIMEOUT* = (0x00000004) + BTH_ERROR_AUTHENTICATION_FAILURE* = (0x00000005) + BTH_ERROR_KEY_MISSING* = (0x00000006) + BTH_ERROR_MEMORY_FULL* = (0x00000007) + BTH_ERROR_CONNECTION_TIMEOUT* = (0x00000008) + BTH_ERROR_MAX_NUMBER_OF_CONNECTIONS* = (0x00000009) + BTH_ERROR_MAX_NUMBER_OF_SCO_CONNECTIONS* = (0x0000000A) + BTH_ERROR_ACL_CONNECTION_ALREADY_EXISTS* = (0x0000000B) + BTH_ERROR_COMMAND_DISALLOWED* = (0x0000000C) + BTH_ERROR_HOST_REJECTED_LIMITED_RESOURCES* = (0x0000000D) + BTH_ERROR_HOST_REJECTED_SECURITY_REASONS* = (0x0000000E) + BTH_ERROR_HOST_REJECTED_PERSONAL_DEVICE* = (0x0000000F) + BTH_ERROR_HOST_TIMEOUT* = (0x00000010) + BTH_ERROR_UNSUPPORTED_FEATURE_OR_PARAMETER* = (0x00000011) + BTH_ERROR_INVALID_HCI_PARAMETER* = (0x00000012) + BTH_ERROR_REMOTE_USER_ENDED_CONNECTION* = (0x00000013) + BTH_ERROR_REMOTE_LOW_RESOURCES* = (0x00000014) + BTH_ERROR_REMOTE_POWERING_OFF* = (0x00000015) + BTH_ERROR_LOCAL_HOST_TERMINATED_CONNECTION* = (0x00000016) + BTH_ERROR_REPEATED_ATTEMPTS* = (0x00000017) + BTH_ERROR_PAIRING_NOT_ALLOWED* = (0x00000018) + BTH_ERROR_UKNOWN_LMP_PDU* = (0x00000019) + BTH_ERROR_UNSUPPORTED_REMOTE_FEATURE* = (0x0000001A) + BTH_ERROR_SCO_OFFSET_REJECTED* = (0x0000001B) + BTH_ERROR_SCO_INTERVAL_REJECTED* = (0x0000001C) + BTH_ERROR_SCO_AIRMODE_REJECTED* = (0x0000001D) + BTH_ERROR_INVALID_LMP_PARAMETERS* = (0x0000001E) + BTH_ERROR_UNSPECIFIED_ERROR* = (0x0000001F) + BTH_ERROR_UNSUPPORTED_LMP_PARM_VALUE* = (0x00000020) + BTH_ERROR_ROLE_CHANGE_NOT_ALLOWED* = (0x00000021) + BTH_ERROR_LMP_RESPONSE_TIMEOUT* = (0x00000022) + BTH_ERROR_LMP_TRANSACTION_COLLISION* = (0x00000023) + BTH_ERROR_LMP_PDU_NOT_ALLOWED* = (0x00000024) + BTH_ERROR_ENCRYPTION_MODE_NOT_ACCEPTABLE* = (0x00000025) + BTH_ERROR_UNIT_KEY_NOT_USED* = (0x00000026) + BTH_ERROR_QOS_IS_NOT_SUPPORTED* = (0x00000027) + BTH_ERROR_INSTANT_PASSED* = (0x00000028) + BTH_ERROR_PAIRING_WITH_UNIT_KEY_NOT_SUPPORTED* = (0x00000029) + BTH_ERROR_DIFFERENT_TRANSACTION_COLLISION* = (0x0000002A) + BTH_ERROR_QOS_UNACCEPTABLE_PARAMETER* = (0x0000002C) + BTH_ERROR_QOS_REJECTED* = (0x0000002D) + BTH_ERROR_CHANNEL_CLASSIFICATION_NOT_SUPPORTED* = (0x0000002E) + BTH_ERROR_INSUFFICIENT_SECURITY* = (0x0000002F) + BTH_ERROR_PARAMETER_OUT_OF_MANDATORY_RANGE* = (0x00000030) + BTH_ERROR_ROLE_SWITCH_PENDING* = (0x00000032) + BTH_ERROR_RESERVED_SLOT_VIOLATION* = (0x00000034) + BTH_ERROR_ROLE_SWITCH_FAILED* = (0x00000035) + BTH_ERROR_EXTENDED_INQUIRY_RESPONSE_TOO_LARGE* = (0x00000036) + BTH_ERROR_SECURE_SIMPLE_PAIRING_NOT_SUPPORTED_BY_HOST* = (0x00000037) + BTH_ERROR_HOST_BUSY_PAIRING* = (0x00000038) + BTH_ERROR_CONNECTION_REJECTED_DUE_TO_NO_SUITABLE_CHANNEL_FOUND* = ( + 0x00000039) + BTH_ERROR_CONTROLLER_BUSY* = (0x0000003A) + BTH_ERROR_UNACCEPTABLE_CONNECTION_INTERVAL* = (0x0000003B) + BTH_ERROR_DIRECTED_ADVERTISING_TIMEOUT* = (0x0000003C) + BTH_ERROR_CONNECTION_TERMINATED_DUE_TO_MIC_FAILURE* = (0x0000003D) + BTH_ERROR_CONNECTION_FAILED_TO_BE_ESTABLISHED* = (0x0000003E) + BTH_ERROR_MAC_CONNECTION_FAILED* = (0x0000003F) + BTH_ERROR_UNSPECIFIED* = (0x000000FF) +# +# Min, max, and default L2cap MTU. +# +const + L2CAP_MIN_MTU* = (48) + L2CAP_MAX_MTU* = (0x0000FFFF) + L2CAP_DEFAULT_MTU* = (672) +# +# Max l2cap signal size (48) - size of signal header (4) +# +const + MAX_L2CAP_PING_DATA_LENGTH* = (44) + MAX_L2CAP_INFO_DATA_LENGTH* = (44) +# +# the following structures provide information about +# disocvered remote radios. +# +const + BDIF_ADDRESS* = (0x00000001) + BDIF_COD* = (0x00000002) + BDIF_NAME* = (0x00000004) + BDIF_PAIRED* = (0x00000008) + BDIF_PERSONAL* = (0x00000010) + BDIF_CONNECTED* = (0x00000020) +# +# Support added in KB942567 +# +const + BDIF_SHORT_NAME* = (0x00000040) + BDIF_VISIBLE* = (0x00000080) + BDIF_SSP_SUPPORTED* = (0x00000100) + BDIF_SSP_PAIRED* = (0x00000200) + BDIF_SSP_MITM_PROTECTED* = (0x00000400) + BDIF_RSSI* = (0x00001000) + BDIF_EIR* = (0x00002000) + +const + BDIF_BR* = (0x00004000) + BDIF_LE* = (0x00008000) + BDIF_LE_PAIRED* = (0x00010000) + BDIF_LE_PERSONAL* = (0x00020000) + BDIF_LE_MITM_PROTECTED* = (0x00040000) + BDIF_LE_PRIVACY_ENABLED* = (0x00080000) + BDIF_LE_RANDOM_ADDRESS_TYPE* = (0x00100000) + BDIF_VALID_FLAGS* = (BDIF_ADDRESS or BDIF_COD or BDIF_NAME or + BDIF_PAIRED or BDIF_PERSONAL or BDIF_CONNECTED or + BDIF_SHORT_NAME or BDIF_VISIBLE or BDIF_RSSI or BDIF_EIR or + BDIF_SSP_PAIRED or BDIF_SSP_MITM_PROTECTED or BDIF_BR or + BDIF_LE or BDIF_LE_PAIRED or BDIF_LE_PERSONAL or + BDIF_LE_MITM_PROTECTED or BDIF_LE_PRIVACY_ENABLED or + BDIF_LE_RANDOM_ADDRESS_TYPE) + +type + BTH_DEVICE_INFO* = object + flags*: ULONG # + # Combination BDIF_Xxx flags + # + # + # Address of remote device. + # + address*: BTH_ADDR # + # Class Of Device. + # + classOfDevice*: BTH_COD # + # name of the device + # + name*: array[BTH_MAX_NAME_SIZE, CHAR] + + PBTH_DEVICE_INFO* = ptr BTH_DEVICE_INFO +# +# Buffer associated with GUID_BLUETOOTH_RADIO_IN_RANGE +# +type + BTH_RADIO_IN_RANGE* = object + deviceInfo*: BTH_DEVICE_INFO # + # Information about the remote radio + # + # + # The previous flags value for the BTH_DEVICE_INFO. The receiver of this + # notification can compare the deviceInfo.flags and previousDeviceFlags + # to determine what has changed about this remote radio. + # + # For instance, if BDIF_NAME is set in deviceInfo.flags and not in + # previousDeviceFlags, the remote radio's has just been retrieved. + # + previousDeviceFlags*: ULONG + + PBTH_RADIO_IN_RANGE* = ptr BTH_RADIO_IN_RANGE +# +# Buffer associated with GUID_BLUETOOTH_L2CAP_EVENT +# +type + BTH_L2CAP_EVENT_INFO* = object + bthAddress*: BTH_ADDR # + # Remote radio address which the L2CAP event is associated with + # + # + # The PSM that is either being connected to or disconnected from + # + psm*: USHORT # + # If != 0, then the channel has just been established. If == 0, then the + # channel has been destroyed. Notifications for a destroyed channel will + # only be sent for channels successfully established. + # + connected*: UCHAR # + # If != 0, then the local host iniated the l2cap connection. If == 0, then + # the remote host initated the connection. This field is only valid if + # connect is != 0. + # + initiated*: UCHAR + + PBTH_L2CAP_EVENT_INFO* = ptr BTH_L2CAP_EVENT_INFO +const + HCI_CONNECTION_TYPE_ACL* = (1) + HCI_CONNECTION_TYPE_SCO* = (2) + HCI_CONNECTION_TYPE_LE* = (3) +# +# Fix typos +# +const + HCI_CONNNECTION_TYPE_ACL* = HCI_CONNECTION_TYPE_ACL + HCI_CONNNECTION_TYPE_SCO* = HCI_CONNECTION_TYPE_SCO +# +# Buffer associated with GUID_BLUETOOTH_HCI_EVENT +# +type + BTH_HCI_EVENT_INFO* = object + bthAddress*: BTH_ADDR # + # Remote radio address which the HCI event is associated with + # + # + # HCI_CONNNECTION_TYPE_XXX value + # + connectionType*: UCHAR # + # If != 0, then the underlying connection to the remote radio has just + # been estrablished. If == 0, then the underlying conneciton has just been + # destroyed. + # + connected*: UCHAR + + PBTH_HCI_EVENT_INFO* = ptr BTH_HCI_EVENT_INFO +# +# Support added in KB942567 +# +type + IO_CAPABILITY* {.size: sizeof(cint).} = enum + IoCaps_DisplayOnly = 0x00000000, IoCaps_DisplayYesNo = 0x00000001, + IoCaps_KeyboardOnly = 0x00000002, + IoCaps_NoInputNoOutput = 0x00000003, IoCaps_Undefined = 0x000000FF + AUTHENTICATION_REQUIREMENTS* {.size: sizeof(cint).} = enum + MITMProtectionNotRequired = 0x00000000, + MITMProtectionRequired = 0x00000001, + MITMProtectionNotRequiredBonding = 0x00000002, + MITMProtectionRequiredBonding = 0x00000003, + MITMProtectionNotRequiredGeneralBonding = 0x00000004, + MITMProtectionRequiredGeneralBonding = 0x00000005, + MITMProtectionNotDefined = 0x000000FF +template IsMITMProtectionRequired*(requirements: expr): expr = + ((MITMProtectionRequired == requirements) or + (MITMProtectionRequiredBonding == requirements) or + (MITMProtectionRequiredGeneralBonding == requirements)) + +# +# Max length we allow for ServiceName in the remote SDP records +# +const + BTH_MAX_SERVICE_NAME_SIZE* = (256) + MAX_UUIDS_IN_QUERY* = (12) + BTH_VID_DEFAULT_VALUE* = (0x0000FFFF) + SDP_ERROR_INVALID_SDP_VERSION* = (0x00000001) + SDP_ERROR_INVALID_RECORD_HANDLE* = (0x00000002) + SDP_ERROR_INVALID_REQUEST_SYNTAX* = (0x00000003) + SDP_ERROR_INVALID_PDU_SIZE* = (0x00000004) + SDP_ERROR_INVALID_CONTINUATION_STATE* = (0x00000005) + SDP_ERROR_INSUFFICIENT_RESOURCES* = (0x00000006) +# +# Defined by windows to handle server errors that are not described by the +# above errors. Start at 0x0100 so we don't go anywhere near the spec +# defined values. +# +# +# Success, nothing went wrong +# +const + SDP_ERROR_SUCCESS* = SDP_ERROR(0x00000000) +# +# The SDP PDU or parameters other than the SDP stream response was not correct +# +const + SDP_ERROR_SERVER_INVALID_RESPONSE* = SDP_ERROR(0x00000100) +# +# The SDP response stream did not parse correctly. +# +const + SDP_ERROR_SERVER_RESPONSE_DID_NOT_PARSE* = SDP_ERROR(0x00000200) +# +# The SDP response stream was successfully parsed, but did not match the +# required format for the query. +# +const + SDP_ERROR_SERVER_BAD_FORMAT* = SDP_ERROR(0x00000300) +# +# SDP was unable to send a continued query back to the server +# +const + SDP_ERROR_COULD_NOT_SEND_CONTINUE* = SDP_ERROR(0x00000400) +# +# Server sent a response that was too large to fit in the caller's buffer. +# +const + SDP_ERROR_RESPONSE_TOO_LARGE* = SDP_ERROR(0x00000500) + SDP_ATTRIB_RECORD_HANDLE* = (0x00000000) + SDP_ATTRIB_CLASS_ID_LIST* = (0x00000001) + SDP_ATTRIB_RECORD_STATE* = (0x00000002) + SDP_ATTRIB_SERVICE_ID* = (0x00000003) + SDP_ATTRIB_PROTOCOL_DESCRIPTOR_LIST* = (0x00000004) + SDP_ATTRIB_BROWSE_GROUP_LIST* = (0x00000005) + SDP_ATTRIB_LANG_BASE_ATTRIB_ID_LIST* = (0x00000006) + SDP_ATTRIB_INFO_TIME_TO_LIVE* = (0x00000007) + SDP_ATTRIB_AVAILABILITY* = (0x00000008) + SDP_ATTRIB_PROFILE_DESCRIPTOR_LIST* = (0x00000009) + SDP_ATTRIB_DOCUMENTATION_URL* = (0x0000000A) + SDP_ATTRIB_CLIENT_EXECUTABLE_URL* = (0x0000000B) + SDP_ATTRIB_ICON_URL* = (0x0000000C) + SDP_ATTRIB_ADDITIONAL_PROTOCOL_DESCRIPTOR_LIST* = (0x0000000D) +# +# Attribute IDs in the range of 0x000D - 0x01FF are reserved for future use +# +const + SDP_ATTRIB_PROFILE_SPECIFIC* = (0x00000200) + LANG_BASE_LANGUAGE_INDEX* = (0x00000000) + LANG_BASE_ENCODING_INDEX* = (0x00000001) + LANG_BASE_OFFSET_INDEX* = (0x00000002) + LANG_DEFAULT_ID* = (0x00000100) + LANGUAGE_EN_US* = (0x0000656E) + ENCODING_UTF_8* = (0x0000006A) + STRING_NAME_OFFSET* = (0x00000000) + STRING_DESCRIPTION_OFFSET* = (0x00000001) + STRING_PROVIDER_NAME_OFFSET* = (0x00000002) + SDP_ATTRIB_SDP_VERSION_NUMBER_LIST* = (0x00000200) + SDP_ATTRIB_SDP_DATABASE_STATE* = (0x00000201) + SDP_ATTRIB_BROWSE_GROUP_ID* = (0x00000200) + SDP_ATTRIB_CORDLESS_EXTERNAL_NETWORK* = (0x00000301) + SDP_ATTRIB_FAX_CLASS_1_SUPPORT* = (0x00000302) + SDP_ATTRIB_FAX_CLASS_2_0_SUPPORT* = (0x00000303) + SDP_ATTRIB_FAX_CLASS_2_SUPPORT* = (0x00000304) + SDP_ATTRIB_FAX_AUDIO_FEEDBACK_SUPPORT* = (0x00000305) + SDP_ATTRIB_HEADSET_REMOTE_AUDIO_VOLUME_CONTROL* = (0x00000302) + SDP_ATTRIB_LAN_LPSUBNET* = (0x00000200) + SDP_ATTRIB_OBJECT_PUSH_SUPPORTED_FORMATS_LIST* = (0x00000303) + SDP_ATTRIB_SYNCH_SUPPORTED_DATA_STORES_LIST* = (0x00000301) +# this is in the assigned numbers doc, but it does not show up in any profile +const + SDP_ATTRIB_SERVICE_VERSION* = (0x00000300) + SDP_ATTRIB_PAN_NETWORK_ADDRESS* = (0x00000306) + SDP_ATTRIB_PAN_WAP_GATEWAY* = (0x00000307) + SDP_ATTRIB_PAN_HOME_PAGE_URL* = (0x00000308) + SDP_ATTRIB_PAN_WAP_STACK_TYPE* = (0x00000309) + SDP_ATTRIB_PAN_SECURITY_DESCRIPTION* = (0x0000030A) + SDP_ATTRIB_PAN_NET_ACCESS_TYPE* = (0x0000030B) + SDP_ATTRIB_PAN_MAX_NET_ACCESS_RATE* = (0x0000030C) + SDP_ATTRIB_IMAGING_SUPPORTED_CAPABILITIES* = (0x00000310) + SDP_ATTRIB_IMAGING_SUPPORTED_FEATURES* = (0x00000311) + SDP_ATTRIB_IMAGING_SUPPORTED_FUNCTIONS* = (0x00000312) + SDP_ATTRIB_IMAGING_TOTAL_DATA_CAPACITY* = (0x00000313) + SDP_ATTRIB_DI_SPECIFICATION_ID* = (0x00000200) + SDP_ATTRIB_DI_VENDOR_ID* = (0x00000201) + SDP_ATTRIB_DI_PRODUCT_ID* = (0x00000202) + SDP_ATTRIB_DI_VERSION* = (0x00000203) + SDP_ATTRIB_DI_PRIMARY_RECORD* = (0x00000204) + SDP_ATTRIB_DI_VENDOR_ID_SOURCE* = (0x00000205) + SDP_ATTRIB_HID_DEVICE_RELEASE_NUMBER* = (0x00000200) + SDP_ATTRIB_HID_PARSER_VERSION* = (0x00000201) + SDP_ATTRIB_HID_DEVICE_SUBCLASS* = (0x00000202) + SDP_ATTRIB_HID_COUNTRY_CODE* = (0x00000203) + SDP_ATTRIB_HID_VIRTUAL_CABLE* = (0x00000204) + SDP_ATTRIB_HID_RECONNECT_INITIATE* = (0x00000205) + SDP_ATTRIB_HID_DESCRIPTOR_LIST* = (0x00000206) + SDP_ATTRIB_HID_LANG_ID_BASE_LIST* = (0x00000207) + SDP_ATTRIB_HID_SDP_DISABLE* = (0x00000208) + SDP_ATTRIB_HID_BATTERY_POWER* = (0x00000209) + SDP_ATTRIB_HID_REMOTE_WAKE* = (0x0000020A) + SDP_ATTRIB_HID_PROFILE_VERSION* = (0x0000020B) + SDP_ATTRIB_HID_SUPERVISION_TIMEOUT* = (0x0000020C) + SDP_ATTRIB_HID_NORMALLY_CONNECTABLE* = (0x0000020D) + SDP_ATTRIB_HID_BOOT_DEVICE* = (0x0000020E) + SDP_ATTRIB_HID_SSR_HOST_MAX_LATENCY* = (0x0000020F) + SDP_ATTRIB_HID_SSR_HOST_MIN_TIMEOUT* = (0x00000210) +# +# Profile specific values +# +const + CORDLESS_EXTERNAL_NETWORK_PSTN* = (0x00000001) + CORDLESS_EXTERNAL_NETWORK_ISDN* = (0x00000002) + CORDLESS_EXTERNAL_NETWORK_GSM* = (0x00000003) + CORDLESS_EXTERNAL_NETWORK_CDMA* = (0x00000004) + CORDLESS_EXTERNAL_NETWORK_ANALOG_CELLULAR* = (0x00000005) + CORDLESS_EXTERNAL_NETWORK_PACKET_SWITCHED* = (0x00000006) + CORDLESS_EXTERNAL_NETWORK_OTHER* = (0x00000007) + OBJECT_PUSH_FORMAT_VCARD_2_1* = (0x00000001) + OBJECT_PUSH_FORMAT_VCARD_3_0* = (0x00000002) + OBJECT_PUSH_FORMAT_VCAL_1_0* = (0x00000003) + OBJECT_PUSH_FORMAT_ICAL_2_0* = (0x00000004) + OBJECT_PUSH_FORMAT_VNOTE* = (0x00000005) + OBJECT_PUSH_FORMAT_VMESSAGE* = (0x00000006) + OBJECT_PUSH_FORMAT_ANY* = (0x000000FF) + SYNCH_DATA_STORE_PHONEBOOK* = (0x00000001) + SYNCH_DATA_STORE_CALENDAR* = (0x00000003) + SYNCH_DATA_STORE_NOTES* = (0x00000005) + SYNCH_DATA_STORE_MESSAGES* = (0x00000006) + DI_VENDOR_ID_SOURCE_BLUETOOTH_SIG* = (0x00000001) + DI_VENDOR_ID_SOURCE_USB_IF* = (0x00000002) + PSM_SDP* = (0x00000001) + PSM_RFCOMM* = (0x00000003) + PSM_TCS_BIN* = (0x00000005) + PSM_TCS_BIN_CORDLESS* = (0x00000007) + PSM_BNEP* = (0x0000000F) + PSM_HID_CONTROL* = (0x00000011) + PSM_HID_INTERRUPT* = (0x00000013) + PSM_AVCTP* = (0x00000017) + PSM_AVDTP* = (0x00000019) + PSM_UDI_C_PLANE* = (0x0000001D) +# +# Strings +# +const + STR_ADDR_FMTA* = "(%02x:%02x:%02x:%02x:%02x:%02x)" +const + STR_ADDR_SHORT_FMTA* = "%04x%08x" +const + STR_USBHCI_CLASS_HARDWAREIDA* = "USB\x08Class_E0&SubClass_01&Prot_01" +when defined(UNICODE) or defined(BTH_KERN): + const + STR_ADDR_FMT* = STR_ADDR_FMTW + STR_ADDR_SHORT_FMT* = STR_ADDR_SHORT_FMTW + STR_USBHCI_CLASS_HARDWAREID* = STR_USBHCI_CLASS_HARDWAREIDW +else: + const + STR_ADDR_FMT* = STR_ADDR_FMTA + STR_ADDR_SHORT_FMT* = STR_ADDR_SHORT_FMTA + STR_USBHCI_CLASS_HARDWAREID* = STR_USBHCI_CLASS_HARDWAREIDA + +template GET_BITS*(field, offset, mask: expr): expr = + (((field) shr (offset)) and (mask)) + +template GET_BIT*(field, offset: expr): expr = + (GET_BITS(field, offset, 0x00000001)) + +template LMP_3_SLOT_PACKETS*(x: expr): expr = + (GET_BIT(x, 0)) + +template LMP_5_SLOT_PACKETS*(x: expr): expr = + (GET_BIT(x, 1)) + +template LMP_ENCRYPTION*(x: expr): expr = + (GET_BIT(x, 2)) + +template LMP_SLOT_OFFSET*(x: expr): expr = + (GET_BIT(x, 3)) + +template LMP_TIMING_ACCURACY*(x: expr): expr = + (GET_BIT(x, 4)) + +template LMP_SWITCH*(x: expr): expr = + (GET_BIT(x, 5)) + +template LMP_HOLD_MODE*(x: expr): expr = + (GET_BIT(x, 6)) + +template LMP_SNIFF_MODE*(x: expr): expr = + (GET_BIT(x, 7)) + +template LMP_PARK_MODE*(x: expr): expr = + (GET_BIT(x, 8)) + +template LMP_RSSI*(x: expr): expr = + (GET_BIT(x, 9)) + +template LMP_CHANNEL_QUALITY_DRIVEN_MODE*(x: expr): expr = + (GET_BIT(x, 10)) + +template LMP_SCO_LINK*(x: expr): expr = + (GET_BIT(x, 11)) + +template LMP_HV2_PACKETS*(x: expr): expr = + (GET_BIT(x, 12)) + +template LMP_HV3_PACKETS*(x: expr): expr = + (GET_BIT(x, 13)) + +template LMP_MU_LAW_LOG*(x: expr): expr = + (GET_BIT(x, 14)) + +template LMP_A_LAW_LOG*(x: expr): expr = + (GET_BIT(x, 15)) + +template LMP_CVSD*(x: expr): expr = + (GET_BIT(x, 16)) + +template LMP_PAGING_SCHEME*(x: expr): expr = + (GET_BIT(x, 17)) + +template LMP_POWER_CONTROL*(x: expr): expr = + (GET_BIT(x, 18)) + +template LMP_TRANSPARENT_SCO_DATA*(x: expr): expr = + (GET_BIT(x, 19)) + +template LMP_FLOW_CONTROL_LAG*(x: expr): expr = + (GET_BITS(x, 20, 0x00000003)) + +template LMP_BROADCAST_ENCRYPTION*(x: expr): expr = + (GET_BIT(x, 23)) + +template LMP_ENHANCED_DATA_RATE_ACL_2MBPS_MODE*(x: expr): expr = + (GET_BIT(x, 25)) + +template LMP_ENHANCED_DATA_RATE_ACL_3MBPS_MODE*(x: expr): expr = + (GET_BIT(x, 26)) + +template LMP_ENHANCED_INQUIRY_SCAN*(x: expr): expr = + (GET_BIT(x, 27)) + +template LMP_INTERLACED_INQUIRY_SCAN*(x: expr): expr = + (GET_BIT(x, 28)) + +template LMP_INTERLACED_PAGE_SCAN*(x: expr): expr = + (GET_BIT(x, 29)) + +template LMP_RSSI_WITH_INQUIRY_RESULTS*(x: expr): expr = + (GET_BIT(x, 30)) + +template LMP_ESCO_LINK*(x: expr): expr = + (GET_BIT(x, 31)) + +template LMP_EV4_PACKETS*(x: expr): expr = + (GET_BIT(x, 32)) + +template LMP_EV5_PACKETS*(x: expr): expr = + (GET_BIT(x, 33)) + +template LMP_AFH_CAPABLE_SLAVE*(x: expr): expr = + (GET_BIT(x, 35)) + +template LMP_AFH_CLASSIFICATION_SLAVE*(x: expr): expr = + (GET_BIT(x, 36)) + +template LMP_BR_EDR_NOT_SUPPORTED*(x: expr): expr = + (GET_BIT(x, 37)) + +template LMP_LE_SUPPORTED*(x: expr): expr = + (GET_BIT(x, 38)) + +template LMP_3SLOT_EDR_ACL_PACKETS*(x: expr): expr = + (GET_BIT(x, 39)) + +template LMP_5SLOT_EDR_ACL_PACKETS*(x: expr): expr = + (GET_BIT(x, 40)) + +template LMP_SNIFF_SUBRATING*(x: expr): expr = + (GET_BIT(x, 41)) + +template LMP_PAUSE_ENCRYPTION*(x: expr): expr = + (GET_BIT(x, 42)) + +template LMP_AFH_CAPABLE_MASTER*(x: expr): expr = + (GET_BIT(x, 43)) + +template LMP_AFH_CLASSIFICATION_MASTER*(x: expr): expr = + (GET_BIT(x, 44)) + +template LMP_EDR_ESCO_2MBPS_MODE*(x: expr): expr = + (GET_BIT(x, 45)) + +template LMP_EDR_ESCO_3MBPS_MODE*(x: expr): expr = + (GET_BIT(x, 46)) + +template LMP_3SLOT_EDR_ESCO_PACKETS*(x: expr): expr = + (GET_BIT(x, 47)) + +template LMP_EXTENDED_INQUIRY_RESPONSE*(x: expr): expr = + (GET_BIT(x, 48)) + +template LMP_SIMULT_LE_BR_TO_SAME_DEV*(x: expr): expr = + (GET_BIT(x, 49)) + +template LMP_SECURE_SIMPLE_PAIRING*(x: expr): expr = + (GET_BIT(x, 51)) + +template LMP_ENCAPSULATED_PDU*(x: expr): expr = + (GET_BIT(x, 52)) + +template LMP_ERRONEOUS_DATA_REPORTING*(x: expr): expr = + (GET_BIT(x, 53)) + +template LMP_NON_FLUSHABLE_PACKET_BOUNDARY_FLAG*(x: expr): expr = + (GET_BIT(x, 54)) + +template LMP_LINK_SUPERVISION_TIMEOUT_CHANGED_EVENT*(x: expr): expr = + (GET_BIT(x, 56)) + +template LMP_INQUIRY_RESPONSE_TX_POWER_LEVEL*(x: expr): expr = + (GET_BIT(x, 57)) + +template LMP_EXTENDED_FEATURES*(x: expr): expr = + (GET_BIT(x, 63)) diff --git a/nimbluez/msbt/ms_bthsdpdef.nim b/nimbluez/msbt/ms_bthsdpdef.nim new file mode 100644 index 0000000..051fc44 --- /dev/null +++ b/nimbluez/msbt/ms_bthsdpdef.nim @@ -0,0 +1,98 @@ +# +# Copyright (C) Microsoft. All rights reserved. +# + +import winlean + +type + WCHAR* = uint16 + LPWSTR* = ptr WCHAR + LPCWSTR* = ptr WCHAR + PWSTR* = LPWSTR +# GUID* {.final, pure.} = object +# D1*: int32 +# D2*: int16 +# D3*: int16 +# D4*: array [0..7, int8] + BOOL* = int32 + CHAR* = char + UCHAR* = uint8 + BYTE* = byte +# ULONG* = int32 +# DWORD* = int32 + LPSTR* = cstring + LPDWORD* = ptr DWORD + ULONGLONG* = uint64 + LONGLONG* = int64 + USHORT* = uint16 + SHORT* = int16 +# HANDLE* = int32 + SYSTEMTIME* {.final, pure.} = object + wYear*: int16 + wMonth*: int16 + wDayOfWeek*: int16 + wDay*: int16 + wHour*: int16 + wMinute*: int16 + wSecond*: int16 + wMilliseconds*: int16 + LPVOID* = pointer + PVOID* = pointer + HWND* = HANDLE + LPBYTE* = ptr int8 + + +type + SDP_LARGE_INTEGER_16* = object + LowPart*: ULONGLONG + HighPart*: LONGLONG + + SDP_ULARGE_INTEGER_16* = object + LowPart*: ULONGLONG + HighPart*: ULONGLONG + + PSDP_ULARGE_INTEGER_16* = ptr SDP_ULARGE_INTEGER_16 + LPSDP_ULARGE_INTEGER_16* = ptr SDP_ULARGE_INTEGER_16 + PSDP_LARGE_INTEGER_16* = ptr SDP_LARGE_INTEGER_16 + LPSDP_LARGE_INTEGER_16* = ptr SDP_LARGE_INTEGER_16 + + NodeContainerType* = enum + NodeContainerTypeSequence, NodeContainerTypeAlternative + + SDP_ERROR* = USHORT + PSDP_ERROR* = ptr USHORT + + SDP_TYPE* = enum + SDP_TYPE_NIL = 0x00000000, SDP_TYPE_UINT = 0x00000001, + SDP_TYPE_INT = 0x00000002, SDP_TYPE_UUID = 0x00000003, + SDP_TYPE_STRING = 0x00000004, SDP_TYPE_BOOLEAN = 0x00000005, + SDP_TYPE_SEQUENCE = 0x00000006, SDP_TYPE_ALTERNATIVE = 0x00000007, + SDP_TYPE_URL = 0x00000008, SDP_TYPE_CONTAINER = 0x00000020 +# 9 - 31 are reserved +# allow for a little easier type checking / sizing for integers and UUIDs +# ((SDP_ST_XXX & 0xF0) >> 4) == SDP_TYPE_XXX +# size of the data (in bytes) is encoded as ((SDP_ST_XXX & 0xF0) >> 8) + + SDP_SPECIFICTYPE* = enum + SDP_ST_NONE = 0x00000000, SDP_ST_UINT8 = 0x00000010, + SDP_ST_INT8 = 0x00000020, SDP_ST_UINT16 = 0x00000110, + SDP_ST_INT16 = 0x00000120, SDP_ST_UUID16 = 0x00000130, + SDP_ST_UINT32 = 0x00000210, SDP_ST_INT32 = 0x00000220, + SDP_ST_UINT64 = 0x00000310, SDP_ST_INT64 = 0x00000320, + SDP_ST_UINT128 = 0x00000410, SDP_ST_INT128 = 0x00000420, + SDP_ST_UUID128 = 0x00000430 +const + SDP_ST_UUID32* = SDP_ST_INT32 +type + SdpAttributeRange* = object + minAttribute*: USHORT + maxAttribute*: USHORT + + SdpQueryUuidUnion* = object {.union.} + uuid128*: GUID + uuid32*: ULONG + uuid16*: USHORT + + SdpQueryUuid* = object + u*: SdpQueryUuidUnion + uuidType*: USHORT diff --git a/nimbluez/msbt/ms_ws2bth.nim b/nimbluez/msbt/ms_ws2bth.nim new file mode 100644 index 0000000..4afb08d --- /dev/null +++ b/nimbluez/msbt/ms_ws2bth.nim @@ -0,0 +1,372 @@ +#++ +# +#Copyright (c) 2000 Microsoft Corporation +# +#Module Name: +# +# ws2bth.h +# +#Abstract: +# +# Winsock 2 Bluetooth Annex definitions. +# +#Notes: +# +# Change BT_* to BTH_* +# +#-- +{.passC: "-mno-ms-bitfields".} + +import winlean +import ms_bthdef, ms_bthsdpdef, ms_bluetoothapis + +const + AF_BTH* = 32 + PF_BTH* = AF_BTH + + IOC_UNIX* = 0x00000000 + IOC_WS2* = 0x08000000 + IOC_PROTOCOL* = 0x10000000 + IOC_VENDOR* = 0x18000000 + + IOCPARM_MASK* = 0x0000007F + IOC_VOID* = 0x20000000 + IOC_OUT* = 0x40000000 + IOC_IN* = 0x80000000 + IOC_INOUT* = (IOC_IN or IOC_OUT) + +template WSAIO*(x, y: expr): expr = + (IOC_VOID or (x) or (y)) + +template WSAIOR*(x, y: expr): expr = + (IOC_OUT or (x) or (y)) + +template WSAIOW*(x, y: expr): expr = + (IOC_IN or (x) or (y)) + +template WSAIORW*(x, y: expr): expr = + (IOC_INOUT or (x) or (y)) + +const + BT_PORT_ANY* = ULONG(-1) + BT_PORT_MIN* = 0x00000001 + BT_PORT_MAX* = 0x0000FFFF + BT_PORT_DYN_FIRST* = 0x00001001 +# +# These three definitions are duplicated in winsock2.h to reserve ordinals +# +type + SOCKADDR_BTH* {.packed.} = object + addressFamily*: USHORT # Always AF_BTH + btAddr*: BTH_ADDR # Bluetooth device address + serviceClassId*: GUID # [OPTIONAL] system will query SDP for port + port*: ULONG # RFCOMM channel or L2CAP PSM + + PSOCKADDR_BTH* = ptr SOCKADDR_BTH + +DEFINE_GUID(SVCID_BTH_PROVIDER, 0x06AA63E0, 0x00007D60, 0x000041FF, + 0x000000AF, 0x000000B2, 0x0000003E, 0x000000E6, 0x000000D2, + 0x000000D9, 0x00000039, 0x0000002D) +const + BTH_ADDR_STRING_SIZE* = 12 +# +# Bluetooth protocol #s are assigned according to the Bluetooth +# Assigned Numbers portion of the Bluetooth Specification +# +const + BTHPROTO_RFCOMM* = 0x00000003 + BTHPROTO_L2CAP* = 0x00000100 + + SOL_RFCOMM* = BTHPROTO_RFCOMM + SOL_L2CAP* = BTHPROTO_L2CAP + SOL_SDP* = 0x00000101 +# +# SOCKET OPTIONS +# +const + SO_BTH_AUTHENTICATE* = 0x80000001 + SO_BTH_ENCRYPT* = 0x00000002 + SO_BTH_MTU* = 0x80000007 + SO_BTH_MTU_MAX* = 0x80000008 + SO_BTH_MTU_MIN* = 0x8000000A +# +# Socket option parameters +# +# 3-DH5 => payload of 1021 => L2cap payload of 1017 => RFComm payload of 1011 +const + RFCOMM_MAX_MTU* = 0x000003F3 + RFCOMM_MIN_MTU* = 0x00000017 +# +# NAME SERVICE PROVIDER DEFINITIONS +# For calling WSASetService +# and WSALookupServiceBegin, WSALookupServiceNext, WSALookupServiceEnd +# with Bluetooth-specific extensions +# +const + BTH_SDP_VERSION* = 1 +# +# [OPTIONAL] passed in BLOB member of WSAQUERYSET +# QUERYSET and its lpBlob member are copied & converted +# to unicode in the system for non-unicode applications. +# However, nothing is copied back upon return. In +# order for the system to return data such as pRecordHandle, +# it much have an extra level of indirection from lpBlob +# +type + BTH_SET_SERVICE* = object + pSdpVersion*: PULONG # + # This version number will change when/if the binary format of + # SDP records change, affecting the format of pRecord. + # Set to BTH_SDP_VERSION by client, and returned by system + # + # + # Handle to SDP record. When BTH_SET_SERVICE structure is later + # passed to WSASetService RNRSERVICE_DELETE, this handle identifies the + # record to delete. + # + pRecordHandle*: ptr HANDLE # + # COD_SERVICE_* bit(s) associated with this SDP record, which will be + # advertised when the local radio is found during device inquiry. + # When the last SDP record associated with a bit is deleted, that + # service bit is no longer reported in repsonse to inquiries + # + fCodService*: ULONG # COD_SERVICE_* bits + Reserved*: array[5, ULONG] # Reserved by system. Must be zero. + ulRecordLength*: ULONG # length of pRecord which follows + pRecord*: array[1, UCHAR] # SDP record as defined by bluetooth spec + + PBTH_SET_SERVICE* = ptr BTH_SET_SERVICE +# +# Default device inquiry duration in seconds +# +# The application thread will be blocked in WSALookupServiceBegin +# for the duration of the device inquiry, so this value needs to +# be balanced against the chance that a device that is actually +# present might not being found by Bluetooth in this time +# +# Paging improvements post-1.1 will cause devices to be +# found generally uniformly in the 0-6 sec timeperiod +# +const + SDP_DEFAULT_INQUIRY_SECONDS* = 6 + SDP_MAX_INQUIRY_SECONDS* = 60 +# +# Default maximum number of devices to search for +# +const + SDP_DEFAULT_INQUIRY_MAX_RESPONSES* = 255 + SDP_SERVICE_SEARCH_REQUEST* = 1 + SDP_SERVICE_ATTRIBUTE_REQUEST* = 2 + SDP_SERVICE_SEARCH_ATTRIBUTE_REQUEST* = 3 +# +# [OPTIONAL] input restrictions on device inquiry +# Passed in BLOB of LUP_CONTAINERS (device) search +# +type + BTH_QUERY_DEVICE* = object + LAP*: ULONG # reserved: must be 0 (GIAC inquiry only) + length*: UCHAR # requested length of inquiry (seconds) + + PBTH_QUERY_DEVICE* = ptr BTH_QUERY_DEVICE +# +# [OPTIONAL] Restrictions on searching for a particular service +# Passed in BLOB of !LUP_CONTAINERS (service) search +# +type + BTH_QUERY_SERVICE* = object + `type`*: ULONG # one of SDP_SERVICE_* + serviceHandle*: ULONG + uuids*: array[MAX_UUIDS_IN_QUERY, SdpQueryUuid] + numRange*: ULONG + pRange*: array[1, SdpAttributeRange] + + PBTH_QUERY_SERVICE* = ptr BTH_QUERY_SERVICE +# +# BTHNS_RESULT_* +# +# Bluetooth specific flags returned from WSALookupServiceNext +# in WSAQUERYSET.dwOutputFlags in response to device inquiry +# +# +# Local device is paired with remote device +# +const + BTHNS_RESULT_DEVICE_CONNECTED* = 0x00010000 + BTHNS_RESULT_DEVICE_REMEMBERED* = 0x00020000 + BTHNS_RESULT_DEVICE_AUTHENTICATED* = 0x00040000 +# +# SOCKET IOCTLs +# +const + SIO_RFCOMM_SEND_COMMAND* = WSAIORW(IOC_VENDOR, 101) + SIO_RFCOMM_WAIT_COMMAND* = WSAIORW(IOC_VENDOR, 102) +# +# These IOCTLs are for test/validation/conformance and may only be +# present in debug/checked builds of the system +# +const + SIO_BTH_PING* = WSAIORW(IOC_VENDOR, 8) + SIO_BTH_INFO* = WSAIORW(IOC_VENDOR, 9) + SIO_RFCOMM_SESSION_FLOW_OFF* = WSAIORW(IOC_VENDOR, 103) + SIO_RFCOMM_TEST* = WSAIORW(IOC_VENDOR, 104) + SIO_RFCOMM_USECFC* = WSAIORW(IOC_VENDOR, 105) +# RESERVED _WSAIORW (IOC_VENDOR, 106) +# +# SOCKET IOCTL DEFINITIONS +# +when not defined(BIT): + template BIT*(b: expr): expr = + (1 shl (b)) + +# +# Structure definition from Bluetooth RFCOMM spec, TS 07.10 5.4.6.3.7 +# +# Signals field values +const +# MSC_EA_BIT* = EA_BIT + MSC_FC_BIT* = BIT(1) # Flow control, clear if we can receive + MSC_RTC_BIT* = BIT(2) # Ready to communicate, set when ready + MSC_RTR_BIT* = BIT(3) # Ready to receive, set when ready + MSC_RESERVED* = (BIT(4) or BIT(5)) # Reserved by spec, must be 0 + MSC_IC_BIT* = BIT(6) # Incoming call + MSC_DV_BIT* = BIT(7) # Data valid + # Break field values + MSC_BREAK_BIT* = BIT(1) # Set if sending break +template MSC_SET_BREAK_LENGTH*(b, l: expr): expr = + ((b) = ((b) and 0x00000003) or (((l) and 0x0000000F) shl 4)) + +type + RFCOMM_MSC_DATA* = object + Signals*: UCHAR + Break*: UCHAR + + PRFCOMM_MSC_DATA* = ptr RFCOMM_MSC_DATA +# +# Structure definition from Bluetooth RFCOMM spec, TS 07.10 5.4.6.3.10 +# +const + RLS_ERROR* = 0x00000001 + RLS_OVERRUN* = 0x00000002 + RLS_PARITY* = 0x00000004 + RLS_FRAMING* = 0x00000008 +type + RFCOMM_RLS_DATA* = object + LineStatus*: UCHAR + + PRFCOMM_RLS_DATA* = ptr RFCOMM_RLS_DATA +# +# Structure definition from Bluetooth RFCOMM spec, TS 07.10 5.4.6.3.9 +# +const + RPN_BAUD_2400* = 0 + RPN_BAUD_4800* = 1 + RPN_BAUD_7200* = 2 + RPN_BAUD_9600* = 3 + RPN_BAUD_19200* = 4 + RPN_BAUD_38400* = 5 + RPN_BAUD_57600* = 6 + RPN_BAUD_115200* = 7 + RPN_BAUD_230400* = 8 + RPN_DATA_5* = 0x00000000 + RPN_DATA_6* = 0x00000001 + RPN_DATA_7* = 0x00000002 + RPN_DATA_8* = 0x00000003 + RPN_STOP_1* = 0x00000000 + RPN_STOP_1_5* = 0x00000004 + RPN_PARITY_NONE* = 0x00000000 + RPN_PARITY_ODD* = 0x00000008 + RPN_PARITY_EVEN* = 0x00000018 + RPN_PARITY_MARK* = 0x00000028 + RPN_PARITY_SPACE* = 0x00000038 + RPN_FLOW_X_IN* = 0x00000001 + RPN_FLOW_X_OUT* = 0x00000002 + RPN_FLOW_RTR_IN* = 0x00000004 + RPN_FLOW_RTR_OUT* = 0x00000008 + RPN_FLOW_RTC_IN* = 0x00000010 + RPN_FLOW_RTC_OUT* = 0x00000020 + RPN_PARAM_BAUD* = 0x00000001 + RPN_PARAM_DATA* = 0x00000002 + RPN_PARAM_STOP* = 0x00000004 + RPN_PARAM_PARITY* = 0x00000008 + RPN_PARAM_P_TYPE* = 0x00000010 + RPN_PARAM_XON* = 0x00000020 + RPN_PARAM_XOFF* = 0x00000040 + RPN_PARAM_X_IN* = 0x00000001 + RPN_PARAM_X_OUT* = 0x00000002 + RPN_PARAM_RTR_IN* = 0x00000004 + RPN_PARAM_RTR_OUT* = 0x00000008 + RPN_PARAM_RTC_IN* = 0x00000010 + RPN_PARAM_RTC_OUT* = 0x00000020 +type + RFCOMM_RPN_DATA* = object + Baud*: UCHAR + Data*: UCHAR + FlowControl*: UCHAR + XonChar*: UCHAR + XoffChar*: UCHAR + ParameterMask1*: UCHAR + ParameterMask2*: UCHAR + + PRFCOMM_RPN_DATA* = ptr RFCOMM_RPN_DATA +const + RFCOMM_CMD_NONE* = 0 + RFCOMM_CMD_MSC* = 1 + RFCOMM_CMD_RLS* = 2 + RFCOMM_CMD_RPN* = 3 + RFCOMM_CMD_RPN_REQUEST* = 4 + RFCOMM_CMD_RPN_RESPONSE* = 5 +# RESERVED_CMD 6 +type + INNER_C_UNION_112492126* = object {.union.} + MSC*: RFCOMM_MSC_DATA + RLS*: RFCOMM_RLS_DATA + RPN*: RFCOMM_RPN_DATA + +type + RFCOMM_COMMAND* = object + CmdType*: ULONG # one of RFCOMM_CMD_* + Data*: INNER_C_UNION_112492126 + + PRFCOMM_COMMAND* = ptr RFCOMM_COMMAND +# +# These structures are for test/validation/conformance and may only be +# present in debug/checked builds of the system +# +type + INNER_C_UNION_301228124* = object {.union.} + connectionlessMTU*: USHORT + data*: array[MAX_L2CAP_INFO_DATA_LENGTH, UCHAR] + +type + BTH_PING_REQ* = object + btAddr*: BTH_ADDR + dataLen*: UCHAR + data*: array[MAX_L2CAP_PING_DATA_LENGTH, UCHAR] + + PBTH_PING_REQ* = ptr BTH_PING_REQ + BTH_PING_RSP* = object + dataLen*: UCHAR + data*: array[MAX_L2CAP_PING_DATA_LENGTH, UCHAR] + + PBTH_PING_RSP* = ptr BTH_PING_RSP + BTH_INFO_REQ* = object + btAddr*: BTH_ADDR + infoType*: USHORT + + PBTH_INFO_REQ* = ptr BTH_INFO_REQ + BTH_INFO_RSP* = object + result*: USHORT + dataLen*: UCHAR + ano_2541354110*: INNER_C_UNION_301228124 + + PBTH_INFO_RSP* = ptr BTH_INFO_RSP +# +# WinCE compatible struct names +# +type + BTHNS_SETBLOB* = BTH_SET_SERVICE + PBTHNS_SETBLOB* = ptr BTH_SET_SERVICE + BTHNS_INQUIRYBLOB* = BTH_QUERY_DEVICE + PBTHNS_INQUIRYBLOB* = ptr BTH_QUERY_DEVICE + BTHNS_RESTRICTIONBLOB* = BTH_QUERY_SERVICE + PBTHNS_RESTRICTIONBLOB* = ptr BTH_QUERY_SERVICE |