Библиотека для работы с BlueTooth

Code:

unit BthSdpDef;

interface

uses

Windows;

type

SDP_LARGE_INTEGER_16 = record

   LowPart: Int64;

   HighPart: Int64;

end;

{$EXTERNALSYM SDP_LARGE_INTEGER_16}

PSDP_LARGE_INTEGER_16 = ^SDP_LARGE_INTEGER_16;

{$EXTERNALSYM PSDP_LARGE_INTEGER_16}

LPSDP_LARGE_INTEGER_16 = PSDP_LARGE_INTEGER_16;

{$EXTERNALSYM LPSDP_LARGE_INTEGER_16}

TSdpLargeInteger = SDP_LARGE_INTEGER_16;

PSdpLargeInteger = PSDP_LARGE_INTEGER_16;

SDP_ULARGE_INTEGER_16 = record

   LowPart: Int64;

   HighPart: Int64;

end;

{$EXTERNALSYM SDP_ULARGE_INTEGER_16}

PSDP_ULARGE_INTEGER_16 = ^SDP_ULARGE_INTEGER_16;

{$EXTERNALSYM PSDP_ULARGE_INTEGER_16}

LPSDP_ULARGE_INTEGER_16 = PSDP_ULARGE_INTEGER_16;

{$EXTERNALSYM LPSDP_ULARGE_INTEGER_16}

TSdpULargeInteger16 = SDP_ULARGE_INTEGER_16;

PSdpULargeInteger16 = PSDP_ULARGE_INTEGER_16;

NodeContainerType = (NodeContainerTypeSequence, NodeContainerTypeAlternative);

TNodeContainerType = NodeContainerType;

SDP_ERROR = Word;

{$EXTERNALSYM SDP_ERROR}

PSDP_ERROR = ^SDP_ERROR;

{$EXTERNALSYM PSDP_ERROR}

TSdpError = SDP_ERROR;

PSdpError = PSDP_ERROR;

type

SDP_TYPE = DWORD;

{$EXTERNALSYM SDP_TYPE}

TSdpType = SDP_TYPE;

const

SDP_TYPE_NIL = $00;

{$EXTERNALSYM SDP_TYPE_NIL}

SDP_TYPE_UINT = $01;

{$EXTERNALSYM SDP_TYPE_UINT}

SDP_TYPE_INT = $02;

{$EXTERNALSYM SDP_TYPE_INT}

SDP_TYPE_UUID = $03;

{$EXTERNALSYM SDP_TYPE_UUID}

SDP_TYPE_STRING = $04;

{$EXTERNALSYM SDP_TYPE_STRING}

SDP_TYPE_BOOLEAN = $05;

{$EXTERNALSYM SDP_TYPE_BOOLEAN}

SDP_TYPE_SEQUENCE = $06;

{$EXTERNALSYM SDP_TYPE_SEQUENCE}

SDP_TYPE_ALTERNATIVE = $07;

{$EXTERNALSYM SDP_TYPE_ALTERNATIVE}

SDP_TYPE_URL = $08;

{$EXTERNALSYM SDP_TYPE_URL}

// 9 - 31 are reserved

SDP_TYPE_CONTAINER = $20;

{$EXTERNALSYM SDP_TYPE_CONTAINER}

// 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)

type

SDP_SPECIFICTYPE = DWORD;

{$EXTERNALSYM SDP_SPECIFICTYPE}

TSdpSpecificType = SDP_SPECIFICTYPE;

const

SDP_ST_NONE = $0000;

{$EXTERNALSYM SDP_ST_NONE}

SDP_ST_UINT8 = $0010;

{$EXTERNALSYM SDP_ST_UINT8}

SDP_ST_UINT16 = $0110;

{$EXTERNALSYM SDP_ST_UINT16}

SDP_ST_UINT32 = $0210;

{$EXTERNALSYM SDP_ST_UINT32}

SDP_ST_UINT64 = $0310;

{$EXTERNALSYM SDP_ST_UINT64}

SDP_ST_UINT128 = $0410;

{$EXTERNALSYM SDP_ST_UINT128}

SDP_ST_INT8 = $0020;

{$EXTERNALSYM SDP_ST_INT8}

SDP_ST_INT16 = $0120;

{$EXTERNALSYM SDP_ST_INT16}

SDP_ST_INT32 = $0220;

{$EXTERNALSYM SDP_ST_INT32}

SDP_ST_INT64 = $0320;

{$EXTERNALSYM SDP_ST_INT64}

SDP_ST_INT128 = $0420;

{$EXTERNALSYM SDP_ST_INT128}

SDP_ST_UUID16 = $0130;

{$EXTERNALSYM SDP_ST_UUID16}

SDP_ST_UUID32 = $0220;

{$EXTERNALSYM SDP_ST_UUID32}

SDP_ST_UUID128 = $0430;

{$EXTERNALSYM SDP_ST_UUID128}

type

_SdpAttributeRange = record

   minAttribute: Word;

   maxAttribute: Word;

end;

{$EXTERNALSYM _SdpAttributeRange}

SdpAttributeRange = _SdpAttributeRange;

{$EXTERNALSYM SdpAttributeRange}

TSdpAttributeRange = SdpAttributeRange;

SdpQueryUuidUnion = record

   case Integer of

     0: (uuid128: TGUID);

     1: (uuid32: ULONG);

     2: (uuid16: Word);

end;

TSdpQueryUuidUnion = SdpQueryUuidUnion;

_SdpQueryUuid = record

   u: SdpQueryUuidUnion;

   uuidType: Word;

end;

{$EXTERNALSYM _SdpQueryUuid}

SdpQueryUuid = _SdpQueryUuid;

{$EXTERNALSYM SdpQueryUuid}

TSdpQueryUuid = SdpQueryUuid;

implementation

end.