jwabthsdpdef.pas 7.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210
  1. {******************************************************************************}
  2. { }
  3. { BlueTooth API interface Unit for Object Pascal }
  4. { }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft }
  6. { Corporation. All Rights Reserved. }
  7. { }
  8. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001 }
  9. { Marcel van Brakel. All Rights Reserved. }
  10. { }
  11. { Contributors: John Penman }
  12. { }
  13. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI) }
  14. { }
  15. { You may retrieve the latest version of this file at the Project JEDI }
  16. { APILIB home page, located at http://jedi-apilib.sourceforge.net }
  17. { }
  18. { The contents of this file are used with permission, subject to the Mozilla }
  19. { Public License Version 1.1 (the "License"); you may not use this file except }
  20. { in compliance with the License. You may obtain a copy of the License at }
  21. { http://www.mozilla.org/MPL/MPL-1.1.html }
  22. { }
  23. { Software distributed under the License is distributed on an "AS IS" basis, }
  24. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  25. { the specific language governing rights and limitations under the License. }
  26. { }
  27. { Alternatively, the contents of this file may be used under the terms of the }
  28. { GNU Lesser General Public License (the "LGPL License"), in which case the }
  29. { provisions of the LGPL License are applicable instead of those above. }
  30. { If you wish to allow use of your version of this file only under the terms }
  31. { of the LGPL License and not to allow others to use your version of this file }
  32. { under the MPL, indicate your decision by deleting the provisions above and }
  33. { replace them with the notice and other provisions required by the LGPL }
  34. { License. If you do not delete the provisions above, a recipient may use }
  35. { your version of this file under either the MPL or the LGPL License. }
  36. { }
  37. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  38. { }
  39. {******************************************************************************}
  40. // $Id: JwaBthSdpDef.pas,v 1.3 2007/09/05 11:58:49 dezipaitor Exp $
  41. {$IFNDEF JWA_OMIT_SECTIONS}
  42. unit JWaBthSdpDef;
  43. {$WEAKPACKAGEUNIT}
  44. {$ENDIF JWA_OMIT_SECTIONS}
  45. {$HPPEMIT ''}
  46. {$HPPEMIT '#include "bthsdpdef.h"'}
  47. {$HPPEMIT ''}
  48. {$IFNDEF JWA_OMIT_SECTIONS}
  49. {$I jediapilib.inc}
  50. interface
  51. uses
  52. JwaWinType;
  53. {$ENDIF JWA_OMIT_SECTIONS}
  54. {$IFNDEF JWA_IMPLEMENTATIONSECTION}
  55. type
  56. SDP_LARGE_INTEGER_16 = record
  57. LowPart: Int64;
  58. HighPart: Int64;
  59. end;
  60. {$EXTERNALSYM SDP_LARGE_INTEGER_16}
  61. PSDP_LARGE_INTEGER_16 = ^SDP_LARGE_INTEGER_16;
  62. {$EXTERNALSYM PSDP_LARGE_INTEGER_16}
  63. LPSDP_LARGE_INTEGER_16 = PSDP_LARGE_INTEGER_16;
  64. {$EXTERNALSYM LPSDP_LARGE_INTEGER_16}
  65. TSdpLargeInteger = SDP_LARGE_INTEGER_16;
  66. PSdpLargeInteger = PSDP_LARGE_INTEGER_16;
  67. SDP_ULARGE_INTEGER_16 = record
  68. LowPart: Int64;
  69. HighPart: Int64;
  70. end;
  71. {$EXTERNALSYM SDP_ULARGE_INTEGER_16}
  72. PSDP_ULARGE_INTEGER_16 = ^SDP_ULARGE_INTEGER_16;
  73. {$EXTERNALSYM PSDP_ULARGE_INTEGER_16}
  74. LPSDP_ULARGE_INTEGER_16 = PSDP_ULARGE_INTEGER_16;
  75. {$EXTERNALSYM LPSDP_ULARGE_INTEGER_16}
  76. TSdpULargeInteger16 = SDP_ULARGE_INTEGER_16;
  77. PSdpULargeInteger16 = PSDP_ULARGE_INTEGER_16;
  78. NodeContainerType = (NodeContainerTypeSequence, NodeContainerTypeAlternative);
  79. TNodeContainerType = NodeContainerType;
  80. SDP_ERROR = Word;
  81. {$EXTERNALSYM SDP_ERROR}
  82. PSDP_ERROR = ^SDP_ERROR;
  83. {$EXTERNALSYM PSDP_ERROR}
  84. TSdpError = SDP_ERROR;
  85. PSdpError = PSDP_ERROR;
  86. type
  87. SDP_TYPE = DWORD;
  88. {$EXTERNALSYM SDP_TYPE}
  89. TSdpType = SDP_TYPE;
  90. const
  91. SDP_TYPE_NIL = $00;
  92. {$EXTERNALSYM SDP_TYPE_NIL}
  93. SDP_TYPE_UINT = $01;
  94. {$EXTERNALSYM SDP_TYPE_UINT}
  95. SDP_TYPE_INT = $02;
  96. {$EXTERNALSYM SDP_TYPE_INT}
  97. SDP_TYPE_UUID = $03;
  98. {$EXTERNALSYM SDP_TYPE_UUID}
  99. SDP_TYPE_STRING = $04;
  100. {$EXTERNALSYM SDP_TYPE_STRING}
  101. SDP_TYPE_BOOLEAN = $05;
  102. {$EXTERNALSYM SDP_TYPE_BOOLEAN}
  103. SDP_TYPE_SEQUENCE = $06;
  104. {$EXTERNALSYM SDP_TYPE_SEQUENCE}
  105. SDP_TYPE_ALTERNATIVE = $07;
  106. {$EXTERNALSYM SDP_TYPE_ALTERNATIVE}
  107. SDP_TYPE_URL = $08;
  108. {$EXTERNALSYM SDP_TYPE_URL}
  109. // 9 - 31 are reserved
  110. SDP_TYPE_CONTAINER = $20;
  111. {$EXTERNALSYM SDP_TYPE_CONTAINER}
  112. // allow for a little easier type checking / sizing for integers and UUIDs
  113. // ((SDP_ST_XXX & 0xF0) >> 4) == SDP_TYPE_XXX
  114. // size of the data (in bytes) is encoded as ((SDP_ST_XXX & 0xF0) >> 8)
  115. type
  116. SDP_SPECIFICTYPE = DWORD;
  117. {$EXTERNALSYM SDP_SPECIFICTYPE}
  118. TSdpSpecificType = SDP_SPECIFICTYPE;
  119. const
  120. SDP_ST_NONE = $0000;
  121. {$EXTERNALSYM SDP_ST_NONE}
  122. SDP_ST_UINT8 = $0010;
  123. {$EXTERNALSYM SDP_ST_UINT8}
  124. SDP_ST_UINT16 = $0110;
  125. {$EXTERNALSYM SDP_ST_UINT16}
  126. SDP_ST_UINT32 = $0210;
  127. {$EXTERNALSYM SDP_ST_UINT32}
  128. SDP_ST_UINT64 = $0310;
  129. {$EXTERNALSYM SDP_ST_UINT64}
  130. SDP_ST_UINT128 = $0410;
  131. {$EXTERNALSYM SDP_ST_UINT128}
  132. SDP_ST_INT8 = $0020;
  133. {$EXTERNALSYM SDP_ST_INT8}
  134. SDP_ST_INT16 = $0120;
  135. {$EXTERNALSYM SDP_ST_INT16}
  136. SDP_ST_INT32 = $0220;
  137. {$EXTERNALSYM SDP_ST_INT32}
  138. SDP_ST_INT64 = $0320;
  139. {$EXTERNALSYM SDP_ST_INT64}
  140. SDP_ST_INT128 = $0420;
  141. {$EXTERNALSYM SDP_ST_INT128}
  142. SDP_ST_UUID16 = $0130;
  143. {$EXTERNALSYM SDP_ST_UUID16}
  144. SDP_ST_UUID32 = $0220;
  145. {$EXTERNALSYM SDP_ST_UUID32}
  146. SDP_ST_UUID128 = $0430;
  147. {$EXTERNALSYM SDP_ST_UUID128}
  148. type
  149. _SdpAttributeRange = record
  150. minAttribute: Word;
  151. maxAttribute: Word;
  152. end;
  153. {$EXTERNALSYM _SdpAttributeRange}
  154. SdpAttributeRange = _SdpAttributeRange;
  155. {$EXTERNALSYM SdpAttributeRange}
  156. TSdpAttributeRange = SdpAttributeRange;
  157. SdpQueryUuidUnion = record
  158. case Integer of
  159. 0: (uuid128: TGUID);
  160. 1: (uuid32: ULONG);
  161. 2: (uuid16: Word);
  162. end;
  163. TSdpQueryUuidUnion = SdpQueryUuidUnion;
  164. _SdpQueryUuid = record
  165. u: SdpQueryUuidUnion;
  166. uuidType: Word;
  167. end;
  168. {$EXTERNALSYM _SdpQueryUuid}
  169. SdpQueryUuid = _SdpQueryUuid;
  170. {$EXTERNALSYM SdpQueryUuid}
  171. TSdpQueryUuid = SdpQueryUuid;
  172. {$ENDIF JWA_IMPLEMENTATIONSECTION}
  173. {$IFNDEF JWA_OMIT_SECTIONS}
  174. implementation
  175. //uses ...
  176. {$ENDIF JWA_OMIT_SECTIONS}
  177. {$IFNDEF JWA_INTERFACESECTION}
  178. //your implementation here
  179. {$ENDIF JWA_INTERFACESECTION}
  180. {$IFNDEF JWA_OMIT_SECTIONS}
  181. end.
  182. {$ENDIF JWA_OMIT_SECTIONS}