jwasvcguid.pas

比较全面的win32api开发包

{******************************************************************************}
{                                                       	               }
{ 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 ([e-mail]).                        }
{                                                                              }
{ 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 home    }
{ page, located at http://delphi-jedi.org or my personal homepage located at   }
{ http://members.chello.nl/m.vanbrakel2                                        }
{								               }
{ 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 WINDEFINES.INC}

interface

uses
{$IFDEF STANDALONE}
  JwaWinTypes;
{$ELSE}
  Windows;
{$ENDIF}

//  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}';