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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaSvcGuid.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：31k
源码类别：

Windows编程

开发平台：

Delphi

JwaSvcGuid.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Winsock2 Service GUIDs 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. { The original file is: svcguid.h, released June 2000. The original Pascal     }
  9. { code is: SvcGuid.pas, released December 2000. The initial developer of the   }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaSvcGuid;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "svguid.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57. {$IFDEF STANDALONE}
  58.   JwaWinTypes;
  59. {$ELSE}
  60.   Windows;
  61. {$ENDIF}
  63. //  Defines GUIDs for well-known services including:
  64. //
  65. //      HOSTNAME
  66. //      RFC 1060 (Assigned Numbers) from IANA (All TCP/IP Services)
  67. //      NetWare services
  69. //
  70. // HOSTNAME--special GUID which refers to the name of a host as opposed
  71. // to any particular service on that host.
  72. //
  74. const
  75.   SVCID_HOSTNAME: TGUID = '{0002a800-0000-0000-C000-000000000046}';
  76.   {$EXTERNALSYM SVCID_HOSTNAME}
  78. //
  79. // GUIDs for dealing with AF_INET address spaces alone. These are
  80. // intended to be used when fetching hostent or servent information
  81. // from such a provider. These are not general-purpose types and
  82. // should be used only when the intent is getting at down-level
  83. // information.
  84. //
  86.   SVCID_INET_HOSTADDRBYINETSTRING: TGUID = '{0002a801-0000-0000-C000-000000000046}';
  87.   {$EXTERNALSYM SVCID_INET_HOSTADDRBYINETSTRING}
  88.   SVCID_INET_SERVICEBYNAME: TGUID = '{0002a802-0000-0000-C000-000000000046}';
  89.   {$EXTERNALSYM SVCID_INET_SERVICEBYNAME}
  90.   SVCID_INET_HOSTADDRBYNAME: TGUID = '{0002a803-0000-0000-C000-000000000046}';
  91.   {$EXTERNALSYM SVCID_INET_HOSTADDRBYNAME}
  93. //
  94. // Macros for defining and testing TCP and UDP GUIDs from a well-known
  95. // port.
  96. //
  98. function SVCID_TCP_RR(Port, RR: Word): TGUID;
  99. {$EXTERNALSYM SVCID_TCP_RR}
  101. function SVCID_TCP(Port: Word): TGUID;
  102. {$EXTERNALSYM SVCID_TCP}
  104. function SVCID_DNS(RecordType: Word): TGUID;
  105. {$EXTERNALSYM SVCID_DNS}
  107. function IS_SVCID_DNS(const Guid: TGUID): Boolean;
  108. {$EXTERNALSYM IS_SVCID_DNS}
  110. function IS_SVCID_TCP(const Guid: TGUID): Boolean;
  111. {$EXTERNALSYM IS_SVCID_TCP}
  113. function PORT_FROM_SVCID_TCP(const Guid: TGUID): Word;
  114. {$EXTERNALSYM PORT_FROM_SVCID_TCP}
  116. function RR_FROM_SVCID(const Guid: TGUID): Word;
  117. {$EXTERNALSYM RR_FROM_SVCID}
  119. procedure SET_TCP_SVCID_RR(var Guid: TGUID; _Port, _RR: Word);
  120. {$EXTERNALSYM SET_TCP_SVCID_RR}
  122. procedure SET_TCP_SVCID(var Guid: TGUID; Port: Word);
  123. {$EXTERNALSYM SET_TCP_SVCID}
  125. function SVCID_UDP_RR(Port, RR: Word): TGUID;
  126. {$EXTERNALSYM SVCID_UDP_RR}
  128. function SVCID_UDP(Port: Word): TGUID;
  129. {$EXTERNALSYM SVCID_UDP}
  131. function IS_SVCID_UDP(const Guid: TGUID): Boolean;
  132. {$EXTERNALSYM IS_SVCID_UDP}
  134. function PORT_FROM_SVCID_UDP(const Guid: TGUID): WORD;
  135. {$EXTERNALSYM PORT_FROM_SVCID_UDP}
  137. procedure SET_UDP_SVCID_RR(var Guid: TGUID; Port, RR: WORD);
  138. {$EXTERNALSYM SET_UDP_SVCID_RR}
  140. procedure SET_UDP_SVCID(var Guid: TGUID; Port: WORD);
  141. {$EXTERNALSYM SET_UDP_SVCID}
  143. //
  144. // Macros for defining and testing Netware (SAP) services based on the
  145. // SAP ID.
  146. //
  148. function SVCID_NETWARE(SapId: WORD): TGUID;
  149. {$EXTERNALSYM SVCID_NETWARE}
  151. function IS_SVCID_NETWARE(const Guid: TGUID): Boolean;
  152. {$EXTERNALSYM IS_SVCID_NETWARE}
  154. function SAPID_FROM_SVCID_NETWARE(const Guid: TGUID): WORD;
  155. {$EXTERNALSYM SAPID_FROM_SVCID_NETWARE}
  157. procedure SET_NETWARE_SVCID(var Guid: TGUID; SapId: WORD);
  158. {$EXTERNALSYM SET_NETWARE_SVCID}
  160. //
  161. // RFC 1060 services as defined by the IANA
  162. // GUID block = 0009xxxx-0000-0000-C0000-000000000046
  163. //
  165. const
  166.   SVCID_ECHO_TCP: TGUID = '{00090007-0000-0000-C000-000000000046}';
  167.   {$EXTERNALSYM SVCID_ECHO_TCP}
  168.   SVCID_DISCARD_TCP: TGUID = '{00090009-0000-0000-C000-000000000046}';
  169.   {$EXTERNALSYM SVCID_DISCARD_TCP}
  170.   SVCID_SYSTAT_TCP: TGUID = '{0009000B-0000-0000-C000-000000000046}';
  171.   {$EXTERNALSYM SVCID_SYSTAT_TCP}
  172.   SVCID_DAYTIME_TCP: TGUID = '{0009000D-0000-0000-C000-000000000046}';
  173.   {$EXTERNALSYM SVCID_DAYTIME_TCP}
  174.   SVCID_NETSTAT_TCP: TGUID = '{0009000F-0000-0000-C000-000000000046}';
  175.   {$EXTERNALSYM SVCID_NETSTAT_TCP}
  176.   SVCID_QOTD_TCP: TGUID = '{00090011-0000-0000-C000-000000000046}';
  177.   {$EXTERNALSYM SVCID_QOTD_TCP}
  178.   SVCID_CHARGEN_TCP: TGUID = '{00090013-0000-0000-C000-000000000046}';
  179.   {$EXTERNALSYM SVCID_CHARGEN_TCP}
  180.   SVCID_FTP_DATA_TCP: TGUID = '{00090014-0000-0000-C000-000000000046}';
  181.   {$EXTERNALSYM SVCID_FTP_DATA_TCP}
  182.   SVCID_FTP_TCP: TGUID = '{00090015-0000-0000-C000-000000000046}';
  183.   {$EXTERNALSYM SVCID_FTP_TCP}
  184.   SVCID_TELNET_TCP: TGUID = '{00090017-0000-0000-C000-000000000046}';
  185.   {$EXTERNALSYM SVCID_TELNET_TCP}
  186.   SVCID_SMTP_TCP: TGUID = '{00090019-0000-0000-C000-000000000046}';
  187.   {$EXTERNALSYM SVCID_SMTP_TCP}
  188.   SVCID_TIME_TCP: TGUID = '{00090025-0000-0000-C000-000000000046}';
  189.   {$EXTERNALSYM SVCID_TIME_TCP}
  190.   SVCID_NAME_TCP: TGUID = '{0009002A-0000-0000-C000-000000000046}';
  191.   {$EXTERNALSYM SVCID_NAME_TCP}
  192.   SVCID_WHOIS_TCP: TGUID = '{0009002B-0000-0000-C000-000000000046}';
  193.   {$EXTERNALSYM SVCID_WHOIS_TCP}
  194.   SVCID_DOMAIN_TCP: TGUID = '{00090035-0000-0000-C000-000000000046}';
  195.   {$EXTERNALSYM SVCID_DOMAIN_TCP}
  196.   SVCID_NAMESERVER_TCP: TGUID = '{00090035-0000-0000-C000-000000000046}';
  197.   {$EXTERNALSYM SVCID_NAMESERVER_TCP}
  198.   SVCID_MTP_TCP: TGUID = '{00090039-0000-0000-C000-000000000046}';
  199.   {$EXTERNALSYM SVCID_MTP_TCP}
  200.   SVCID_RJE_TCP: TGUID = '{0009004D-0000-0000-C000-000000000046}';
  201.   {$EXTERNALSYM SVCID_RJE_TCP}
  202.   SVCID_FINGER_TCP: TGUID = '{0009004F-0000-0000-C000-000000000046}';
  203.   {$EXTERNALSYM SVCID_FINGER_TCP}
  204.   SVCID_LINK_TCP: TGUID = '{00090057-0000-0000-C000-000000000046}';
  205.   {$EXTERNALSYM SVCID_LINK_TCP}
  206.   SVCID_SUPDUP_TCP: TGUID = '{0009005F-0000-0000-C000-000000000046}';
  207.   {$EXTERNALSYM SVCID_SUPDUP_TCP}
  208.   SVCID_HOSTNAMES_TCP: TGUID = '{00090065-0000-0000-C000-000000000046}';
  209.   {$EXTERNALSYM SVCID_HOSTNAMES_TCP}
  210.   SVCID_ISO_TSAP_TCP: TGUID = '{00090066-0000-0000-C000-000000000046}';
  211.   {$EXTERNALSYM SVCID_ISO_TSAP_TCP}
  212.   SVCID_DICTIONARY_TCP: TGUID = '{00090067-0000-0000-C000-000000000046}';
  213.   {$EXTERNALSYM SVCID_DICTIONARY_TCP}
  214.   SVCID_X400_TCP: TGUID = '{00090067-0000-0000-C000-000000000046}';
  215.   {$EXTERNALSYM SVCID_X400_TCP}
  216.   SVCID_X400_SND_TCP: TGUID = '{00090068-0000-0000-C000-000000000046}';
  217.   {$EXTERNALSYM SVCID_X400_SND_TCP}
  218.   SVCID_CSNET_NS_TCP: TGUID = '{00090069-0000-0000-C000-000000000046}';
  219.   {$EXTERNALSYM SVCID_CSNET_NS_TCP}
  220.   SVCID_POP_TCP: TGUID = '{0009006D-0000-0000-C000-000000000046}';
  221.   {$EXTERNALSYM SVCID_POP_TCP}
  222.   SVCID_POP2_TCP: TGUID = '{0009006D-0000-0000-C000-000000000046}';
  223.   {$EXTERNALSYM SVCID_POP2_TCP}
  224.   SVCID_POP3_TCP: TGUID = '{0009006E-0000-0000-C000-000000000046}';
  225.   {$EXTERNALSYM SVCID_POP3_TCP}
  226.   SVCID_PORTMAP_TCP: TGUID = '{0009006F-0000-0000-C000-000000000046}';
  227.   {$EXTERNALSYM SVCID_PORTMAP_TCP}
  228.   SVCID_SUNRPC_TCP: TGUID = '{0009006F-0000-0000-C000-000000000046}';
  229.   {$EXTERNALSYM SVCID_SUNRPC_TCP}
  230.   SVCID_AUTH_TCP: TGUID = '{00090071-0000-0000-C000-000000000046}';
  231.   {$EXTERNALSYM SVCID_AUTH_TCP}
  232.   SVCID_SFTP_TCP: TGUID = '{00090073-0000-0000-C000-000000000046}';
  233.   {$EXTERNALSYM SVCID_SFTP_TCP}
  234.   SVCID_PATH_TCP: TGUID = '{00090075-0000-0000-C000-000000000046}';
  235.   {$EXTERNALSYM SVCID_PATH_TCP}
  236.   SVCID_UUCP_PATH_TCP: TGUID = '{00090075-0000-0000-C000-000000000046}';
  237.   {$EXTERNALSYM SVCID_UUCP_PATH_TCP}
  238.   SVCID_NNTP_TCP: TGUID = '{00090077-0000-0000-C000-000000000046}';
  239.   {$EXTERNALSYM SVCID_NNTP_TCP}
  240.   SVCID_NBSESSION_TCP: TGUID = '{0009008B-0000-0000-C000-000000000046}';
  241.   {$EXTERNALSYM SVCID_NBSESSION_TCP}
  242.   SVCID_NEWS_TCP: TGUID = '{00090090-0000-0000-C000-000000000046}';
  243.   {$EXTERNALSYM SVCID_NEWS_TCP}
  244.   SVCID_TCPREPO_TCP: TGUID = '{0009009E-0000-0000-C000-000000000046}';
  245.   {$EXTERNALSYM SVCID_TCPREPO_TCP}
  246.   SVCID_PRINT_SRV_TCP: TGUID = '{000900AA-0000-0000-C000-000000000046}';
  247.   {$EXTERNALSYM SVCID_PRINT_SRV_TCP}
  248.   SVCID_VMNET_TCP: TGUID = '{000900AF-0000-0000-C000-000000000046}';
  249.   {$EXTERNALSYM SVCID_VMNET_TCP}
  250.   SVCID_VMNET0_TCP: TGUID = '{00090190-0000-0000-C000-000000000046}';
  251.   {$EXTERNALSYM SVCID_VMNET0_TCP}
  252.   SVCID_EXEC_TCP: TGUID = '{00090200-0000-0000-C000-000000000046}';
  253.   {$EXTERNALSYM SVCID_EXEC_TCP}
  254.   SVCID_LOGIN_TCP: TGUID = '{00090201-0000-0000-C000-000000000046}';
  255.   {$EXTERNALSYM SVCID_LOGIN_TCP}
  256.   SVCID_SHELL_TCP: TGUID = '{00090202-0000-0000-C000-000000000046}';
  257.   {$EXTERNALSYM SVCID_SHELL_TCP}
  258.   SVCID_PRINTER_TCP: TGUID = '{00090203-0000-0000-C000-000000000046}';
  259.   {$EXTERNALSYM SVCID_PRINTER_TCP}
  260.   SVCID_EFS_TCP: TGUID = '{00090208-0000-0000-C000-000000000046}';
  261.   {$EXTERNALSYM SVCID_EFS_TCP}
  262.   SVCID_TEMPO_TCP: TGUID = '{0009020E-0000-0000-C000-000000000046}';
  263.   {$EXTERNALSYM SVCID_TEMPO_TCP}
  264.   SVCID_COURIER_TCP: TGUID = '{00090212-0000-0000-C000-000000000046}';
  265.   {$EXTERNALSYM SVCID_COURIER_TCP}
  266.   SVCID_CONFERENCE_TCP: TGUID = '{00090213-0000-0000-C000-000000000046}';
  267.   {$EXTERNALSYM SVCID_CONFERENCE_TCP}
  268.   SVCID_NETNEWS_TCP: TGUID = '{00090214-0000-0000-C000-000000000046}';
  269.   {$EXTERNALSYM SVCID_NETNEWS_TCP}
  270.   SVCID_UUCP_TCP: TGUID = '{0009021C-0000-0000-C000-000000000046}';
  271.   {$EXTERNALSYM SVCID_UUCP_TCP}
  272.   SVCID_KLOGIN_TCP: TGUID = '{0009021F-0000-0000-C000-000000000046}';
  273.   {$EXTERNALSYM SVCID_KLOGIN_TCP}
  274.   SVCID_KSHELL_TCP: TGUID = '{00090220-0000-0000-C000-000000000046}';
  275.   {$EXTERNALSYM SVCID_KSHELL_TCP}
  276.   SVCID_REMOTEFS_TCP: TGUID = '{0009022C-0000-0000-C000-000000000046}';
  277.   {$EXTERNALSYM SVCID_REMOTEFS_TCP}
  278.   SVCID_GARCON_TCP: TGUID = '{00090258-0000-0000-C000-000000000046}';
  279.   {$EXTERNALSYM SVCID_GARCON_TCP}
  280.   SVCID_MAITRD_TCP: TGUID = '{00090259-0000-0000-C000-000000000046}';
  281.   {$EXTERNALSYM SVCID_MAITRD_TCP}
  282.   SVCID_BUSBOY_TCP: TGUID = '{0009025A-0000-0000-C000-000000000046}';
  283.   {$EXTERNALSYM SVCID_BUSBOY_TCP}
  284.   SVCID_KERBEROS_TCP: TGUID = '{000902EE-0000-0000-C000-000000000046}';
  285.   {$EXTERNALSYM SVCID_KERBEROS_TCP}
  286.   SVCID_KERBEROS_MASTER_TCP: TGUID = '{000902EF-0000-0000-C000-000000000046}';
  287.   {$EXTERNALSYM SVCID_KERBEROS_MASTER_TCP}
  288.   SVCID_KRB_PROP_TCP: TGUID = '{000902F2-0000-0000-C000-000000000046}';
  289.   {$EXTERNALSYM SVCID_KRB_PROP_TCP}
  290.   SVCID_ERLOGIN_TCP: TGUID = '{00090378-0000-0000-C000-000000000046}';
  291.   {$EXTERNALSYM SVCID_ERLOGIN_TCP}
  292.   SVCID_KPOP_TCP: TGUID = '{00090455-0000-0000-C000-000000000046}';
  293.   {$EXTERNALSYM SVCID_KPOP_TCP}
  294.   SVCID_INGRESLOCK_TCP: TGUID = '{000905F4-0000-0000-C000-000000000046}';
  295.   {$EXTERNALSYM SVCID_INGRESLOCK_TCP}
  296.   SVCID_KNETD_TCP: TGUID = '{00090805-0000-0000-C000-000000000046}';
  297.   {$EXTERNALSYM SVCID_KNETD_TCP}
  298.   SVCID_EKLOGIN_TCP: TGUID = '{00090839-0000-0000-C000-000000000046}';
  299.   {$EXTERNALSYM SVCID_EKLOGIN_TCP}
  300.   SVCID_RMT_TCP: TGUID = '{000915B3-0000-0000-C000-000000000046}';
  301.   {$EXTERNALSYM SVCID_RMT_TCP}
  302.   SVCID_MTB_TCP: TGUID = '{000915B4-0000-0000-C000-000000000046}';
  303.   {$EXTERNALSYM SVCID_MTB_TCP}
  304.   SVCID_MAN_TCP: TGUID = '{0009253F-0000-0000-C000-000000000046}';
  305.   {$EXTERNALSYM SVCID_MAN_TCP}
  306.   SVCID_W_TCP: TGUID = '{00092540-0000-0000-C000-000000000046}';
  307.   {$EXTERNALSYM SVCID_W_TCP}
  308.   SVCID_MANTST_TCP: TGUID = '{00092541-0000-0000-C000-000000000046}';
  309.   {$EXTERNALSYM SVCID_MANTST_TCP}
  310.   SVCID_BNEWS_TCP: TGUID = '{00092710-0000-0000-C000-000000000046}';
  311.   {$EXTERNALSYM SVCID_BNEWS_TCP}
  312.   SVCID_QUEUE_TCP: TGUID = '{00092711-0000-0000-C000-000000000046}';
  313.   {$EXTERNALSYM SVCID_QUEUE_TCP}
  314.   SVCID_POKER_TCP: TGUID = '{00092712-0000-0000-C000-000000000046}';
  315.   {$EXTERNALSYM SVCID_POKER_TCP}
  316.   SVCID_GATEWAY_TCP: TGUID = '{00092713-0000-0000-C000-000000000046}';
  317.   {$EXTERNALSYM SVCID_GATEWAY_TCP}
  318.   SVCID_REMP_TCP: TGUID = '{00092714-0000-0000-C000-000000000046}';
  319.   {$EXTERNALSYM SVCID_REMP_TCP}
  320.   SVCID_QMASTER_TCP: TGUID = '{0009271C-0000-0000-C000-000000000046}';
  321.   {$EXTERNALSYM SVCID_QMASTER_TCP}
  323.   SVCID_ECHO_UDP: TGUID = '{000A0007-0000-0000-C000-000000000046}';
  324.   {$EXTERNALSYM SVCID_ECHO_UDP}
  325.   SVCID_DISCARD_UDP: TGUID = '{000A0009-0000-0000-C000-000000000046}';
  326.   {$EXTERNALSYM SVCID_DISCARD_UDP}
  327.   SVCID_DAYTIME_UDP: TGUID = '{000A000D-0000-0000-C000-000000000046}';
  328.   {$EXTERNALSYM SVCID_DAYTIME_UDP}
  329.   SVCID_QOTD_UDP: TGUID = '{000A0011-0000-0000-C000-000000000046}';
  330.   {$EXTERNALSYM SVCID_QOTD_UDP}
  331.   SVCID_CHARGEN_UDP: TGUID = '{000A0013-0000-0000-C000-000000000046}';
  332.   {$EXTERNALSYM SVCID_CHARGEN_UDP}
  333.   SVCID_TIME_UDP: TGUID = '{000A0025-0000-0000-C000-000000000046}';
  334.   {$EXTERNALSYM SVCID_TIME_UDP}
  335.   SVCID_RLP_UDP: TGUID = '{000A0027-0000-0000-C000-000000000046}';
  336.   {$EXTERNALSYM SVCID_RLP_UDP}
  337.   SVCID_NAME_UDP: TGUID = '{000A002A-0000-0000-C000-000000000046}';
  338.   {$EXTERNALSYM SVCID_NAME_UDP}
  339.   SVCID_DOMAIN_UDP: TGUID = '{000A0035-0000-0000-C000-000000000046}';
  340.   {$EXTERNALSYM SVCID_DOMAIN_UDP}
  341.   SVCID_NAMESERVER_UDP: TGUID = '{000A0035-0000-0000-C000-000000000046}';
  342.   {$EXTERNALSYM SVCID_NAMESERVER_UDP}
  343.   SVCID_BOOTP_UDP: TGUID = '{000A0043-0000-0000-C000-000000000046}';
  344.   {$EXTERNALSYM SVCID_BOOTP_UDP}
  345.   SVCID_TFTP_UDP: TGUID = '{000A0045-0000-0000-C000-000000000046}';
  346.   {$EXTERNALSYM SVCID_TFTP_UDP}
  347.   SVCID_PORTMAP_UDP: TGUID = '{000A006F-0000-0000-C000-000000000046}';
  348.   {$EXTERNALSYM SVCID_PORTMAP_UDP}
  349.   SVCID_SUNRPC_UDP: TGUID = '{000A006F-0000-0000-C000-000000000046}';
  350.   {$EXTERNALSYM SVCID_SUNRPC_UDP}
  351.   SVCID_NTP_UDP: TGUID = '{000A007B-0000-0000-C000-000000000046}';
  352.   {$EXTERNALSYM SVCID_NTP_UDP}
  353.   SVCID_NBNAME_UDP: TGUID = '{000A0089-0000-0000-C000-000000000046}';
  354.   {$EXTERNALSYM SVCID_NBNAME_UDP}
  355.   SVCID_NBDATAGRAM_UDP: TGUID = '{000A008A-0000-0000-C000-000000000046}';
  356.   {$EXTERNALSYM SVCID_NBDATAGRAM_UDP}
  357.   SVCID_SGMP_UDP: TGUID = '{000A0099-0000-0000-C000-000000000046}';
  358.   {$EXTERNALSYM SVCID_SGMP_UDP}
  359.   SVCID_SNMP_UDP: TGUID = '{000A00A1-0000-0000-C000-000000000046}';
  360.   {$EXTERNALSYM SVCID_SNMP_UDP}
  361.   SVCID_SNMP_TRAP_UDP: TGUID = '{000A00A2-0000-0000-C000-000000000046}';
  362.   {$EXTERNALSYM SVCID_SNMP_TRAP_UDP}
  363.   SVCID_LOAD_UDP: TGUID = '{000A013B-0000-0000-C000-000000000046}';
  364.   {$EXTERNALSYM SVCID_LOAD_UDP}
  365.   SVCID_SYTEK_UDP: TGUID = '{000A01F4-0000-0000-C000-000000000046}';
  366.   {$EXTERNALSYM SVCID_SYTEK_UDP}
  367.   SVCID_BIFF_UDP: TGUID = '{000A0200-0000-0000-C000-000000000046}';
  368.   {$EXTERNALSYM SVCID_BIFF_UDP}
  369.   SVCID_WHO_UDP: TGUID = '{000A0201-0000-0000-C000-000000000046}';
  370.   {$EXTERNALSYM SVCID_WHO_UDP}
  371.   SVCID_SYSLOG_UDP: TGUID = '{000A0202-0000-0000-C000-000000000046}';
  372.   {$EXTERNALSYM SVCID_SYSLOG_UDP}
  373.   SVCID_TALK_UDP: TGUID = '{000A0205-0000-0000-C000-000000000046}';
  374.   {$EXTERNALSYM SVCID_TALK_UDP}
  375.   SVCID_NTALK_UDP: TGUID = '{000A0206-0000-0000-C000-000000000046}';
  376.   {$EXTERNALSYM SVCID_NTALK_UDP}
  377.   SVCID_ROUTE_UDP: TGUID = '{000A0208-0000-0000-C000-000000000046}';
  378.   {$EXTERNALSYM SVCID_ROUTE_UDP}
  379.   SVCID_TIMED_UDP: TGUID = '{000A020D-0000-0000-C000-000000000046}';
  380.   {$EXTERNALSYM SVCID_TIMED_UDP}
  381.   SVCID_RVD_CONTROL_UDP: TGUID = '{000A0213-0000-0000-C000-000000000046}';
  382.   {$EXTERNALSYM SVCID_RVD_CONTROL_UDP}
  383.   SVCID_NETWALL_UDP: TGUID = '{000A0215-0000-0000-C000-000000000046}';
  384.   {$EXTERNALSYM SVCID_NETWALL_UDP}
  385.   SVCID_NEW_RWHO_UDP: TGUID = '{000A0226-0000-0000-C000-000000000046}';
  386.   {$EXTERNALSYM SVCID_NEW_RWHO_UDP}
  387.   SVCID_RMONITOR_UDP: TGUID = '{000A0230-0000-0000-C000-000000000046}';
  388.   {$EXTERNALSYM SVCID_RMONITOR_UDP}
  389.   SVCID_MONITOR_UDP: TGUID = '{000A0231-0000-0000-C000-000000000046}';
  390.   {$EXTERNALSYM SVCID_MONITOR_UDP}
  391.   SVCID_ACCTMASTER_UDP: TGUID = '{000A02BC-0000-0000-C000-000000000046}';
  392.   {$EXTERNALSYM SVCID_ACCTMASTER_UDP}
  393.   SVCID_ACCTSLAVE_UDP: TGUID = '{000A02BD-0000-0000-C000-000000000046}';
  394.   {$EXTERNALSYM SVCID_ACCTSLAVE_UDP}
  395.   SVCID_ACCT_UDP: TGUID = '{000A02BE-0000-0000-C000-000000000046}';
  396.   {$EXTERNALSYM SVCID_ACCT_UDP}
  397.   SVCID_ACCTLOGIN_UDP: TGUID = '{000A02BF-0000-0000-C000-000000000046}';
  398.   {$EXTERNALSYM SVCID_ACCTLOGIN_UDP}
  399.   SVCID_ACCTPRINTER_UDP: TGUID = '{000A02C0-0000-0000-C000-000000000046}';
  400.   {$EXTERNALSYM SVCID_ACCTPRINTER_UDP}
  401.   SVCID_ELCSD_UDP: TGUID = '{000A02C0-0000-0000-C000-000000000046}';
  402.   {$EXTERNALSYM SVCID_ELCSD_UDP}
  403.   SVCID_ACCTINFO_UDP: TGUID = '{000A02C1-0000-0000-C000-000000000046}';
  404.   {$EXTERNALSYM SVCID_ACCTINFO_UDP}
  405.   SVCID_ACCTSLAVE2_UDP: TGUID = '{000A02C2-0000-0000-C000-000000000046}';
  406.   {$EXTERNALSYM SVCID_ACCTSLAVE2_UDP}
  407.   SVCID_ACCTDISK_UDP: TGUID = '{000A02C3-0000-0000-C000-000000000046}';
  408.   {$EXTERNALSYM SVCID_ACCTDISK_UDP}
  409.   SVCID_KERBEROS_UDP: TGUID = '{000A02EE-0000-0000-C000-000000000046}';
  410.   {$EXTERNALSYM SVCID_KERBEROS_UDP}
  411.   SVCID_KERBEROS_MASTER_UDP: TGUID = '{000A02EF-0000-0000-C000-000000000046}';
  412.   {$EXTERNALSYM SVCID_KERBEROS_MASTER_UDP}
  413.   SVCID_PASSWD_SERVER_UDP: TGUID = '{000A02F0-0000-0000-C000-000000000046}';
  414.   {$EXTERNALSYM SVCID_PASSWD_SERVER_UDP}
  415.   SVCID_USERREG_SERVER_UDP: TGUID = '{000A02F1-0000-0000-C000-000000000046}';
  416.   {$EXTERNALSYM SVCID_USERREG_SERVER_UDP}
  417.   SVCID_PHONE_UDP: TGUID = '{000A048F-0000-0000-C000-000000000046}';
  418.   {$EXTERNALSYM SVCID_PHONE_UDP}
  419.   SVCID_MAZE_UDP: TGUID = '{000A0682-0000-0000-C000-000000000046}';
  420.   {$EXTERNALSYM SVCID_MAZE_UDP}
  421.   SVCID_NFS_UDP: TGUID = '{000A0801-0000-0000-C000-000000000046}';
  422.   {$EXTERNALSYM SVCID_NFS_UDP}
  423.   SVCID_RSCS0_UDP: TGUID = '{000A2710-0000-0000-C000-000000000046}';
  424.   {$EXTERNALSYM SVCID_RSCS0_UDP}
  425.   SVCID_RSCS1_UDP: TGUID = '{000A2711-0000-0000-C000-000000000046}';
  426.   {$EXTERNALSYM SVCID_RSCS1_UDP}
  427.   SVCID_RSCS2_UDP: TGUID = '{000A2712-0000-0000-C000-000000000046}';
  428.   {$EXTERNALSYM SVCID_RSCS2_UDP}
  429.   SVCID_RSCS3_UDP: TGUID = '{000A2713-0000-0000-C000-000000000046}';
  430.   {$EXTERNALSYM SVCID_RSCS3_UDP}
  431.   SVCID_RSCS4_UDP: TGUID = '{000A2714-0000-0000-C000-000000000046}';
  432.   {$EXTERNALSYM SVCID_RSCS4_UDP}
  433.   SVCID_RSCS5_UDP: TGUID = '{000A2715-0000-0000-C000-000000000046}';
  434.   {$EXTERNALSYM SVCID_RSCS5_UDP}
  435.   SVCID_RSCS6_UDP: TGUID = '{000A2716-0000-0000-C000-000000000046}';
  436.   {$EXTERNALSYM SVCID_RSCS6_UDP}
  437.   SVCID_RSCS7_UDP: TGUID = '{000A2717-0000-0000-C000-000000000046}';
  438.   {$EXTERNALSYM SVCID_RSCS7_UDP}
  439.   SVCID_RSCS8_UDP: TGUID = '{000A2718-0000-0000-C000-000000000046}';
  440.   {$EXTERNALSYM SVCID_RSCS8_UDP}
  441.   SVCID_RSCS9_UDP: TGUID = '{000A2719-0000-0000-C000-000000000046}';
  442.   {$EXTERNALSYM SVCID_RSCS9_UDP}
  443.   SVCID_RSCSA_UDP: TGUID = '{000A271A-0000-0000-C000-000000000046}';
  444.   {$EXTERNALSYM SVCID_RSCSA_UDP}
  445.   SVCID_RSCSB_UDP: TGUID = '{000A271B-0000-0000-C000-000000000046}';
  446.   {$EXTERNALSYM SVCID_RSCSB_UDP}
  447.   SVCID_QMASTER_UDP: TGUID = '{000A271C-0000-0000-C000-000000000046}';
  448.   {$EXTERNALSYM SVCID_QMASTER_UDP}
  450. //
  451. // NetWare services
  452. // GUID block = 000axxxx-0000-0000-C0000-000000000046
  453. //
  455.   SVCID_PRINT_QUEUE: TGUID = '{000B0003-0000-0000-C000-000000000046}';
  456.   {$EXTERNALSYM SVCID_PRINT_QUEUE}
  457.   SVCID_FILE_SERVER: TGUID = '{000B0004-0000-0000-C000-000000000046}';
  458.   {$EXTERNALSYM SVCID_FILE_SERVER}
  459.   SVCID_JOB_SERVER: TGUID = '{000B0005-0000-0000-C000-000000000046}';
  460.   {$EXTERNALSYM SVCID_JOB_SERVER}
  461.   SVCID_GATEWAY: TGUID = '{000B0006-0000-0000-C000-000000000046}';
  462.   {$EXTERNALSYM SVCID_GATEWAY}
  463.   SVCID_PRINT_SERVER: TGUID = '{000B0007-0000-0000-C000-000000000046}';
  464.   {$EXTERNALSYM SVCID_PRINT_SERVER}
  465.   SVCID_ARCHIVE_QUEUE: TGUID = '{000B0008-0000-0000-C000-000000000046}';
  466.   {$EXTERNALSYM SVCID_ARCHIVE_QUEUE}
  467.   SVCID_ARCHIVE_SERVER: TGUID = '{000B0009-0000-0000-C000-000000000046}';
  468.   {$EXTERNALSYM SVCID_ARCHIVE_SERVER}
  469.   SVCID_JOB_QUEUE: TGUID = '{000B000A-0000-0000-C000-000000000046}';
  470.   {$EXTERNALSYM SVCID_JOB_QUEUE}
  471.   SVCID_ADMINISTRATION: TGUID = '{000B000B-0000-0000-C000-000000000046}';
  472.   {$EXTERNALSYM SVCID_ADMINISTRATION}
  473.   SVCID_NAS_SNA_GATEWAY: TGUID = '{000B0021-0000-0000-C000-000000000046}';
  474.   {$EXTERNALSYM SVCID_NAS_SNA_GATEWAY}
  475.   SVCID_REMOTE_BRIDGE_SERVER: TGUID = '{000B0024-0000-0000-C000-000000000046}';
  476.   {$EXTERNALSYM SVCID_REMOTE_BRIDGE_SERVER}
  477.   SVCID_TIME_SYNCHRONIZATION_SERVER: TGUID = '{000B002D-0000-0000-C000-000000000046}';
  478.   {$EXTERNALSYM SVCID_TIME_SYNCHRONIZATION_SERVER}
  479.   SVCID_ARCHIVE_SERVER_DYNAMIC_SAP: TGUID = '{000B002E-0000-0000-C000-000000000046}';
  480.   {$EXTERNALSYM SVCID_ARCHIVE_SERVER_DYNAMIC_SAP}
  481.   SVCID_ADVERTISING_PRINT_SERVER: TGUID = '{000B0047-0000-0000-C000-000000000046}';
  482.   {$EXTERNALSYM SVCID_ADVERTISING_PRINT_SERVER}
  483.   SVCID_BTRIEVE_VAP: TGUID = '{000B004B-0000-0000-C000-000000000046}';
  484.   {$EXTERNALSYM SVCID_BTRIEVE_VAP}
  485.   SVCID_DIRECTORY_SERVER: TGUID = '{000B0278-0000-0000-C000-000000000046}';
  486.   {$EXTERNALSYM SVCID_DIRECTORY_SERVER}
  487.   SVCID_NETWARE_386: TGUID = '{000B0107-0000-0000-C000-000000000046}';
  488.   {$EXTERNALSYM SVCID_NETWARE_386}
  489.   SVCID_HP_PRINT_SERVER: TGUID = '{000B030C-0000-0000-C000-000000000046}';
  490.   {$EXTERNALSYM SVCID_HP_PRINT_SERVER}
  491.   SVCID_SNA_SERVER: TGUID = '{000B0444-0000-0000-C000-000000000046}';
  492.   {$EXTERNALSYM SVCID_SNA_SERVER}
  493.   SVCID_SAA_SERVER: TGUID = '{000B0130-0000-0000-C000-000000000046}';
  494.   {$EXTERNALSYM SVCID_SAA_SERVER}
  495. //
  496. // DNS services by record type
  497. // GUID block = 00090035-0000-xxxx-C0000-000000000046
  498. //
  500.   SVCID_DNS_TYPE_A: TGUID = '{00090035-0000-0001-C000-000000000046}';
  501.   {$EXTERNALSYM SVCID_DNS_TYPE_A}
  502.   SVCID_DNS_TYPE_NS: TGUID = '{00090035-0000-0002-C000-000000000046}';
  503.   {$EXTERNALSYM SVCID_DNS_TYPE_NS}
  504.   SVCID_DNS_TYPE_MD: TGUID = '{00090035-0000-0003-C000-000000000046}';
  505.   {$EXTERNALSYM SVCID_DNS_TYPE_MD}
  506.   SVCID_DNS_TYPE_MF: TGUID = '{00090035-0000-0004-C000-000000000046}';
  507.   {$EXTERNALSYM SVCID_DNS_TYPE_MF}
  508.   SVCID_DNS_TYPE_CNAME: TGUID = '{00090035-0000-0005-C000-000000000046}';
  509.   {$EXTERNALSYM SVCID_DNS_TYPE_CNAME}
  510.   SVCID_DNS_TYPE_SOA: TGUID = '{00090035-0000-0006-C000-000000000046}';
  511.   {$EXTERNALSYM SVCID_DNS_TYPE_SOA}
  512.   SVCID_DNS_TYPE_MB: TGUID = '{00090035-0000-0007-C000-000000000046}';
  513.   {$EXTERNALSYM SVCID_DNS_TYPE_MB}
  514.   SVCID_DNS_TYPE_MG: TGUID = '{00090035-0000-0008-C000-000000000046}';
  515.   {$EXTERNALSYM SVCID_DNS_TYPE_MG}
  516.   SVCID_DNS_TYPE_MR: TGUID = '{00090035-0000-0009-C000-000000000046}';
  517.   {$EXTERNALSYM SVCID_DNS_TYPE_MR}
  518.   SVCID_DNS_TYPE_NULL: TGUID = '{00090035-0000-000A-C000-000000000046}';
  519.   {$EXTERNALSYM SVCID_DNS_TYPE_NULL}
  520.   SVCID_DNS_TYPE_WKS: TGUID = '{00090035-0000-000B-C000-000000000046}';
  521.   {$EXTERNALSYM SVCID_DNS_TYPE_WKS}
  522.   SVCID_DNS_TYPE_PTR: TGUID = '{00090035-0000-000C-C000-000000000046}';
  523.   {$EXTERNALSYM SVCID_DNS_TYPE_PTR}
  524.   SVCID_DNS_TYPE_HINFO: TGUID = '{00090035-0000-000D-C000-000000000046}';
  525.   {$EXTERNALSYM SVCID_DNS_TYPE_HINFO}
  526.   SVCID_DNS_TYPE_MINFO: TGUID = '{00090035-0000-000E-C000-000000000046}';
  527.   {$EXTERNALSYM SVCID_DNS_TYPE_MINFO}
  528.   SVCID_DNS_TYPE_MX: TGUID = '{00090035-0000-000F-C000-000000000046}';
  529.   {$EXTERNALSYM SVCID_DNS_TYPE_MX}
  530.   SVCID_DNS_TYPE_TEXT: TGUID = '{00090035-0000-0010-C000-000000000046}';
  531.   {$EXTERNALSYM SVCID_DNS_TYPE_TEXT}
  532.   SVCID_DNS_TYPE_RP: TGUID = '{00090035-0000-0011-C000-000000000046}';
  533.   {$EXTERNALSYM SVCID_DNS_TYPE_RP}
  534.   SVCID_DNS_TYPE_AFSDB: TGUID = '{00090035-0000-0012-C000-000000000046}';
  535.   {$EXTERNALSYM SVCID_DNS_TYPE_AFSDB}
  536.   SVCID_DNS_TYPE_X25: TGUID = '{00090035-0000-0013-C000-000000000046}';
  537.   {$EXTERNALSYM SVCID_DNS_TYPE_X25}
  538.   SVCID_DNS_TYPE_ISDN: TGUID = '{00090035-0000-0014-C000-000000000046}';
  539.   {$EXTERNALSYM SVCID_DNS_TYPE_ISDN}
  540.   SVCID_DNS_TYPE_RT: TGUID = '{00090035-0000-0015-C000-000000000046}';
  541.   {$EXTERNALSYM SVCID_DNS_TYPE_RT}
  542.   SVCID_DNS_TYPE_NSAP: TGUID = '{00090035-0000-0016-C000-000000000046}';
  543.   {$EXTERNALSYM SVCID_DNS_TYPE_NSAP}
  544.   SVCID_DNS_TYPE_NSAPPTR: TGUID = '{00090035-0000-0017-C000-000000000046}';
  545.   {$EXTERNALSYM SVCID_DNS_TYPE_NSAPPTR}
  546.   SVCID_DNS_TYPE_SIG: TGUID = '{00090035-0000-0018-C000-000000000046}';
  547.   {$EXTERNALSYM SVCID_DNS_TYPE_SIG}
  548.   SVCID_DNS_TYPE_KEY: TGUID = '{00090035-0000-0019-C000-000000000046}';
  549.   {$EXTERNALSYM SVCID_DNS_TYPE_KEY}
  550.   SVCID_DNS_TYPE_PX: TGUID = '{00090035-0000-001A-C000-000000000046}';
  551.   {$EXTERNALSYM SVCID_DNS_TYPE_PX}
  552.   SVCID_DNS_TYPE_GPOS: TGUID = '{00090035-0000-001B-C000-000000000046}';
  553.   {$EXTERNALSYM SVCID_DNS_TYPE_GPOS}
  554.   SVCID_DNS_TYPE_AAAA: TGUID = '{00090035-0000-001C-C000-000000000046}';
  555.   {$EXTERNALSYM SVCID_DNS_TYPE_AAAA}
  556.   SVCID_DNS_TYPE_LOC: TGUID = '{00090035-0000-001D-C000-000000000046}';
  557.   {$EXTERNALSYM SVCID_DNS_TYPE_LOC}
  558.   SVCID_DNS_TYPE_NXT: TGUID = '{00090035-0000-001E-C000-000000000046}';
  559.   {$EXTERNALSYM SVCID_DNS_TYPE_NXT}
  560.   SVCID_DNS_TYPE_SRV: TGUID = '{00090035-0000-0021-C000-000000000046}';
  561.   {$EXTERNALSYM SVCID_DNS_TYPE_SRV}
  562.   SVCID_DNS_TYPE_ATMA: TGUID = '{00090035-0000-0022-C000-000000000046}';
  563.   {$EXTERNALSYM SVCID_DNS_TYPE_ATMA}
  565. implementation
  567. function SVCID_TCP_RR(Port, RR: Word): TGUID;
  568. begin
  569.   Result.D1 := ($0009 shl 16) or Port;
  570.   Result.D2 := $0;
  571.   Result.D3 := RR;
  572.   Result.D4[0] := $C0;
  573.   Result.D4[1] := $00;
  574.   Result.D4[2] := $00;
  575.   Result.D4[3] := $00;
  576.   Result.D4[4] := $00;
  577.   Result.D4[5] := $00;
  578.   Result.D4[6] := $00;
  579.   Result.D4[7] := $46;
  580. end;
  582. function SVCID_TCP(Port: Word): TGUID;
  583. begin
  584.   Result := SVCID_TCP_RR(Port, 0)
  585. end;
  587. function SVCID_DNS(RecordType: Word): TGUID;
  588. begin
  589.   Result := SVCID_TCP_RR(53, RecordType);
  590. end;
  592. function IS_SVCID_DNS(const Guid: TGUID): Boolean;
  593. begin
  594.   Result := (Guid.D1 = $00090035) and (Guid.D2 = $0) and
  595.     (Guid.D4[0] = $C0) and (Guid.D4[1] = $00) and (Guid.D4[2] = $00) and
  596.     (Guid.D4[3] = $00) and (Guid.D4[4] = $00) and (Guid.D4[5] = $00) and
  597.     (Guid.D4[6] = $00) and (Guid.D4[7] = $46);
  598. end;
  600. function IS_SVCID_TCP(const Guid: TGUID): Boolean;
  601. begin
  602.   Result :=
  603.    ((Guid.D1 and DWORD($FFFF0000)) = $00090000) and (Guid.D2 = $0) and
  604.     (Guid.D4[0] = $C0) and (Guid.D4[1] = $00) and (Guid.D4[2] = $00) and
  605.     (Guid.D4[3] = $00) and (Guid.D4[4] = $00) and (Guid.D4[5] = $00) and
  606.     (Guid.D4[6] = $00) and (Guid.D4[7] = $46);
  607. end;
  609. function PORT_FROM_SVCID_TCP(const Guid: TGUID): Word;
  610. begin
  611.   Result := WORD(Guid.D1 and $FFFF);
  612. end;
  614. function RR_FROM_SVCID(const Guid: TGUID): Word;
  615. begin
  616.   Result := Guid.D3;
  617. end;
  619. procedure SET_TCP_SVCID_RR(var Guid: TGUID; _Port, _RR: Word);
  620. begin
  621.   Guid.D1 := ($0009 shl 16) or _Port;
  622.   Guid.D2 := $0;
  623.   Guid.D3 := _RR;
  624.   Guid.D4[0] := $C0;
  625.   Guid.D4[1] := $00;
  626.   Guid.D4[2] := $00;
  627.   Guid.D4[3] := $00;
  628.   Guid.D4[4] := $00;
  629.   Guid.D4[5] := $00;
  630.   Guid.D4[6] := $00;
  631.   Guid.D4[7] := $46;
  632. end;
  634. procedure SET_TCP_SVCID(var Guid: TGUID; Port: Word);
  635. begin
  636.   SET_TCP_SVCID_RR(Guid, Port, 0);
  637. end;
  639. function SVCID_UDP_RR(Port, RR: Word): TGUID;
  640. begin
  641.   Result.D1 := ($000A shl 16) or Port;
  642.   Result.D2 := $0;
  643.   Result.D3 := RR;
  644.   Result.D4[0] := $C0;
  645.   Result.D4[1] := $00;
  646.   Result.D4[2] := $00;
  647.   Result.D4[3] := $00;
  648.   Result.D4[4] := $00;
  649.   Result.D4[5] := $00;
  650.   Result.D4[6] := $00;
  651.   Result.D4[7] := $46;
  652. end;
  654. function SVCID_UDP(Port: Word): TGUID;
  655. begin
  656.   Result := SVCID_UDP_RR(Port, 0);
  657. end;
  659. function IS_SVCID_UDP(const Guid: TGUID): Boolean;
  660. begin
  661.   Result := (Guid.D1 and DWORD($FFFF0000) = $000A0000) and (Guid.D2 = $0) and
  662.     (Guid.D4[0] = $C0) and (Guid.D4[1] = $00) and (Guid.D4[2] = $00) and
  663.     (Guid.D4[3] = $00) and (Guid.D4[4] = $00) and (Guid.D4[5] = $00) and
  664.     (Guid.D4[6] = $00) and (Guid.D4[7] = $46);
  665. end;
  667. function PORT_FROM_SVCID_UDP(const Guid: TGUID): WORD;
  668. begin
  669.   Result := WORD(Guid.D1 and $FFFF);
  670. end;
  672. procedure SET_UDP_SVCID_RR(var Guid: TGUID; Port, RR: WORD);
  673. begin
  674.   Guid.D1 := ($000A shl 16) or Port;
  675.   Guid.D2 := $0;
  676.   Guid.D3 := RR;
  677.   Guid.D4[0] := $C0;
  678.   Guid.D4[1] := $00;
  679.   Guid.D4[2] := $00;
  680.   Guid.D4[3] := $00;
  681.   Guid.D4[4] := $00;
  682.   Guid.D4[5] := $00;
  683.   Guid.D4[6] := $00;
  684.   Guid.D4[7] := $46;
  685. end;
  687. procedure SET_UDP_SVCID(var Guid: TGUID; Port: WORD);
  688. begin
  689.   SET_UDP_SVCID_RR(Guid, Port, 0);
  690. end;
  692. function SVCID_NETWARE(SapId: WORD): TGUID;
  693. begin
  694.   Result.D1 := ($000B shl 16) or SapId;
  695.   Result.D2 := $0;
  696.   Result.D3 := $0;
  697.   Result.D4[0] := $C0;
  698.   Result.D4[1] := $00;
  699.   Result.D4[2] := $00;
  700.   Result.D4[3] := $00;
  701.   Result.D4[4] := $00;
  702.   Result.D4[5] := $00;
  703.   Result.D4[6] := $00;
  704.   Result.D4[7] := $46;
  705. end;
  707. function IS_SVCID_NETWARE(const Guid: TGUID): Boolean;
  708. begin
  709.   Result := (Guid.D1 and DWORD($FFFF0000) = $000B0000) and (Guid.D2 = $0) and
  710.     (Guid.D4[0] = $C0) and (Guid.D4[1] = $00) and (Guid.D4[2] = $00) and
  711.     (Guid.D4[3] = $00) and (Guid.D4[4] = $00) and (Guid.D4[5] = $00) and
  712.     (Guid.D4[6] = $00) and (Guid.D4[7] = $46);
  713. end;
  715. function SAPID_FROM_SVCID_NETWARE(const Guid: TGUID): WORD;
  716. begin
  717.   Result := WORD(Guid.D1 and $FFFF);
  718. end;
  720. procedure SET_NETWARE_SVCID(var Guid: TGUID; SapId: WORD);
  721. begin
  722.   Guid.D1 := ($000B shl 16) or SapId;
  723.   Guid.D2 := $0;
  724.   Guid.D3 := $0;
  725.   Guid.D4[0] := $C0;
  726.   Guid.D4[1] := $00;
  727.   Guid.D4[2] := $00;
  728.   Guid.D4[3] := $00;
  729.   Guid.D4[4] := $00;
  730.   Guid.D4[5] := $00;
  731.   Guid.D4[6] := $00;
  732.   Guid.D4[7] := $46;
  733. end;
  736. end.