开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
svcguid.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：21k
源码类别：

Delphi控件源码

开发平台：

Delphi

svcguid.pas：源码内容
  1. {++ BUILD Version: 0001    // Increment this if a change has global effects
  3. Copyright (c) 1992-1999  Microsoft Corporation
  5. Module Name:
  7.     svcguid.h
  9. Abstract:
  11.     Defines GUIDs for well-known services including:
  12.         HOSTNAME
  13.         RFC 1060 (Assigned Numbers) from IANA (All TCP/IP Services)
  14.         NetWare services
  16. Created:
  18.     May 8, 1994
  20. Revision History:
  22.     converted by Alex Konshin alexk@mtgroup.ru  March 4, 2000
  24. }
  25. unit svcguid;
  27. interface
  29. uses
  30. SysUtils, Windows;
  32. const
  34. // HOSTNAME--special GUID which refers to the name of a host as opposed
  35. // to any particular service on that host.
  36. SVCID_HOSTNAME                  : TGUID = '{0002a800-0000-0000-c000-000000000046}';
  38. // GUIDs for dealing with AF_INET address spaces alone. These are
  39. // intended to be used when fetching hostent or servent information
  40. // from such a provider. These are not general-purpose types and
  41. // should be used only when the intent is getting at down-level
  42. // information.
  44. SVCID_INET_HOSTADDRBYINETSTRING : TGUID = '{0002a801-0000-0000-c000-000000000046}';
  45. SVCID_INET_SERVICEBYNAME        : TGUID = '{0002a802-0000-0000-c000-000000000046}';
  46. SVCID_INET_HOSTADDRBYNAME       : TGUID = '{0002a803-0000-0000-c000-000000000046}';
  48. // **AK** GUID templates
  49. SVCID_0_TCP                     : TGUID = '{00090000-0000-0000-c000-000000000046}';
  50. SVCID_0_UDP                     : TGUID = '{000a0000-0000-0000-c000-000000000046}';
  51. SVCID_0_NETWARE                 : TGUID = '{000b0000-0000-0000-c000-000000000046}';
  54. // Macros for defining and testing TCP and UDP GUIDs from a well-known port.
  56. function SVCID_TCP( const Port : Word ) : TGUID;
  57. function SVCID_DNS( const RecordType : Word ) : TGUID;
  59. function IS_SVCID_DNS( Id : TGUID ) : Boolean;
  60. function IS_SVCID_TCP( Id : TGUID ) : Boolean;
  62. function PORT_FROM_SVCID_TCP( Id : TGUID ) : Word;
  64. function RR_FROM_SVCID( Id : TGUID ) : Word; // extract RecordType from SVCID_DNS
  65. procedure SET_TCP_SVCID_RR( var Id : TGUID; const Port, RecordType : Word );
  66. procedure SET_TCP_SVCID( var Id : TGUID; const Port : Word );
  68. function SVCID_UDP( const Port : Word ) : TGUID;
  69. function IS_SVCID_UDP( Id : TGUID ) : Boolean;
  70. function PORT_FROM_SVCID_UDP( Id : TGUID ) : Word;
  71. procedure SET_UDP_SVCID( var Id : TGUID; const Port : Word );
  74. // Macros for defining and testing Netware (SAP) services based on the SAP ID.
  76. function SVCID_NETWARE( const SapId : Word ) : TGUID;
  77. function IS_SVCID_NETWARE( Id : TGUID ) : Boolean;
  78. function SAPID_FROM_SVCID_NETWARE( Id : TGUID ) : Word;
  79. procedure SET_NETWARE_SVCID( var Id : TGUID; const SapId : Word );
  82. // RFC 1060 services as defined by the IANA
  83. // GUID block = 0009xxxx-0000-0000-C000-000000000046
  84. const
  86. SVCID_ECHO_TCP                : TGUID = '{00090007-0000-0000-c000-000000000046}';
  87. SVCID_DISCARD_TCP             : TGUID = '{00090009-0000-0000-c000-000000000046}';
  88. SVCID_SYSTAT_TCP              : TGUID = '{0009000b-0000-0000-c000-000000000046}';
  89. SVCID_DAYTIME_TCP             : TGUID = '{0009000d-0000-0000-c000-000000000046}';
  90. SVCID_NETSTAT_TCP             : TGUID = '{0009000f-0000-0000-c000-000000000046}';
  91. SVCID_QOTD_TCP                : TGUID = '{00090011-0000-0000-c000-000000000046}';
  92. SVCID_CHARGEN_TCP             : TGUID = '{00090013-0000-0000-c000-000000000046}';
  93. SVCID_FTP_DATA_TCP            : TGUID = '{00090014-0000-0000-c000-000000000046}';
  94. SVCID_FTP_TCP                 : TGUID = '{00090015-0000-0000-c000-000000000046}';
  95. SVCID_TELNET_TCP              : TGUID = '{00090017-0000-0000-c000-000000000046}';
  96. SVCID_SMTP_TCP                : TGUID = '{00090019-0000-0000-c000-000000000046}';
  97. SVCID_TIME_TCP                : TGUID = '{00090025-0000-0000-c000-000000000046}';
  98. SVCID_NAME_TCP                : TGUID = '{0009002a-0000-0000-c000-000000000046}';
  99. SVCID_WHOIS_TCP               : TGUID = '{0009002b-0000-0000-c000-000000000046}';
  100. SVCID_DOMAIN_TCP              : TGUID = '{00090035-0000-0000-c000-000000000046}';
  101. SVCID_NAMESERVER_TCP          : TGUID = '{00090035-0000-0000-c000-000000000046}';
  102. SVCID_MTP_TCP                 : TGUID = '{00090039-0000-0000-c000-000000000046}';
  103. SVCID_RJE_TCP                 : TGUID = '{0009004d-0000-0000-c000-000000000046}';
  104. SVCID_FINGER_TCP              : TGUID = '{0009004f-0000-0000-c000-000000000046}';
  105. SVCID_LINK_TCP                : TGUID = '{00090057-0000-0000-c000-000000000046}';
  106. SVCID_SUPDUP_TCP              : TGUID = '{0009005f-0000-0000-c000-000000000046}';
  107. SVCID_HOSTNAMES_TCP           : TGUID = '{00090065-0000-0000-c000-000000000046}';
  108. SVCID_ISO_TSAP_TCP            : TGUID = '{00090066-0000-0000-c000-000000000046}';
  109. SVCID_DICTIONARY_TCP          : TGUID = '{00090067-0000-0000-c000-000000000046}';
  110. SVCID_X400_TCP                : TGUID = '{00090067-0000-0000-c000-000000000046}';
  111. SVCID_X400_SND_TCP            : TGUID = '{00090068-0000-0000-c000-000000000046}';
  112. SVCID_CSNET_NS_TCP            : TGUID = '{00090069-0000-0000-c000-000000000046}';
  113. SVCID_POP_TCP                 : TGUID = '{0009006d-0000-0000-c000-000000000046}';
  114. SVCID_POP2_TCP                : TGUID = '{0009006d-0000-0000-c000-000000000046}';
  115. SVCID_POP3_TCP                : TGUID = '{0009006e-0000-0000-c000-000000000046}';
  116. SVCID_PORTMAP_TCP             : TGUID = '{0009006f-0000-0000-c000-000000000046}';
  117. SVCID_SUNRPC_TCP              : TGUID = '{0009006f-0000-0000-c000-000000000046}';
  118. SVCID_AUTH_TCP                : TGUID = '{00090071-0000-0000-c000-000000000046}';
  119. SVCID_SFTP_TCP                : TGUID = '{00090073-0000-0000-c000-000000000046}';
  120. SVCID_PATH_TCP                : TGUID = '{00090075-0000-0000-c000-000000000046}';
  121. SVCID_UUCP_PATH_TCP           : TGUID = '{00090075-0000-0000-c000-000000000046}';
  122. SVCID_NNTP_TCP                : TGUID = '{00090077-0000-0000-c000-000000000046}';
  123. SVCID_NBSESSION_TCP           : TGUID = '{0009008b-0000-0000-c000-000000000046}';
  124. SVCID_NEWS_TCP                : TGUID = '{00090090-0000-0000-c000-000000000046}';
  125. SVCID_TCPREPO_TCP             : TGUID = '{0009009e-0000-0000-c000-000000000046}';
  126. SVCID_PRINT_SRV_TCP           : TGUID = '{000900aa-0000-0000-c000-000000000046}';
  127. SVCID_VMNET_TCP               : TGUID = '{000900af-0000-0000-c000-000000000046}';
  128. SVCID_VMNET0_TCP              : TGUID = '{00090190-0000-0000-c000-000000000046}';
  129. SVCID_EXEC_TCP                : TGUID = '{00090200-0000-0000-c000-000000000046}';
  130. SVCID_LOGIN_TCP               : TGUID = '{00090201-0000-0000-c000-000000000046}';
  131. SVCID_SHELL_TCP               : TGUID = '{00090202-0000-0000-c000-000000000046}';
  132. SVCID_PRINTER_TCP             : TGUID = '{00090203-0000-0000-c000-000000000046}';
  133. SVCID_EFS_TCP                 : TGUID = '{00090208-0000-0000-c000-000000000046}';
  134. SVCID_TEMPO_TCP               : TGUID = '{0009020e-0000-0000-c000-000000000046}';
  135. SVCID_COURIER_TCP             : TGUID = '{00090212-0000-0000-c000-000000000046}';
  136. SVCID_CONFERENCE_TCP          : TGUID = '{00090213-0000-0000-c000-000000000046}';
  137. SVCID_NETNEWS_TCP             : TGUID = '{00090214-0000-0000-c000-000000000046}';
  138. SVCID_UUCP_TCP                : TGUID = '{0009021c-0000-0000-c000-000000000046}';
  139. SVCID_KLOGIN_TCP              : TGUID = '{0009021f-0000-0000-c000-000000000046}';
  140. SVCID_KSHELL_TCP              : TGUID = '{00090220-0000-0000-c000-000000000046}';
  141. SVCID_REMOTEFS_TCP            : TGUID = '{0009022c-0000-0000-c000-000000000046}';
  142. SVCID_GARCON_TCP              : TGUID = '{00090258-0000-0000-c000-000000000046}';
  143. SVCID_MAITRD_TCP              : TGUID = '{00090259-0000-0000-c000-000000000046}';
  144. SVCID_BUSBOY_TCP              : TGUID = '{0009025a-0000-0000-c000-000000000046}';
  145. SVCID_KERBEROS_TCP            : TGUID = '{000902ee-0000-0000-c000-000000000046}';
  146. SVCID_KERBEROS_MASTER_TCP     : TGUID = '{000902ef-0000-0000-c000-000000000046}';
  147. SVCID_KRB_PROP_TCP            : TGUID = '{000902f2-0000-0000-c000-000000000046}';
  148. SVCID_ERLOGIN_TCP             : TGUID = '{00090378-0000-0000-c000-000000000046}';
  149. SVCID_KPOP_TCP                : TGUID = '{00090455-0000-0000-c000-000000000046}';
  150. SVCID_INGRESLOCK_TCP          : TGUID = '{000905f4-0000-0000-c000-000000000046}';
  151. SVCID_KNETD_TCP               : TGUID = '{00090805-0000-0000-c000-000000000046}';
  152. SVCID_EKLOGIN_TCP             : TGUID = '{00090839-0000-0000-c000-000000000046}';
  153. SVCID_RMT_TCP                 : TGUID = '{000915b3-0000-0000-c000-000000000046}';
  154. SVCID_MTB_TCP                 : TGUID = '{000915b4-0000-0000-c000-000000000046}';
  155. SVCID_MAN_TCP                 : TGUID = '{0009253f-0000-0000-c000-000000000046}';
  156. SVCID_W_TCP                   : TGUID = '{00092540-0000-0000-c000-000000000046}';
  157. SVCID_MANTST_TCP              : TGUID = '{00092541-0000-0000-c000-000000000046}';
  158. SVCID_BNEWS_TCP               : TGUID = '{00092710-0000-0000-c000-000000000046}';
  159. SVCID_QUEUE_TCP               : TGUID = '{00092711-0000-0000-c000-000000000046}';
  160. SVCID_POKER_TCP               : TGUID = '{00092712-0000-0000-c000-000000000046}';
  161. SVCID_GATEWAY_TCP             : TGUID = '{00092713-0000-0000-c000-000000000046}';
  162. SVCID_REMP_TCP                : TGUID = '{00092714-0000-0000-c000-000000000046}';
  163. SVCID_QMASTER_TCP             : TGUID = '{0009271c-0000-0000-c000-000000000046}';
  165. SVCID_ECHO_UDP                : TGUID = '{000a0007-0000-0000-c000-000000000046}';
  166. SVCID_DISCARD_UDP             : TGUID = '{000a0009-0000-0000-c000-000000000046}';
  167. SVCID_DAYTIME_UDP             : TGUID = '{000a000d-0000-0000-c000-000000000046}';
  168. SVCID_QOTD_UDP                : TGUID = '{000a0011-0000-0000-c000-000000000046}';
  169. SVCID_CHARGEN_UDP             : TGUID = '{000a0013-0000-0000-c000-000000000046}';
  170. SVCID_TIME_UDP                : TGUID = '{000a0025-0000-0000-c000-000000000046}';
  171. SVCID_RLP_UDP                 : TGUID = '{000a0027-0000-0000-c000-000000000046}';
  172. SVCID_NAME_UDP                : TGUID = '{000a002a-0000-0000-c000-000000000046}';
  173. SVCID_DOMAIN_UDP              : TGUID = '{000a0035-0000-0000-c000-000000000046}';
  174. SVCID_NAMESERVER_UDP          : TGUID = '{000a0035-0000-0000-c000-000000000046}';
  175. SVCID_BOOTP_UDP               : TGUID = '{000a0043-0000-0000-c000-000000000046}';
  176. SVCID_TFTP_UDP                : TGUID = '{000a0045-0000-0000-c000-000000000046}';
  177. SVCID_PORTMAP_UDP             : TGUID = '{000a006f-0000-0000-c000-000000000046}';
  178. SVCID_SUNRPC_UDP              : TGUID = '{000a006f-0000-0000-c000-000000000046}';
  179. SVCID_NTP_UDP                 : TGUID = '{000a007b-0000-0000-c000-000000000046}';
  180. SVCID_NBNAME_UDP              : TGUID = '{000a0089-0000-0000-c000-000000000046}';
  181. SVCID_NBDATAGRAM_UDP          : TGUID = '{000a008a-0000-0000-c000-000000000046}';
  182. SVCID_SGMP_UDP                : TGUID = '{000a0099-0000-0000-c000-000000000046}';
  183. SVCID_SNMP_UDP                : TGUID = '{000a00a1-0000-0000-c000-000000000046}';
  184. SVCID_SNMP_TRAP_UDP           : TGUID = '{000a00a2-0000-0000-c000-000000000046}';
  185. SVCID_LOAD_UDP                : TGUID = '{000a013b-0000-0000-c000-000000000046}';
  186. SVCID_SYTEK_UDP               : TGUID = '{000a01f4-0000-0000-c000-000000000046}';
  187. SVCID_BIFF_UDP                : TGUID = '{000a0200-0000-0000-c000-000000000046}';
  188. SVCID_WHO_UDP                 : TGUID = '{000a0201-0000-0000-c000-000000000046}';
  189. SVCID_SYSLOG_UDP              : TGUID = '{000a0202-0000-0000-c000-000000000046}';
  190. SVCID_TALK_UDP                : TGUID = '{000a0205-0000-0000-c000-000000000046}';
  191. SVCID_NTALK_UDP               : TGUID = '{000a0206-0000-0000-c000-000000000046}';
  192. SVCID_ROUTE_UDP               : TGUID = '{000a0208-0000-0000-c000-000000000046}';
  193. SVCID_TIMED_UDP               : TGUID = '{000a020d-0000-0000-c000-000000000046}';
  194. SVCID_RVD_CONTROL_UDP         : TGUID = '{000a0213-0000-0000-c000-000000000046}';
  195. SVCID_NETWALL_UDP             : TGUID = '{000a0215-0000-0000-c000-000000000046}';
  196. SVCID_NEW_RWHO_UDP            : TGUID = '{000a0226-0000-0000-c000-000000000046}';
  197. SVCID_RMONITOR_UDP            : TGUID = '{000a0230-0000-0000-c000-000000000046}';
  198. SVCID_MONITOR_UDP             : TGUID = '{000a0231-0000-0000-c000-000000000046}';
  199. SVCID_ACCTMASTER_UDP          : TGUID = '{000a02bc-0000-0000-c000-000000000046}';
  200. SVCID_ACCTSLAVE_UDP           : TGUID = '{000a02bd-0000-0000-c000-000000000046}';
  201. SVCID_ACCT_UDP                : TGUID = '{000a02be-0000-0000-c000-000000000046}';
  202. SVCID_ACCTLOGIN_UDP           : TGUID = '{000a02bf-0000-0000-c000-000000000046}';
  203. SVCID_ACCTPRINTER_UDP         : TGUID = '{000a02c0-0000-0000-c000-000000000046}';
  204. SVCID_ELCSD_UDP               : TGUID = '{000a02c0-0000-0000-c000-000000000046}';
  205. SVCID_ACCTINFO_UDP            : TGUID = '{000a02c1-0000-0000-c000-000000000046}';
  206. SVCID_ACCTSLAVE2_UDP          : TGUID = '{000a02c2-0000-0000-c000-000000000046}';
  207. SVCID_ACCTDISK_UDP            : TGUID = '{000a02c3-0000-0000-c000-000000000046}';
  208. SVCID_KERBEROS_UDP            : TGUID = '{000a02ee-0000-0000-c000-000000000046}';
  209. SVCID_KERBEROS_MASTER_UDP     : TGUID = '{000a02ef-0000-0000-c000-000000000046}';
  210. SVCID_PASSWD_SERVER_UDP       : TGUID = '{000a02f0-0000-0000-c000-000000000046}';
  211. SVCID_USERREG_SERVER_UDP      : TGUID = '{000a02f1-0000-0000-c000-000000000046}';
  212. SVCID_PHONE_UDP               : TGUID = '{000a048f-0000-0000-c000-000000000046}';
  213. SVCID_MAZE_UDP                : TGUID = '{000a0682-0000-0000-c000-000000000046}';
  214. SVCID_NFS_UDP                 : TGUID = '{000a0801-0000-0000-c000-000000000046}';
  215. SVCID_RSCS0_UDP               : TGUID = '{000a2710-0000-0000-c000-000000000046}';
  216. SVCID_RSCS1_UDP               : TGUID = '{000a2711-0000-0000-c000-000000000046}';
  217. SVCID_RSCS2_UDP               : TGUID = '{000a2712-0000-0000-c000-000000000046}';
  218. SVCID_RSCS3_UDP               : TGUID = '{000a2713-0000-0000-c000-000000000046}';
  219. SVCID_RSCS4_UDP               : TGUID = '{000a2714-0000-0000-c000-000000000046}';
  220. SVCID_RSCS5_UDP               : TGUID = '{000a2715-0000-0000-c000-000000000046}';
  221. SVCID_RSCS6_UDP               : TGUID = '{000a2716-0000-0000-c000-000000000046}';
  222. SVCID_RSCS7_UDP               : TGUID = '{000a2717-0000-0000-c000-000000000046}';
  223. SVCID_RSCS8_UDP               : TGUID = '{000a2718-0000-0000-c000-000000000046}';
  224. SVCID_RSCS9_UDP               : TGUID = '{000a2719-0000-0000-c000-000000000046}';
  225. SVCID_RSCSA_UDP               : TGUID = '{000a271a-0000-0000-c000-000000000046}';
  226. SVCID_RSCSB_UDP               : TGUID = '{000a271b-0000-0000-c000-000000000046}';
  227. SVCID_QMASTER_UDP             : TGUID = '{000a271c-0000-0000-c000-000000000046}';
  229. // NetWare services
  230. // GUID block = 000axxxx-0000-0000-C000-000000000046
  232. SVCID_PRINT_QUEUE                 : TGUID = '{000b0003-0000-0000-c000-000000000046}';
  233. SVCID_FILE_SERVER                 : TGUID = '{000b0004-0000-0000-c000-000000000046}';
  234. SVCID_JOB_SERVER                  : TGUID = '{000b0005-0000-0000-c000-000000000046}';
  235. SVCID_GATEWAY                     : TGUID = '{000b0006-0000-0000-c000-000000000046}';
  236. SVCID_PRINT_SERVER                : TGUID = '{000b0007-0000-0000-c000-000000000046}';
  237. SVCID_ARCHIVE_QUEUE               : TGUID = '{000b0008-0000-0000-c000-000000000046}';
  238. SVCID_ARCHIVE_SERVER              : TGUID = '{000b0009-0000-0000-c000-000000000046}';
  239. SVCID_JOB_QUEUE                   : TGUID = '{000b000a-0000-0000-c000-000000000046}';
  240. SVCID_ADMINISTRATION              : TGUID = '{000b000b-0000-0000-c000-000000000046}';
  241. SVCID_NAS_SNA_GATEWAY             : TGUID = '{000b0021-0000-0000-c000-000000000046}';
  242. SVCID_REMOTE_BRIDGE_SERVER        : TGUID = '{000b0024-0000-0000-c000-000000000046}';
  243. SVCID_TIME_SYNCHRONIZATION_SERVER : TGUID = '{000b002d-0000-0000-c000-000000000046}';
  244. SVCID_ARCHIVE_SERVER_DYNAMIC_SAP  : TGUID = '{000b002e-0000-0000-c000-000000000046}';
  245. SVCID_ADVERTISING_PRINT_SERVER    : TGUID = '{000b0047-0000-0000-c000-000000000046}';
  246. SVCID_BTRIEVE_VAP                 : TGUID = '{000b004b-0000-0000-c000-000000000046}';
  247. SVCID_DIRECTORY_SERVER            : TGUID = '{000b0278-0000-0000-c000-000000000046}';
  248. SVCID_NETWARE_386                 : TGUID = '{000b0107-0000-0000-c000-000000000046}';
  249. SVCID_HP_PRINT_SERVER             : TGUID = '{000b030C-0000-0000-c000-000000000046}';
  250. SVCID_SNA_SERVER                  : TGUID = '{000b0444-0000-0000-c000-000000000046}';
  251. SVCID_SAA_SERVER                  : TGUID = '{000b0130-0000-0000-c000-000000000046}';
  253. // DNS services by record type
  254. // GUID block = 00090035-0000-xxxx-C000-000000000046
  256. SVCID_DNS_TYPE_A                  : TGUID = '{00090035-0000-0001-c000-000000000046}';
  257. SVCID_DNS_TYPE_NS                 : TGUID = '{00090035-0000-0002-c000-000000000046}';
  258. SVCID_DNS_TYPE_MD                 : TGUID = '{00090035-0000-0003-c000-000000000046}';
  259. SVCID_DNS_TYPE_MF                 : TGUID = '{00090035-0000-0004-c000-000000000046}';
  260. SVCID_DNS_TYPE_CNAME              : TGUID = '{00090035-0000-0005-c000-000000000046}';
  261. SVCID_DNS_TYPE_SOA                : TGUID = '{00090035-0000-0006-c000-000000000046}';
  262. SVCID_DNS_TYPE_MB                 : TGUID = '{00090035-0000-0007-c000-000000000046}';
  263. SVCID_DNS_TYPE_MG                 : TGUID = '{00090035-0000-0008-c000-000000000046}';
  264. SVCID_DNS_TYPE_MR                 : TGUID = '{00090035-0000-0009-c000-000000000046}';
  265. SVCID_DNS_TYPE_NULL               : TGUID = '{00090035-0000-000a-c000-000000000046}';
  266. SVCID_DNS_TYPE_WKS                : TGUID = '{00090035-0000-000b-c000-000000000046}';
  267. SVCID_DNS_TYPE_PTR                : TGUID = '{00090035-0000-000c-c000-000000000046}';
  268. SVCID_DNS_TYPE_HINFO              : TGUID = '{00090035-0000-000d-c000-000000000046}';
  269. SVCID_DNS_TYPE_MINFO              : TGUID = '{00090035-0000-000e-c000-000000000046}';
  270. SVCID_DNS_TYPE_MX                 : TGUID = '{00090035-0000-000f-c000-000000000046}';
  271. SVCID_DNS_TYPE_TEXT               : TGUID = '{00090035-0000-0010-c000-000000000046}';
  272. SVCID_DNS_TYPE_RP                 : TGUID = '{00090035-0000-0011-c000-000000000046}';
  273. SVCID_DNS_TYPE_AFSDB              : TGUID = '{00090035-0000-0012-c000-000000000046}';
  274. SVCID_DNS_TYPE_X25                : TGUID = '{00090035-0000-0013-c000-000000000046}';
  275. SVCID_DNS_TYPE_ISDN               : TGUID = '{00090035-0000-0014-c000-000000000046}';
  276. SVCID_DNS_TYPE_RT                 : TGUID = '{00090035-0000-0015-c000-000000000046}';
  277. SVCID_DNS_TYPE_NSAP               : TGUID = '{00090035-0000-0016-c000-000000000046}';
  278. SVCID_DNS_TYPE_NSAPPTR            : TGUID = '{00090035-0000-0017-c000-000000000046}';
  279. SVCID_DNS_TYPE_SIG                : TGUID = '{00090035-0000-0018-c000-000000000046}';
  280. SVCID_DNS_TYPE_KEY                : TGUID = '{00090035-0000-0019-c000-000000000046}';
  281. SVCID_DNS_TYPE_PX                 : TGUID = '{00090035-0000-001a-c000-000000000046}';
  282. SVCID_DNS_TYPE_GPOS               : TGUID = '{00090035-0000-001b-c000-000000000046}';
  283. SVCID_DNS_TYPE_AAAA               : TGUID = '{00090035-0000-001c-c000-000000000046}';
  284. SVCID_DNS_TYPE_LOC                : TGUID = '{00090035-0000-001d-c000-000000000046}';
  285. SVCID_DNS_TYPE_NXT                : TGUID = '{00090035-0000-001e-c000-000000000046}';
  286. SVCID_DNS_TYPE_SRV                : TGUID = '{00090035-0000-0021-c000-000000000046}';
  287. SVCID_DNS_TYPE_ATMA               : TGUID = '{00090035-0000-0022-c000-000000000046}';
  289. implementation
  291. function SVCID_TCP( const Port : Word ) : TGUID;
  292. begin
  293. Result := SVCID_0_TCP;
  294. PWord(@Result.D1)^ := Port;
  295. end;
  297. function SVCID_DNS( const RecordType : Word ) : TGUID;
  298. begin
  299. Result := SVCID_DOMAIN_TCP;
  300. Result.D3 := RecordType;
  301. end;
  303. function IS_SVCID_DNS( Id : TGUID ) : Boolean;
  304. begin
  305. with Id do Result := (D1=$00090035) and (D2=0) and (PInteger(@D4)^=$000000c0) and (PInteger(PChar(@D4)+4)^=$46000000);
  306. end;
  308. function IS_SVCID_TCP( Id : TGUID ) : Boolean;
  309. begin
  310. with Id do Result := (PWord(PChar(@D1)+2)^=$0009) and (D2=0) and (PInteger(@D4)^=$000000c0) and (PInteger(PChar(@D4)+4)^=$46000000);
  311. end;
  313. function PORT_FROM_SVCID_TCP( Id : TGUID ) : Word;
  314. begin
  315. Result := PWord(@Id.D1)^;
  316. end;
  318. function RR_FROM_SVCID( Id : TGUID ) : Word;
  319. begin
  320. Result := Id.D3;
  321. end;
  323. procedure SET_TCP_SVCID_RR( var Id : TGUID; const Port, RecordType : Word );
  324. begin
  325. with Id do
  326. begin
  327. PWord(@D1)^ := Port;
  328. D3 := RecordType;
  329. end;
  330. end;
  332. procedure SET_TCP_SVCID( var Id : TGUID; const Port : Word );
  333. begin
  334. PWord(@Id.D1)^ := Port;
  335. end;
  337. function SVCID_UDP( const Port : Word ) : TGUID;
  338. begin
  339. Result := SVCID_0_UDP;
  340. PWord(@Result.D1)^ := Port;
  341. end;
  343. function IS_SVCID_UDP( Id : TGUID ) : Boolean;
  344. begin
  345. with Id do Result := (PWord(PChar(@D1)+2)^=$000a) and (D2=0) and (PInteger(@D4)^=$000000c0) and (PInteger(PChar(@D4)+4)^=$46000000);
  346. end;
  348. function PORT_FROM_SVCID_UDP( Id : TGUID ) : Word;
  349. begin
  350. Result := PWord(@Id.D1)^;
  351. end;
  353. procedure SET_UDP_SVCID( var Id : TGUID; const Port : Word );
  354. begin
  355. PWord(@Id.D1)^ := Port;
  356. end;
  358. function SVCID_NETWARE( const SapId : Word ) : TGUID;
  359. begin
  360. Result := SVCID_0_NETWARE;
  361. PWord(@Result.D1)^ := SapId;
  362. end;
  364. function IS_SVCID_NETWARE( Id : TGUID ) : Boolean;
  365. begin
  366. with Id do Result := (PWord(PChar(@D1)+2)^=$000b) and (D2=0) and (PInteger(@D4)^=$000000c0) and (PInteger(PChar(@D4)+4)^=$46000000);
  367. end;
  369. function SAPID_FROM_SVCID_NETWARE( Id : TGUID ) : Word;
  370. begin
  371. Result := PWord(@Id.D1)^;
  372. end;
  374. procedure SET_NETWARE_SVCID( var Id : TGUID; const SapId : Word );
  375. begin
  376. PWord(@Id.D1)^ := SapId;
  377. end;
  380. end.