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