mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-05 14:58:28 +02:00
736 lines
30 KiB
ObjectPascal
736 lines
30 KiB
ObjectPascal
{******************************************************************************}
|
|
{ }
|
|
{ Winsock2 Service GUIDs API interface Unit for Object Pascal }
|
|
{ }
|
|
{ Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft }
|
|
{ Corporation. All Rights Reserved. }
|
|
{ }
|
|
{ The original file is: svcguid.h, released June 2000. The original Pascal }
|
|
{ code is: SvcGuid.pas, released December 2000. The initial developer of the }
|
|
{ Pascal code is Marcel van Brakel (brakelm att chello dott nl). }
|
|
{ }
|
|
{ Portions created by Marcel van Brakel are Copyright (C) 1999-2001 }
|
|
{ Marcel van Brakel. All Rights Reserved. }
|
|
{ }
|
|
{ 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 JwaSvcGuid;
|
|
|
|
{$WEAKPACKAGEUNIT}
|
|
|
|
{$HPPEMIT ''}
|
|
{$HPPEMIT '#include "svguid.h"'}
|
|
{$HPPEMIT ''}
|
|
|
|
{$I jediapilib.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFDEF USE_DELPHI_TYPES}
|
|
Windows;
|
|
{$ELSE}
|
|
JwaWinType;
|
|
{$ENDIF USE_DELPHI_TYPES}
|
|
|
|
// Defines GUIDs for well-known services including:
|
|
//
|
|
// HOSTNAME
|
|
// RFC 1060 (Assigned Numbers) from IANA (All TCP/IP Services)
|
|
// NetWare services
|
|
|
|
//
|
|
// HOSTNAME--special GUID which refers to the name of a host as opposed
|
|
// to any particular service on that host.
|
|
//
|
|
|
|
const
|
|
SVCID_HOSTNAME: TGUID = '{0002a800-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_HOSTNAME}
|
|
|
|
//
|
|
// GUIDs for dealing with AF_INET address spaces alone. These are
|
|
// intended to be used when fetching hostent or servent information
|
|
// from such a provider. These are not general-purpose types and
|
|
// should be used only when the intent is getting at down-level
|
|
// information.
|
|
//
|
|
|
|
SVCID_INET_HOSTADDRBYINETSTRING: TGUID = '{0002a801-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_INET_HOSTADDRBYINETSTRING}
|
|
SVCID_INET_SERVICEBYNAME: TGUID = '{0002a802-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_INET_SERVICEBYNAME}
|
|
SVCID_INET_HOSTADDRBYNAME: TGUID = '{0002a803-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_INET_HOSTADDRBYNAME}
|
|
|
|
//
|
|
// Macros for defining and testing TCP and UDP GUIDs from a well-known
|
|
// port.
|
|
//
|
|
|
|
function SVCID_TCP_RR(Port, RR: Word): TGUID;
|
|
{$EXTERNALSYM SVCID_TCP_RR}
|
|
|
|
function SVCID_TCP(Port: Word): TGUID;
|
|
{$EXTERNALSYM SVCID_TCP}
|
|
|
|
function SVCID_DNS(RecordType: Word): TGUID;
|
|
{$EXTERNALSYM SVCID_DNS}
|
|
|
|
function IS_SVCID_DNS(const Guid: TGUID): Boolean;
|
|
{$EXTERNALSYM IS_SVCID_DNS}
|
|
|
|
function IS_SVCID_TCP(const Guid: TGUID): Boolean;
|
|
{$EXTERNALSYM IS_SVCID_TCP}
|
|
|
|
function PORT_FROM_SVCID_TCP(const Guid: TGUID): Word;
|
|
{$EXTERNALSYM PORT_FROM_SVCID_TCP}
|
|
|
|
function RR_FROM_SVCID(const Guid: TGUID): Word;
|
|
{$EXTERNALSYM RR_FROM_SVCID}
|
|
|
|
procedure SET_TCP_SVCID_RR(var Guid: TGUID; _Port, _RR: Word);
|
|
{$EXTERNALSYM SET_TCP_SVCID_RR}
|
|
|
|
procedure SET_TCP_SVCID(var Guid: TGUID; Port: Word);
|
|
{$EXTERNALSYM SET_TCP_SVCID}
|
|
|
|
function SVCID_UDP_RR(Port, RR: Word): TGUID;
|
|
{$EXTERNALSYM SVCID_UDP_RR}
|
|
|
|
function SVCID_UDP(Port: Word): TGUID;
|
|
{$EXTERNALSYM SVCID_UDP}
|
|
|
|
function IS_SVCID_UDP(const Guid: TGUID): Boolean;
|
|
{$EXTERNALSYM IS_SVCID_UDP}
|
|
|
|
function PORT_FROM_SVCID_UDP(const Guid: TGUID): WORD;
|
|
{$EXTERNALSYM PORT_FROM_SVCID_UDP}
|
|
|
|
procedure SET_UDP_SVCID_RR(var Guid: TGUID; Port, RR: WORD);
|
|
{$EXTERNALSYM SET_UDP_SVCID_RR}
|
|
|
|
procedure SET_UDP_SVCID(var Guid: TGUID; Port: WORD);
|
|
{$EXTERNALSYM SET_UDP_SVCID}
|
|
|
|
//
|
|
// Macros for defining and testing Netware (SAP) services based on the
|
|
// SAP ID.
|
|
//
|
|
|
|
function SVCID_NETWARE(SapId: WORD): TGUID;
|
|
{$EXTERNALSYM SVCID_NETWARE}
|
|
|
|
function IS_SVCID_NETWARE(const Guid: TGUID): Boolean;
|
|
{$EXTERNALSYM IS_SVCID_NETWARE}
|
|
|
|
function SAPID_FROM_SVCID_NETWARE(const Guid: TGUID): WORD;
|
|
{$EXTERNALSYM SAPID_FROM_SVCID_NETWARE}
|
|
|
|
procedure SET_NETWARE_SVCID(var Guid: TGUID; SapId: WORD);
|
|
{$EXTERNALSYM SET_NETWARE_SVCID}
|
|
|
|
//
|
|
// RFC 1060 services as defined by the IANA
|
|
// GUID block = 0009xxxx-0000-0000-C0000-000000000046
|
|
//
|
|
|
|
const
|
|
SVCID_ECHO_TCP: TGUID = '{00090007-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ECHO_TCP}
|
|
SVCID_DISCARD_TCP: TGUID = '{00090009-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DISCARD_TCP}
|
|
SVCID_SYSTAT_TCP: TGUID = '{0009000B-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_SYSTAT_TCP}
|
|
SVCID_DAYTIME_TCP: TGUID = '{0009000D-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DAYTIME_TCP}
|
|
SVCID_NETSTAT_TCP: TGUID = '{0009000F-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NETSTAT_TCP}
|
|
SVCID_QOTD_TCP: TGUID = '{00090011-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_QOTD_TCP}
|
|
SVCID_CHARGEN_TCP: TGUID = '{00090013-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_CHARGEN_TCP}
|
|
SVCID_FTP_DATA_TCP: TGUID = '{00090014-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_FTP_DATA_TCP}
|
|
SVCID_FTP_TCP: TGUID = '{00090015-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_FTP_TCP}
|
|
SVCID_TELNET_TCP: TGUID = '{00090017-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_TELNET_TCP}
|
|
SVCID_SMTP_TCP: TGUID = '{00090019-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_SMTP_TCP}
|
|
SVCID_TIME_TCP: TGUID = '{00090025-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_TIME_TCP}
|
|
SVCID_NAME_TCP: TGUID = '{0009002A-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NAME_TCP}
|
|
SVCID_WHOIS_TCP: TGUID = '{0009002B-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_WHOIS_TCP}
|
|
SVCID_DOMAIN_TCP: TGUID = '{00090035-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DOMAIN_TCP}
|
|
SVCID_NAMESERVER_TCP: TGUID = '{00090035-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NAMESERVER_TCP}
|
|
SVCID_MTP_TCP: TGUID = '{00090039-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_MTP_TCP}
|
|
SVCID_RJE_TCP: TGUID = '{0009004D-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RJE_TCP}
|
|
SVCID_FINGER_TCP: TGUID = '{0009004F-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_FINGER_TCP}
|
|
SVCID_LINK_TCP: TGUID = '{00090057-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_LINK_TCP}
|
|
SVCID_SUPDUP_TCP: TGUID = '{0009005F-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_SUPDUP_TCP}
|
|
SVCID_HOSTNAMES_TCP: TGUID = '{00090065-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_HOSTNAMES_TCP}
|
|
SVCID_ISO_TSAP_TCP: TGUID = '{00090066-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ISO_TSAP_TCP}
|
|
SVCID_DICTIONARY_TCP: TGUID = '{00090067-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DICTIONARY_TCP}
|
|
SVCID_X400_TCP: TGUID = '{00090067-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_X400_TCP}
|
|
SVCID_X400_SND_TCP: TGUID = '{00090068-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_X400_SND_TCP}
|
|
SVCID_CSNET_NS_TCP: TGUID = '{00090069-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_CSNET_NS_TCP}
|
|
SVCID_POP_TCP: TGUID = '{0009006D-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_POP_TCP}
|
|
SVCID_POP2_TCP: TGUID = '{0009006D-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_POP2_TCP}
|
|
SVCID_POP3_TCP: TGUID = '{0009006E-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_POP3_TCP}
|
|
SVCID_PORTMAP_TCP: TGUID = '{0009006F-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_PORTMAP_TCP}
|
|
SVCID_SUNRPC_TCP: TGUID = '{0009006F-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_SUNRPC_TCP}
|
|
SVCID_AUTH_TCP: TGUID = '{00090071-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_AUTH_TCP}
|
|
SVCID_SFTP_TCP: TGUID = '{00090073-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_SFTP_TCP}
|
|
SVCID_PATH_TCP: TGUID = '{00090075-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_PATH_TCP}
|
|
SVCID_UUCP_PATH_TCP: TGUID = '{00090075-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_UUCP_PATH_TCP}
|
|
SVCID_NNTP_TCP: TGUID = '{00090077-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NNTP_TCP}
|
|
SVCID_NBSESSION_TCP: TGUID = '{0009008B-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NBSESSION_TCP}
|
|
SVCID_NEWS_TCP: TGUID = '{00090090-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NEWS_TCP}
|
|
SVCID_TCPREPO_TCP: TGUID = '{0009009E-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_TCPREPO_TCP}
|
|
SVCID_PRINT_SRV_TCP: TGUID = '{000900AA-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_PRINT_SRV_TCP}
|
|
SVCID_VMNET_TCP: TGUID = '{000900AF-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_VMNET_TCP}
|
|
SVCID_VMNET0_TCP: TGUID = '{00090190-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_VMNET0_TCP}
|
|
SVCID_EXEC_TCP: TGUID = '{00090200-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_EXEC_TCP}
|
|
SVCID_LOGIN_TCP: TGUID = '{00090201-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_LOGIN_TCP}
|
|
SVCID_SHELL_TCP: TGUID = '{00090202-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_SHELL_TCP}
|
|
SVCID_PRINTER_TCP: TGUID = '{00090203-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_PRINTER_TCP}
|
|
SVCID_EFS_TCP: TGUID = '{00090208-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_EFS_TCP}
|
|
SVCID_TEMPO_TCP: TGUID = '{0009020E-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_TEMPO_TCP}
|
|
SVCID_COURIER_TCP: TGUID = '{00090212-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_COURIER_TCP}
|
|
SVCID_CONFERENCE_TCP: TGUID = '{00090213-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_CONFERENCE_TCP}
|
|
SVCID_NETNEWS_TCP: TGUID = '{00090214-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NETNEWS_TCP}
|
|
SVCID_UUCP_TCP: TGUID = '{0009021C-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_UUCP_TCP}
|
|
SVCID_KLOGIN_TCP: TGUID = '{0009021F-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_KLOGIN_TCP}
|
|
SVCID_KSHELL_TCP: TGUID = '{00090220-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_KSHELL_TCP}
|
|
SVCID_REMOTEFS_TCP: TGUID = '{0009022C-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_REMOTEFS_TCP}
|
|
SVCID_GARCON_TCP: TGUID = '{00090258-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_GARCON_TCP}
|
|
SVCID_MAITRD_TCP: TGUID = '{00090259-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_MAITRD_TCP}
|
|
SVCID_BUSBOY_TCP: TGUID = '{0009025A-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_BUSBOY_TCP}
|
|
SVCID_KERBEROS_TCP: TGUID = '{000902EE-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_KERBEROS_TCP}
|
|
SVCID_KERBEROS_MASTER_TCP: TGUID = '{000902EF-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_KERBEROS_MASTER_TCP}
|
|
SVCID_KRB_PROP_TCP: TGUID = '{000902F2-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_KRB_PROP_TCP}
|
|
SVCID_ERLOGIN_TCP: TGUID = '{00090378-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ERLOGIN_TCP}
|
|
SVCID_KPOP_TCP: TGUID = '{00090455-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_KPOP_TCP}
|
|
SVCID_INGRESLOCK_TCP: TGUID = '{000905F4-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_INGRESLOCK_TCP}
|
|
SVCID_KNETD_TCP: TGUID = '{00090805-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_KNETD_TCP}
|
|
SVCID_EKLOGIN_TCP: TGUID = '{00090839-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_EKLOGIN_TCP}
|
|
SVCID_RMT_TCP: TGUID = '{000915B3-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RMT_TCP}
|
|
SVCID_MTB_TCP: TGUID = '{000915B4-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_MTB_TCP}
|
|
SVCID_MAN_TCP: TGUID = '{0009253F-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_MAN_TCP}
|
|
SVCID_W_TCP: TGUID = '{00092540-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_W_TCP}
|
|
SVCID_MANTST_TCP: TGUID = '{00092541-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_MANTST_TCP}
|
|
SVCID_BNEWS_TCP: TGUID = '{00092710-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_BNEWS_TCP}
|
|
SVCID_QUEUE_TCP: TGUID = '{00092711-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_QUEUE_TCP}
|
|
SVCID_POKER_TCP: TGUID = '{00092712-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_POKER_TCP}
|
|
SVCID_GATEWAY_TCP: TGUID = '{00092713-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_GATEWAY_TCP}
|
|
SVCID_REMP_TCP: TGUID = '{00092714-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_REMP_TCP}
|
|
SVCID_QMASTER_TCP: TGUID = '{0009271C-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_QMASTER_TCP}
|
|
|
|
SVCID_ECHO_UDP: TGUID = '{000A0007-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ECHO_UDP}
|
|
SVCID_DISCARD_UDP: TGUID = '{000A0009-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DISCARD_UDP}
|
|
SVCID_DAYTIME_UDP: TGUID = '{000A000D-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DAYTIME_UDP}
|
|
SVCID_QOTD_UDP: TGUID = '{000A0011-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_QOTD_UDP}
|
|
SVCID_CHARGEN_UDP: TGUID = '{000A0013-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_CHARGEN_UDP}
|
|
SVCID_TIME_UDP: TGUID = '{000A0025-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_TIME_UDP}
|
|
SVCID_RLP_UDP: TGUID = '{000A0027-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RLP_UDP}
|
|
SVCID_NAME_UDP: TGUID = '{000A002A-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NAME_UDP}
|
|
SVCID_DOMAIN_UDP: TGUID = '{000A0035-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DOMAIN_UDP}
|
|
SVCID_NAMESERVER_UDP: TGUID = '{000A0035-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NAMESERVER_UDP}
|
|
SVCID_BOOTP_UDP: TGUID = '{000A0043-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_BOOTP_UDP}
|
|
SVCID_TFTP_UDP: TGUID = '{000A0045-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_TFTP_UDP}
|
|
SVCID_PORTMAP_UDP: TGUID = '{000A006F-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_PORTMAP_UDP}
|
|
SVCID_SUNRPC_UDP: TGUID = '{000A006F-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_SUNRPC_UDP}
|
|
SVCID_NTP_UDP: TGUID = '{000A007B-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NTP_UDP}
|
|
SVCID_NBNAME_UDP: TGUID = '{000A0089-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NBNAME_UDP}
|
|
SVCID_NBDATAGRAM_UDP: TGUID = '{000A008A-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NBDATAGRAM_UDP}
|
|
SVCID_SGMP_UDP: TGUID = '{000A0099-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_SGMP_UDP}
|
|
SVCID_SNMP_UDP: TGUID = '{000A00A1-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_SNMP_UDP}
|
|
SVCID_SNMP_TRAP_UDP: TGUID = '{000A00A2-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_SNMP_TRAP_UDP}
|
|
SVCID_LOAD_UDP: TGUID = '{000A013B-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_LOAD_UDP}
|
|
SVCID_SYTEK_UDP: TGUID = '{000A01F4-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_SYTEK_UDP}
|
|
SVCID_BIFF_UDP: TGUID = '{000A0200-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_BIFF_UDP}
|
|
SVCID_WHO_UDP: TGUID = '{000A0201-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_WHO_UDP}
|
|
SVCID_SYSLOG_UDP: TGUID = '{000A0202-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_SYSLOG_UDP}
|
|
SVCID_TALK_UDP: TGUID = '{000A0205-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_TALK_UDP}
|
|
SVCID_NTALK_UDP: TGUID = '{000A0206-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NTALK_UDP}
|
|
SVCID_ROUTE_UDP: TGUID = '{000A0208-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ROUTE_UDP}
|
|
SVCID_TIMED_UDP: TGUID = '{000A020D-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_TIMED_UDP}
|
|
SVCID_RVD_CONTROL_UDP: TGUID = '{000A0213-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RVD_CONTROL_UDP}
|
|
SVCID_NETWALL_UDP: TGUID = '{000A0215-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NETWALL_UDP}
|
|
SVCID_NEW_RWHO_UDP: TGUID = '{000A0226-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NEW_RWHO_UDP}
|
|
SVCID_RMONITOR_UDP: TGUID = '{000A0230-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RMONITOR_UDP}
|
|
SVCID_MONITOR_UDP: TGUID = '{000A0231-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_MONITOR_UDP}
|
|
SVCID_ACCTMASTER_UDP: TGUID = '{000A02BC-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ACCTMASTER_UDP}
|
|
SVCID_ACCTSLAVE_UDP: TGUID = '{000A02BD-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ACCTSLAVE_UDP}
|
|
SVCID_ACCT_UDP: TGUID = '{000A02BE-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ACCT_UDP}
|
|
SVCID_ACCTLOGIN_UDP: TGUID = '{000A02BF-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ACCTLOGIN_UDP}
|
|
SVCID_ACCTPRINTER_UDP: TGUID = '{000A02C0-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ACCTPRINTER_UDP}
|
|
SVCID_ELCSD_UDP: TGUID = '{000A02C0-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ELCSD_UDP}
|
|
SVCID_ACCTINFO_UDP: TGUID = '{000A02C1-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ACCTINFO_UDP}
|
|
SVCID_ACCTSLAVE2_UDP: TGUID = '{000A02C2-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ACCTSLAVE2_UDP}
|
|
SVCID_ACCTDISK_UDP: TGUID = '{000A02C3-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ACCTDISK_UDP}
|
|
SVCID_KERBEROS_UDP: TGUID = '{000A02EE-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_KERBEROS_UDP}
|
|
SVCID_KERBEROS_MASTER_UDP: TGUID = '{000A02EF-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_KERBEROS_MASTER_UDP}
|
|
SVCID_PASSWD_SERVER_UDP: TGUID = '{000A02F0-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_PASSWD_SERVER_UDP}
|
|
SVCID_USERREG_SERVER_UDP: TGUID = '{000A02F1-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_USERREG_SERVER_UDP}
|
|
SVCID_PHONE_UDP: TGUID = '{000A048F-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_PHONE_UDP}
|
|
SVCID_MAZE_UDP: TGUID = '{000A0682-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_MAZE_UDP}
|
|
SVCID_NFS_UDP: TGUID = '{000A0801-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NFS_UDP}
|
|
SVCID_RSCS0_UDP: TGUID = '{000A2710-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RSCS0_UDP}
|
|
SVCID_RSCS1_UDP: TGUID = '{000A2711-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RSCS1_UDP}
|
|
SVCID_RSCS2_UDP: TGUID = '{000A2712-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RSCS2_UDP}
|
|
SVCID_RSCS3_UDP: TGUID = '{000A2713-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RSCS3_UDP}
|
|
SVCID_RSCS4_UDP: TGUID = '{000A2714-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RSCS4_UDP}
|
|
SVCID_RSCS5_UDP: TGUID = '{000A2715-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RSCS5_UDP}
|
|
SVCID_RSCS6_UDP: TGUID = '{000A2716-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RSCS6_UDP}
|
|
SVCID_RSCS7_UDP: TGUID = '{000A2717-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RSCS7_UDP}
|
|
SVCID_RSCS8_UDP: TGUID = '{000A2718-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RSCS8_UDP}
|
|
SVCID_RSCS9_UDP: TGUID = '{000A2719-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RSCS9_UDP}
|
|
SVCID_RSCSA_UDP: TGUID = '{000A271A-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RSCSA_UDP}
|
|
SVCID_RSCSB_UDP: TGUID = '{000A271B-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_RSCSB_UDP}
|
|
SVCID_QMASTER_UDP: TGUID = '{000A271C-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_QMASTER_UDP}
|
|
|
|
//
|
|
// NetWare services
|
|
// GUID block = 000axxxx-0000-0000-C0000-000000000046
|
|
//
|
|
|
|
SVCID_PRINT_QUEUE: TGUID = '{000B0003-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_PRINT_QUEUE}
|
|
SVCID_FILE_SERVER: TGUID = '{000B0004-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_FILE_SERVER}
|
|
SVCID_JOB_SERVER: TGUID = '{000B0005-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_JOB_SERVER}
|
|
SVCID_GATEWAY: TGUID = '{000B0006-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_GATEWAY}
|
|
SVCID_PRINT_SERVER: TGUID = '{000B0007-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_PRINT_SERVER}
|
|
SVCID_ARCHIVE_QUEUE: TGUID = '{000B0008-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ARCHIVE_QUEUE}
|
|
SVCID_ARCHIVE_SERVER: TGUID = '{000B0009-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ARCHIVE_SERVER}
|
|
SVCID_JOB_QUEUE: TGUID = '{000B000A-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_JOB_QUEUE}
|
|
SVCID_ADMINISTRATION: TGUID = '{000B000B-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ADMINISTRATION}
|
|
SVCID_NAS_SNA_GATEWAY: TGUID = '{000B0021-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NAS_SNA_GATEWAY}
|
|
SVCID_REMOTE_BRIDGE_SERVER: TGUID = '{000B0024-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_REMOTE_BRIDGE_SERVER}
|
|
SVCID_TIME_SYNCHRONIZATION_SERVER: TGUID = '{000B002D-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_TIME_SYNCHRONIZATION_SERVER}
|
|
SVCID_ARCHIVE_SERVER_DYNAMIC_SAP: TGUID = '{000B002E-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ARCHIVE_SERVER_DYNAMIC_SAP}
|
|
SVCID_ADVERTISING_PRINT_SERVER: TGUID = '{000B0047-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_ADVERTISING_PRINT_SERVER}
|
|
SVCID_BTRIEVE_VAP: TGUID = '{000B004B-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_BTRIEVE_VAP}
|
|
SVCID_DIRECTORY_SERVER: TGUID = '{000B0278-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DIRECTORY_SERVER}
|
|
SVCID_NETWARE_386: TGUID = '{000B0107-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_NETWARE_386}
|
|
SVCID_HP_PRINT_SERVER: TGUID = '{000B030C-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_HP_PRINT_SERVER}
|
|
SVCID_SNA_SERVER: TGUID = '{000B0444-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_SNA_SERVER}
|
|
SVCID_SAA_SERVER: TGUID = '{000B0130-0000-0000-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_SAA_SERVER}
|
|
//
|
|
// DNS services by record type
|
|
// GUID block = 00090035-0000-xxxx-C0000-000000000046
|
|
//
|
|
|
|
SVCID_DNS_TYPE_A: TGUID = '{00090035-0000-0001-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_A}
|
|
SVCID_DNS_TYPE_NS: TGUID = '{00090035-0000-0002-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_NS}
|
|
SVCID_DNS_TYPE_MD: TGUID = '{00090035-0000-0003-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_MD}
|
|
SVCID_DNS_TYPE_MF: TGUID = '{00090035-0000-0004-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_MF}
|
|
SVCID_DNS_TYPE_CNAME: TGUID = '{00090035-0000-0005-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_CNAME}
|
|
SVCID_DNS_TYPE_SOA: TGUID = '{00090035-0000-0006-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_SOA}
|
|
SVCID_DNS_TYPE_MB: TGUID = '{00090035-0000-0007-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_MB}
|
|
SVCID_DNS_TYPE_MG: TGUID = '{00090035-0000-0008-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_MG}
|
|
SVCID_DNS_TYPE_MR: TGUID = '{00090035-0000-0009-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_MR}
|
|
SVCID_DNS_TYPE_NULL: TGUID = '{00090035-0000-000A-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_NULL}
|
|
SVCID_DNS_TYPE_WKS: TGUID = '{00090035-0000-000B-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_WKS}
|
|
SVCID_DNS_TYPE_PTR: TGUID = '{00090035-0000-000C-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_PTR}
|
|
SVCID_DNS_TYPE_HINFO: TGUID = '{00090035-0000-000D-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_HINFO}
|
|
SVCID_DNS_TYPE_MINFO: TGUID = '{00090035-0000-000E-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_MINFO}
|
|
SVCID_DNS_TYPE_MX: TGUID = '{00090035-0000-000F-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_MX}
|
|
SVCID_DNS_TYPE_TEXT: TGUID = '{00090035-0000-0010-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_TEXT}
|
|
SVCID_DNS_TYPE_RP: TGUID = '{00090035-0000-0011-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_RP}
|
|
SVCID_DNS_TYPE_AFSDB: TGUID = '{00090035-0000-0012-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_AFSDB}
|
|
SVCID_DNS_TYPE_X25: TGUID = '{00090035-0000-0013-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_X25}
|
|
SVCID_DNS_TYPE_ISDN: TGUID = '{00090035-0000-0014-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_ISDN}
|
|
SVCID_DNS_TYPE_RT: TGUID = '{00090035-0000-0015-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_RT}
|
|
SVCID_DNS_TYPE_NSAP: TGUID = '{00090035-0000-0016-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_NSAP}
|
|
SVCID_DNS_TYPE_NSAPPTR: TGUID = '{00090035-0000-0017-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_NSAPPTR}
|
|
SVCID_DNS_TYPE_SIG: TGUID = '{00090035-0000-0018-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_SIG}
|
|
SVCID_DNS_TYPE_KEY: TGUID = '{00090035-0000-0019-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_KEY}
|
|
SVCID_DNS_TYPE_PX: TGUID = '{00090035-0000-001A-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_PX}
|
|
SVCID_DNS_TYPE_GPOS: TGUID = '{00090035-0000-001B-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_GPOS}
|
|
SVCID_DNS_TYPE_AAAA: TGUID = '{00090035-0000-001C-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_AAAA}
|
|
SVCID_DNS_TYPE_LOC: TGUID = '{00090035-0000-001D-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_LOC}
|
|
SVCID_DNS_TYPE_NXT: TGUID = '{00090035-0000-001E-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_NXT}
|
|
SVCID_DNS_TYPE_SRV: TGUID = '{00090035-0000-0021-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_SRV}
|
|
SVCID_DNS_TYPE_ATMA: TGUID = '{00090035-0000-0022-C000-000000000046}';
|
|
{$EXTERNALSYM SVCID_DNS_TYPE_ATMA}
|
|
|
|
implementation
|
|
|
|
function SVCID_TCP_RR(Port, RR: Word): TGUID;
|
|
begin
|
|
Result.D1 := ($0009 shl 16) or Port;
|
|
Result.D2 := $0;
|
|
Result.D3 := RR;
|
|
Result.D4[0] := $C0;
|
|
Result.D4[1] := $00;
|
|
Result.D4[2] := $00;
|
|
Result.D4[3] := $00;
|
|
Result.D4[4] := $00;
|
|
Result.D4[5] := $00;
|
|
Result.D4[6] := $00;
|
|
Result.D4[7] := $46;
|
|
end;
|
|
|
|
function SVCID_TCP(Port: Word): TGUID;
|
|
begin
|
|
Result := SVCID_TCP_RR(Port, 0)
|
|
end;
|
|
|
|
function SVCID_DNS(RecordType: Word): TGUID;
|
|
begin
|
|
Result := SVCID_TCP_RR(53, RecordType);
|
|
end;
|
|
|
|
function IS_SVCID_DNS(const Guid: TGUID): Boolean;
|
|
begin
|
|
Result := (Guid.D1 = $00090035) and (Guid.D2 = $0) and
|
|
(Guid.D4[0] = $C0) and (Guid.D4[1] = $00) and (Guid.D4[2] = $00) and
|
|
(Guid.D4[3] = $00) and (Guid.D4[4] = $00) and (Guid.D4[5] = $00) and
|
|
(Guid.D4[6] = $00) and (Guid.D4[7] = $46);
|
|
end;
|
|
|
|
function IS_SVCID_TCP(const Guid: TGUID): Boolean;
|
|
begin
|
|
Result :=
|
|
((Guid.D1 and DWORD($FFFF0000)) = $00090000) and (Guid.D2 = $0) and
|
|
(Guid.D4[0] = $C0) and (Guid.D4[1] = $00) and (Guid.D4[2] = $00) and
|
|
(Guid.D4[3] = $00) and (Guid.D4[4] = $00) and (Guid.D4[5] = $00) and
|
|
(Guid.D4[6] = $00) and (Guid.D4[7] = $46);
|
|
end;
|
|
|
|
function PORT_FROM_SVCID_TCP(const Guid: TGUID): Word;
|
|
begin
|
|
Result := WORD(Guid.D1 and $FFFF);
|
|
end;
|
|
|
|
function RR_FROM_SVCID(const Guid: TGUID): Word;
|
|
begin
|
|
Result := Guid.D3;
|
|
end;
|
|
|
|
procedure SET_TCP_SVCID_RR(var Guid: TGUID; _Port, _RR: Word);
|
|
begin
|
|
Guid.D1 := ($0009 shl 16) or _Port;
|
|
Guid.D2 := $0;
|
|
Guid.D3 := _RR;
|
|
Guid.D4[0] := $C0;
|
|
Guid.D4[1] := $00;
|
|
Guid.D4[2] := $00;
|
|
Guid.D4[3] := $00;
|
|
Guid.D4[4] := $00;
|
|
Guid.D4[5] := $00;
|
|
Guid.D4[6] := $00;
|
|
Guid.D4[7] := $46;
|
|
end;
|
|
|
|
procedure SET_TCP_SVCID(var Guid: TGUID; Port: Word);
|
|
begin
|
|
SET_TCP_SVCID_RR(Guid, Port, 0);
|
|
end;
|
|
|
|
function SVCID_UDP_RR(Port, RR: Word): TGUID;
|
|
begin
|
|
Result.D1 := ($000A shl 16) or Port;
|
|
Result.D2 := $0;
|
|
Result.D3 := RR;
|
|
Result.D4[0] := $C0;
|
|
Result.D4[1] := $00;
|
|
Result.D4[2] := $00;
|
|
Result.D4[3] := $00;
|
|
Result.D4[4] := $00;
|
|
Result.D4[5] := $00;
|
|
Result.D4[6] := $00;
|
|
Result.D4[7] := $46;
|
|
end;
|
|
|
|
function SVCID_UDP(Port: Word): TGUID;
|
|
begin
|
|
Result := SVCID_UDP_RR(Port, 0);
|
|
end;
|
|
|
|
function IS_SVCID_UDP(const Guid: TGUID): Boolean;
|
|
begin
|
|
Result := (Guid.D1 and DWORD($FFFF0000) = $000A0000) and (Guid.D2 = $0) and
|
|
(Guid.D4[0] = $C0) and (Guid.D4[1] = $00) and (Guid.D4[2] = $00) and
|
|
(Guid.D4[3] = $00) and (Guid.D4[4] = $00) and (Guid.D4[5] = $00) and
|
|
(Guid.D4[6] = $00) and (Guid.D4[7] = $46);
|
|
end;
|
|
|
|
function PORT_FROM_SVCID_UDP(const Guid: TGUID): WORD;
|
|
begin
|
|
Result := WORD(Guid.D1 and $FFFF);
|
|
end;
|
|
|
|
procedure SET_UDP_SVCID_RR(var Guid: TGUID; Port, RR: WORD);
|
|
begin
|
|
Guid.D1 := ($000A shl 16) or Port;
|
|
Guid.D2 := $0;
|
|
Guid.D3 := RR;
|
|
Guid.D4[0] := $C0;
|
|
Guid.D4[1] := $00;
|
|
Guid.D4[2] := $00;
|
|
Guid.D4[3] := $00;
|
|
Guid.D4[4] := $00;
|
|
Guid.D4[5] := $00;
|
|
Guid.D4[6] := $00;
|
|
Guid.D4[7] := $46;
|
|
end;
|
|
|
|
procedure SET_UDP_SVCID(var Guid: TGUID; Port: WORD);
|
|
begin
|
|
SET_UDP_SVCID_RR(Guid, Port, 0);
|
|
end;
|
|
|
|
function SVCID_NETWARE(SapId: WORD): TGUID;
|
|
begin
|
|
Result.D1 := ($000B shl 16) or SapId;
|
|
Result.D2 := $0;
|
|
Result.D3 := $0;
|
|
Result.D4[0] := $C0;
|
|
Result.D4[1] := $00;
|
|
Result.D4[2] := $00;
|
|
Result.D4[3] := $00;
|
|
Result.D4[4] := $00;
|
|
Result.D4[5] := $00;
|
|
Result.D4[6] := $00;
|
|
Result.D4[7] := $46;
|
|
end;
|
|
|
|
function IS_SVCID_NETWARE(const Guid: TGUID): Boolean;
|
|
begin
|
|
Result := (Guid.D1 and DWORD($FFFF0000) = $000B0000) and (Guid.D2 = $0) and
|
|
(Guid.D4[0] = $C0) and (Guid.D4[1] = $00) and (Guid.D4[2] = $00) and
|
|
(Guid.D4[3] = $00) and (Guid.D4[4] = $00) and (Guid.D4[5] = $00) and
|
|
(Guid.D4[6] = $00) and (Guid.D4[7] = $46);
|
|
end;
|
|
|
|
function SAPID_FROM_SVCID_NETWARE(const Guid: TGUID): WORD;
|
|
begin
|
|
Result := WORD(Guid.D1 and $FFFF);
|
|
end;
|
|
|
|
procedure SET_NETWARE_SVCID(var Guid: TGUID; SapId: WORD);
|
|
begin
|
|
Guid.D1 := ($000B shl 16) or SapId;
|
|
Guid.D2 := $0;
|
|
Guid.D3 := $0;
|
|
Guid.D4[0] := $C0;
|
|
Guid.D4[1] := $00;
|
|
Guid.D4[2] := $00;
|
|
Guid.D4[3] := $00;
|
|
Guid.D4[4] := $00;
|
|
Guid.D4[5] := $00;
|
|
Guid.D4[6] := $00;
|
|
Guid.D4[7] := $46;
|
|
end;
|
|
|
|
end.
|