{******************************************************************************}
{ }
{ BlueTooth API interface Unit for Object Pascal }
{ }
{ Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft }
{ Corporation. All Rights Reserved. }
{ }
{ Portions created by Marcel van Brakel are Copyright (C) 1999-2001 }
{ Marcel van Brakel. All Rights Reserved. }
{ }
{ Contributors: John Penman }
{ }
{ Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI) }
{ }
{ You may retrieve the latest version of this file at the Project JEDI }
{ APILIB home page, located at http://jedi-apilib.sourceforge.net }
{ }
{ The contents of this file are used with permission, subject to the Mozilla }
{ Public License Version 1.1 (the "License"); you may not use this file except }
{ in compliance with the License. You may obtain a copy of the License at }
{ http://www.mozilla.org/MPL/MPL-1.1.html }
{ }
{ Software distributed under the License is distributed on an "AS IS" basis, }
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
{ the specific language governing rights and limitations under the License. }
{ }
{ Alternatively, the contents of this file may be used under the terms of the }
{ GNU Lesser General Public License (the "LGPL License"), in which case the }
{ provisions of the LGPL License are applicable instead of those above. }
{ If you wish to allow use of your version of this file only under the terms }
{ of the LGPL License and not to allow others to use your version of this file }
{ under the MPL, indicate your decision by deleting the provisions above and }
{ replace them with the notice and other provisions required by the LGPL }
{ License. If you do not delete the provisions above, a recipient may use }
{ your version of this file under either the MPL or the LGPL License. }
{ }
{ For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
{ }
{******************************************************************************}
unit JwaBtHDef;
{$WEAKPACKAGEUNIT}
{$HPPEMIT ''}
{$HPPEMIT '#include "bthdef.h"'}
{$HPPEMIT ''}
{$I jediapilib.inc}
interface
uses
JwaWinType, JwaBthSdpDef;
const
GUID_BTHPORT_DEVICE_INTERFACE: TGUID = '{0850302A-B344-4FDA-9BE9-90576B8D46F0}';
{$EXTERNALSYM GUID_BTHPORT_DEVICE_INTERFACE}
GUID_BLUETOOTH_RADIO_IN_RANGE: TGUID = '{EA3B5B82-26EE-450E-B0D8-D26FE30A3869}';
{$EXTERNALSYM GUID_BLUETOOTH_RADIO_IN_RANGE}
GUID_BLUETOOTH_RADIO_OUT_OF_RANGE: TGUID = '{E28867C9-C2AA-4CED-B969-4570866037C4}';
{$EXTERNALSYM GUID_BLUETOOTH_RADIO_OUT_OF_RANGE}
GUID_BLUETOOTH_PIN_REQUEST: TGUID = '{BD198B7C-24AB-4B9A-8C0D-A8EA8349AA16}';
{$EXTERNALSYM GUID_BLUETOOTH_PIN_REQUEST}
GUID_BLUETOOTH_L2CAP_EVENT: TGUID = '{7EAE4030-B709-4AA8-AC55-E953829C9DAA}';
{$EXTERNALSYM GUID_BLUETOOTH_L2CAP_EVENT}
GUID_BLUETOOTH_HCI_EVENT: TGUID = '{FC240062-1541-49BE-B463-84C4DCD7BF7F}';
{$EXTERNALSYM GUID_BLUETOOTH_HCI_EVENT}
//
// Bluetooth base UUID for service discovery
//
BLUETOOTH_BASE_UUID = '{00000000-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM BLUETOOTH_BASE_UUID}
//
// UUID for the root of the browse group list
//
SDP_PROTOCOL_UUID: TGUID = '{00000001-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM SDP_PROTOCOL_UUID}
UDP_PROTOCOL_UUID: TGUID = '{00000002-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM UDP_PROTOCOL_UUID}
RFCOMM_PROTOCOL_UUID: TGUID = '{00000003-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM RFCOMM_PROTOCOL_UUID}
TCP_PROTOCOL_UUID: TGUID = '{00000004-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM TCP_PROTOCOL_UUID}
TCSBIN_PROTOCOL_UUID: TGUID = '{00000005-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM TCSBIN_PROTOCOL_UUID}
TCSAT_PROTOCOL_UUID: TGUID = '{00000006-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM TCSAT_PROTOCOL_UUID}
OBEX_PROTOCOL_UUID: TGUID = '{00000008-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM OBEX_PROTOCOL_UUID}
IP_PROTOCOL_UUID: TGUID = '{00000009-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM IP_PROTOCOL_UUID}
FTP_PROTOCOL_UUID: TGUID = '{0000000A-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM FTP_PROTOCOL_UUID}
HTTP_PROTOCOL_UUID: TGUID = '{0000000C-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM HTTP_PROTOCOL_UUID}
WSP_PROTOCOL_UUID: TGUID = '{0000000E-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM WSP_PROTOCOL_UUID}
BNEP_PROTOCOL_UUID: TGUID = '{0000000F-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM BNEP_PROTOCOL_UUID}
UPNP_PROTOCOL_UUID: TGUID = '{00000010-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM UPNP_PROTOCOL_UUID}
HID_PROTOCOL_UUID: TGUID = '{00000011-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM HID_PROTOCOL_UUID}
HCCC_PROTOCOL_UUID: TGUID = '{00000012-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM HCCC_PROTOCOL_UUID}
HCDC_PROTOCOL_UUID: TGUID = '{00000014-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM HCDC_PROTOCOL_UUID}
HN_PROTOCOL_UUID: TGUID = '{00000016-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM HN_PROTOCOL_UUID}
AVCTP_PROTOCOL_UUID: TGUID = '{00000017-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM AVCTP_PROTOCOL_UUID}
AVDTP_PROTOCOL_UUID: TGUID = '{00000019-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM AVDTP_PROTOCOL_UUID}
CMPT_PROTOCOL_UUID: TGUID = '{0000001B-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM CMPT_PROTOCOL_UUID}
UDI_C_PLANE_PROTOCOL_UUID: TGUID= '{0000001D-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM UDI_C_PLANE_PROTOCOL_UUID}
L2CAP_PROTOCOL_UUID: TGUID = '{00000100-0000-1000-8000-00805F9B34FB}';
{$EXTERNALSYM L2CAP_PROTOCOL_UUID}
SDP_PROTOCOL_UUID16 = $0001;
{$EXTERNALSYM SDP_PROTOCOL_UUID16}
UDP_PROTOCOL_UUID16 = $0002;
{$EXTERNALSYM UDP_PROTOCOL_UUID16}
RFCOMM_PROTOCOL_UUID16 = $0003;
{$EXTERNALSYM RFCOMM_PROTOCOL_UUID16}
TCP_PROTOCOL_UUID16 = $0004;
{$EXTERNALSYM TCP_PROTOCOL_UUID16}
TCSBIN_PROTOCOL_UUID16 = $0005;
{$EXTERNALSYM TCSBIN_PROTOCOL_UUID16}
TCSAT_PROTOCOL_UUID16 = $0006;
{$EXTERNALSYM TCSAT_PROTOCOL_UUID16}
OBEX_PROTOCOL_UUID16 = $0008;
{$EXTERNALSYM OBEX_PROTOCOL_UUID16}
IP_PROTOCOL_UUID16 = $0009;
{$EXTERNALSYM IP_PROTOCOL_UUID16}
FTP_PROTOCOL_UUID16 = $000A;
{$EXTERNALSYM FTP_PROTOCOL_UUID16}
HTTP_PROTOCOL_UUID16 = $000C;
{$EXTERNALSYM HTTP_PROTOCOL_UUID16}
WSP_PROTOCOL_UUID16 = $000E;
{$EXTERNALSYM WSP_PROTOCOL_UUID16}
BNEP_PROTOCOL_UUID16 = $000;
{$EXTERNALSYM BNEP_PROTOCOL_UUID16}
UPNP_PROTOCOL_UUID16 = $0010;
{$EXTERNALSYM UPNP_PROTOCOL_UUID16}
HID_PROTOCOL_UUID16 = $0011;
{$EXTERNALSYM HID_PROTOCOL_UUID16}
HCCC_PROTOCOL_UUID16 = $0012;
{$EXTERNALSYM HCCC_PROTOCOL_UUID16}
HCDC_PROTOCOL_UUID16 = $0014;
{$EXTERNALSYM HCDC_PROTOCOL_UUID16}
HCN_PROTOCOL_UUID16 = $0016;
{$EXTERNALSYM HCN_PROTOCOL_UUID16}
AVCTP_PROTOCOL_UUID16 = $0017;
{$EXTERNALSYM AVCTP_PROTOCOL_UUID16}
AVDTP_PROTOCOL_UUID16 = $0019;
{$EXTERNALSYM AVDTP_PROTOCOL_UUID16}
CMPT_PROTOCOL_UUID16 = $001B;
{$EXTERNALSYM CMPT_PROTOCOL_UUID16}
UDI_C_PLANE_PROTOCOL_UUID16 = $001D;
{$EXTERNALSYM UDI_C_PLANE_PROTOCOL_UUID16}
L2CAP_PROTOCOL_UUID16 = $0100;
{$EXTERNALSYM L2CAP_PROTOCOL_UUID16}
ServiceDiscoveryServerServiceClassID_UUID: TGUID = '{00001000-0000-1000-8000-00805F9B34FB}';
BrowseGroupDescriptorServiceClassID_UUID: TGUID = '{00001001-0000-1000-8000-00805F9B34FB}';
PublicBrowseGroupServiceClass_UUID: TGUID = '{00001002-0000-1000-8000-00805F9B34FB}';
SerialPortServiceClass_UUID: TGUID = '{00001101-0000-1000-8000-00805F9B34FB}';
LANAccessUsingPPPServiceClass_UUID: TGUID = '{00001102-0000-1000-8000-00805F9B34FB}';
DialupNetworkingServiceClass_UUID: TGUID = '{00001103-0000-1000-8000-00805F9B34FB}';
IrMCSyncServiceClass_UUID: TGUID = '{00001104-0000-1000-8000-00805F9B34FB}';
OBEXObjectPushServiceClass_UUID: TGUID = '{00001105-0000-1000-8000-00805F9B34FB}';
OBEXFileTransferServiceClass_UUID: TGUID = '{00001106-0000-1000-8000-00805F9B34FB}';
IrMCSyncCommandServiceClass_UUID: TGUID = '{00001107-0000-1000-8000-00805F9B34FB}';
HeadsetServiceClass_UUID: TGUID = '{00001108-0000-1000-8000-00805F9B34FB}';
CordlessTelephonyServiceClass_UUID: TGUID = '{00001109-0000-1000-8000-00805F9B34FB}';
AudioSourceServiceClass_UUID: TGUID = '{0000110A-0000-1000-8000-00805F9B34FB}';
AudioSinkServiceClass_UUID: TGUID = '{0000110B-0000-1000-8000-00805F9B34FB}';
AVRemoteControlTargetServiceClass_UUID: TGUID = '{0000110C-0000-1000-8000-00805F9B34FB}';
AdvancedAudioDistributionServiceClass_UUID: TGUID = '{0000110D-0000-1000-8000-00805F9B34FB}';
AVRemoteControlServiceClass_UUID: TGUID = '{0000110E-0000-1000-8000-00805F9B34FB}';
VideoConferencingServiceClass_UUID: TGUID = '{0000110F-0000-1000-8000-00805F9B34FB}';
IntercomServiceClass_UUID: TGUID = '{00001110-0000-1000-8000-00805F9B34FB}';
FaxServiceClass_UUID: TGUID = '{00001111-0000-1000-8000-00805F9B34FB}';
HeadsetAudioGatewayServiceClass_UUID: TGUID = '{00001112-0000-1000-8000-00805F9B34FB}';
WAPServiceClass_UUID: TGUID = '{00001113-0000-1000-8000-00805F9B34FB}';
WAPClientServiceClass_UUID: TGUID = '{00001114-0000-1000-8000-00805F9B34FB}';
PANUServiceClass_UUID: TGUID = '{00001115-0000-1000-8000-00805F9B34FB}';
NAPServiceClass_UUID: TGUID = '{00001116-0000-1000-8000-00805F9B34FB}';
GNServiceClass_UUID: TGUID = '{00001117-0000-1000-8000-00805F9B34FB}';
DirectPrintingServiceClass_UUID: TGUID = '{00001118-0000-1000-8000-00805F9B34FB}';
ReferencePrintingServiceClass_UUID: TGUID = '{00001119-0000-1000-8000-00805F9B34FB}';
ImagingServiceClass_UUID: TGUID = '{0000111A-0000-1000-8000-00805F9B34FB}';
ImagingResponderServiceClass_UUID: TGUID = '{0000111B-0000-1000-8000-00805F9B34FB}';
ImagingAutomaticArchiveServiceClass_UUID: TGUID = '{0000111C-0000-1000-8000-00805F9B34FB}';
ImagingReferenceObjectsServiceClass_UUID: TGUID = '{0000111D-0000-1000-8000-00805F9B34FB}';
HandsfreeServiceClass_UUID: TGUID = '{0000111E-0000-1000-8000-00805F9B34FB}';
HandsfreeAudioGatewayServiceClass_UUID: TGUID = '{0000111F-0000-1000-8000-00805F9B34FB}';
DirectPrintingReferenceObjectsServiceClass_UUID: TGUID = '{00001120-0000-1000-8000-00805F9B34FB}';
ReflectedUIServiceClass_UUID: TGUID = '{00001121-0000-1000-8000-00805F9B34FB}';
BasicPringingServiceClass_UUID: TGUID = '{00001122-0000-1000-8000-00805F9B34FB}';
PrintingStatusServiceClass_UUID: TGUID = '{00001123-0000-1000-8000-00805F9B34FB}';
HumanInterfaceDeviceServiceClass_UUID: TGUID = '{00001124-0000-1000-8000-00805F9B34FB}';
HardcopyCableReplacementServiceClass_UUID: TGUID = '{00001125-0000-1000-8000-00805F9B34FB}';
HCRPrintServiceClass_UUID: TGUID = '{00001126-0000-1000-8000-00805F9B34FB}';
HCRScanServiceClass_UUID: TGUID = '{00001127-0000-1000-8000-00805F9B34FB}';
CommonISDNAccessServiceClass_UUID: TGUID = '{00001128-0000-1000-8000-00805F9B34FB}';
VideoConferencingGWServiceClass_UUID: TGUID = '{00001129-0000-1000-8000-00805F9B34FB}';
UDIMTServiceClass_UUID: TGUID = '{0000112A-0000-1000-8000-00805F9B34FB}';
UDITAServiceClass_UUID: TGUID = '{0000112B-0000-1000-8000-00805F9B34FB}';
AudioVideoServiceClass_UUID: TGUID = '{0000112C-0000-1000-8000-00805F9B34FB}';
PnPInformationServiceClass_UUID: TGUID = '{00001200-0000-1000-8000-00805F9B34FB}';
GenericNetworkingServiceClass_UUID: TGUID = '{00001201-0000-1000-8000-00805F9B34FB}';
GenericFileTransferServiceClass_UUID: TGUID = '{00001202-0000-1000-8000-00805F9B34FB}';
GenericAudioServiceClass_UUID: TGUID = '{00001203-0000-1000-8000-00805F9B34FB}';
GenericTelephonyServiceClass_UUID: TGUID = '{00001204-0000-1000-8000-00805F9B34FB}';
ServiceDiscoveryServerServiceClassID_UUID16 = $1000;
BrowseGroupDescriptorServiceClassID_UUID16 = $1001;
PublicBrowseGroupServiceClassID_UUID16 = $1002;
SerialPortServiceClassID_UUID16 = $1101;
LANAccessUsingPPPServiceClassID_UUID16 = $1102;
DialupNetworkingServiceClassID_UUID16 = $1103;
IrMCSyncServiceClassID_UUID16 = $1104;
OBEXObjectPushServiceClassID_UUID16 = $1105;
OBEXFileTransferServiceClassID_UUID16 = $1106;
IrMcSyncCommandServiceClassID_UUID16 = $1107;
HeadsetServiceClassID_UUID16 = $1108;
CordlessServiceClassID_UUID16 = $1109;
AudioSourceServiceClassID_UUID16 = $110A;
AudioSinkSourceServiceClassID_UUID16 = $110B;
AVRemoteControlTargetServiceClassID_UUID16 = $110C;
AdvancedAudioDistributionServiceClassID_UUID16 = $110D;
AVRemoteControlServiceClassID_UUID16 = $110E;
VideoConferencingServiceClassID_UUID16 = $110;
IntercomServiceClassID_UUID16 = $1110;
FaxServiceClassID_UUID16 = $1111;
HeadsetAudioGatewayServiceClassID_UUID16 = $1112;
WAPServiceClassID_UUID16 = $1113;
WAPClientServiceClassID_UUID16 = $1114;
PANUServiceClassID_UUID16 = $1115;
NAPServiceClassID_UUID16 = $1116;
GNServiceClassID_UUID16 = $1117;
DirectPrintingServiceClassID_UUID16 = $1118;
ReferencePrintingServiceClassID_UUID16 = $1119;
ImagingServiceClassID_UUID16 = $111A;
ImagingResponderServiceClassID_UUID16 = $111B;
ImagingAutomaticArchiveServiceClassID_UUID16 = $111C;
ImagingReferenceObjectsServiceClassID_UUID16 = $111D;
HandsfreeServiceClassID_UUID16 = $111E;
HandsfreeAudioGatewayServiceClassID_UUID16 = $111F;
DirectPrintingReferenceObjectsServiceClassID_UUID16 = $1120;
ReflectsUIServiceClassID_UUID16 = $1121;
BasicPrintingServiceClassID_UUID16 = $1122;
PrintingStatusServiceClassID_UUID16 = $1123;
HumanInterfaceDeviceServiceClassID_UUID16 = $1124;
HardcopyCableReplacementServiceClassID_UUID16 = $1125;
HCRPrintServiceClassID_UUID16 = $1126;
HCRScanServiceClassID_UUID16 = $1127;
CommonISDNAccessServiceClass_UUID16 = $1128;
VideoConferencingGWServiceClass_UUID16 = $1129;
UDIMTServiceClass_UUID16 = $112A;
UDITAServiceClass_UUID16 = $112B;
AudioVideoServiceClass_UUID16 = $112C;
PnPInformationServiceClassID_UUID16 = $1200;
{$EXTERNALSYM PnPInformationServiceClassID_UUID16}
GenericNetworkingServiceClassID_UUID16 = $1201;
{$EXTERNALSYM GenericNetworkingServiceClassID_UUID16}
GenericFileTransferServiceClassID_UUID16 = $1202;
{$EXTERNALSYM GenericFileTransferServiceClassID_UUID16}
GenericAudioServiceClassID_UUID16 = $1203;
{$EXTERNALSYM GenericAudioServiceClassID_UUID16}
GenericTelephonyServiceClassID_UUID16 = $1204;
{$EXTERNALSYM GenericTelephonyServiceClassID_UUID16}
//
// max length of device friendly name.
//
BTH_MAX_NAME_SIZE = 248;
{$EXTERNALSYM BTH_MAX_NAME_SIZE}
BTH_MAX_PIN_SIZE = 16;
{$EXTERNALSYM BTH_MAX_PIN_SIZE}
BTH_LINK_KEY_LENGTH = 16;
{$EXTERNALSYM BTH_LINK_KEY_LENGTH}
BTH_MFG_ERICSSON = 0;
{$EXTERNALSYM BTH_MFG_ERICSSON}
BTH_MFG_NOKIA = 1;
{$EXTERNALSYM BTH_MFG_NOKIA}
BTH_MFG_INTEL = 2;
{$EXTERNALSYM BTH_MFG_INTEL}
BTH_MFG_IBM = 3;
{$EXTERNALSYM BTH_MFG_IBM}
BTH_MFG_TOSHIBA = 4;
{$EXTERNALSYM BTH_MFG_TOSHIBA}
BTH_MFG_3COM = 5;
{$EXTERNALSYM BTH_MFG_3COM}
BTH_MFG_MICROSOFT = 6;
{$EXTERNALSYM BTH_MFG_MICROSOFT}
BTH_MFG_LUCENT = 7;
{$EXTERNALSYM BTH_MFG_LUCENT}
BTH_MFG_MOTOROLA = 8;
{$EXTERNALSYM BTH_MFG_MOTOROLA}
BTH_MFG_INFINEON = 9;
{$EXTERNALSYM BTH_MFG_INFINEON}
BTH_MFG_CSR = 10;
{$EXTERNALSYM BTH_MFG_CSR}
BTH_MFG_SILICONWAVE = 11;
{$EXTERNALSYM BTH_MFG_SILICONWAVE}
BTH_MFG_DIGIANSWER = 12;
{$EXTERNALSYM BTH_MFG_DIGIANSWER}
BTH_MFG_TI = 13;
{$EXTERNALSYM BTH_MFG_TI}
BTH_MFG_PARTHUS = 14;
{$EXTERNALSYM BTH_MFG_PARTHUS}
BTH_MFG_BROADCOM = 15;
{$EXTERNALSYM BTH_MFG_BROADCOM}
BTH_MFG_MITEL = 16;
{$EXTERNALSYM BTH_MFG_MITEL}
BTH_MFG_WIDCOMM = 17;
{$EXTERNALSYM BTH_MFG_WIDCOMM}
BTH_MFG_ZEEVO = 18;
{$EXTERNALSYM BTH_MFG_ZEEVO}
BTH_MFG_ATMEL = 19;
{$EXTERNALSYM BTH_MFG_ATMEL}
BTH_MFG_MITSIBUSHI = 20;
{$EXTERNALSYM BTH_MFG_MITSIBUSHI}
BTH_MFG_RTX_TELECOM = 21;
{$EXTERNALSYM BTH_MFG_RTX_TELECOM}
BTH_MFG_KC_TECHNOLOGY = 22;
{$EXTERNALSYM BTH_MFG_KC_TECHNOLOGY}
BTH_MFG_NEWLOGIC = 23;
{$EXTERNALSYM BTH_MFG_NEWLOGIC}
BTH_MFG_TRANSILICA = 24;
{$EXTERNALSYM BTH_MFG_TRANSILICA}
BTH_MFG_ROHDE_SCHWARZ = 25;
{$EXTERNALSYM BTH_MFG_ROHDE_SCHWARZ}
BTH_MFG_TTPCOM = 26;
{$EXTERNALSYM BTH_MFG_TTPCOM}
BTH_MFG_SIGNIA = 27;
{$EXTERNALSYM BTH_MFG_SIGNIA}
BTH_MFG_CONEXANT = 28;
{$EXTERNALSYM BTH_MFG_CONEXANT}
BTH_MFG_QUALCOMM = 29;
{$EXTERNALSYM BTH_MFG_QUALCOMM}
BTH_MFG_INVENTEL = 30;
{$EXTERNALSYM BTH_MFG_INVENTEL}
BTH_MFG_AVM_BERLIN = 31;
{$EXTERNALSYM BTH_MFG_AVM_BERLIN}
BTH_MFG_BANDSPEED = 32;
{$EXTERNALSYM BTH_MFG_BANDSPEED}
BTH_MFG_MANSELLA = 33;
{$EXTERNALSYM BTH_MFG_MANSELLA}
BTH_MFG_NEC = 34;
{$EXTERNALSYM BTH_MFG_NEC}
BTH_MFG_WAVEPLUS_TECHNOLOGY_CO = 35;
{$EXTERNALSYM BTH_MFG_WAVEPLUS_TECHNOLOGY_CO}
BTH_MFG_ALCATEL = 36;
{$EXTERNALSYM BTH_MFG_ALCATEL}
BTH_MFG_PHILIPS_SEMICONDUCTOR = 37;
{$EXTERNALSYM BTH_MFG_PHILIPS_SEMICONDUCTOR}
BTH_MFG_C_TECHNOLOGIES = 38;
{$EXTERNALSYM BTH_MFG_C_TECHNOLOGIES}
BTH_MFG_OPEN_INTERFACE = 39;
{$EXTERNALSYM BTH_MFG_OPEN_INTERFACE}
BTH_MFG_RF_MICRO_DEVICES = 40;
{$EXTERNALSYM BTH_MFG_RF_MICRO_DEVICES}
BTH_MFG_HITACHI = 41;
{$EXTERNALSYM BTH_MFG_HITACHI}
BTH_MFG_SYMBOL_TECHNOLOGIES = 42;
{$EXTERNALSYM BTH_MFG_SYMBOL_TECHNOLOGIES}
BTH_MFG_TENOVIS = 43;
{$EXTERNALSYM BTH_MFG_TENOVIS}
BTH_MFG_MACRONIX_INTERNATIONAL = 44;
{$EXTERNALSYM BTH_MFG_MACRONIX_INTERNATIONAL}
BTH_MFG_INTERNAL_USE = 65535;
{$EXTERNALSYM BTH_MFG_INTERNAL_USE}
type
BTH_ADDR = Int64;
{$EXTERNALSYM BTH_ADDR}
PBTH_ADDR = ^BTH_ADDR;
{$EXTERNALSYM PBTH_ADDR}
BTH_COD = ULONG;
{$EXTERNALSYM BTH_COD}
PBTH_COD = ^BTH_COD;
{$EXTERNALSYM PBTH_COD}
BTH_LAP = ULONG;
{$EXTERNALSYM BTH_LAP}
PBTH_LAP = ^BTH_LAP;
{$EXTERNALSYM PBTH_LAP}
const
BTH_ADDR_NULL = Int64($0000000000000000);
{$EXTERNALSYM BTH_ADDR_NULL}
NAP_MASK = Int64($FFFF00000000);
{$EXTERNALSYM NAP_MASK}
SAP_MASK = Int64($0000FFFFFFFF);
{$EXTERNALSYM SAP_MASK}
NAP_BIT_OFFSET = 8 * 4;
{$EXTERNALSYM NAP_BIT_OFFSET}
SAP_BIT_OFFSET = 0;
{$EXTERNALSYM SAP_BIT_OFFSET}
function GET_NAP(_bth_addr: BTH_ADDR): Word;
function GET_SAP(_bth_addr: BTH_ADDR): ULONG;
function SET_NAP(_nap: Word): Int64; //todo impl
function SET_SAP(_sap: ULONG): Int64; // todo impl
function SET_NAP_SAP(_nap, _sap: Word): Int64; // todo impl
const
COD_FORMAT_BIT_OFFSET = 0;
{$EXTERNALSYM COD_FORMAT_BIT_OFFSET}
COD_MINOR_BIT_OFFSET = 2;
{$EXTERNALSYM COD_MINOR_BIT_OFFSET}
COD_MAJOR_BIT_OFFSET = 8 * 1;
{$EXTERNALSYM COD_MAJOR_BIT_OFFSET}
COD_SERVICE_BIT_OFFSET = 8 * 1 + 5;
{$EXTERNALSYM COD_SERVICE_BIT_OFFSET}
COD_FORMAT_MASK = $000003;
{$EXTERNALSYM COD_FORMAT_MASK}
COD_MINOR_MASK = $0000FC;
{$EXTERNALSYM COD_MINOR_MASK}
COD_MAJOR_MASK = $001F00;
{$EXTERNALSYM COD_MAJOR_MASK}
COD_SERVICE_MASK = $FFE000;
{$EXTERNALSYM COD_SERVICE_MASK}
function GET_COD_FORMAT(_cod: BTH_COD): BTH_COD;
function GET_COD_MINOR(_cod: BTH_COD): BTH_COD;
function GET_COD_MAJOR(_cod: BTH_COD): BTH_COD;
function GET_COD_SERVICE(_cod: BTH_COD): BTH_COD;
procedure SET_COD_MINOR(var _cod: BTH_COD; _minor: BTH_COD);
procedure SET_COD_MAJOR(var _cod: BTH_COD; _major: BTH_COD);
procedure SET_COD_SERVICE(var _cod: BTH_COD; _service: BTH_COD);
const
COD_VERSION = $0;
{$EXTERNALSYM COD_VERSION}
COD_SERVICE_LIMITED = $0001;
{$EXTERNALSYM COD_SERVICE_LIMITED}
COD_SERVICE_POSITIONING = $0008;
{$EXTERNALSYM COD_SERVICE_POSITIONING}
COD_SERVICE_NETWORKING = $0010;
{$EXTERNALSYM COD_SERVICE_NETWORKING}
COD_SERVICE_RENDERING = $0020;
{$EXTERNALSYM COD_SERVICE_RENDERING}
COD_SERVICE_CAPTURING = $0040;
{$EXTERNALSYM COD_SERVICE_CAPTURING}
COD_SERVICE_OBJECT_XFER = $0080;
{$EXTERNALSYM COD_SERVICE_OBJECT_XFER}
COD_SERVICE_AUDIO = $0100;
{$EXTERNALSYM COD_SERVICE_AUDIO}
COD_SERVICE_TELEPHONY = $0200;
{$EXTERNALSYM COD_SERVICE_TELEPHONY}
COD_SERVICE_INFORMATION = $0400;
{$EXTERNALSYM COD_SERVICE_INFORMATION}
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;
{$EXTERNALSYM COD_SERVICE_VALID_MASK}
COD_SERVICE_MAX_COUNT = 9;
{$EXTERNALSYM COD_SERVICE_MAX_COUNT}
//
// Major class codes
//
const
COD_MAJOR_MISCELLANEOUS = $00;
{$EXTERNALSYM COD_MAJOR_MISCELLANEOUS}
COD_MAJOR_COMPUTER = $01;
{$EXTERNALSYM COD_MAJOR_COMPUTER}
COD_MAJOR_PHONE = $02;
{$EXTERNALSYM COD_MAJOR_PHONE}
COD_MAJOR_LAN_ACCESS = $03;
{$EXTERNALSYM COD_MAJOR_LAN_ACCESS}
COD_MAJOR_AUDIO = $04;
{$EXTERNALSYM COD_MAJOR_AUDIO}
COD_MAJOR_PERIPHERAL = $05;
{$EXTERNALSYM COD_MAJOR_PERIPHERAL}
COD_MAJOR_IMAGING = $06;
{$EXTERNALSYM COD_MAJOR_IMAGING}
COD_MAJOR_UNCLASSIFIED = $1;
{$EXTERNALSYM COD_MAJOR_UNCLASSIFIED}
//
// Minor class codes specific to each major class
//
const
COD_COMPUTER_MINOR_UNCLASSIFIED = $00;
{$EXTERNALSYM COD_COMPUTER_MINOR_UNCLASSIFIED}
COD_COMPUTER_MINOR_DESKTOP = $01;
{$EXTERNALSYM COD_COMPUTER_MINOR_DESKTOP}
COD_COMPUTER_MINOR_SERVER = $02;
{$EXTERNALSYM COD_COMPUTER_MINOR_SERVER}
COD_COMPUTER_MINOR_LAPTOP = $03;
{$EXTERNALSYM COD_COMPUTER_MINOR_LAPTOP}
COD_COMPUTER_MINOR_HANDHELD = $04;
{$EXTERNALSYM COD_COMPUTER_MINOR_HANDHELD}
COD_COMPUTER_MINOR_PALM = $05;
{$EXTERNALSYM COD_COMPUTER_MINOR_PALM}
COD_COMPUTER_MINOR_WEARABLE = $06;
{$EXTERNALSYM COD_COMPUTER_MINOR_WEARABLE}
COD_PHONE_MINOR_UNCLASSIFIED = $00;
{$EXTERNALSYM COD_PHONE_MINOR_UNCLASSIFIED}
COD_PHONE_MINOR_CELLULAR = $01;
{$EXTERNALSYM COD_PHONE_MINOR_CELLULAR}
COD_PHONE_MINOR_CORDLESS = $02;
{$EXTERNALSYM COD_PHONE_MINOR_CORDLESS}
COD_PHONE_MINOR_SMART = $03;
{$EXTERNALSYM COD_PHONE_MINOR_SMART}
COD_PHONE_MINOR_WIRED_MODEM = $04;
{$EXTERNALSYM COD_PHONE_MINOR_WIRED_MODEM}
COD_AUDIO_MINOR_UNCLASSIFIED = $00;
{$EXTERNALSYM COD_AUDIO_MINOR_UNCLASSIFIED}
COD_AUDIO_MINOR_HEADSET = $01;
{$EXTERNALSYM COD_AUDIO_MINOR_HEADSET}
COD_AUDIO_MINOR_HANDS_FREE = $02;
{$EXTERNALSYM COD_AUDIO_MINOR_HANDS_FREE}
COD_AUDIO_MINOR_HEADSET_HANDS_FREE = $03;
{$EXTERNALSYM COD_AUDIO_MINOR_HEADSET_HANDS_FREE}
COD_AUDIO_MINOR_MICROPHONE = $0;
{$EXTERNALSYM COD_AUDIO_MINOR_MICROPHONE}
COD_AUDIO_MINOR_LOUDSPEAKER = $05;
{$EXTERNALSYM COD_AUDIO_MINOR_LOUDSPEAKER}
COD_AUDIO_MINOR_HEADPHONES = $06;
{$EXTERNALSYM COD_AUDIO_MINOR_HEADPHONES}
COD_AUDIO_MINOR_PORTABLE_AUDIO = $07;
{$EXTERNALSYM COD_AUDIO_MINOR_PORTABLE_AUDIO}
COD_AUDIO_MINOR_CAR_AUDIO = $08;
{$EXTERNALSYM COD_AUDIO_MINOR_CAR_AUDIO}
COD_AUDIO_MINOR_SET_TOP_BOX = $09;
{$EXTERNALSYM COD_AUDIO_MINOR_SET_TOP_BOX}
COD_AUDIO_MINOR_HIFI_AUDIO = $0A;
{$EXTERNALSYM COD_AUDIO_MINOR_HIFI_AUDIO}
COD_AUDIO_MINOR_VCR = $0B;
{$EXTERNALSYM COD_AUDIO_MINOR_VCR}
COD_AUDIO_MINOR_VIDEO_CAMERA = $0C;
{$EXTERNALSYM COD_AUDIO_MINOR_VIDEO_CAMERA}
COD_AUDIO_MINOR_CAMCORDER = $0D;
{$EXTERNALSYM COD_AUDIO_MINOR_CAMCORDER}
COD_AUDIO_MINOR_VIDEO_MONITOR = $0E;
{$EXTERNALSYM COD_AUDIO_MINOR_VIDEO_MONITOR}
COD_AUDIO_MINOR_VIDEO_DISPLAY_LOUDSPEAKER = $0F;
{$EXTERNALSYM COD_AUDIO_MINOR_VIDEO_DISPLAY_LOUDSPEAKER}
COD_AUDIO_MINOR_VIDEO_DISPLAY_CONFERENCING = $10;
{$EXTERNALSYM COD_AUDIO_MINOR_VIDEO_DISPLAY_CONFERENCING}
//COD_AUDIO_MINOR_RESERVED = $11:
COD_AUDIO_MINOR_GAMING_TOY = $12;
{$EXTERNALSYM COD_AUDIO_MINOR_GAMING_TOY}
COD_PERIPHERAL_MINOR_KEYBOARD_MASK = $10;
{$EXTERNALSYM COD_PERIPHERAL_MINOR_KEYBOARD_MASK}
COD_PERIPHERAL_MINOR_POINTER_MASK = $20;
{$EXTERNALSYM COD_PERIPHERAL_MINOR_POINTER_MASK}
COD_PERIPHERAL_MINOR_NO_CATEGORY = $00;
{$EXTERNALSYM COD_PERIPHERAL_MINOR_NO_CATEGORY}
COD_PERIPHERAL_MINOR_JOYSTICK = $01;
{$EXTERNALSYM COD_PERIPHERAL_MINOR_JOYSTICK}
COD_PERIPHERAL_MINOR_GAMEPAD = $02;
{$EXTERNALSYM COD_PERIPHERAL_MINOR_GAMEPAD}
COD_PERIPHERAL_MINOR_REMOTE_CONTROL = $03;
{$EXTERNALSYM COD_PERIPHERAL_MINOR_REMOTE_CONTROL}
COD_PERIPHERAL_MINOR_SENSING = $04;
{$EXTERNALSYM COD_PERIPHERAL_MINOR_SENSING}
COD_IMAGING_MINOR_DISPLAY_MASK = $04;
{$EXTERNALSYM COD_IMAGING_MINOR_DISPLAY_MASK}
COD_IMAGING_MINOR_CAMERA_MASK = $08;
{$EXTERNALSYM COD_IMAGING_MINOR_CAMERA_MASK}
COD_IMAGING_MINOR_SCANNER_MASK = $10;
{$EXTERNALSYM COD_IMAGING_MINOR_SCANNER_MASK}
COD_IMAGING_MINOR_PRINTER_MASK = $20;
{$EXTERNALSYM COD_IMAGING_MINOR_PRINTER_MASK}
//
// 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;
{$EXTERNALSYM COD_LAN_ACCESS_BIT_OFFSET}
COD_LAN_MINOR_MASK = $00001C;
{$EXTERNALSYM COD_LAN_MINOR_MASK}
COD_LAN_ACCESS_MASK = $0000E0;
{$EXTERNALSYM COD_LAN_ACCESS_MASK}
function GET_COD_LAN_MINOR(_cod: DWORD): DWORD;
{$EXTERNALSYM GET_COD_LAN_MINOR}
function GET_COD_LAN_ACCESS(_cod: DWORD): DWORD;
{$EXTERNALSYM GET_COD_LAN_ACCESS}
//
// LAN access percent usage subcodes
//
const
COD_LAN_MINOR_UNCLASSIFIED = $00;
{$EXTERNALSYM COD_LAN_MINOR_UNCLASSIFIED}
COD_LAN_ACCESS_0_USED = $00;
{$EXTERNALSYM COD_LAN_ACCESS_0_USED}
COD_LAN_ACCESS_17_USED = $01;
{$EXTERNALSYM COD_LAN_ACCESS_17_USED}
COD_LAN_ACCESS_33_USED = $02;
{$EXTERNALSYM COD_LAN_ACCESS_33_USED}
COD_LAN_ACCESS_50_USED = $03;
{$EXTERNALSYM COD_LAN_ACCESS_50_USED}
COD_LAN_ACCESS_67_USED = $04;
{$EXTERNALSYM COD_LAN_ACCESS_67_USED}
COD_LAN_ACCESS_83_USED = $05;
{$EXTERNALSYM COD_LAN_ACCESS_83_USED}
COD_LAN_ACCESS_99_USED = $06;
{$EXTERNALSYM COD_LAN_ACCESS_99_USED}
COD_LAN_ACCESS_FULL = $07;
{$EXTERNALSYM COD_LAN_ACCESS_FULL}
//
// Used as an initializer of LAP_DATA
//
(* (rom) not implementable in Delphi
#define LAP_GIAC_INIT { 0x33, 0x8B, 0x9E }
#define LAP_LIAC_INIT { 0x00, 0x8B, 0x9E }
*)
//
// General Inquiry Access Code.
//
const
LAP_GIAC_VALUE = $009E8B33;
{$EXTERNALSYM LAP_GIAC_VALUE}
//
// Limited Inquiry Access Code.
//
const
LAP_LIAC_VALUE = $009E8B00;
{$EXTERNALSYM LAP_LIAC_VALUE}
BTH_ADDR_IAC_FIRST = $9E8B00;
{$EXTERNALSYM BTH_ADDR_IAC_FIRST}
BTH_ADDR_IAC_LAST = $9E8B3;
{$EXTERNALSYM BTH_ADDR_IAC_LAST}
BTH_ADDR_LIAC = $9E8B00;
{$EXTERNALSYM BTH_ADDR_LIAC}
BTH_ADDR_GIAC = $9E8B33;
{$EXTERNALSYM BTH_ADDR_GIAC}
type
BTHSTATUS = UCHAR;
{$EXTERNALSYM BTHSTATUS}
PBTHSTATUS = ^BTHSTATUS;
{$EXTERNALSYM PBTHSTATUS}
function BTH_ERROR(_btStatus: BTHSTATUS): BOOL;
{$EXTERNALSYM BTH_ERROR}
function BTH_SUCCESS(_btStatus: BTHSTATUS): BOOL;
{$EXTERNALSYM BTH_SUCCESS}
const
BTH_ERROR_SUCCESS = $00;
{$EXTERNALSYM BTH_ERROR_SUCCESS}
BTH_ERROR_UNKNOWN_HCI_COMMAND = $01;
{$EXTERNALSYM BTH_ERROR_UNKNOWN_HCI_COMMAND}
BTH_ERROR_NO_CONNECTION = $02;
{$EXTERNALSYM BTH_ERROR_NO_CONNECTION}
BTH_ERROR_HARDWARE_FAILURE = $03;
{$EXTERNALSYM BTH_ERROR_HARDWARE_FAILURE}
BTH_ERROR_PAGE_TIMEOUT = $04;
{$EXTERNALSYM BTH_ERROR_PAGE_TIMEOUT}
BTH_ERROR_AUTHENTICATION_FAILURE = $05;
{$EXTERNALSYM BTH_ERROR_AUTHENTICATION_FAILURE}
BTH_ERROR_KEY_MISSING = $06;
{$EXTERNALSYM BTH_ERROR_KEY_MISSING}
BTH_ERROR_MEMORY_FULL = $07;
{$EXTERNALSYM BTH_ERROR_MEMORY_FULL}
BTH_ERROR_CONNECTION_TIMEOUT = $08;
{$EXTERNALSYM BTH_ERROR_CONNECTION_TIMEOUT}
BTH_ERROR_MAX_NUMBER_OF_CONNECTIONS = $09;
{$EXTERNALSYM BTH_ERROR_MAX_NUMBER_OF_CONNECTIONS}
BTH_ERROR_MAX_NUMBER_OF_SCO_CONNECTIONS = $0a;
{$EXTERNALSYM BTH_ERROR_MAX_NUMBER_OF_SCO_CONNECTIONS}
BTH_ERROR_ACL_CONNECTION_ALREADY_EXISTS = $0b;
{$EXTERNALSYM BTH_ERROR_ACL_CONNECTION_ALREADY_EXISTS}
BTH_ERROR_COMMAND_DISALLOWED = $0c;
{$EXTERNALSYM BTH_ERROR_COMMAND_DISALLOWED}
BTH_ERROR_HOST_REJECTED_LIMITED_RESOURCES = $0d;
{$EXTERNALSYM BTH_ERROR_HOST_REJECTED_LIMITED_RESOURCES}
BTH_ERROR_HOST_REJECTED_SECURITY_REASONS = $0e;
{$EXTERNALSYM BTH_ERROR_HOST_REJECTED_SECURITY_REASONS}
BTH_ERROR_HOST_REJECTED_PERSONAL_DEVICE = $0;
{$EXTERNALSYM BTH_ERROR_HOST_REJECTED_PERSONAL_DEVICE}
BTH_ERROR_HOST_TIMEOUT = $10;
{$EXTERNALSYM BTH_ERROR_HOST_TIMEOUT}
BTH_ERROR_UNSUPPORTED_FEATURE_OR_PARAMETER = $11;
{$EXTERNALSYM BTH_ERROR_UNSUPPORTED_FEATURE_OR_PARAMETER}
BTH_ERROR_INVALID_HCI_PARAMETER = $12;
{$EXTERNALSYM BTH_ERROR_INVALID_HCI_PARAMETER}
BTH_ERROR_REMOTE_USER_ENDED_CONNECTION = $13;
{$EXTERNALSYM BTH_ERROR_REMOTE_USER_ENDED_CONNECTION}
BTH_ERROR_REMOTE_LOW_RESOURCES = $14;
{$EXTERNALSYM BTH_ERROR_REMOTE_LOW_RESOURCES}
BTH_ERROR_REMOTE_POWERING_OFF = $15;
{$EXTERNALSYM BTH_ERROR_REMOTE_POWERING_OFF}
BTH_ERROR_LOCAL_HOST_TERMINATED_CONNECTION = $16;
{$EXTERNALSYM BTH_ERROR_LOCAL_HOST_TERMINATED_CONNECTION}
BTH_ERROR_REPEATED_ATTEMPTS = $17;
{$EXTERNALSYM BTH_ERROR_REPEATED_ATTEMPTS}
BTH_ERROR_PAIRING_NOT_ALLOWED = $18;
{$EXTERNALSYM BTH_ERROR_PAIRING_NOT_ALLOWED}
BTH_ERROR_UKNOWN_LMP_PDU = $19;
{$EXTERNALSYM BTH_ERROR_UKNOWN_LMP_PDU}
BTH_ERROR_UNSUPPORTED_REMOTE_FEATURE = $1a;
{$EXTERNALSYM BTH_ERROR_UNSUPPORTED_REMOTE_FEATURE}
BTH_ERROR_SCO_OFFSET_REJECTED = $1b;
{$EXTERNALSYM BTH_ERROR_SCO_OFFSET_REJECTED}
BTH_ERROR_SCO_INTERVAL_REJECTED = $1c;
{$EXTERNALSYM BTH_ERROR_SCO_INTERVAL_REJECTED}
BTH_ERROR_SCO_AIRMODE_REJECTED = $1d;
{$EXTERNALSYM BTH_ERROR_SCO_AIRMODE_REJECTED}
BTH_ERROR_INVALID_LMP_PARAMETERS = $1e;
{$EXTERNALSYM BTH_ERROR_INVALID_LMP_PARAMETERS}
BTH_ERROR_UNSPECIFIED_ERROR = $1;
{$EXTERNALSYM BTH_ERROR_UNSPECIFIED_ERROR}
BTH_ERROR_UNSUPPORTED_LMP_PARM_VALUE = $20;
{$EXTERNALSYM BTH_ERROR_UNSUPPORTED_LMP_PARM_VALUE}
BTH_ERROR_ROLE_CHANGE_NOT_ALLOWED = $21;
{$EXTERNALSYM BTH_ERROR_ROLE_CHANGE_NOT_ALLOWED}
BTH_ERROR_LMP_RESPONSE_TIMEOUT = $22;
{$EXTERNALSYM BTH_ERROR_LMP_RESPONSE_TIMEOUT}
BTH_ERROR_LMP_TRANSACTION_COLLISION = $23;
{$EXTERNALSYM BTH_ERROR_LMP_TRANSACTION_COLLISION}
BTH_ERROR_LMP_PDU_NOT_ALLOWED = $24;
{$EXTERNALSYM BTH_ERROR_LMP_PDU_NOT_ALLOWED}
BTH_ERROR_ENCRYPTION_MODE_NOT_ACCEPTABLE = $25;
{$EXTERNALSYM BTH_ERROR_ENCRYPTION_MODE_NOT_ACCEPTABLE}
BTH_ERROR_UNIT_KEY_NOT_USED = $26;
{$EXTERNALSYM BTH_ERROR_UNIT_KEY_NOT_USED}
BTH_ERROR_QOS_IS_NOT_SUPPORTED = $27;
{$EXTERNALSYM BTH_ERROR_QOS_IS_NOT_SUPPORTED}
BTH_ERROR_INSTANT_PASSED = $28;
{$EXTERNALSYM BTH_ERROR_INSTANT_PASSED}
BTH_ERROR_PAIRING_WITH_UNIT_KEY_NOT_SUPPORTED = $29;
{$EXTERNALSYM BTH_ERROR_PAIRING_WITH_UNIT_KEY_NOT_SUPPORTED}
BTH_ERROR_UNSPECIFIED = $FF;
{$EXTERNALSYM BTH_ERROR_UNSPECIFIED}
//
// Min, max, and default L2cap MTU.
//
const
L2CAP_MIN_MTU = 48;
{$EXTERNALSYM L2CAP_MIN_MTU}
L2CAP_MAX_MTU = $FFFF;
{$EXTERNALSYM L2CAP_MAX_MTU}
L2CAP_DEFAULT_MTU = 672;
{$EXTERNALSYM L2CAP_DEFAULT_MTU}
//
// Max l2cap signal size (48) - size of signal header (4)
//
const
MAX_L2CAP_PING_DATA_LENGTH = 44;
{$EXTERNALSYM MAX_L2CAP_PING_DATA_LENGTH}
MAX_L2CAP_INFO_DATA_LENGTH = 44;
{$EXTERNALSYM MAX_L2CAP_INFO_DATA_LENGTH}
//
// the following two structures provides information about
// disocvered remote radios.
//
const
BDIF_ADDRESS = $00000001;
{$EXTERNALSYM BDIF_ADDRESS}
BDIF_COD = $00000002;
{$EXTERNALSYM BDIF_COD}
BDIF_NAME = $00000004;
{$EXTERNALSYM BDIF_NAME}
BDIF_PAIRED = $00000008;
{$EXTERNALSYM BDIF_PAIRED}
BDIF_PERSONAL = $00000010;
{$EXTERNALSYM BDIF_PERSONAL}
BDIF_CONNECTED = $00000020;
{$EXTERNALSYM BDIF_CONNECTED}
const
BDIF_VALID_FLAGS = BDIF_CONNECTED or BDIF_ADDRESS or BDIF_COD or BDIF_NAME or BDIF_PAIRED or BDIF_PERSONAL;
{$EXTERNALSYM BDIF_VALID_FLAGS}
type
_BTH_DEVICE_INFO = record
//
// Combination BDIF_Xxx flags
//
flags: ULONG;
//
// Address of remote device.
//
address: BTH_ADDR;
//
// Class Of Device.
//
classOfDevice: BTH_COD;
//
// name of the device
//
name: array [0..BTH_MAX_NAME_SIZE - 1] of CHAR;
end;
{$EXTERNALSYM _BTH_DEVICE_INFO}
BTH_DEVICE_INFO = _BTH_DEVICE_INFO;
{$EXTERNALSYM BTH_DEVICE_INFO}
PBTH_DEVICE_INFO = ^BTH_DEVICE_INFO;
{$EXTERNALSYM PBTH_DEVICE_INFO}
TBthDeviceInfo = BTH_DEVICE_INFO;
PBthDeviceInfo = PBTH_DEVICE_INFO;
//
// Buffer associated with GUID_BLUETOOTH_RADIO_IN_RANGE
//
type
_BTH_RADIO_IN_RANGE = record
//
// Information about the remote radio
//
deviceInfo: BTH_DEVICE_INFO;
//
// 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;
end;
{$EXTERNALSYM _BTH_RADIO_IN_RANGE}
BTH_RADIO_IN_RANGE = _BTH_RADIO_IN_RANGE;
{$EXTERNALSYM BTH_RADIO_IN_RANGE}
PBTH_RADIO_IN_RANGE = ^BTH_RADIO_IN_RANGE;
{$EXTERNALSYM PBTH_RADIO_IN_RANGE}
TBthRadioInRange = BTH_RADIO_IN_RANGE;
PBthRadioInRange = PBTH_RADIO_IN_RANGE;
//
// Buffer associated with GUID_BLUETOOTH_L2CAP_EVENT
//
_BTH_L2CAP_EVENT_INFO = record
//
// Remote radio address which the L2CAP event is associated with
//
bthAddress: BTH_ADDR;
//
// The PSM that is either being connected to or disconnected from
//
psm: Word;
//
// 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;
end;
{$EXTERNALSYM _BTH_L2CAP_EVENT_INFO}
BTH_L2CAP_EVENT_INFO = _BTH_L2CAP_EVENT_INFO;
{$EXTERNALSYM BTH_L2CAP_EVENT_INFO}
PBTH_L2CAP_EVENT_INFO = ^BTH_L2CAP_EVENT_INFO;
{$EXTERNALSYM PBTH_L2CAP_EVENT_INFO}
TBthL2CapEventInfo = BTH_L2CAP_EVENT_INFO;
PBthL2CapEventInfo = PBTH_L2CAP_EVENT_INFO;
const
HCI_CONNNECTION_TYPE_ACL = 1;
{$EXTERNALSYM HCI_CONNNECTION_TYPE_ACL}
HCI_CONNNECTION_TYPE_SCO = 2;
{$EXTERNALSYM HCI_CONNNECTION_TYPE_SCO}
//
// Buffer associated with GUID_BLUETOOTH_HCI_EVENT
//
type
_BTH_HCI_EVENT_INFO = record
//
// Remote radio address which the HCI event is associated with
//
bthAddress: BTH_ADDR;
//
// 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;
end;
{$EXTERNALSYM _BTH_HCI_EVENT_INFO}
BTH_HCI_EVENT_INFO = _BTH_HCI_EVENT_INFO;
{$EXTERNALSYM BTH_HCI_EVENT_INFO}
PBTH_HCI_EVENT_INFO = ^BTH_HCI_EVENT_INFO;
{$EXTERNALSYM PBTH_HCI_EVENT_INFO}
TBthHciEventInfo = BTH_HCI_EVENT_INFO;
PBthHciEventInfo = PBTH_HCI_EVENT_INFO;
const
MAX_UUIDS_IN_QUERY = 12;
{$EXTERNALSYM MAX_UUIDS_IN_QUERY}
BTH_VID_DEFAULT_VALUE = $FFFF;
{$EXTERNALSYM BTH_VID_DEFAULT_VALUE}
SDP_ERROR_INVALID_SDP_VERSION = $0001;
{$EXTERNALSYM SDP_ERROR_INVALID_SDP_VERSION}
SDP_ERROR_INVALID_RECORD_HANDLE = $0002;
{$EXTERNALSYM SDP_ERROR_INVALID_RECORD_HANDLE}
SDP_ERROR_INVALID_REQUEST_SYNTAX = $0003;
{$EXTERNALSYM SDP_ERROR_INVALID_REQUEST_SYNTAX}
SDP_ERROR_INVALID_PDU_SIZE = $0004;
{$EXTERNALSYM SDP_ERROR_INVALID_PDU_SIZE}
SDP_ERROR_INVALID_CONTINUATION_STATE = $0005;
{$EXTERNALSYM SDP_ERROR_INVALID_CONTINUATION_STATE}
SDP_ERROR_INSUFFICIENT_RESOURCES = $0006;
{$EXTERNALSYM SDP_ERROR_INSUFFICIENT_RESOURCES}
//
// 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($0000);
{$EXTERNALSYM SDP_ERROR_SUCCESS}
//
// The SDP PDU or parameters other than the SDP stream response was not correct
//
SDP_ERROR_SERVER_INVALID_RESPONSE = SDP_ERROR($0100);
{$EXTERNALSYM SDP_ERROR_SERVER_INVALID_RESPONSE}
///
/// The SDP response stream did not parse correctly.
///
SDP_ERROR_SERVER_RESPONSE_DID_NOT_PARSE = SDP_ERROR($0200);
{$EXTERNALSYM SDP_ERROR_SERVER_RESPONSE_DID_NOT_PARSE}
///
/// The SDP response stream was successfully parsed, but did not match the
/// required format for the query.
///
SDP_ERROR_SERVER_BAD_FORMAT = SDP_ERROR($0300);
{$EXTERNALSYM SDP_ERROR_SERVER_BAD_FORMAT}
///
/// SDP was unable to send a continued query back to the server
///
SDP_ERROR_COULD_NOT_SEND_CONTINUE = SDP_ERROR($0400);
{$EXTERNALSYM SDP_ERROR_COULD_NOT_SEND_CONTINUE}
///
/// Server sent a response that was too large to fit in the caller's buffer.
///
SDP_ERROR_RESPONSE_TOO_LARGE = SDP_ERROR($0500);
{$EXTERNALSYM SDP_ERROR_RESPONSE_TOO_LARGE}
SDP_ATTRIB_RECORD_HANDLE = $0000;
{$EXTERNALSYM SDP_ATTRIB_RECORD_HANDLE}
SDP_ATTRIB_CLASS_ID_LIST = $0001;
{$EXTERNALSYM SDP_ATTRIB_CLASS_ID_LIST}
SDP_ATTRIB_RECORD_STATE = $0002;
{$EXTERNALSYM SDP_ATTRIB_RECORD_STATE}
SDP_ATTRIB_SERVICE_ID = $0003;
{$EXTERNALSYM SDP_ATTRIB_SERVICE_ID}
SDP_ATTRIB_PROTOCOL_DESCRIPTOR_LIST = $0004;
{$EXTERNALSYM SDP_ATTRIB_PROTOCOL_DESCRIPTOR_LIST}
SDP_ATTRIB_BROWSE_GROUP_LIST = $0005;
{$EXTERNALSYM SDP_ATTRIB_BROWSE_GROUP_LIST}
SDP_ATTRIB_LANG_BASE_ATTRIB_ID_LIST = $0006;
{$EXTERNALSYM SDP_ATTRIB_LANG_BASE_ATTRIB_ID_LIST}
SDP_ATTRIB_INFO_TIME_TO_LIVE = $0007;
{$EXTERNALSYM SDP_ATTRIB_INFO_TIME_TO_LIVE}
SDP_ATTRIB_AVAILABILITY = $0008;
{$EXTERNALSYM SDP_ATTRIB_AVAILABILITY}
SDP_ATTRIB_PROFILE_DESCRIPTOR_LIST = $0009;
{$EXTERNALSYM SDP_ATTRIB_PROFILE_DESCRIPTOR_LIST}
SDP_ATTRIB_DOCUMENTATION_URL = $000A;
{$EXTERNALSYM SDP_ATTRIB_DOCUMENTATION_URL}
SDP_ATTRIB_CLIENT_EXECUTABLE_URL = $000B;
{$EXTERNALSYM SDP_ATTRIB_CLIENT_EXECUTABLE_URL}
SDP_ATTRIB_ICON_URL = $000C;
{$EXTERNALSYM SDP_ATTRIB_ICON_URL}
SDP_ATTRIB_ADDITIONAL_PROTOCOL_DESCRIPTOR_LIST = $000D;
{$EXTERNALSYM SDP_ATTRIB_ADDITIONAL_PROTOCOL_DESCRIPTOR_LIST}
//
// Attribute IDs in the range of 0x000D - 0x01FF are reserved for future use
//
const
SDP_ATTRIB_PROFILE_SPECIFIC = $0200;
{$EXTERNALSYM SDP_ATTRIB_PROFILE_SPECIFIC}
LANG_BASE_LANGUAGE_INDEX = $0000;
{$EXTERNALSYM LANG_BASE_LANGUAGE_INDEX}
LANG_BASE_ENCODING_INDEX = $0001;
{$EXTERNALSYM LANG_BASE_ENCODING_INDEX}
LANG_BASE_OFFSET_INDEX = $0002;
{$EXTERNALSYM LANG_BASE_OFFSET_INDEX}
LANG_DEFAULT_ID = $0100;
{$EXTERNALSYM LANG_DEFAULT_ID}
STRING_NAME_OFFSET = $0000;
{$EXTERNALSYM STRING_NAME_OFFSET}
STRING_DESCRIPTION_OFFSET = $0001;
{$EXTERNALSYM STRING_DESCRIPTION_OFFSET}
STRING_PROVIDER_NAME_OFFSET = $0002;
{$EXTERNALSYM STRING_PROVIDER_NAME_OFFSET}
SDP_ATTRIB_SDP_VERSION_NUMBER_LIST = $0200;
{$EXTERNALSYM SDP_ATTRIB_SDP_VERSION_NUMBER_LIST}
SDP_ATTRIB_SDP_DATABASE_STATE = $0201;
{$EXTERNALSYM SDP_ATTRIB_SDP_DATABASE_STATE}
SDP_ATTRIB_BROWSE_GROUP_ID = $0200;
{$EXTERNALSYM SDP_ATTRIB_BROWSE_GROUP_ID}
SDP_ATTRIB_CORDLESS_EXTERNAL_NETWORK = $0301;
{$EXTERNALSYM SDP_ATTRIB_CORDLESS_EXTERNAL_NETWORK}
SDP_ATTRIB_FAX_CLASS_1_SUPPORT = $0302;
{$EXTERNALSYM SDP_ATTRIB_FAX_CLASS_1_SUPPORT}
SDP_ATTRIB_FAX_CLASS_2_0_SUPPORT = $0303;
{$EXTERNALSYM SDP_ATTRIB_FAX_CLASS_2_0_SUPPORT}
SDP_ATTRIB_FAX_CLASS_2_SUPPORT = $0304;
{$EXTERNALSYM SDP_ATTRIB_FAX_CLASS_2_SUPPORT}
SDP_ATTRIB_FAX_AUDIO_FEEDBACK_SUPPORT = $0305;
{$EXTERNALSYM SDP_ATTRIB_FAX_AUDIO_FEEDBACK_SUPPORT}
SDP_ATTRIB_HEADSET_REMOTE_AUDIO_VOLUME_CONTROL = $0302;
{$EXTERNALSYM SDP_ATTRIB_HEADSET_REMOTE_AUDIO_VOLUME_CONTROL}
SDP_ATTRIB_LAN_LPSUBNET = $0200;
{$EXTERNALSYM SDP_ATTRIB_LAN_LPSUBNET}
SDP_ATTRIB_OBJECT_PUSH_SUPPORTED_FORMATS_LIST = $0303;
{$EXTERNALSYM SDP_ATTRIB_OBJECT_PUSH_SUPPORTED_FORMATS_LIST}
SDP_ATTRIB_SYNCH_SUPPORTED_DATA_STORES_LIST = $0301;
{$EXTERNALSYM SDP_ATTRIB_SYNCH_SUPPORTED_DATA_STORES_LIST}
// this is in the assigned numbers doc, but it does not show up in any profile
const
SDP_ATTRIB_SERVICE_VERSION = $0300;
{$EXTERNALSYM SDP_ATTRIB_SERVICE_VERSION}
SDP_ATTRIB_PAN_NETWORK_ADDRESS = $0306;
{$EXTERNALSYM SDP_ATTRIB_PAN_NETWORK_ADDRESS}
SDP_ATTRIB_PAN_WAP_GATEWAY = $0307;
{$EXTERNALSYM SDP_ATTRIB_PAN_WAP_GATEWAY}
SDP_ATTRIB_PAN_HOME_PAGE_URL = $0308;
{$EXTERNALSYM SDP_ATTRIB_PAN_HOME_PAGE_URL}
SDP_ATTRIB_PAN_WAP_STACK_TYPE = $0309;
{$EXTERNALSYM SDP_ATTRIB_PAN_WAP_STACK_TYPE}
SDP_ATTRIB_PAN_SECURITY_DESCRIPTION = $030A;
{$EXTERNALSYM SDP_ATTRIB_PAN_SECURITY_DESCRIPTION}
SDP_ATTRIB_PAN_NET_ACCESS_TYPE = $030B;
{$EXTERNALSYM SDP_ATTRIB_PAN_NET_ACCESS_TYPE}
SDP_ATTRIB_PAN_MAX_NET_ACCESS_RATE = $030C;
{$EXTERNALSYM SDP_ATTRIB_PAN_MAX_NET_ACCESS_RATE}
SDP_ATTRIB_IMAGING_SUPPORTED_CAPABILITIES = $0310;
{$EXTERNALSYM SDP_ATTRIB_IMAGING_SUPPORTED_CAPABILITIES}
SDP_ATTRIB_IMAGING_SUPPORTED_FEATURES = $0311;
{$EXTERNALSYM SDP_ATTRIB_IMAGING_SUPPORTED_FEATURES}
SDP_ATTRIB_IMAGING_SUPPORTED_FUNCTIONS = $0312;
{$EXTERNALSYM SDP_ATTRIB_IMAGING_SUPPORTED_FUNCTIONS}
SDP_ATTRIB_IMAGING_TOTAL_DATA_CAPACITY = $0313;
{$EXTERNALSYM SDP_ATTRIB_IMAGING_TOTAL_DATA_CAPACITY}
SDP_ATTRIB_DI_SPECIFICATION_ID = $0200;
{$EXTERNALSYM SDP_ATTRIB_DI_SPECIFICATION_ID}
SDP_ATTRIB_DI_VENDOR_ID = $0201;
{$EXTERNALSYM SDP_ATTRIB_DI_VENDOR_ID}
SDP_ATTRIB_DI_PRODUCT_ID = $0202;
{$EXTERNALSYM SDP_ATTRIB_DI_PRODUCT_ID}
SDP_ATTRIB_DI_VERSION = $0203;
{$EXTERNALSYM SDP_ATTRIB_DI_VERSION}
SDP_ATTRIB_DI_PRIMARY_RECORD = $0204;
{$EXTERNALSYM SDP_ATTRIB_DI_PRIMARY_RECORD}
SDP_ATTRIB_DI_VENDOR_ID_SOURCE = $0205;
{$EXTERNALSYM SDP_ATTRIB_DI_VENDOR_ID_SOURCE}
SDP_ATTRIB_HID_DEVICE_RELEASE_NUMBER = $0200;
{$EXTERNALSYM SDP_ATTRIB_HID_DEVICE_RELEASE_NUMBER}
SDP_ATTRIB_HID_PARSER_VERSION = $0201;
{$EXTERNALSYM SDP_ATTRIB_HID_PARSER_VERSION}
SDP_ATTRIB_HID_DEVICE_SUBCLASS = $0202;
{$EXTERNALSYM SDP_ATTRIB_HID_DEVICE_SUBCLASS}
SDP_ATTRIB_HID_COUNTRY_CODE = $0203;
{$EXTERNALSYM SDP_ATTRIB_HID_COUNTRY_CODE}
SDP_ATTRIB_HID_VIRTUAL_CABLE = $0204;
{$EXTERNALSYM SDP_ATTRIB_HID_VIRTUAL_CABLE}
SDP_ATTRIB_HID_RECONNECT_INITIATE = $0205;
{$EXTERNALSYM SDP_ATTRIB_HID_RECONNECT_INITIATE}
SDP_ATTRIB_HID_DESCRIPTOR_LIST = $0206;
{$EXTERNALSYM SDP_ATTRIB_HID_DESCRIPTOR_LIST}
SDP_ATTRIB_HID_LANG_ID_BASE_LIST = $0207;
{$EXTERNALSYM SDP_ATTRIB_HID_LANG_ID_BASE_LIST}
SDP_ATTRIB_HID_SDP_DISABLE = $0208;
{$EXTERNALSYM SDP_ATTRIB_HID_SDP_DISABLE}
SDP_ATTRIB_HID_BATTERY_POWER = $0209;
{$EXTERNALSYM SDP_ATTRIB_HID_BATTERY_POWER}
SDP_ATTRIB_HID_REMOTE_WAKE = $020A;
{$EXTERNALSYM SDP_ATTRIB_HID_REMOTE_WAKE}
SDP_ATTRIB_HID_REPORT_LIST = $020B;
{$EXTERNALSYM SDP_ATTRIB_HID_REPORT_LIST}
SDP_ATTRIB_HID_SUPERVISION_TIMEOUT = $020C;
{$EXTERNALSYM SDP_ATTRIB_HID_SUPERVISION_TIMEOUT}
SDP_ATTRIB_HID_NORMALLY_CONNECTABLE = $020D;
{$EXTERNALSYM SDP_ATTRIB_HID_NORMALLY_CONNECTABLE}
SDP_ATTRIB_HID_BOOT_DEVICE = $020E;
{$EXTERNALSYM SDP_ATTRIB_HID_BOOT_DEVICE}
//
// Profile specific values
//
CORDLESS_EXTERNAL_NETWORK_PSTN = $01;
{$EXTERNALSYM CORDLESS_EXTERNAL_NETWORK_PSTN}
CORDLESS_EXTERNAL_NETWORK_ISDN = $02;
{$EXTERNALSYM CORDLESS_EXTERNAL_NETWORK_ISDN}
CORDLESS_EXTERNAL_NETWORK_GSM = $03;
{$EXTERNALSYM CORDLESS_EXTERNAL_NETWORK_GSM}
CORDLESS_EXTERNAL_NETWORK_CDMA = $04;
{$EXTERNALSYM CORDLESS_EXTERNAL_NETWORK_CDMA}
CORDLESS_EXTERNAL_NETWORK_ANALOG_CELLULAR = $05;
{$EXTERNALSYM CORDLESS_EXTERNAL_NETWORK_ANALOG_CELLULAR}
CORDLESS_EXTERNAL_NETWORK_PACKET_SWITCHED = $06;
{$EXTERNALSYM CORDLESS_EXTERNAL_NETWORK_PACKET_SWITCHED}
CORDLESS_EXTERNAL_NETWORK_OTHER = $07;
{$EXTERNALSYM CORDLESS_EXTERNAL_NETWORK_OTHER}
OBJECT_PUSH_FORMAT_VCARD_2_1 = $01;
{$EXTERNALSYM OBJECT_PUSH_FORMAT_VCARD_2_1}
OBJECT_PUSH_FORMAT_VCARD_3_0 = $02;
{$EXTERNALSYM OBJECT_PUSH_FORMAT_VCARD_3_0}
OBJECT_PUSH_FORMAT_VCAL_1_0 = $03;
{$EXTERNALSYM OBJECT_PUSH_FORMAT_VCAL_1_0}
OBJECT_PUSH_FORMAT_ICAL_2_0 = $04;
{$EXTERNALSYM OBJECT_PUSH_FORMAT_ICAL_2_0}
OBJECT_PUSH_FORMAT_VNOTE = $05;
{$EXTERNALSYM OBJECT_PUSH_FORMAT_VNOTE}
OBJECT_PUSH_FORMAT_VMESSAGE = $06;
{$EXTERNALSYM OBJECT_PUSH_FORMAT_VMESSAGE}
OBJECT_PUSH_FORMAT_ANY = $FF;
{$EXTERNALSYM OBJECT_PUSH_FORMAT_ANY}
SYNCH_DATA_STORE_PHONEBOOK = $01;
{$EXTERNALSYM SYNCH_DATA_STORE_PHONEBOOK}
SYNCH_DATA_STORE_CALENDAR = $03;
{$EXTERNALSYM SYNCH_DATA_STORE_CALENDAR}
SYNCH_DATA_STORE_NOTES = $05;
{$EXTERNALSYM SYNCH_DATA_STORE_NOTES}
SYNCH_DATA_STORE_MESSAGES = $06;
{$EXTERNALSYM SYNCH_DATA_STORE_MESSAGES}
DI_VENDOR_ID_SOURCE_BLUETOOTH_SIG = $0001;
{$EXTERNALSYM DI_VENDOR_ID_SOURCE_BLUETOOTH_SIG}
DI_VENDOR_ID_SOURCE_USB_IF = $0002;
{$EXTERNALSYM DI_VENDOR_ID_SOURCE_USB_IF}
PSM_SDP = $0001;
{$EXTERNALSYM PSM_SDP}
PSM_RFCOMM = $0003;
{$EXTERNALSYM PSM_RFCOMM}
PSM_TCS_BIN = $0005;
{$EXTERNALSYM PSM_TCS_BIN}
PSM_TCS_BIN_CORDLESS = $0007;
{$EXTERNALSYM PSM_TCS_BIN_CORDLESS}
PSM_BNEP = $000;
{$EXTERNALSYM PSM_BNEP}
PSM_HID_CONTROL = $0011;
{$EXTERNALSYM PSM_HID_CONTROL}
PSM_HID_INTERRUPT = $0013;
{$EXTERNALSYM PSM_HID_INTERRUPT}
PSM_AVCTP = $0017;
{$EXTERNALSYM PSM_AVCTP}
PSM_AVDTP = $0019;
{$EXTERNALSYM PSM_AVDTP}
PSM_UDI_C_PLANE = $001D;
{$EXTERNALSYM PSM_UDI_C_PLANE}
//
// Strings
//
const
STR_ADDR_FMTA = '(%02x:%02x:%02x:%02x:%02x:%02x)';
{$EXTERNALSYM STR_ADDR_FMTA}
STR_ADDR_FMTW = '(%02x:%02x:%02x:%02x:%02x:%02x)';
{$EXTERNALSYM STR_ADDR_FMTW}
STR_ADDR_SHORT_FMTA = '%04x%08x';
{$EXTERNALSYM STR_ADDR_SHORT_FMTA}
STR_ADDR_SHORT_FMTW = '%04x%08x';
{$EXTERNALSYM STR_ADDR_SHORT_FMTW}
{$IFDEF UNICODE}
STR_ADDR_FMT = STR_ADDR_FMTW;
{$EXTERNALSYM STR_ADDR_FMT}
STR_ADDR_SHORT_FMT = STR_ADDR_SHORT_FMTW;
{$EXTERNALSYM STR_ADDR_SHORT_FMT}
{$ELSE}
STR_ADDR_FMT = STR_ADDR_FMTA;
{$EXTERNALSYM STR_ADDR_FMT}
STR_ADDR_SHORT_FMT = STR_ADDR_SHORT_FMTA;
{$EXTERNALSYM STR_ADDR_SHORT_FMT}
{$ENDIF UNICODE}
function GET_BITS(Field, Offset, Mask: Integer): Integer;
{$EXTERNALSYM GET_BITS}
function GET_BIT(Field, Offset: Integer): Integer;
{$EXTERNALSYM GET_BIT}
function LMP_3_SLOT_PACKETS(X: Integer): Integer;
{$EXTERNALSYM LMP_3_SLOT_PACKETS}
function LMP_5_SLOT_PACKETS(X: Integer): Integer;
{$EXTERNALSYM LMP_5_SLOT_PACKETS}
function LMP_ENCRYPTION(X: Integer): Integer;
{$EXTERNALSYM LMP_ENCRYPTION}
function LMP_SLOT_OFFSET(X: Integer): Integer;
{$EXTERNALSYM LMP_SLOT_OFFSET}
function LMP_TIMING_ACCURACY(X: Integer): Integer;
{$EXTERNALSYM LMP_TIMING_ACCURACY}
function LMP_SWITCH(X: Integer): Integer;
{$EXTERNALSYM LMP_SWITCH}
function LMP_HOLD_MODE(X: Integer): Integer;
{$EXTERNALSYM LMP_HOLD_MODE}
function LMP_SNIFF_MODE(X: Integer): Integer;
{$EXTERNALSYM LMP_SNIFF_MODE}
function LMP_PARK_MODE(X: Integer): Integer;
{$EXTERNALSYM LMP_PARK_MODE}
function LMP_RSSI(X: Integer): Integer;
{$EXTERNALSYM LMP_RSSI}
function LMP_CHANNEL_QUALITY_DRIVEN_MODE(X: Integer): Integer;
{$EXTERNALSYM LMP_CHANNEL_QUALITY_DRIVEN_MODE}
function LMP_SCO_LINK(X: Integer): Integer;
{$EXTERNALSYM LMP_SCO_LINK}
function LMP_HV2_PACKETS(X: Integer): Integer;
{$EXTERNALSYM LMP_HV2_PACKETS}
function LMP_HV3_PACKETS(X: Integer): Integer;
{$EXTERNALSYM LMP_HV3_PACKETS}
function LMP_MU_LAW_LOG(X: Integer): Integer;
{$EXTERNALSYM LMP_MU_LAW_LOG}
function LMP_A_LAW_LOG(X: Integer): Integer;
{$EXTERNALSYM LMP_A_LAW_LOG}
function LMP_CVSD(X: Integer): Integer;
{$EXTERNALSYM LMP_CVSD}
function LMP_PAGING_SCHEME(X: Integer): Integer;
{$EXTERNALSYM LMP_PAGING_SCHEME}
function LMP_POWER_CONTROL(X: Integer): Integer;
{$EXTERNALSYM LMP_POWER_CONTROL}
function LMP_TRANSPARENT_SCO_DATA(X: Integer): Integer;
{$EXTERNALSYM LMP_TRANSPARENT_SCO_DATA}
function LMP_FLOW_CONTROL_LAG(X: Integer): Integer;
{$EXTERNALSYM LMP_FLOW_CONTROL_LAG}
implementation
function GET_NAP(_bth_addr: BTH_ADDR): Word;
begin
Result := ((_bth_addr and NAP_MASK) shr NAP_BIT_OFFSET);
end;
function GET_SAP(_bth_addr: BTH_ADDR): ULONG;
begin
Result := ((_bth_addr and SAP_MASK) shr SAP_BIT_OFFSET);
end;
function SET_NAP(_nap: Word): Int64;
begin
Result := (_nap shl NAP_BIT_OFFSET);
end;
function SET_SAP(_sap: ULONG): Int64;
begin
Result := (_sap shl SAP_BIT_OFFSET);
end;
function SET_NAP_SAP(_nap, _sap: Word): Int64;
begin
Result := (SET_NAP(_nap) or SET_SAP(_sap));
end;
function GET_COD_LAN_MINOR(_cod: DWORD): DWORD;
begin
Result := ((_cod and COD_LAN_MINOR_MASK) shr COD_MINOR_BIT_OFFSET);
end;
function GET_COD_LAN_ACCESS(_cod: DWORD): DWORD;
begin
Result := ((_cod and COD_LAN_ACCESS_MASK) shr COD_LAN_ACCESS_BIT_OFFSET);
end;
function BTH_ERROR(_btStatus: BTHSTATUS): BOOL;
begin
Result := _btStatus <> BTH_ERROR_SUCCESS;
end;
function BTH_SUCCESS(_btStatus: BTHSTATUS): BOOL;
begin
Result := _btStatus = BTH_ERROR_SUCCESS;
end;
function GET_BITS(Field, Offset, Mask: Integer): Integer;
begin
Result := (Field shr Offset) and Mask;
end;
function GET_BIT(field,offset: Integer): Integer;
begin
Result := GET_BITS(Field, Offset, $1);
end;
function LMP_3_SLOT_PACKETS(X: Integer): Integer;
begin
Result := GET_BIT(x, 0);
end;
function LMP_5_SLOT_PACKETS(X: Integer): Integer;
begin
Result := GET_BIT(x, 1);
end;
function LMP_ENCRYPTION(X: Integer): Integer;
begin
Result := GET_BIT(x, 2);
end;
function LMP_SLOT_OFFSET(X: Integer): Integer;
begin
Result := GET_BIT(x, 3);
end;
function LMP_TIMING_ACCURACY(X: Integer): Integer;
begin
Result := GET_BIT(x, 4);
end;
function LMP_SWITCH(X: Integer): Integer;
begin
Result := GET_BIT(x, 5);
end;
function LMP_HOLD_MODE(X: Integer): Integer;
begin
Result := GET_BIT(x, 6);
end;
function LMP_SNIFF_MODE(X: Integer): Integer;
begin
Result := GET_BIT(x, 7);
end;
function LMP_PARK_MODE(X: Integer): Integer;
begin
Result := GET_BIT(x, 8);
end;
function LMP_RSSI(X: Integer): Integer;
begin
Result := GET_BIT(x, 9);
end;
function LMP_CHANNEL_QUALITY_DRIVEN_MODE(X: Integer): Integer;
begin
Result := GET_BIT(x, 10);
end;
function LMP_SCO_LINK(X: Integer): Integer;
begin
Result := GET_BIT(x, 11);
end;
function LMP_HV2_PACKETS(X: Integer): Integer;
begin
Result := GET_BIT(x, 12);
end;
function LMP_HV3_PACKETS(X: Integer): Integer;
begin
Result := GET_BIT(x, 13);
end;
function LMP_MU_LAW_LOG(X: Integer): Integer;
begin
Result := GET_BIT(x, 14);
end;
function LMP_A_LAW_LOG(X: Integer): Integer;
begin
Result := GET_BIT(x, 15);
end;
function LMP_CVSD(X: Integer): Integer;
begin
Result := GET_BIT(x, 16);
end;
function LMP_PAGING_SCHEME(X: Integer): Integer;
begin
Result := GET_BIT(x, 17);
end;
function LMP_POWER_CONTROL(X: Integer): Integer;
begin
Result := GET_BIT(x, 18);
end;
function LMP_TRANSPARENT_SCO_DATA(X: Integer): Integer;
begin
Result := GET_BIT(x, 19);
end;
function LMP_FLOW_CONTROL_LAG(X: Integer): Integer;
begin
Result := GET_BITS(x, 20, $3);
end;
function GET_COD_FORMAT(_cod: BTH_COD): BTH_COD;
begin
Result := (_cod and COD_FORMAT_MASK) shr COD_FORMAT_BIT_OFFSET;
end;
function GET_COD_MINOR(_cod: BTH_COD): BTH_COD;
begin
Result := (_cod and COD_MINOR_MASK) shr COD_MINOR_BIT_OFFSET;
end;
function GET_COD_MAJOR(_cod: BTH_COD): BTH_COD;
begin
Result := (_cod and COD_MAJOR_MASK) shr COD_MAJOR_BIT_OFFSET;
end;
function GET_COD_SERVICE(_cod: BTH_COD): BTH_COD;
begin
Result := (_cod and COD_SERVICE_MASK) shr COD_SERVICE_BIT_OFFSET;
end;
procedure SET_COD_MINOR(var _cod: BTH_COD; _minor: BTH_COD);
begin
_cod := (_cod and not COD_MINOR_MASK) or (_minor shl COD_MINOR_BIT_OFFSET);
end;
procedure SET_COD_MAJOR(var _cod: BTH_COD; _major: BTH_COD);
begin
_cod := (_cod and not COD_MAJOR_MASK) or (_major shl COD_MAJOR_BIT_OFFSET);
end;
procedure SET_COD_SERVICE(var _cod: BTH_COD; _service: BTH_COD);
begin
_cod := (_cod and not COD_SERVICE_MASK) or (_service shl COD_SERVICE_BIT_OFFSET);
end;
end.
