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

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

Delphi控件源码

开发平台：

Delphi

WinSock2.pas：源码内容
  1. //-------------------------------------------------------------
  2. //
  3. //       Borland Delphi Runtime Library
  4. //       <API> interface unit
  5. //
  6. // Portions created by Microsoft are
  7. // Copyright (C) 1995-1999 Microsoft Corporation.
  8. // All Rights Reserved.
  9. //
  10. // The original file is: Winsock2.h from CBuilder5 distribution.
  11. // The original Pascal code is: winsock2.pas, released 04 Mar 2000.
  12. // The initial developer of the Pascal code is Alex Konshin
  13. // (alexk@mtgroup.ru).
  14. //
  15. // Portions created by Alex Konshin are
  16. // Copyright (C) 1998-2000 Alex Konshin
  17. //
  18. // Contributor(s): Alex Konshin
  19. //
  20. //       Obtained through:
  21. //
  22. //       Joint Endeavour of Delphi Innovators (Project JEDI)
  23. //
  24. // You may retrieve the latest version of this file at the Project
  25. // JEDI home page, located at http://delphi-jedi.org
  26. //
  27. // The contents of this file are used with permission, subject to
  28. // the Mozilla Public License Version 1.1 (the "License"); you may
  29. // not use this file except in compliance with the License. You may
  30. // obtain a copy of the License at
  31. // http://www.mozilla.org/MPL/MPL-1.1.html
  32. //
  33. // Software distributed under the License is distributed on an
  34. // "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
  35. // implied. See the License for the specific language governing
  36. // rights and limitations under the License.
  37. //
  38. //-------------------------------------------------------------
  40. { Winsock2.h -- definitions to be used with the WinSock 2 DLL and WinSock 2 applications.
  41.   This header file corresponds to version 2.2.x of the WinSock API specification.
  42.   This file includes parts which are Copyright (c) 1982-1986 Regents
  43.   of the University of California. All rights reserved.
  44.   The Berkeley Software License Agreement specifies the terms and
  45.   conditions for redistribution. }
  47. // converted by Alex Konshin, mailto:alexk@mtgroup.ru
  48. // modified March,4 2000
  50. unit WinSock2;
  52. interface
  54. uses SysUtils, Windows;
  56. {$ALIGN OFF}
  57. {$RANGECHECKS OFF}
  58. {$WRITEABLECONST OFF}
  60. //  Define the current Winsock version. To build an earlier Winsock version
  61. //  application redefine this value prior to including Winsock2.h
  62. const
  63.   WINSOCK_VERSION = $0202;
  64.   WINSOCK2_DLL = 'ws2_32.dll';
  66. type
  67.   u_char = Byte;
  68.   u_short = Word;
  69.   u_int = DWORD;
  70.   u_long = DWORD;
  72.   // The new type to be used in all instances which refer to sockets.
  73.   TSocket = u_int;
  75.   WSAEVENT = THandle;
  76.   PWSAEVENT = ^WSAEVENT;
  77.   LPWSAEVENT = PWSAEVENT;
  78.   {$IFDEF UNICODE}
  79.   PMBChar = PWideChar;
  80.   {$ELSE}
  81.   PMBChar = PChar;
  82.   {$ENDIF}
  84. const
  85.   FD_SETSIZE = 64;
  87. type
  88.   PFDSet = ^TFDSet;
  89.   TFDSet = packed record
  90.     fd_count: u_int;
  91.     fd_array: array[0..FD_SETSIZE - 1] of TSocket;
  92.   end;
  94.   PTimeVal = ^TTimeVal;
  95.   TTimeVal = packed record
  96.     tv_sec: Longint;
  97.     tv_usec: Longint;
  98.   end;
  100. const
  101.   IOCPARM_MASK = $7F;
  102.   IOC_VOID = $20000000;
  103.   IOC_OUT = $40000000;
  104.   IOC_IN = $80000000;
  105.   IOC_INOUT = (IOC_IN or IOC_OUT);
  107.   // get # bytes to read
  108.   FIONREAD = IOC_OUT or (SizeOf(Longint) shl 16) or (Ord('f') shl 8) or 127;
  109.   // set/clear non-blocking i/o
  110.   FIONBIO = IOC_IN or (SizeOf(Longint) shl 16) or (Ord('f') shl 8) or 126;
  111.   // set/clear async i/o
  112.   FIOASYNC = IOC_IN or (SizeOf(Longint) shl 16) or (Ord('f') shl 8) or 125;
  114.   //  Socket I/O Controls
  116.   // set high watermark
  117.   SIOCSHIWAT = IOC_IN or (SizeOf(Longint) shl 16) or (Ord('s') shl 8);
  118.   // get high watermark
  119.   SIOCGHIWAT = IOC_OUT or (SizeOf(Longint) shl 16) or (Ord('s') shl 8) or 1;
  120.   // set low watermark
  121.   SIOCSLOWAT = IOC_IN or (SizeOf(Longint) shl 16) or (Ord('s') shl 8) or 2;
  122.   // get low watermark
  123.   SIOCGLOWAT = IOC_OUT or (SizeOf(Longint) shl 16) or (Ord('s') shl 8) or 3;
  124.   // at oob mark?
  125.   SIOCATMARK = IOC_OUT or (SizeOf(Longint) shl 16) or (Ord('s') shl 8) or 7;
  127.   //  Structures returned by network data base library, taken from the
  128.   //  BSD file netdb.h.  All addresses are supplied in host order, and
  129.   //  returned in network order (suitable for use in system calls).
  130. type
  131.   PHostEnt = ^THostEnt;
  132.   THostEnt = packed record
  133.     h_name: PChar; // official name of host
  134.     h_aliases: ^PChar; // alias list
  135.     h_addrtype: Smallint; // host address type
  136.     h_length: Smallint; // length of address
  137.     case Byte of
  138.       0: (h_addr_list: ^PChar); // list of addresses
  139.       1: (h_addr: ^PChar); // address, for backward compat
  140.   end;
  142.   //  It is assumed here that a network number
  143.   //  fits in 32 bits.
  144.   PNetEnt = ^TNetEnt;
  145.   TNetEnt = packed record
  146.     n_name: PChar; // official name of net
  147.     n_aliases: ^PChar; // alias list
  148.     n_addrtype: Smallint; // net address type
  149.     n_net: u_long; // network #
  150.   end;
  152.   PServEnt = ^TServEnt;
  153.   TServEnt = packed record
  154.     s_name: PChar; // official service name
  155.     s_aliases: ^PChar; // alias list
  156.     s_port: Smallint; // protocol to use
  157.     s_proto: PChar; // port #
  158.   end;
  160.   PProtoEnt = ^TProtoEnt;
  161.   TProtoEnt = packed record
  162.     p_name: PChar; // official protocol name
  163.     p_aliases: ^Pchar; // alias list
  164.     p_proto: Smallint; // protocol #
  165.   end;
  167.   // Constants and structures defined by the internet system,
  168.   // Per RFC 790, September 1981, taken from the BSD file netinet/in.h.
  169. const
  171.   // Protocols
  172.   IPPROTO_IP = 0; // dummy for IP
  173.   IPPROTO_ICMP = 1; // control message protocol
  174.   IPPROTO_IGMP = 2; // group management protocol
  175.   IPPROTO_GGP = 3; // gateway^2 (deprecated)
  176.   IPPROTO_TCP = 6; // TCP
  177.   IPPROTO_PUP = 12; // pup
  178.   IPPROTO_UDP = 17; // UDP - user datagram protocol
  179.   IPPROTO_IDP = 22; // xns idp
  180.   IPPROTO_ND = 77; // UNOFFICIAL net disk proto
  182.   IPPROTO_RAW = 255; // raw IP packet
  183.   IPPROTO_MAX = 256;
  185.   // Port/socket numbers: network standard functions
  186.   IPPORT_ECHO = 7;
  187.   IPPORT_DISCARD = 9;
  188.   IPPORT_SYSTAT = 11;
  189.   IPPORT_DAYTIME = 13;
  190.   IPPORT_NETSTAT = 15;
  191.   IPPORT_FTP = 21;
  192.   IPPORT_TELNET = 23;
  193.   IPPORT_SMTP = 25;
  194.   IPPORT_TIMESERVER = 37;
  195.   IPPORT_NAMESERVER = 42;
  196.   IPPORT_WHOIS = 43;
  197.   IPPORT_MTP = 57;
  199.   // Port/socket numbers: host specific functions
  200.   IPPORT_TFTP = 69;
  201.   IPPORT_RJE = 77;
  202.   IPPORT_FINGER = 79;
  203.   IPPORT_TTYLINK = 87;
  204.   IPPORT_SUPDUP = 95;
  206.   // UNIX TCP sockets
  207.   IPPORT_EXECSERVER = 512;
  208.   IPPORT_LOGINSERVER = 513;
  209.   IPPORT_CMDSERVER = 514;
  210.   IPPORT_EFSSERVER = 520;
  212.   // UNIX UDP sockets
  213.   IPPORT_BIFFUDP = 512;
  214.   IPPORT_WHOSERVER = 513;
  215.   IPPORT_ROUTESERVER = 520;
  217.   // Ports < IPPORT_RESERVED are reserved for  privileged processes (e.g. root).
  218.   IPPORT_RESERVED = 1024;
  220.   // Link numbers
  221.   IMPLINK_IP = 155;
  222.   IMPLINK_LOWEXPER = 156;
  223.   IMPLINK_HIGHEXPER = 158;
  225.   TF_DISCONNECT = $01;
  226.   TF_REUSE_SOCKET = $02;
  227.   TF_WRITE_BEHIND = $04;
  229.   // This is used instead of -1, since the TSocket type is unsigned.
  230.   INVALID_SOCKET = TSocket(not (0));
  231.   SOCKET_ERROR = -1;
  233.   //  The  following  may  be used in place of the address family, socket type, or
  234.   //  protocol  in  a  call  to WSASocket to indicate that the corresponding value
  235.   //  should  be taken from the supplied WSAPROTOCOL_INFO structure instead of the
  236.   //  parameter itself.
  237.   FROM_PROTOCOL_INFO = -1;
  239.   // Types
  240.   SOCK_STREAM = 1; { stream socket }
  241.   SOCK_DGRAM = 2; { datagram socket }
  242.   SOCK_RAW = 3; { raw-protocol interface }
  243.   SOCK_RDM = 4; { reliably-delivered message }
  244.   SOCK_SEQPACKET = 5; { sequenced packet stream }
  246.   // Option flags per-socket.
  247.   SO_DEBUG = $0001; // turn on debugging info recording
  248.   SO_ACCEPTCONN = $0002; // socket has had listen()
  249.   SO_REUSEADDR = $0004; // allow local address reuse
  250.   SO_KEEPALIVE = $0008; // keep connections alive
  251.   SO_DONTROUTE = $0010; // just use interface addresses
  252.   SO_BROADCAST = $0020; // permit sending of broadcast msgs
  253.   SO_USELOOPBACK = $0040; // bypass hardware when possible
  254.   SO_LINGER = $0080; // linger on close if data present
  255.   SO_OOBINLINE = $0100; // leave received OOB data in line
  257.   SO_DONTLINGER = not SO_LINGER;
  258.   SO_EXCLUSIVEADDRUSE = not SO_REUSEADDR; // disallow local address reuse
  260.   // Additional options.
  262.   SO_SNDBUF = $1001; // send buffer size
  263.   SO_RCVBUF = $1002; // receive buffer size
  264.   SO_SNDLOWAT = $1003; // send low-water mark
  265.   SO_RCVLOWAT = $1004; // receive low-water mark
  266.   SO_SNDTIMEO = $1005; // send timeout
  267.   SO_RCVTIMEO = $1006; // receive timeout
  268.   SO_ERROR = $1007; // get error status and clear
  269.   SO_TYPE = $1008; // get socket type
  271.   // Options for connect and disconnect data and options.
  272.   // Used only by non-TCP/IP transports such as DECNet, OSI TP4, etc.
  273.   SO_CONNDATA = $7000;
  274.   SO_CONNOPT = $7001;
  275.   SO_DISCDATA = $7002;
  276.   SO_DISCOPT = $7003;
  277.   SO_CONNDATALEN = $7004;
  278.   SO_CONNOPTLEN = $7005;
  279.   SO_DISCDATALEN = $7006;
  280.   SO_DISCOPTLEN = $7007;
  282.   // Option for opening sockets for synchronous access.
  283.   SO_OPENTYPE = $7008;
  284.   SO_SYNCHRONOUS_ALERT = $10;
  285.   SO_SYNCHRONOUS_NONALERT = $20;
  287.   // Other NT-specific options.
  288.   SO_MAXDG = $7009;
  289.   SO_MAXPATHDG = $700A;
  290.   SO_UPDATE_ACCEPT_CONTEXT = $700B;
  291.   SO_CONNECT_TIME = $700C;
  293.   // TCP options.
  294.   TCP_NODELAY = $0001;
  295.   TCP_BSDURGENT = $7000;
  297.   // WinSock 2 extension -- new options
  298.   SO_GROUP_ID = $2001; // ID of a socket group
  299.   SO_GROUP_PRIORITY = $2002; // the relative priority within a group
  300.   SO_MAX_MSG_SIZE = $2003; // maximum message size
  301.   SO_Protocol_InfoA = $2004; // WSAPROTOCOL_INFOA structure
  302.   SO_Protocol_InfoW = $2005; // WSAPROTOCOL_INFOW structure
  303.   {$IFDEF UNICODE}
  304.   SO_Protocol_Info = SO_Protocol_InfoW;
  305.   {$ELSE}
  306.   SO_Protocol_Info = SO_Protocol_InfoA;
  307.   {$ENDIF}
  308.   PVD_CONFIG = $3001; // configuration info for service provider
  309.   SO_CONDITIONAL_ACCEPT = $3002; // enable true conditional accept:
  310.   // connection is not ack-ed to the
  311.   // other side until conditional
  312.   // function returns CF_ACCEPT
  314. // Address families.
  315.   AF_UNSPEC = 0; // unspecified
  316.   AF_UNIX = 1; // local to host (pipes, portals)
  317.   AF_INET = 2; // internetwork: UDP, TCP, etc.
  318.   AF_IMPLINK = 3; // arpanet imp addresses
  319.   AF_PUP = 4; // pup protocols: e.g. BSP
  320.   AF_CHAOS = 5; // mit CHAOS protocols
  321.   AF_IPX = 6; // IPX and SPX
  322.   AF_NS = AF_IPX; // XEROX NS protocols
  323.   AF_ISO = 7; // ISO protocols
  324.   AF_OSI = AF_ISO; // OSI is ISO
  325.   AF_ECMA = 8; // european computer manufacturers
  326.   AF_DATAKIT = 9; // datakit protocols
  327.   AF_CCITT = 10; // CCITT protocols, X.25 etc
  328.   AF_SNA = 11; // IBM SNA
  329.   AF_DECnet = 12; // DECnet
  330.   AF_DLI = 13; // Direct data link interface
  331.   AF_LAT = 14; // LAT
  332.   AF_HYLINK = 15; // NSC Hyperchannel
  333.   AF_APPLETALK = 16; // AppleTalk
  334.   AF_NETBIOS = 17; // NetBios-style addresses
  335.   AF_VOICEVIEW = 18; // VoiceView
  336.   AF_FIREFOX = 19; // FireFox
  337.   AF_UNKNOWN1 = 20; // Somebody is using this!
  338.   AF_BAN = 21; // Banyan
  339.   AF_ATM = 22; // Native ATM Services
  340.   AF_INET6 = 23; // Internetwork Version 6
  341.   AF_CLUSTER = 24; // Microsoft Wolfpack
  342.   AF_12844 = 25; // IEEE 1284.4 WG AF
  343.   AF_IRDA = 26; // IrDA
  344.   AF_NETDES = 28; // Network Designers OSI & gateway enabled protocols
  346.   AF_MAX = 29;
  348.   // Protocol families, same as address families for now.
  350.   PF_UNSPEC = AF_UNSPEC;
  351.   PF_UNIX = AF_UNIX;
  352.   PF_INET = AF_INET;
  353.   PF_IMPLINK = AF_IMPLINK;
  354.   PF_PUP = AF_PUP;
  355.   PF_CHAOS = AF_CHAOS;
  356.   PF_NS = AF_NS;
  357.   PF_IPX = AF_IPX;
  358.   PF_ISO = AF_ISO;
  359.   PF_OSI = AF_OSI;
  360.   PF_ECMA = AF_ECMA;
  361.   PF_DATAKIT = AF_DATAKIT;
  362.   PF_CCITT = AF_CCITT;
  363.   PF_SNA = AF_SNA;
  364.   PF_DECnet = AF_DECnet;
  365.   PF_DLI = AF_DLI;
  366.   PF_LAT = AF_LAT;
  367.   PF_HYLINK = AF_HYLINK;
  368.   PF_APPLETALK = AF_APPLETALK;
  369.   PF_VOICEVIEW = AF_VOICEVIEW;
  370.   PF_FIREFOX = AF_FIREFOX;
  371.   PF_UNKNOWN1 = AF_UNKNOWN1;
  372.   PF_BAN = AF_BAN;
  373.   PF_ATM = AF_ATM;
  374.   PF_INET6 = AF_INET6;
  376.   PF_MAX = AF_MAX;
  378. type
  380.   SunB = packed record
  381.     s_b1, s_b2, s_b3, s_b4: u_char;
  382.   end;
  384.   SunW = packed record
  385.     s_w1, s_w2: u_short;
  386.   end;
  388.   TInAddr = packed record
  389.     case integer of
  390.       0: (S_un_b: SunB);
  391.       1: (S_un_w: SunW);
  392.       2: (S_addr: u_long);
  393.   end;
  394.   PInAddr = ^TInAddr;
  396.   // Structure used by kernel to store most addresses.
  398.   TSockAddrIn = packed record
  399.     case Integer of
  400.       0: (sin_family: u_short;
  401.         sin_port: u_short;
  402.         sin_addr: TInAddr;
  403.         sin_zero: array[0..7] of Char);
  404.       1: (sa_family: u_short;
  405.         sa_data: array[0..13] of Char)
  406.   end;
  407.   PSockAddrIn = ^TSockAddrIn;
  408.   TSockAddr = TSockAddrIn;
  409.   PSockAddr = ^TSockAddr;
  410.   SOCKADDR = TSockAddr;
  411.   SOCKADDR_IN = TSockAddrIn;
  413.   // Structure used by kernel to pass protocol information in raw sockets.
  414.   PSockProto = ^TSockProto;
  415.   TSockProto = packed record
  416.     sp_family: u_short;
  417.     sp_protocol: u_short;
  418.   end;
  420.   // Structure used for manipulating linger option.
  421.   PLinger = ^TLinger;
  422.   TLinger = packed record
  423.     l_onoff: u_short;
  424.     l_linger: u_short;
  425.   end;
  427. const
  428.   INADDR_ANY = $00000000;
  429.   INADDR_LOOPBACK = $7F000001;
  430.   INADDR_BROADCAST = $FFFFFFFF;
  431.   INADDR_NONE = $FFFFFFFF;
  433.   ADDR_ANY = INADDR_ANY;
  435.   SOL_SOCKET = $FFFF; // options for socket level
  437.   MSG_OOB = $1; // process out-of-band data
  438.   MSG_PEEK = $2; // peek at incoming message
  439.   MSG_DONTROUTE = $4; // send without using routing tables
  441.   MSG_PARTIAL = $8000; // partial send or recv for message xport
  443.   // WinSock 2 extension -- new flags for WSASend(), WSASendTo(), WSARecv() and WSARecvFrom()
  444.   MSG_INTERRUPT = $10; // send/recv in the interrupt context
  445.   MSG_MAXIOVLEN = 16;
  447.   // Define constant based on rfc883, used by gethostbyxxxx() calls.
  449.   MAXGETHOSTSTRUCT = 1024;
  451.   // Maximum queue length specifiable by listen.
  452.   SOMAXCONN = $7FFFFFFF;
  454.   // WinSock 2 extension -- bit values and indices for FD_XXX network events
  455.   FD_READ_BIT = 0;
  456.   FD_WRITE_BIT = 1;
  457.   FD_OOB_BIT = 2;
  458.   FD_ACCEPT_BIT = 3;
  459.   FD_CONNECT_BIT = 4;
  460.   FD_CLOSE_BIT = 5;
  461.   FD_QOS_BIT = 6;
  462.   FD_GROUP_QOS_BIT = 7;
  464.   FD_MAX_EVENTS = 8;
  466.   FD_READ = (1 shl FD_READ_BIT);
  467.   FD_WRITE = (1 shl FD_WRITE_BIT);
  468.   FD_OOB = (1 shl FD_OOB_BIT);
  469.   FD_ACCEPT = (1 shl FD_ACCEPT_BIT);
  470.   FD_CONNECT = (1 shl FD_CONNECT_BIT);
  471.   FD_CLOSE = (1 shl FD_CLOSE_BIT);
  472.   FD_QOS = (1 shl FD_QOS_BIT);
  473.   FD_GROUP_QOS = (1 shl FD_GROUP_QOS_BIT);
  475.   FD_ALL_EVENTS = (1 shl FD_MAX_EVENTS) - 1;
  477.   // All Windows Sockets error constants are biased by WSABASEERR from the "normal"
  479.   WSABASEERR = 10000;
  481.   // Windows Sockets definitions of regular Microsoft C error constants
  483.   WSAEINTR = WSABASEERR + 4;
  484.   WSAEBADF = WSABASEERR + 9;
  485.   WSAEACCES = WSABASEERR + 13;
  486.   WSAEFAULT = WSABASEERR + 14;
  487.   WSAEINVAL = WSABASEERR + 22;
  488.   WSAEMFILE = WSABASEERR + 24;
  490.   // Windows Sockets definitions of regular Berkeley error constants
  492.   WSAEWOULDBLOCK = WSABASEERR + 35;
  493.   WSAEINPROGRESS = WSABASEERR + 36;
  494.   WSAEALREADY = WSABASEERR + 37;
  495.   WSAENOTSOCK = WSABASEERR + 38;
  496.   WSAEDESTADDRREQ = WSABASEERR + 39;
  497.   WSAEMSGSIZE = WSABASEERR + 40;
  498.   WSAEPROTOTYPE = WSABASEERR + 41;
  499.   WSAENOPROTOOPT = WSABASEERR + 42;
  500.   WSAEPROTONOSUPPORT = WSABASEERR + 43;
  501.   WSAESOCKTNOSUPPORT = WSABASEERR + 44;
  502.   WSAEOPNOTSUPP = WSABASEERR + 45;
  503.   WSAEPFNOSUPPORT = WSABASEERR + 46;
  504.   WSAEAFNOSUPPORT = WSABASEERR + 47;
  505.   WSAEADDRINUSE = WSABASEERR + 48;
  506.   WSAEADDRNOTAVAIL = WSABASEERR + 49;
  507.   WSAENETDOWN = WSABASEERR + 50;
  508.   WSAENETUNREACH = WSABASEERR + 51;
  509.   WSAENETRESET = WSABASEERR + 52;
  510.   WSAECONNABORTED = WSABASEERR + 53;
  511.   WSAECONNRESET = WSABASEERR + 54;
  512.   WSAENOBUFS = WSABASEERR + 55;
  513.   WSAEISCONN = WSABASEERR + 56;
  514.   WSAENOTCONN = WSABASEERR + 57;
  515.   WSAESHUTDOWN = WSABASEERR + 58;
  516.   WSAETOOMANYREFS = WSABASEERR + 59;
  517.   WSAETIMEDOUT = WSABASEERR + 60;
  518.   WSAECONNREFUSED = WSABASEERR + 61;
  519.   WSAELOOP = WSABASEERR + 62;
  520.   WSAENAMETOOLONG = WSABASEERR + 63;
  521.   WSAEHOSTDOWN = WSABASEERR + 64;
  522.   WSAEHOSTUNREACH = WSABASEERR + 65;
  523.   WSAENOTEMPTY = WSABASEERR + 66;
  524.   WSAEPROCLIM = WSABASEERR + 67;
  525.   WSAEUSERS = WSABASEERR + 68;
  526.   WSAEDQUOT = WSABASEERR + 69;
  527.   WSAESTALE = WSABASEERR + 70;
  528.   WSAEREMOTE = WSABASEERR + 71;
  530.   // Extended Windows Sockets error constant definitions
  532.   WSASYSNOTREADY = WSABASEERR + 91;
  533.   WSAVERNOTSUPPORTED = WSABASEERR + 92;
  534.   WSANOTINITIALISED = WSABASEERR + 93;
  535.   WSAEDISCON = WSABASEERR + 101;
  536.   WSAENOMORE = WSABASEERR + 102;
  537.   WSAECANCELLED = WSABASEERR + 103;
  538.   WSAEINVALIDPROCTABLE = WSABASEERR + 104;
  539.   WSAEINVALIDPROVIDER = WSABASEERR + 105;
  540.   WSAEPROVIDERFAILEDINIT = WSABASEERR + 106;
  541.   WSASYSCALLFAILURE = WSABASEERR + 107;
  542.   WSASERVICE_NOT_FOUND = WSABASEERR + 108;
  543.   WSATYPE_NOT_FOUND = WSABASEERR + 109;
  544.   WSA_E_NO_MORE = WSABASEERR + 110;
  545.   WSA_E_CANCELLED = WSABASEERR + 111;
  546.   WSAEREFUSED = WSABASEERR + 112;
  548.   { Error return codes from gethostbyname() and gethostbyaddr()
  549.     (when using the resolver). Note that these errors are
  550.     retrieved via WSAGetLastError() and must therefore follow
  551.     the rules for avoiding clashes with error numbers from
  552.     specific implementations or language run-time systems.
  553.     For this reason the codes are based at WSABASEERR+1001.
  554.     Note also that [WSA]NO_ADDRESS is defined only for
  555.     compatibility purposes. }
  557.   // Authoritative Answer: Host not found
  558.   WSAHOST_NOT_FOUND = WSABASEERR + 1001;
  559.   HOST_NOT_FOUND = WSAHOST_NOT_FOUND;
  561.   // Non-Authoritative: Host not found, or SERVERFAIL
  562.   WSATRY_AGAIN = WSABASEERR + 1002;
  563.   TRY_AGAIN = WSATRY_AGAIN;
  565.   // Non recoverable errors, FORMERR, REFUSED, NOTIMP
  566.   WSANO_RECOVERY = WSABASEERR + 1003;
  567.   NO_RECOVERY = WSANO_RECOVERY;
  569.   // Valid name, no data record of requested type
  570.   WSANO_DATA = WSABASEERR + 1004;
  571.   NO_DATA = WSANO_DATA;
  573.   // no address, look for MX record
  574.   WSANO_ADDRESS = WSANO_DATA;
  575.   NO_ADDRESS = WSANO_ADDRESS;
  577.   // Define QOS related error return codes
  579.   WSA_QOS_RECEIVERS = WSABASEERR + 1005; // at least one Reserve has arrived
  580.   WSA_QOS_SENDERS = WSABASEERR + 1006; // at least one Path has arrived
  581.   WSA_QOS_NO_SENDERS = WSABASEERR + 1007; // there are no senders
  582.   WSA_QOS_NO_RECEIVERS = WSABASEERR + 1008; // there are no receivers
  583.   WSA_QOS_REQUEST_CONFIRMED = WSABASEERR + 1009; // Reserve has been confirmed
  584.   WSA_QOS_ADMISSION_FAILURE = WSABASEERR + 1010;
  585.     // error due to lack of resources
  586.   WSA_QOS_POLICY_FAILURE = WSABASEERR + 1011;
  587.     // rejected for administrative reasons - bad credentials
  588.   WSA_QOS_BAD_STYLE = WSABASEERR + 1012; // unknown or conflicting style
  589.   WSA_QOS_BAD_OBJECT = WSABASEERR + 1013;
  590.     // problem with some part of the filterspec or providerspecific buffer in general
  591.   WSA_QOS_TRAFFIC_CTRL_ERROR = WSABASEERR + 1014;
  592.     // problem with some part of the flowspec
  593.   WSA_QOS_GENERIC_ERROR = WSABASEERR + 1015; // general error
  594.   WSA_QOS_ESERVICETYPE = WSABASEERR + 1016; // invalid service type in flowspec
  595.   WSA_QOS_EFLOWSPEC = WSABASEERR + 1017; // invalid flowspec
  596.   WSA_QOS_EPROVSPECBUF = WSABASEERR + 1018; // invalid provider specific buffer
  597.   WSA_QOS_EFILTERSTYLE = WSABASEERR + 1019; // invalid filter style
  598.   WSA_QOS_EFILTERTYPE = WSABASEERR + 1020; // invalid filter type
  599.   WSA_QOS_EFILTERCOUNT = WSABASEERR + 1021; // incorrect number of filters
  600.   WSA_QOS_EOBJLENGTH = WSABASEERR + 1022; // invalid object length
  601.   WSA_QOS_EFLOWCOUNT = WSABASEERR + 1023; // incorrect number of flows
  602.   WSA_QOS_EUNKOWNPSOBJ = WSABASEERR + 1024;
  603.     // unknown object in provider specific buffer
  604.   WSA_QOS_EPOLICYOBJ = WSABASEERR + 1025;
  605.     // invalid policy object in provider specific buffer
  606.   WSA_QOS_EFLOWDESC = WSABASEERR + 1026; // invalid flow descriptor in the list
  607.   WSA_QOS_EPSFLOWSPEC = WSABASEERR + 1027;
  608.     // inconsistent flow spec in provider specific buffer
  609.   WSA_QOS_EPSFILTERSPEC = WSABASEERR + 1028;
  610.     // invalid filter spec in provider specific buffer
  611.   WSA_QOS_ESDMODEOBJ = WSABASEERR + 1029;
  612.     // invalid shape discard mode object in provider specific buffer
  613.   WSA_QOS_ESHAPERATEOBJ = WSABASEERR + 1030;
  614.     // invalid shaping rate object in provider specific buffer
  615.   WSA_QOS_RESERVED_PETYPE = WSABASEERR + 1031;
  616.     // reserved policy element in provider specific buffer
  618.   { WinSock 2 extension -- new error codes and type definition }
  619.   WSA_IO_PENDING = ERROR_IO_PENDING;
  620.   WSA_IO_INCOMPLETE = ERROR_IO_INCOMPLETE;
  621.   WSA_INVALID_HANDLE = ERROR_INVALID_HANDLE;
  622.   WSA_INVALID_PARAMETER = ERROR_INVALID_PARAMETER;
  623.   WSA_NOT_ENOUGH_MEMORY = ERROR_NOT_ENOUGH_MEMORY;
  624.   WSA_OPERATION_ABORTED = ERROR_OPERATION_ABORTED;
  625.   WSA_INVALID_EVENT = WSAEVENT(nil);
  626.   WSA_MAXIMUM_WAIT_EVENTS = MAXIMUM_WAIT_OBJECTS;
  627.   WSA_WAIT_FAILED = $FFFFFFFF;
  628.   WSA_WAIT_EVENT_0 = WAIT_OBJECT_0;
  629.   WSA_WAIT_IO_COMPLETION = WAIT_IO_COMPLETION;
  630.   WSA_WAIT_TIMEOUT = WAIT_TIMEOUT;
  631.   WSA_INFINITE = INFINITE;
  633.   { Windows Sockets errors redefined as regular Berkeley error constants.
  634.     These are commented out in Windows NT to avoid conflicts with errno.h.
  635.     Use the WSA constants instead. }
  637.   EWOULDBLOCK = WSAEWOULDBLOCK;
  638.   EINPROGRESS = WSAEINPROGRESS;
  639.   EALREADY = WSAEALREADY;
  640.   ENOTSOCK = WSAENOTSOCK;
  641.   EDESTADDRREQ = WSAEDESTADDRREQ;
  642.   EMSGSIZE = WSAEMSGSIZE;
  643.   EPROTOTYPE = WSAEPROTOTYPE;
  644.   ENOPROTOOPT = WSAENOPROTOOPT;
  645.   EPROTONOSUPPORT = WSAEPROTONOSUPPORT;
  646.   ESOCKTNOSUPPORT = WSAESOCKTNOSUPPORT;
  647.   EOPNOTSUPP = WSAEOPNOTSUPP;
  648.   EPFNOSUPPORT = WSAEPFNOSUPPORT;
  649.   EAFNOSUPPORT = WSAEAFNOSUPPORT;
  650.   EADDRINUSE = WSAEADDRINUSE;
  651.   EADDRNOTAVAIL = WSAEADDRNOTAVAIL;
  652.   ENETDOWN = WSAENETDOWN;
  653.   ENETUNREACH = WSAENETUNREACH;
  654.   ENETRESET = WSAENETRESET;
  655.   ECONNABORTED = WSAECONNABORTED;
  656.   ECONNRESET = WSAECONNRESET;
  657.   ENOBUFS = WSAENOBUFS;
  658.   EISCONN = WSAEISCONN;
  659.   ENOTCONN = WSAENOTCONN;
  660.   ESHUTDOWN = WSAESHUTDOWN;
  661.   ETOOMANYREFS = WSAETOOMANYREFS;
  662.   ETIMEDOUT = WSAETIMEDOUT;
  663.   ECONNREFUSED = WSAECONNREFUSED;
  664.   ELOOP = WSAELOOP;
  665.   ENAMETOOLONG = WSAENAMETOOLONG;
  666.   EHOSTDOWN = WSAEHOSTDOWN;
  667.   EHOSTUNREACH = WSAEHOSTUNREACH;
  668.   ENOTEMPTY = WSAENOTEMPTY;
  669.   EPROCLIM = WSAEPROCLIM;
  670.   EUSERS = WSAEUSERS;
  671.   EDQUOT = WSAEDQUOT;
  672.   ESTALE = WSAESTALE;
  673.   EREMOTE = WSAEREMOTE;
  675.   WSADESCRIPTION_LEN = 256;
  676.   WSASYS_STATUS_LEN = 128;
  678. type
  679.   PWSAData = ^TWSAData;
  680.   TWSAData = packed record
  681.     wVersion: Word;
  682.     wHighVersion: Word;
  683.     szDescription: array[0..WSADESCRIPTION_LEN] of Char;
  684.     szSystemStatus: array[0..WSASYS_STATUS_LEN] of Char;
  685.     iMaxSockets: Word;
  686.     iMaxUdpDg: Word;
  687.     lpVendorInfo: PChar;
  688.   end;
  690.   { WSAOVERLAPPED = Record
  691.       Internal: LongInt;
  692.       InternalHigh: LongInt;
  693.       Offset: LongInt;
  694.       OffsetHigh: LongInt;
  695.       hEvent: WSAEVENT;
  696.     end;}
  697.   WSAOVERLAPPED = TOverlapped;
  698.   TWSAOverlapped = WSAOverlapped;
  699.   PWSAOverlapped = ^WSAOverlapped;
  700.   LPWSAOVERLAPPED = PWSAOverlapped;
  702.   { WinSock 2 extension -- WSABUF and QOS struct, include qos.h }
  703.   { to pull in FLOWSPEC and related definitions }
  705.   WSABUF = packed record
  706.     len: U_LONG; { the length of the buffer }
  707.     buf: PChar; { the pointer to the buffer }
  708.   end {WSABUF};
  709.   PWSABUF = ^WSABUF;
  710.   LPWSABUF = PWSABUF;
  712.   TServiceType = LongInt;
  714.   TFlowSpec = packed record
  715.     TokenRate, // In Bytes/sec
  716.     TokenBucketSize, // In Bytes
  717.     PeakBandwidth, // In Bytes/sec
  718.     Latency, // In microseconds
  719.     DelayVariation: LongInt; // In microseconds
  720.     ServiceType: TServiceType;
  721.     MaxSduSize, MinimumPolicedSize: LongInt; // In Bytes
  722.   end;
  723.   PFlowSpec = ^TFLOWSPEC;
  725.   QOS = packed record
  726.     SendingFlowspec: TFlowSpec; { the flow spec for data sending }
  727.     ReceivingFlowspec: TFlowSpec; { the flow spec for data receiving }
  728.     ProviderSpecific: WSABUF; { additional provider specific stuff }
  729.   end;
  730.   TQualityOfService = QOS;
  731.   PQOS = ^QOS;
  732.   LPQOS = PQOS;
  734. const
  735.   SERVICETYPE_NOTRAFFIC = $00000000; // No data in this direction
  736.   SERVICETYPE_BESTEFFORT = $00000001; // Best Effort
  737.   SERVICETYPE_CONTROLLEDLOAD = $00000002; // Controlled Load
  738.   SERVICETYPE_GUARANTEED = $00000003; // Guaranteed
  739.   SERVICETYPE_NETWORK_UNAVAILABLE = $00000004; // Used to notify change to user
  740.   SERVICETYPE_GENERAL_INFORMATION = $00000005;
  741.     // corresponds to "General Parameters" defined by IntServ
  742.   SERVICETYPE_NOCHANGE = $00000006;
  743.     // used to indicate that the flow spec contains no change from any previous one
  744.   // to turn on immediate traffic control, OR this flag with the ServiceType field in teh FLOWSPEC
  745.   SERVICE_IMMEDIATE_TRAFFIC_CONTROL = $80000000;
  747.   //  WinSock 2 extension -- manifest constants for return values of the condition function
  748.   CF_ACCEPT = $0000;
  749.   CF_REJECT = $0001;
  750.   CF_DEFER = $0002;
  752.   //  WinSock 2 extension -- manifest constants for shutdown()
  753.   SD_RECEIVE = $00;
  754.   SD_SEND = $01;
  755.   SD_BOTH = $02;
  757.   //  WinSock 2 extension -- data type and manifest constants for socket groups
  758.   SG_UNCONSTRAINED_GROUP = $01;
  759.   SG_CONSTRAINED_GROUP = $02;
  761. type
  762.   GROUP = DWORD;
  764.   //  WinSock 2 extension -- data type for WSAEnumNetworkEvents()
  765.   TWSANetworkEvents = record
  766.     lNetworkEvents: LongInt;
  767.     iErrorCode: array[0..FD_MAX_EVENTS - 1] of Integer;
  768.   end;
  769.   PWSANetworkEvents = ^TWSANetworkEvents;
  770.   LPWSANetworkEvents = PWSANetworkEvents;
  772.   //  WinSock 2 extension -- WSAPROTOCOL_INFO structure
  774.   {$IFNDEF ver130}
  775.   TGUID = packed record
  776.     D1: LongInt;
  777.     D2: Word;
  778.     D3: Word;
  779.     D4: array[0..7] of Byte;
  780.   end;
  781.   PGUID = ^TGUID;
  782.   {$ENDIF}
  783.   LPGUID = PGUID;
  785.   //  WinSock 2 extension -- WSAPROTOCOL_INFO manifest constants
  786. const
  787.   MAX_PROTOCOL_CHAIN = 7;
  788.   BASE_PROTOCOL = 1;
  789.   LAYERED_PROTOCOL = 0;
  790.   WSAPROTOCOL_LEN = 255;
  792. type
  793.   TWSAProtocolChain = record
  794.     ChainLen: Integer; // the length of the chain,
  795.     // length = 0 means layered protocol,
  796.     // length = 1 means base protocol,
  797.     // length > 1 means protocol chain
  798.     ChainEntries: array[0..MAX_PROTOCOL_CHAIN - 1] of LongInt;
  799.       // a list of dwCatalogEntryIds
  800.   end;
  802. type
  803.   TWSAProtocol_InfoA = record
  804.     dwServiceFlags1: LongInt;
  805.     dwServiceFlags2: LongInt;
  806.     dwServiceFlags3: LongInt;
  807.     dwServiceFlags4: LongInt;
  808.     dwProviderFlags: LongInt;
  809.     ProviderId: TGUID;
  810.     dwCatalogEntryId: LongInt;
  811.     ProtocolChain: TWSAProtocolChain;
  812.     iVersion: Integer;
  813.     iAddressFamily: Integer;
  814.     iMaxSockAddr: Integer;
  815.     iMinSockAddr: Integer;
  816.     iSocketType: Integer;
  817.     iProtocol: Integer;
  818.     iProtocolMaxOffset: Integer;
  819.     iNetworkByteOrder: Integer;
  820.     iSecurityScheme: Integer;
  821.     dwMessageSize: LongInt;
  822.     dwProviderReserved: LongInt;
  823.     szProtocol: array[0..WSAPROTOCOL_LEN + 1 - 1] of Char;
  824.   end {TWSAProtocol_InfoA};
  825.   PWSAProtocol_InfoA = ^TWSAProtocol_InfoA;
  826.   LPWSAProtocol_InfoA = PWSAProtocol_InfoA;
  828.   TWSAProtocol_InfoW = record
  829.     dwServiceFlags1: LongInt;
  830.     dwServiceFlags2: LongInt;
  831.     dwServiceFlags3: LongInt;
  832.     dwServiceFlags4: LongInt;
  833.     dwProviderFlags: LongInt;
  834.     ProviderId: TGUID;
  835.     dwCatalogEntryId: LongInt;
  836.     ProtocolChain: TWSAProtocolChain;
  837.     iVersion: Integer;
  838.     iAddressFamily: Integer;
  839.     iMaxSockAddr: Integer;
  840.     iMinSockAddr: Integer;
  841.     iSocketType: Integer;
  842.     iProtocol: Integer;
  843.     iProtocolMaxOffset: Integer;
  844.     iNetworkByteOrder: Integer;
  845.     iSecurityScheme: Integer;
  846.     dwMessageSize: LongInt;
  847.     dwProviderReserved: LongInt;
  848.     szProtocol: array[0..WSAPROTOCOL_LEN + 1 - 1] of WideChar;
  849.   end {TWSAProtocol_InfoW};
  850.   PWSAProtocol_InfoW = ^TWSAProtocol_InfoW;
  851.   LPWSAProtocol_InfoW = PWSAProtocol_InfoW;
  853.   {$IFDEF UNICODE}
  854.   WSAProtocol_Info = TWSAProtocol_InfoW;
  855.   TWSAProtocol_Info = TWSAProtocol_InfoW;
  856.   PWSAProtocol_Info = PWSAProtocol_InfoW;
  857.   LPWSAProtocol_Info = PWSAProtocol_InfoW;
  858.   {$ELSE}
  859.   WSAProtocol_Info = TWSAProtocol_InfoA;
  860.   TWSAProtocol_Info = TWSAProtocol_InfoA;
  861.   PWSAProtocol_Info = PWSAProtocol_InfoA;
  862.   LPWSAProtocol_Info = PWSAProtocol_InfoA;
  863.   {$ENDIF}
  865. const
  866.   //  Flag bit definitions for dwProviderFlags
  867.   PFL_MULTIPLE_PROTO_ENTRIES = $00000001;
  868.   PFL_RECOMMENDED_PROTO_ENTRY = $00000002;
  869.   PFL_HIDDEN = $00000004;
  870.   PFL_MATCHES_PROTOCOL_ZERO = $00000008;
  872.   //  Flag bit definitions for dwServiceFlags1
  873.   XP1_CONNECTIONLESS = $00000001;
  874.   XP1_GUARANTEED_DELIVERY = $00000002;
  875.   XP1_GUARANTEED_ORDER = $00000004;
  876.   XP1_MESSAGE_ORIENTED = $00000008;
  877.   XP1_PSEUDO_STREAM = $00000010;
  878.   XP1_GRACEFUL_CLOSE = $00000020;
  879.   XP1_EXPEDITED_DATA = $00000040;
  880.   XP1_CONNECT_DATA = $00000080;
  881.   XP1_DISCONNECT_DATA = $00000100;
  882.   XP1_SUPPORT_BROADCAST = $00000200;
  883.   XP1_SUPPORT_MULTIPOINT = $00000400;
  884.   XP1_MULTIPOINT_CONTROL_PLANE = $00000800;
  885.   XP1_MULTIPOINT_DATA_PLANE = $00001000;
  886.   XP1_QOS_SUPPORTED = $00002000;
  887.   XP1_INTERRUPT = $00004000;
  888.   XP1_UNI_SEND = $00008000;
  889.   XP1_UNI_RECV = $00010000;
  890.   XP1_IFS_HANDLES = $00020000;
  891.   XP1_PARTIAL_MESSAGE = $00040000;
  893.   BIGENDIAN = $0000;
  894.   LITTLEENDIAN = $0001;
  896.   SECURITY_PROTOCOL_NONE = $0000;
  898.   //  WinSock 2 extension -- manifest constants for WSAJoinLeaf()
  899.   JL_SENDER_ONLY = $01;
  900.   JL_RECEIVER_ONLY = $02;
  901.   JL_BOTH = $04;
  903.   //  WinSock 2 extension -- manifest constants for WSASocket()
  904.   WSA_FLAG_OVERLAPPED = $01;
  905.   WSA_FLAG_MULTIPOINT_C_ROOT = $02;
  906.   WSA_FLAG_MULTIPOINT_C_LEAF = $04;
  907.   WSA_FLAG_MULTIPOINT_D_ROOT = $08;
  908.   WSA_FLAG_MULTIPOINT_D_LEAF = $10;
  910.   //  WinSock 2 extension -- manifest constants for WSAIoctl()
  911.   IOC_UNIX = $00000000;
  912.   IOC_WS2 = $08000000;
  913.   IOC_PROTOCOL = $10000000;
  914.   IOC_VENDOR = $18000000;
  916.   SIO_ASSOCIATE_HANDLE = 1 or IOC_WS2 or IOC_IN;
  917.   SIO_ENABLE_CIRCULAR_QUEUEING = 2 or IOC_WS2;
  918.   SIO_FIND_ROUTE = 3 or IOC_WS2 or IOC_OUT;
  919.   SIO_FLUSH = 4 or IOC_WS2;
  920.   SIO_GET_BROADCAST_ADDRESS = 5 or IOC_WS2 or IOC_OUT;
  921.   SIO_GET_EXTENSION_FUNCTION_POINTER = 6 or IOC_WS2 or IOC_INOUT;
  922.   SIO_GET_QOS = 7 or IOC_WS2 or IOC_INOUT;
  923.   SIO_GET_GROUP_QOS = 8 or IOC_WS2 or IOC_INOUT;
  924.   SIO_MULTIPOINT_LOOPBACK = 9 or IOC_WS2 or IOC_IN;
  925.   SIO_MULTICAST_SCOPE = 10 or IOC_WS2 or IOC_IN;
  926.   SIO_SET_QOS = 11 or IOC_WS2 or IOC_IN;
  927.   SIO_SET_GROUP_QOS = 12 or IOC_WS2 or IOC_IN;
  928.   SIO_TRANSLATE_HANDLE = 13 or IOC_WS2 or IOC_INOUT;
  929.   SIO_ROUTING_INTERFACE_QUERY = 20 or IOC_WS2 or IOC_INOUT;
  930.   SIO_ROUTING_INTERFACE_CHANGE = 21 or IOC_WS2 or IOC_IN;
  931.   SIO_ADDRESS_LIST_QUERY = 22 or IOC_WS2 or IOC_OUT;
  932.     // see below SOCKET_ADDRESS_LIST
  933.   SIO_ADDRESS_LIST_CHANGE = 23 or IOC_WS2;
  934.   SIO_QUERY_TARGET_PNP_HANDLE = 24 or IOC_WS2 or IOC_OUT;
  936.   //  WinSock 2 extension -- manifest constants for SIO_TRANSLATE_HANDLE ioctl
  937.   TH_NETDEV = $00000001;
  938.   TH_TAPI = $00000002;
  940. type
  942.   //  Manifest constants and type definitions related to name resolution and
  943.   //  registration (RNR) API
  944.   TBLOB = packed record
  945.     cbSize: U_LONG;
  946.     pBlobData: PBYTE;
  947.   end;
  948.   PBLOB = ^TBLOB;
  950.   //  Service Install Flags
  952. const
  953.   SERVICE_MULTIPLE = $00000001;
  955.   // & Name Spaces
  956.   NS_ALL = 0;
  958.   NS_SAP = 1;
  959.   NS_NDS = 2;
  960.   NS_PEER_BROWSE = 3;
  962.   NS_TCPIP_LOCAL = 10;
  963.   NS_TCPIP_HOSTS = 11;
  964.   NS_DNS = 12;
  965.   NS_NETBT = 13;
  966.   NS_WINS = 14;
  968.   NS_NBP = 20;
  970.   NS_MS = 30;
  971.   NS_STDA = 31;
  972.   NS_NTDS = 32;
  974.   NS_X500 = 40;
  975.   NS_NIS = 41;
  976.   NS_NISPLUS = 42;
  978.   NS_WRQ = 50;
  980.   NS_NETDES = 60;
  982.   { Resolution flags for WSAGetAddressByName().
  983.     Note these are also used by the 1.1 API GetAddressByName, so leave them around. }
  984.   RES_UNUSED_1 = $00000001;
  985.   RES_FLUSH_CACHE = $00000002;
  986.   RES_SERVICE = $00000004;
  988.   { Well known value names for Service Types }
  989.   SERVICE_TYPE_VALUE_IPXPORTA = 'IpxSocket';
  990.   SERVICE_TYPE_VALUE_IPXPORTW: PWideChar = 'IpxSocket';
  991.   SERVICE_TYPE_VALUE_SAPIDA = 'SapId';
  992.   SERVICE_TYPE_VALUE_SAPIDW: PWideChar = 'SapId';
  994.   SERVICE_TYPE_VALUE_TCPPORTA = 'TcpPort';
  995.   SERVICE_TYPE_VALUE_TCPPORTW: PWideChar = 'TcpPort';
  997.   SERVICE_TYPE_VALUE_UDPPORTA = 'UdpPort';
  998.   SERVICE_TYPE_VALUE_UDPPORTW: PWideChar = 'UdpPort';
  1000.   SERVICE_TYPE_VALUE_OBJECTIDA = 'ObjectId';
  1001.   SERVICE_TYPE_VALUE_OBJECTIDW: PWideChar = 'ObjectId';
  1003.   {$IFDEF UNICODE}
  1004.   SERVICE_TYPE_VALUE_SAPID = SERVICE_TYPE_VALUE_SAPIDW;
  1005.   SERVICE_TYPE_VALUE_TCPPORT = SERVICE_TYPE_VALUE_TCPPORTW;
  1006.   SERVICE_TYPE_VALUE_UDPPORT = SERVICE_TYPE_VALUE_UDPPORTW;
  1007.   SERVICE_TYPE_VALUE_OBJECTID = SERVICE_TYPE_VALUE_OBJECTIDW;
  1008.   {$ELSE}
  1009.   SERVICE_TYPE_VALUE_SAPID = SERVICE_TYPE_VALUE_SAPIDA;
  1010.   SERVICE_TYPE_VALUE_TCPPORT = SERVICE_TYPE_VALUE_TCPPORTA;
  1011.   SERVICE_TYPE_VALUE_UDPPORT = SERVICE_TYPE_VALUE_UDPPORTA;
  1012.   SERVICE_TYPE_VALUE_OBJECTID = SERVICE_TYPE_VALUE_OBJECTIDA;
  1013.   {$ENDIF}
  1015.   // SockAddr Information
  1016. type
  1017.   SOCKET_ADDRESS = packed record
  1018.     lpSockaddr: PSockAddr;
  1019.     iSockaddrLength: Integer;
  1020.   end;
  1021.   PSOCKET_ADDRESS = ^SOCKET_ADDRESS;
  1023.   // CSAddr Information
  1024.   CSADDR_INFO = packed record
  1025.     LocalAddr, RemoteAddr: SOCKET_ADDRESS;
  1026.     iSocketType, iProtocol: LongInt;
  1027.   end;
  1028.   PCSADDR_INFO = ^CSADDR_INFO;
  1029.   LPCSADDR_INFO = ^CSADDR_INFO;
  1031.   // Address list returned via WSAIoctl( SIO_ADDRESS_LIST_QUERY )
  1032.   SOCKET_ADDRESS_LIST = packed record
  1033.     iAddressCount: Integer;
  1034.     Address: array[0..0] of SOCKET_ADDRESS;
  1035.   end;
  1036.   LPSOCKET_ADDRESS_LIST = ^SOCKET_ADDRESS_LIST;
  1038.   // Address Family/Protocol Tuples
  1039.   AFProtocols = record
  1040.     iAddressFamily: Integer;
  1041.     iProtocol: Integer;
  1042.   end;
  1043.   TAFProtocols = AFProtocols;
  1044.   PAFProtocols = ^TAFProtocols;
  1046.   //  Client Query API Typedefs
  1048.   // The comparators
  1049.   TWSAEComparator = (COMP_EQUAL {= 0}, COMP_NOTLESS);
  1051.   TWSAVersion = record
  1052.     dwVersion: DWORD;
  1053.     ecHow: TWSAEComparator;
  1054.   end;
  1055.   PWSAVersion = ^TWSAVersion;
  1057.   TWSAQuerySetA = packed record
  1058.     dwSize: DWORD;
  1059.     lpszServiceInstanceName: PChar;
  1060.     lpServiceClassId: PGUID;
  1061.     lpVersion: PWSAVERSION;
  1062.     lpszComment: PChar;
  1063.     dwNameSpace: DWORD;
  1064.     lpNSProviderId: PGUID;
  1065.     lpszContext: PChar;
  1066.     dwNumberOfProtocols: DWORD;
  1067.     lpafpProtocols: PAFProtocols;
  1068.     lpszQueryString: PChar;
  1069.     dwNumberOfCsAddrs: DWORD;
  1070.     lpcsaBuffer: PCSADDR_INFO;
  1071.     dwOutputFlags: DWORD;
  1072.     lpBlob: PBLOB;
  1073.   end;
  1074.   PWSAQuerySetA = ^TWSAQuerySetA;
  1075.   LPWSAQuerySetA = PWSAQuerySetA;
  1077.   TWSAQuerySetW = packed record
  1078.     dwSize: DWORD;
  1079.     lpszServiceInstanceName: PWideChar;
  1080.     lpServiceClassId: PGUID;
  1081.     lpVersion: PWSAVERSION;
  1082.     lpszComment: PWideChar;
  1083.     dwNameSpace: DWORD;
  1084.     lpNSProviderId: PGUID;
  1085.     lpszContext: PWideChar;
  1086.     dwNumberOfProtocols: DWORD;
  1087.     lpafpProtocols: PAFProtocols;
  1088.     lpszQueryString: PWideChar;
  1089.     dwNumberOfCsAddrs: DWORD;
  1090.     lpcsaBuffer: PCSADDR_INFO;
  1091.     dwOutputFlags: DWORD;
  1092.     lpBlob: PBLOB;
  1093.   end;
  1094.   PWSAQuerySetW = ^TWSAQuerySetW;
  1095.   LPWSAQuerySetW = PWSAQuerySetW;
  1097.   {$IFDEF UNICODE}
  1098.   TWSAQuerySet = TWSAQuerySetA;
  1099.   PWSAQuerySet = PWSAQuerySetW;
  1100.   LPWSAQuerySet = PWSAQuerySetW;
  1101.   {$ELSE}
  1102.   TWSAQuerySet = TWSAQuerySetA;
  1103.   PWSAQuerySet = PWSAQuerySetA;
  1104.   LPWSAQuerySet = PWSAQuerySetA;
  1105.   {$ENDIF}
  1107. const
  1108.   LUP_DEEP = $0001;
  1109.   LUP_CONTAINERS = $0002;
  1110.   LUP_NOCONTAINERS = $0004;
  1111.   LUP_NEAREST = $0008;
  1112.   LUP_RETURN_NAME = $0010;
  1113.   LUP_RETURN_TYPE = $0020;
  1114.   LUP_RETURN_VERSION = $0040;
  1115.   LUP_RETURN_COMMENT = $0080;
  1116.   LUP_RETURN_ADDR = $0100;
  1117.   LUP_RETURN_BLOB = $0200;
  1118.   LUP_RETURN_ALIASES = $0400;
  1119.   LUP_RETURN_QUERY_STRING = $0800;
  1120.   LUP_RETURN_ALL = $0FF0;
  1121.   LUP_RES_SERVICE = $8000;
  1123.   LUP_FLUSHCACHE = $1000;
  1124.   LUP_FLUSHPREVIOUS = $2000;
  1126.   // Return flags
  1127.   RESULT_IS_ALIAS = $0001;
  1129. type
  1130.   // Service Address Registration and Deregistration Data Types.
  1131.   TWSAeSetServiceOp = (RNRSERVICE_REGISTER {=0}, RNRSERVICE_DEREGISTER,
  1132.     RNRSERVICE_DELETE);
  1134.   { Service Installation/Removal Data Types. }
  1135.   TWSANSClassInfoA = packed record
  1136.     lpszName: PChar;
  1137.     dwNameSpace: DWORD;
  1138.     dwValueType: DWORD;
  1139.     dwValueSize: DWORD;
  1140.     lpValue: Pointer;
  1141.   end;
  1142.   PWSANSClassInfoA = ^TWSANSClassInfoA;
  1144.   TWSANSClassInfoW = packed record
  1145.     lpszName: PWideChar;
  1146.     dwNameSpace: DWORD;
  1147.     dwValueType: DWORD;
  1148.     dwValueSize: DWORD;
  1149.     lpValue: Pointer;
  1150.   end {TWSANSClassInfoW};
  1151.   PWSANSClassInfoW = ^TWSANSClassInfoW;
  1153.   {$IFDEF UNICODE}
  1154.   WSANSClassInfo = TWSANSClassInfoW;
  1155.   TWSANSClassInfo = TWSANSClassInfoW;
  1156.   PWSANSClassInfo = PWSANSClassInfoW;
  1157.   LPWSANSClassInfo = PWSANSClassInfoW;
  1158.   {$ELSE}
  1159.   WSANSClassInfo = TWSANSClassInfoA;
  1160.   TWSANSClassInfo = TWSANSClassInfoA;
  1161.   PWSANSClassInfo = PWSANSClassInfoA;
  1162.   LPWSANSClassInfo = PWSANSClassInfoA;
  1163.   {$ENDIF // UNICODE}
  1165.   TWSAServiceClassInfoA = packed record
  1166.     lpServiceClassId: PGUID;
  1167.     lpszServiceClassName: PChar;
  1168.     dwCount: DWORD;
  1169.     lpClassInfos: PWSANSClassInfoA;
  1170.   end;
  1171.   PWSAServiceClassInfoA = ^TWSAServiceClassInfoA;
  1172.   LPWSAServiceClassInfoA = PWSAServiceClassInfoA;
  1174.   TWSAServiceClassInfoW = packed record
  1175.     lpServiceClassId: PGUID;
  1176.     lpszServiceClassName: PWideChar;
  1177.     dwCount: DWORD;
  1178.     lpClassInfos: PWSANSClassInfoW;
  1179.   end;
  1180.   PWSAServiceClassInfoW = ^TWSAServiceClassInfoW;
  1181.   LPWSAServiceClassInfoW = PWSAServiceClassInfoW;
  1183.   {$IFDEF UNICODE}
  1184.   WSAServiceClassInfo = TWSAServiceClassInfoW;
  1185.   TWSAServiceClassInfo = TWSAServiceClassInfoW;
  1186.   PWSAServiceClassInfo = PWSAServiceClassInfoW;
  1187.   LPWSAServiceClassInfo = PWSAServiceClassInfoW;
  1188.   {$ELSE}
  1189.   WSAServiceClassInfo = TWSAServiceClassInfoA;
  1190.   TWSAServiceClassInfo = TWSAServiceClassInfoA;
  1191.   PWSAServiceClassInfo = PWSAServiceClassInfoA;
  1192.   LPWSAServiceClassInfo = PWSAServiceClassInfoA;
  1193.   {$ENDIF}
  1195.   TWSANameSpace_InfoA = packed record
  1196.     NSProviderId: TGUID;
  1197.     dwNameSpace: DWORD;
  1198.     fActive: DWORD {Bool};
  1199.     dwVersion: DWORD;
  1200.     lpszIdentifier: PChar;
  1201.   end;
  1202.   PWSANameSpace_InfoA = ^TWSANameSpace_InfoA;
  1203.   LPWSANameSpace_InfoA = PWSANameSpace_InfoA;
  1205.   TWSANameSpace_InfoW = packed record
  1206.     NSProviderId: TGUID;
  1207.     dwNameSpace: DWORD;
  1208.     fActive: DWORD {Bool};
  1209.     dwVersion: DWORD;
  1210.     lpszIdentifier: PWideChar;
  1211.   end {TWSANameSpace_InfoW};
  1212.   PWSANameSpace_InfoW = ^TWSANameSpace_InfoW;
  1213.   LPWSANameSpace_InfoW = PWSANameSpace_InfoW;
  1215.   {$IFDEF UNICODE}
  1216.   WSANameSpace_Info = TWSANameSpace_InfoW;
  1217.   TWSANameSpace_Info = TWSANameSpace_InfoW;
  1218.   PWSANameSpace_Info = PWSANameSpace_InfoW;
  1219.   LPWSANameSpace_Info = PWSANameSpace_InfoW;
  1220.   {$ELSE}
  1221.   WSANameSpace_Info = TWSANameSpace_InfoA;
  1222.   TWSANameSpace_Info = TWSANameSpace_InfoA;
  1223.   PWSANameSpace_Info = PWSANameSpace_InfoA;
  1224.   LPWSANameSpace_Info = PWSANameSpace_InfoA;
  1225.   {$ENDIF}
  1227.   { WinSock 2 extensions -- data types for the condition function in }
  1228.   { WSAAccept() and overlapped I/O completion routine. }
  1229. type
  1230.   LPCONDITIONPROC = function(lpCallerId: LPWSABUF; lpCallerData: LPWSABUF;
  1231.     lpSQOS, lpGQOS: LPQOS; lpCalleeId, lpCalleeData: LPWSABUF;
  1232.     g: GROUP; dwCallbackData: DWORD): Integer; stdcall;
  1233.   LPWSAOVERLAPPED_COMPLETION_ROUTINE = procedure(const dwError, cbTransferred:
  1234.     DWORD; const lpOverlapped: LPWSAOVERLAPPED; const dwFlags: DWORD); stdcall;
  1236. function accept(const s: TSocket; var addr: TSockAddr; var addrlen: Integer):
  1237.   TSocket; stdcall;
  1238. function bind(const s: TSocket; const addr: PSockAddr; const namelen: Integer):
  1239.   Integer; stdcall;
  1240. function closesocket(const s: TSocket): Integer; stdcall;
  1241. function connect(const s: TSocket; const name: PSockAddr; namelen: Integer):
  1242.   Integer; stdcall;
  1243. function ioctlsocket(const s: TSocket; const cmd: DWORD; var arg: u_long):
  1244.   Integer; stdcall;
  1245. function getpeername(const s: TSocket; var name: TSockAddr; var namelen:
  1246.   Integer): Integer; stdcall;
  1247. function getsockname(const s: TSocket; var name: TSockAddr; var namelen:
  1248.   Integer): Integer; stdcall;
  1249. function getsockopt(const s: TSocket; const level, optname: Integer; optval:
  1250.   PChar; var optlen: Integer): Integer; stdcall;
  1251. function htonl(hostlong: u_long): u_long; stdcall;
  1252. function htons(hostshort: u_short): u_short; stdcall;
  1253. function inet_addr(cp: PChar): u_long; stdcall;
  1254. function inet_ntoa(inaddr: TInAddr): PChar; stdcall;
  1255. function listen(s: TSocket; backlog: Integer): Integer; stdcall;
  1256. function ntohl(netlong: u_long): u_long; stdcall;
  1257. function ntohs(netshort: u_short): u_short; stdcall;
  1258. function recv(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
  1259. function recvfrom(s: TSocket; var Buf; len, flags: Integer; var from: TSockAddr;
  1260.   var fromlen: Integer): Integer; stdcall;
  1261. function select(nfds: Integer; readfds, writefds, exceptfds: PFDSet; timeout:
  1262.   PTimeVal): Integer; stdcall;
  1263. function send(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
  1264. function sendto(s: TSocket; var Buf; len, flags: Integer; var addrto: TSockAddr;
  1265.   tolen: Integer): Integer; stdcall;
  1266. function setsockopt(s: TSocket; level, optname: Integer; optval: PChar; optlen:
  1267.   Integer): Integer; stdcall;
  1268. function shutdown(s: TSocket; how: Integer): Integer; stdcall;
  1269. function socket(const af, struct, protocol: Integer): TSocket; stdcall;
  1270. function gethostbyaddr(addr: Pointer; len, struct: Integer): PHostEnt; stdcall;
  1271. function gethostbyname(name: PChar): PHostEnt; stdcall;
  1272. function gethostname(name: PChar; len: Integer): Integer; stdcall;
  1273. function getservbyport(port: Integer; proto: PChar): PServEnt; stdcall;
  1274. function getservbyname(const name, proto: PChar): PServEnt; stdcall;
  1275. function getprotobynumber(const proto: Integer): PProtoEnt; stdcall;
  1276. function getprotobyname(const name: PChar): PProtoEnt; stdcall;
  1277. function WSAStartup(wVersionRequired: word; var WSData: TWSAData): Integer;
  1278.   stdcall;
  1279. function WSACleanup: Integer; stdcall;
  1280. procedure WSASetLastError(iError: Integer); stdcall;
  1281. function WSAGetLastError: Integer; stdcall;
  1282. function WSAIsBlocking: BOOL; stdcall;
  1283. function WSAUnhookBlockingHook: Integer; stdcall;
  1284. function WSASetBlockingHook(lpBlockFunc: TFarProc): TFarProc; stdcall;
  1285. function WSACancelBlockingCall: Integer; stdcall;
  1286. function WSAAsyncGetServByName(HWindow: HWND; wMsg: u_int; name, proto, buf:
  1287.   PChar; buflen: Integer): THandle; stdcall;
  1288. function WSAAsyncGetServByPort(HWindow: HWND; wMsg, port: u_int; proto, buf:
  1289.   PChar; buflen: Integer): THandle; stdcall;
  1290. function WSAAsyncGetProtoByName(HWindow: HWND; wMsg: u_int; name, buf: PChar;
  1291.   buflen: Integer): THandle; stdcall;
  1292. function WSAAsyncGetProtoByNumber(HWindow: HWND; wMsg: u_int; number: Integer;
  1293.   buf: PChar; buflen: Integer): THandle; stdcall;
  1294. function WSAAsyncGetHostByName(HWindow: HWND; wMsg: u_int; name, buf: PChar;
  1295.   buflen: Integer): THandle; stdcall;
  1296. function WSAAsyncGetHostByAddr(HWindow: HWND; wMsg: u_int; addr: PChar; len,
  1297.   struct: Integer; buf: PChar; buflen: Integer): THandle; stdcall;
  1298. function WSACancelAsyncRequest(hAsyncTaskHandle: THandle): Integer; stdcall;
  1299. function WSAAsyncSelect(s: TSocket; HWindow: HWND; wMsg: u_int; lEvent:
  1300.   Longint): Integer; stdcall;
  1301. function __WSAFDIsSet(s: TSOcket; var FDSet: TFDSet): Bool; stdcall;
  1303. { WinSock 2 API new function prototypes }
  1304. function WSAAccept(s: TSocket; addr: TSockAddr; addrlen: PInteger;
  1305.   lpfnCondition: LPCONDITIONPROC; dwCallbackData: DWORD): TSocket; stdcall;
  1306. function WSACloseEvent(hEvent: WSAEVENT): WordBool; stdcall;
  1307. function WSAConnect(s: TSocket; const name: PSockAddr; namelen: Integer;
  1308.   lpCallerData, lpCalleeData: LPWSABUF; lpSQOS, lpGQOS: LPQOS): Integer; stdcall;
  1309. function WSACreateEvent: WSAEVENT; stdcall;
  1311. function WSADuplicateSocketA(s: TSocket; dwProcessId: DWORD; lpProtocolInfo:
  1312.   LPWSAProtocol_InfoA): Integer; stdcall;
  1313. function WSADuplicateSocketW(s: TSocket; dwProcessId: DWORD; lpProtocolInfo:
  1314.   LPWSAProtocol_InfoW): Integer; stdcall;
  1315. function WSADuplicateSocket(s: TSocket; dwProcessId: DWORD; lpProtocolInfo:
  1316.   LPWSAProtocol_Info): Integer; stdcall;
  1318. function WSAEnumNetworkEvents(const s: TSocket; const hEventObject: WSAEVENT;
  1319.   lpNetworkEvents: LPWSANETWORKEVENTS): Integer; stdcall;
  1320. function WSAEnumProtocolsA(lpiProtocols: PInteger; lpProtocolBuffer:
  1321.   LPWSAProtocol_InfoA; var lpdwBufferLength: DWORD): Integer; stdcall;
  1322. function WSAEnumProtocolsW(lpiProtocols: PInteger; lpProtocolBuffer:
  1323.   LPWSAProtocol_InfoW; var lpdwBufferLength: DWORD): Integer; stdcall;
  1324. function WSAEnumProtocols(lpiProtocols: PInteger; lpProtocolBuffer:
  1325.   LPWSAProtocol_Info; var lpdwBufferLength: DWORD): Integer; stdcall;
  1327. function WSAEventSelect(s: TSocket; hEventObject: WSAEVENT; lNetworkEvents:
  1328.   LongInt): Integer; stdcall;
  1330. function WSAGetOverlappedResult(s: TSocket; lpOverlapped: LPWSAOVERLAPPED;
  1331.   lpcbTransfer: LPDWORD; fWait: BOOL; var lpdwFlags: DWORD): WordBool; stdcall;
  1333. function WSAGetQosByName(s: TSocket; lpQOSName: LPWSABUF; lpQOS: LPQOS):
  1334.   WordBool; stdcall;
  1336. function WSAhtonl(s: TSocket; hostlong: u_long; var lpnetlong: DWORD): Integer;
  1337.   stdcall;
  1338. function WSAhtons(s: TSocket; hostshort: u_short; var lpnetshort: WORD):
  1339.   Integer; stdcall;
  1341. function WSAIoctl(s: TSocket; dwIoControlCode: DWORD; lpvInBuffer: Pointer;
  1342.   cbInBuffer: DWORD; lpvOutBuffer: Pointer; cbOutBuffer: DWORD;
  1343.   lpcbBytesReturned: LPDWORD; lpOverlapped: LPWSAOVERLAPPED;
  1344.     lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
  1346. function WSAJoinLeaf(s: TSocket; name: PSockAddr; namelen: Integer;
  1347.   lpCallerData, lpCalleeData: LPWSABUF;
  1348.   lpSQOS, lpGQOS: LPQOS; dwFlags: DWORD): TSocket; stdcall;
  1350. function WSANtohl(s: TSocket; netlong: u_long; var lphostlong: DWORD): Integer;
  1351.   stdcall;
  1352. function WSANtohs(s: TSocket; netshort: u_short; var lphostshort: WORD):
  1353.   Integer; stdcall;
  1355. function WSARecv(s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD; var
  1356.   lpNumberOfBytesRecvd: DWORD; var lpFlags: DWORD;
  1357.   lpOverlapped: LPWSAOVERLAPPED; lpCompletionRoutine:
  1358.     LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
  1359. function WSARecvDisconnect(s: TSocket; lpInboundDisconnectData: LPWSABUF):
  1360.   Integer; stdcall;
  1361. function WSARecvFrom(s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD; var
  1362.   lpNumberOfBytesRecvd: DWORD; var lpFlags: DWORD;
  1363.   lpFrom: PSockAddr; lpFromlen: PInteger; lpOverlapped: LPWSAOVERLAPPED;
  1364.     lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
  1366. function WSAResetEvent(hEvent: WSAEVENT): WordBool; stdcall;
  1368. function WSASend(s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD; var
  1369.   lpNumberOfBytesSent: DWORD; dwFlags: DWORD;
  1370.   lpOverlapped: LPWSAOVERLAPPED; lpCompletionRoutine:
  1371.     LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
  1372. function WSASendDisconnect(s: TSocket; lpOutboundDisconnectData: LPWSABUF):
  1373.   Integer; stdcall;
  1374. function WSASendTo(s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD; var
  1375.   lpNumberOfBytesSent: DWORD; dwFlags: DWORD;
  1376.   lpTo: PSockAddr; iTolen: Integer; lpOverlapped: LPWSAOVERLAPPED;
  1377.     lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
  1379. function WSASetEvent(hEvent: WSAEVENT): WordBool; stdcall;
  1381. function WSASocketA(af, iType, protocol: Integer; lpProtocolInfo:
  1382.   LPWSAProtocol_InfoA; g: GROUP; dwFlags: DWORD): TSocket; stdcall;
  1383. function WSASocketW(af, iType, protocol: Integer; lpProtocolInfo:
  1384.   LPWSAProtocol_InfoW; g: GROUP; dwFlags: DWORD): TSocket; stdcall;
  1385. function WSASocket(af, iType, protocol: Integer; lpProtocolInfo:
  1386.   LPWSAProtocol_Info; g: GROUP; dwFlags: DWORD): TSocket; stdcall;
  1388. function WSAWaitForMultipleEvents(cEvents: DWORD; lphEvents: PWSAEVENT;
  1389.   fWaitAll: LongBool;
  1390.   dwTimeout: DWORD; fAlertable: LongBool): DWORD; stdcall;
  1392. function WSAAddressToStringA(lpsaAddress: PSockAddr; const dwAddressLength:
  1393.   DWORD; const lpProtocolInfo: LPWSAProtocol_InfoA;
  1394.   const lpszAddressString: PChar; var lpdwAddressStringLength: DWORD): Integer;
  1395.     stdcall;
  1396. function WSAAddressToStringW(lpsaAddress: PSockAddr; const dwAddressLength:
  1397.   DWORD; const lpProtocolInfo: LPWSAProtocol_InfoW;
  1398.   const lpszAddressString: PWideChar; var lpdwAddressStringLength: DWORD):
  1399.     Integer; stdcall;
  1400. function WSAAddressToString(lpsaAddress: PSockAddr; const dwAddressLength:
  1401.   DWORD; const lpProtocolInfo: LPWSAProtocol_Info;
  1402.   const lpszAddressString: PMBChar; var lpdwAddressStringLength: DWORD):
  1403.     Integer; stdcall;
  1405. function WSAStringToAddressA(const AddressString: PChar; const AddressFamily:
  1406.   Integer; const lpProtocolInfo: LPWSAProtocol_InfoA;
  1407.   var lpAddress: TSockAddr; var lpAddressLength: Integer): Integer; stdcall;
  1408. function WSAStringToAddressW(const AddressString: PWideChar; const
  1409.   AddressFamily: Integer; const lpProtocolInfo: LPWSAProtocol_InfoA;
  1410.   var lpAddress: TSockAddr; var lpAddressLength: Integer): Integer; stdcall;
  1411. function WSAStringToAddress(const AddressString: PMBChar; const AddressFamily:
  1412.   Integer; const lpProtocolInfo: LPWSAProtocol_Info;
  1413.   var lpAddress: TSockAddr; var lpAddressLength: Integer): Integer; stdcall;
  1415. { Registration and Name Resolution API functions }
  1416. function WSALookupServiceBeginA(var qsRestrictions: TWSAQuerySetA; const
  1417.   dwControlFlags: DWORD; var hLookup: THANDLE): Integer; stdcall;
  1418. function WSALookupServiceBeginW(var qsRestrictions: TWSAQuerySetW; const
  1419.   dwControlFlags: DWORD; var hLookup: THANDLE): Integer; stdcall;
  1420. function WSALookupServiceBegin(var qsRestrictions: TWSAQuerySet; const
  1421.   dwControlFlags: DWORD; var hLookup: THANDLE): Integer; stdcall;
  1423. function WSALookupServiceNextA(const hLookup: THandle; const dwControlFlags:
  1424.   DWORD; var dwBufferLength: DWORD; lpqsResults: PWSAQuerySetA): Integer; stdcall;
  1425. function WSALookupServiceNextW(const hLookup: THandle; const dwControlFlags:
  1426.   DWORD; var dwBufferLength: DWORD; lpqsResults: PWSAQuerySetW): Integer; stdcall;
  1427. function WSALookupServiceNext(const hLookup: THandle; const dwControlFlags:
  1428.   DWORD; var dwBufferLength: DWORD; lpqsResults: PWSAQuerySet): Integer; stdcall;
  1430. function WSALookupServiceEnd(const hLookup: THandle): Integer; stdcall;
  1432. function WSAInstallServiceClassA(const lpServiceClassInfo:
  1433.   LPWSAServiceClassInfoA): Integer; stdcall;
  1434. function WSAInstallServiceClassW(const lpServiceClassInfo:
  1435.   LPWSAServiceClassInfoW): Integer; stdcall;
  1436. function WSAInstallServiceClass(const lpServiceClassInfo:
  1437.   LPWSAServiceClassInfo): Integer; stdcall;
  1439. function WSARemoveServiceClass(const lpServiceClassId: PGUID): Integer; stdcall;
  1441. function WSAGetServiceClassInfoA(const lpProviderId: PGUID; const
  1442.   lpServiceClassId: PGUID; var lpdwBufSize: DWORD;
  1443.   lpServiceClassInfo: LPWSAServiceClassInfoA): Integer; stdcall;
  1444. function WSAGetServiceClassInfoW(const lpProviderId: PGUID; const
  1445.   lpServiceClassId: PGUID; var lpdwBufSize: DWORD;
  1446.   lpServiceClassInfo: LPWSAServiceClassInfoW): Integer; stdcall;
  1447. function WSAGetServiceClassInfo(const lpProviderId: PGUID; const
  1448.   lpServiceClassId: PGUID; var lpdwBufSize: DWORD;
  1449.   lpServiceClassInfo: LPWSAServiceClassInfo): Integer; stdcall;
  1451. function WSAEnumNameSpaceProvidersA(var lpdwBufferLength: DWORD; const
  1452.   lpnspBuffer: LPWSANameSpace_InfoA): Integer; stdcall;
  1453. function WSAEnumNameSpaceProvidersW(var lpdwBufferLength: DWORD; const
  1454.   lpnspBuffer: LPWSANameSpace_InfoW): Integer; stdcall;
  1455. function WSAEnumNameSpaceProviders(var lpdwBufferLength: DWORD; const
  1456.   lpnspBuffer: LPWSANameSpace_Info): Integer; stdcall;
  1458. function WSAGetServiceClassNameByClassIdA(const lpServiceClassId: PGUID;
  1459.   lpszServiceClassName: PChar;
  1460.   var lpdwBufferLength: DWORD): Integer; stdcall;
  1461. function WSAGetServiceClassNameByClassIdW(const lpServiceClassId: PGUID;
  1462.   lpszServiceClassName: PWideChar;
  1463.   var lpdwBufferLength: DWORD): Integer; stdcall;
  1464. function WSAGetServiceClassNameByClassId(const lpServiceClassId: PGUID;
  1465.   lpszServiceClassName: PMBChar;
  1466.   var lpdwBufferLength: DWORD): Integer; stdcall;
  1468. function WSASetServiceA(const lpqsRegInfo: LPWSAQuerySetA; const essoperation:
  1469.   TWSAeSetServiceOp;
  1470.   const dwControlFlags: DWORD): Integer; stdcall;
  1471. function WSASetServiceW(const lpqsRegInfo: LPWSAQuerySetW; const essoperation:
  1472.   TWSAeSetServiceOp;
  1473.   const dwControlFlags: DWORD): Integer; stdcall;
  1474. function WSASetService(const lpqsRegInfo: LPWSAQuerySet; const essoperation:
  1475.   TWSAeSetServiceOp;
  1476.   const dwControlFlags: DWORD): Integer; stdcall;
  1478. function WSAProviderConfigChange(var lpNotificationHandle: THandle;
  1479.   lpOverlapped: LPWSAOVERLAPPED; lpCompletionRoutine:
  1480.   LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
  1482. { Macros }
  1483. function WSAMakeSyncReply(Buflen, Error: Word): Longint;
  1484. function WSAMakeSelectReply(Event, Error: Word): Longint;
  1485. function WSAGetAsyncBuflen(Param: Longint): Word;
  1486. function WSAGetAsyncError(Param: Longint): Word;
  1487. function WSAGetSelectEvent(Param: Longint): Word;
  1488. function WSAGetSelectError(Param: Longint): Word;
  1490. procedure FD_CLR(Socket: TSocket; var FDSet: TFDSet);
  1491. function FD_ISSET(Socket: TSocket; var FDSet: TFDSet): Boolean;
  1492. procedure FD_SET(Socket: TSocket; var FDSet: TFDSet);
  1493. procedure FD_ZERO(var FDSet: TFDSet);
  1495. {$INCLUDE ws2tcpip.inc}
  1496. {$INCLUDE wsipx.inc}
  1497. {$INCLUDE wsnwlink.inc}
  1498. {$INCLUDE wsnetbs.inc}
  1500. //=============================================================
  1501. implementation
  1502. //=============================================================
  1504. function accept; external WINSOCK2_DLL name 'accept';
  1505. function bind; external WINSOCK2_DLL name 'bind';
  1506. function closesocket; external WINSOCK2_DLL name 'closesocket';
  1507. function connect; external WINSOCK2_DLL name 'connect';
  1508. function ioctlsocket; external WINSOCK2_DLL name 'ioctlsocket';
  1509. function getpeername; external WINSOCK2_DLL name 'getpeername';
  1510. function getsockname; external WINSOCK2_DLL name 'getsockname';
  1511. function getsockopt; external WINSOCK2_DLL name 'getsockopt';
  1512. function htonl; external WINSOCK2_DLL name 'htonl';
  1513. function htons; external WINSOCK2_DLL name 'htons';
  1514. function inet_addr; external WINSOCK2_DLL name 'inet_addr';
  1515. function inet_ntoa; external WINSOCK2_DLL name 'inet_ntoa';
  1516. function listen; external WINSOCK2_DLL name 'listen';
  1517. function ntohl; external WINSOCK2_DLL name 'ntohl';
  1518. function ntohs; external WINSOCK2_DLL name 'ntohs';
  1519. function recv; external WINSOCK2_DLL name 'recv';
  1520. function recvfrom; external WINSOCK2_DLL name 'recvfrom';
  1521. function select; external WINSOCK2_DLL name 'select';
  1522. function send; external WINSOCK2_DLL name 'send';
  1523. function sendto; external WINSOCK2_DLL name 'sendto';
  1524. function setsockopt; external WINSOCK2_DLL name 'setsockopt';
  1525. function shutdown; external WINSOCK2_DLL name 'shutdown';
  1526. function socket; external WINSOCK2_DLL name 'socket';
  1527. function gethostbyaddr; external WINSOCK2_DLL name 'gethostbyaddr';
  1528. function gethostbyname; external WINSOCK2_DLL name 'gethostbyname';
  1529. function gethostname; external WINSOCK2_DLL name 'gethostname';
  1530. function getservbyport; external WINSOCK2_DLL name 'getservbyport';
  1531. function getservbyname; external WINSOCK2_DLL name 'getservbyname';
  1532. function getprotobynumber; external WINSOCK2_DLL name 'getprotobynumber';
  1533. function getprotobyname; external WINSOCK2_DLL name 'getprotobyname';
  1534. function WSAStartup; external WINSOCK2_DLL name 'WSAStartup';
  1535. function WSACleanup; external WINSOCK2_DLL name 'WSACleanup';
  1536. procedure WSASetLastError; external WINSOCK2_DLL name 'WSASetLastError';
  1537. function WSAGetLastError; external WINSOCK2_DLL name 'WSAGetLastError';
  1538. function WSAIsBlocking; external WINSOCK2_DLL name 'WSAIsBlocking';
  1539. function WSAUnhookBlockingHook; external WINSOCK2_DLL name
  1540.   'WSAUnhookBlockingHook';
  1541. function WSASetBlockingHook; external WINSOCK2_DLL name 'WSASetBlockingHook';
  1542. function WSACancelBlockingCall; external WINSOCK2_DLL name
  1543.   'WSACancelBlockingCall';
  1544. function WSAAsyncGetServByName; external WINSOCK2_DLL name
  1545.   'WSAAsyncGetServByName';
  1546. function WSAAsyncGetServByPort; external WINSOCK2_DLL name
  1547.   'WSAAsyncGetServByPort';
  1548. function WSAAsyncGetProtoByName; external WINSOCK2_DLL name
  1549.   'WSAAsyncGetProtoByName';
  1550. function WSAAsyncGetProtoByNumber; external WINSOCK2_DLL name
  1551.   'WSAAsyncGetProtoByNumber';
  1552. function WSAAsyncGetHostByName; external WINSOCK2_DLL name
  1553.   'WSAAsyncGetHostByName';
  1554. function WSAAsyncGetHostByAddr; external WINSOCK2_DLL name
  1555.   'WSAAsyncGetHostByAddr';
  1556. function WSACancelAsyncRequest; external WINSOCK2_DLL name
  1557.   'WSACancelAsyncRequest';
  1558. function WSAAsyncSelect; external WINSOCK2_DLL name 'WSAAsyncSelect';
  1559. function __WSAFDIsSet; external WINSOCK2_DLL name '__WSAFDIsSet';
  1561. { WinSock 2 API new function prototypes }
  1562. function WSAAccept; external WINSOCK2_DLL name 'WSAAccept';
  1563. function WSACloseEvent; external WINSOCK2_DLL name 'WSACloseEvent';
  1564. function WSAConnect; external WINSOCK2_DLL name 'WSAConnect';
  1565. function WSACreateEvent; external WINSOCK2_DLL name 'WSACreateEvent';
  1566. function WSADuplicateSocketA; external WINSOCK2_DLL name 'WSADuplicateSocketA';
  1567. function WSADuplicateSocketW; external WINSOCK2_DLL name 'WSADuplicateSocketW';
  1568. function WSAEnumNetworkEvents; external WINSOCK2_DLL name
  1569.   'WSAEnumNetworkEvents';
  1570. function WSAEnumProtocolsA; external WINSOCK2_DLL name 'WSAEnumProtocolsA';
  1571. function WSAEnumProtocolsW; external WINSOCK2_DLL name 'WSAEnumProtocolsW';
  1572. function WSAEventSelect; external WINSOCK2_DLL name 'WSAEventSelect';
  1573. function WSAGetOverlappedResult; external WINSOCK2_DLL name
  1574.   'WSAGetOverlappedResult';
  1575. function WSAGetQosByName; external WINSOCK2_DLL name 'WSAGetQosByName';
  1576. function WSAhtonl; external WINSOCK2_DLL name 'WSAhtonl';
  1577. function WSAhtons; external WINSOCK2_DLL name 'WSAhtons';
  1578. function WSAIoctl; external WINSOCK2_DLL name 'WSAIoctl';
  1579. function WSAJoinLeaf; external WINSOCK2_DLL name 'WSAJoinLeaf';
  1580. function WSANtohl; external WINSOCK2_DLL name 'WSANtohl';
  1581. function WSANtohs; external WINSOCK2_DLL name 'WSANtohs';
  1582. function WSARecv; external WINSOCK2_DLL name 'WSARecv';
  1583. function WSARecvDisconnect; external WINSOCK2_DLL name 'WSARecvDisconnect';
  1584. function WSARecvFrom; external WINSOCK2_DLL name 'WSARecvFrom';
  1585. function WSAResetEvent; external WINSOCK2_DLL name 'WSAResetEvent';
  1586. function WSASend; external WINSOCK2_DLL name 'WSASend';
  1587. function WSASendDisconnect; external WINSOCK2_DLL name 'WSASendDisconnect';
  1588. function WSASendTo; external WINSOCK2_DLL name 'WSASendTo';
  1589. function WSASetEvent; external WINSOCK2_DLL name 'WSASetEvent';
  1590. function WSASocketA; external WINSOCK2_DLL name 'WSASocketA';
  1591. function WSASocketW; external WINSOCK2_DLL name 'WSASocketW';
  1592. function WSAWaitForMultipleEvents; external WINSOCK2_DLL name
  1593.   'WSAWaitForMultipleEvents';
  1594. function WSAAddressToStringA; external WINSOCK2_DLL name 'WSAAddressToStringA';
  1595. function WSAAddressToStringW; external WINSOCK2_DLL name 'WSAAddressToStringW';
  1596. function WSAStringToAddressA; external WINSOCK2_DLL name 'WSAStringToAddressA';
  1597. function WSAStringToAddressW; external WINSOCK2_DLL name 'WSAStringToAddressW';
  1599. { Registration and Name Resolution API functions }
  1600. function WSALookupServiceBeginA; external WINSOCK2_DLL name
  1601.   'WSALookupServiceBeginA';
  1602. function WSALookupServiceBeginW; external WINSOCK2_DLL name
  1603.   'WSALookupServiceBeginW';
  1604. function WSALookupServiceNextA; external WINSOCK2_DLL name
  1605.   'WSALookupServiceNextA';
  1606. function WSALookupServiceNextW; external WINSOCK2_DLL name
  1607.   'WSALookupServiceNextW';
  1608. function WSALookupServiceEnd; external WINSOCK2_DLL name 'WSALookupServiceEnd';
  1609. function WSAInstallServiceClassA; external WINSOCK2_DLL name
  1610.   'WSAInstallServiceClassA';
  1611. function WSAInstallServiceClassW; external WINSOCK2_DLL name
  1612.   'WSAInstallServiceClassW';
  1613. function WSARemoveServiceClass; external WINSOCK2_DLL name
  1614.   'WSARemoveServiceClass';
  1615. function WSAGetServiceClassInfoA; external WINSOCK2_DLL name
  1616.   'WSAGetServiceClassInfoA';
  1617. function WSAGetServiceClassInfoW; external WINSOCK2_DLL name
  1618.   'WSAGetServiceClassInfoW';
  1619. function WSAEnumNameSpaceProvidersA; external WINSOCK2_DLL name
  1620.   'WSAEnumNameSpaceProvidersA';
  1621. function WSAEnumNameSpaceProvidersW; external WINSOCK2_DLL name
  1622.   'WSAEnumNameSpaceProvidersW';
  1623. function WSAGetServiceClassNameByClassIdA; external WINSOCK2_DLL name
  1624.   'WSAGetServiceClassNameByClassIdA';
  1625. function WSAGetServiceClassNameByClassIdW; external WINSOCK2_DLL name
  1626.   'WSAGetServiceClassNameByClassIdW';
  1627. function WSASetServiceA; external WINSOCK2_DLL name 'WSASetServiceA';
  1628. function WSASetServiceW; external WINSOCK2_DLL name 'WSASetServiceW';
  1630. {$IFDEF UNICODE}
  1631. function WSADuplicateSocket; external WINSOCK2_DLL name 'WSADuplicateSocketW';
  1632. function WSAEnumProtocols; external WINSOCK2_DLL name 'WSAEnumProtocolsW';
  1633. function WSASocket; external WINSOCK2_DLL name 'WSASocketW';
  1634. function WSAAddressToString; external WINSOCK2_DLL name 'WSAAddressToStringW';
  1635. function WSAStringToAddress; external WINSOCK2_DLL name 'WSAStringToAddressW';
  1636. function WSALookupServiceBegin; external WINSOCK2_DLL name
  1637.   'WSALookupServiceBeginW';
  1638. function WSALookupServiceNext; external WINSOCK2_DLL name
  1639.   'WSALookupServiceNextW';
  1640. function WSAInstallServiceClass; external WINSOCK2_DLL name
  1641.   'WSAInstallServiceClassW';
  1642. function WSAGetServiceClassInfo; external WINSOCK2_DLL name
  1643.   'WSAGetServiceClassInfoW';
  1644. function WSAEnumNameSpaceProviders; external WINSOCK2_DLL name
  1645.   'WSAEnumNameSpaceProvidersW';
  1646. function WSAGetServiceClassNameByClassId; external WINSOCK2_DLL name
  1647.   'WSAGetServiceClassNameByClassIdW';
  1648. function WSASetService; external WINSOCK2_DLL name 'WSASetServiceW';
  1649. {$ELSE}
  1650. function WSADuplicateSocket; external WINSOCK2_DLL name 'WSADuplicateSocketA';
  1651. function WSAEnumProtocols; external WINSOCK2_DLL name 'WSAEnumProtocolsA';
  1652. function WSASocket; external WINSOCK2_DLL name 'WSASocketA';
  1653. function WSAAddressToString; external WINSOCK2_DLL name 'WSAAddressToStringA';
  1654. function WSAStringToAddress; external WINSOCK2_DLL name 'WSAStringToAddressA';
  1655. function WSALookupServiceBegin; external WINSOCK2_DLL name
  1656.   'WSALookupServiceBeginA';
  1657. function WSALookupServiceNext; external WINSOCK2_DLL name
  1658.   'WSALookupServiceNextA';
  1659. function WSAInstallServiceClass; external WINSOCK2_DLL name
  1660.   'WSAInstallServiceClassA';
  1661. function WSAGetServiceClassInfo; external WINSOCK2_DLL name
  1662.   'WSAGetServiceClassInfoA';
  1663. function WSAEnumNameSpaceProviders; external WINSOCK2_DLL name
  1664.   'WSAEnumNameSpaceProvidersA';
  1665. function WSAGetServiceClassNameByClassId; external WINSOCK2_DLL name
  1666.   'WSAGetServiceClassNameByClassIdA';
  1667. function WSASetService; external WINSOCK2_DLL name 'WSASetServiceA';
  1668. {$ENDIF}
  1670. function WSAProviderConfigChange; external WINSOCK2_DLL name
  1671.   'WSAProviderConfigChange';
  1673. function WSAMakeSyncReply;
  1674. begin
  1675.   WSAMakeSyncReply := MakeLong(Buflen, Error);
  1676. end;
  1678. function WSAMakeSelectReply;
  1679. begin
  1680.   WSAMakeSelectReply := MakeLong(Event, Error);
  1681. end;
  1683. function WSAGetAsyncBuflen;
  1684. begin
  1685.   WSAGetAsyncBuflen := LOWORD(Param);
  1686. end;
  1688. function WSAGetAsyncError;
  1689. begin
  1690.   WSAGetAsyncError := HIWORD(Param);
  1691. end;
  1693. function WSAGetSelectEvent;
  1694. begin
  1695.   WSAGetSelectEvent := LOWORD(Param);
  1696. end;
  1698. function WSAGetSelectError;
  1699. begin
  1700.   WSAGetSelectError := HIWORD(Param);
  1701. end;
  1703. procedure FD_CLR(Socket: TSocket; var FDSet: TFDSet);
  1704. var
  1705.   i: DWORD;
  1706. begin
  1707.   i := 0;
  1708.   while i < FDSet.fd_count do
  1709.   begin
  1710.     if FDSet.fd_array[i] = Socket then
  1711.     begin
  1712.       while i < FDSet.fd_count - 1 do
  1713.       begin
  1714.         FDSet.fd_array[i] := FDSet.fd_array[i + 1];
  1715.         Inc(i);
  1716.       end;
  1717.       Dec(FDSet.fd_count);
  1718.       Break;
  1719.     end;
  1720.     Inc(i);
  1721.   end;
  1722. end;
  1724. function FD_ISSET(Socket: TSocket; var FDSet: TFDSet): Boolean;
  1725. begin
  1726.   Result := __WSAFDIsSet(Socket, FDSet);
  1727. end;
  1729. procedure FD_SET(Socket: TSocket; var FDSet: TFDSet);
  1730. begin
  1731.   if FDSet.fd_count < FD_SETSIZE then
  1732.   begin
  1733.     FDSet.fd_array[FDSet.fd_count] := Socket;
  1734.     Inc(FDSet.fd_count);
  1735.   end;
  1736. end;
  1738. procedure FD_ZERO(var FDSet: TFDSet);
  1739. begin
  1740.   FDSet.fd_count := 0;
  1741. end;
  1743. //  A macro convenient for setting up NETBIOS SOCKADDRs.
  1745. procedure SET_NETBIOS_SOCKADDR(snb: PSOCKADDR_NB; const SnbType: Word; const
  1746.   Name: PChar; const Port: Char);
  1747. var
  1748.   len: Integer;
  1749. begin
  1750.   if snb <> nil then
  1751.     with snb^ do
  1752.     begin
  1753.       snb_family := AF_NETBIOS;
  1754.       snb_type := SnbType;
  1755.       len := StrLen(Name);
  1756.       if len >= NETBIOS_NAME_LENGTH - 1 then
  1757.         System.Move(Name^, snb_name, NETBIOS_NAME_LENGTH - 1)
  1758.       else
  1759.       begin
  1760.         if len > 0 then System.Move(Name^, snb_name, len);
  1761.         FillChar((PChar(@snb_name) + len)^, NETBIOS_NAME_LENGTH - 1 - len, ' ');
  1762.       end;
  1763.       snb_name[NETBIOS_NAME_LENGTH - 1] := Port;
  1764.     end;
  1765. end;
  1767. end.