Unit Winsock2

Return to Unit Reference

`WINSOCK_VERSION = $0202;`

`WINSOCK_TCP_SERVER_THREAD_NAME = 'TCP Server';`	Thread name for TCP server threads
`WINSOCK_TCP_SERVER_THREAD_PRIORITY = THREAD_PRIORITY_NORMAL;`	Thread priority for TCP server threads

`WINSOCK_TCP_LISTENER_THREAD_NAME = 'TCP Listener';`	Thread name for TCP listener threads
`WINSOCK_TCP_LISTENER_THREAD_PRIORITY = THREAD_PRIORITY_NORMAL;`	Thread priority for TCP listener threads

`WINSOCK_UDP_SERVER_THREAD_NAME = 'UDP Server';`	Thread name for UDP server threads
`WINSOCK_UDP_SERVER_THREAD_PRIORITY = THREAD_PRIORITY_NORMAL;`	Thread priority for UDP server threads

`WINSOCK_UDP_LISTENER_THREAD_NAME = 'UDP Listener';`	Thread name for UDP listener threads
`WINSOCK_UDP_LISTENER_THREAD_PRIORITY = THREAD_PRIORITY_NORMAL;`	Thread priority for UDP listener threads

`FD_SETSIZE = GlobalSock.FD_SETSIZE;`

`IOCPARM_MASK = GlobalSock.IOCPARM_MASK;`
`IOC_VOID = GlobalSock.IOC_VOID;`
`IOC_OUT = GlobalSock.IOC_OUT;`
`IOC_IN = GlobalSock.IOC_IN;`
`IOC_INOUT = GlobalSock.IOC_INOUT;`

`FIONREAD = GlobalSock.FIONREAD;`
`FIONBIO = GlobalSock.FIONBIO;`
`FIOASYNC = GlobalSock.FIOASYNC;`

`SIOCSHIWAT = GlobalSock.SIOCSHIWAT;`
`SIOCGHIWAT = GlobalSock.SIOCGHIWAT;`
`SIOCSLOWAT = GlobalSock.SIOCSLOWAT;`
`SIOCGLOWAT = GlobalSock.SIOCGLOWAT;`
`SIOCATMARK = GlobalSock.SIOCATMARK;`

`IMPLINK_IP = GlobalSock.IMPLINK_IP;`
`IMPLINK_LOWEXPER = GlobalSock.IMPLINK_LOWEXPER;`
`IMPLINK_HIGHEXPER = GlobalSock.IMPLINK_HIGHEXPER;`

`TF_DISCONNECT = GlobalSock.TF_DISCONNECT;`
`TF_REUSE_SOCKET = GlobalSock.TF_REUSE_SOCKET;`
`TF_WRITE_BEHIND = GlobalSock.TF_WRITE_BEHIND;`

`INET_ADDRSTR_ANY = GlobalSock.INET_ADDRSTR_ANY;`
`INET6_ADDRSTR_INIT = GlobalSock.INET6_ADDRSTR_INIT;`

`INET_ADDRSTR_BROADCAST = GlobalSock.INET_ADDRSTR_BROADCAST;`

`INET_ADDRSTRLEN = GlobalSock.INET_ADDRSTRLEN;`
`INET6_ADDRSTRLEN = GlobalSock.INET6_ADDRSTRLEN;`

`IN6ADDR_ANY_INIT:TIn6Addr = (u6_addr16: (0, 0, 0, 0, 0, 0, 0, 0));`
`IN6ADDR_LOOPBACK_INIT:TIn6Addr = (u6_addr8: (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1));`

`INADDR_ANY = GlobalSock.INADDR_ANY;`
`INADDR_LOOPBACK = GlobalSock.INADDR_LOOPBACK;`
`INADDR_BROADCAST = GlobalSock.INADDR_BROADCAST;`
`INADDR_NONE = GlobalSock.INADDR_NONE;`

`IN6ADDR_ANY:TIn6Addr = (u6_addr16: (0, 0, 0, 0, 0, 0, 0, 0));`
`IN6ADDR_LOOPBACK:TIn6Addr = (u6_addr8: (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1));`

Level number for (get/set)sockopt() to apply to socket itself
`SOL_SOCKET = GlobalSock.SOL_SOCKET;`

Maximum queue length specifiable by listen
`SOMAXCONN = $7fffffff;`	SOMAXCONN = GlobalSock.SOMAXCONN; (Redefined for Winsock2)

Return flags
`RESULT_IS_ALIAS = $0001;`

`SERVICE_MULTIPLE = $00000001;`

`BIGENDIAN = $0000;`
`LITTLEENDIAN = $0001;`

`SECURITY_PROTOCOL_NONE = $0000;`

This is used instead of -1, since the TSocket type is unsigned
`INVALID_SOCKET = GlobalSock.INVALID_SOCKET;`
`SOCKET_ERROR = GlobalSock.SOCKET_ERROR;`

Define constant based on rfc883, used by gethostbyxxxx() calls
`MAXGETHOSTSTRUCT = GlobalSock.MAXGETHOSTSTRUCT;`

`WSADESCRIPTION_LEN = GlobalSock.WSADESCRIPTION_LEN;`
`WSASYS_STATUS_LEN = GlobalSock.WSASYS_STATUS_LEN;`
`MAX_PROTOCOL_CHAIN = 7;`
`BASE_PROTOCOL = 1;`
`LAYERED_PROTOCOL = 0;`
`WSAPROTOCOL_LEN = 255;`

IP protocol IPPROTO_*

`IPPROTO_IP = GlobalSock.IPPROTO_IP;`
`IPPROTO_ICMP = GlobalSock.IPPROTO_ICMP;`
`IPPROTO_IGMP = GlobalSock.IPPROTO_IGMP;`
`IPPROTO_GGP = GlobalSock.IPPROTO_GGP;`
`IPPROTO_TCP = GlobalSock.IPPROTO_TCP;`
`IPPROTO_EGP = GlobalSock.IPPROTO_EGP;`
`IPPROTO_PUP = GlobalSock.IPPROTO_PUP;`
`IPPROTO_UDP = GlobalSock.IPPROTO_UDP;`
`IPPROTO_HMP = GlobalSock.IPPROTO_HMP;`
`IPPROTO_IDP = GlobalSock.IPPROTO_IDP;`
`IPPROTO_RDP = GlobalSock.IPPROTO_RDP;`
`IPPROTO_IPV6 = GlobalSock.IPPROTO_IPV6;`
`IPPROTO_ROUTING = GlobalSock.IPPROTO_ROUTING;`
`IPPROTO_FRAGMENT = GlobalSock.IPPROTO_FRAGMENT;`
`IPPROTO_ICMPV6 = GlobalSock.IPPROTO_ICMPV6;`
`IPPROTO_RVD = GlobalSock.IPPROTO_RVD;`
`IPPROTO_ND = GlobalSock.IPPROTO_ND;`
`IPPROTO_RAW = GlobalSock.IPPROTO_RAW;`
`IPPROTO_MAX = GlobalSock.IPPROTO_MAX;`

IP port IPPORT_*

Port/socket numbers: network standard functions
`IPPORT_ANY = GlobalSock.IPPORT_ANY;`
`IPPORT_ECHO = GlobalSock.IPPORT_ECHO;`
`IPPORT_DISCARD = GlobalSock.IPPORT_DISCARD;`
`IPPORT_SYSTAT = GlobalSock.IPPORT_SYSTAT;`
`IPPORT_DAYTIME = GlobalSock.IPPORT_DAYTIME;`
`IPPORT_NETSTAT = GlobalSock.IPPORT_NETSTAT;`
`IPPORT_FTP = GlobalSock.IPPORT_FTP;`
`IPPORT_TELNET = GlobalSock.IPPORT_TELNET;`
`IPPORT_SMTP = GlobalSock.IPPORT_SMTP;`
`IPPORT_TIMESERVER = GlobalSock.IPPORT_TIMESERVER;`
`IPPORT_NAMESERVER = GlobalSock.IPPORT_NAMESERVER;`
`IPPORT_WHOIS = GlobalSock.IPPORT_WHOIS;`
`IPPORT_DNS = GlobalSock.IPPORT_DNS;`
`IPPORT_MTP = GlobalSock.IPPORT_MTP;`
`IPPORT_BOOTPS = GlobalSock.IPPORT_BOOTPS;`
`IPPORT_BOOTPC = GlobalSock.IPPORT_BOOTPC;`

Port/socket numbers: host specific functions
`IPPORT_TFTP = GlobalSock.IPPORT_TFTP;`
`IPPORT_RJE = GlobalSock.IPPORT_RJE;`
`IPPORT_FINGER = GlobalSock.IPPORT_FINGER;`
`IPPORT_TTYLINK = GlobalSock.IPPORT_TTYLINK;`
`IPPORT_SUPDUP = GlobalSock.IPPORT_SUPDUP;`

UNIX TCP sockets
`IPPORT_EXECSERVER = GlobalSock.IPPORT_EXECSERVER;`
`IPPORT_LOGINSERVER = GlobalSock.IPPORT_LOGINSERVER;`
`IPPORT_CMDSERVER = GlobalSock.IPPORT_CMDSERVER;`
`IPPORT_EFSSERVER = GlobalSock.IPPORT_EFSSERVER;`

UNIX UDP sockets
`IPPORT_BIFFUDP = GlobalSock.IPPORT_BIFFUDP;`
`IPPORT_WHOSERVER = GlobalSock.IPPORT_WHOSERVER;`
`IPPORT_ROUTESERVER = GlobalSock.IPPORT_ROUTESERVER;`

Ports < IPPORT_RESERVED are reserved for privileged processes (e.g. root)
`IPPORT_RESERVED = GlobalSock.IPPORT_RESERVED;`

IP option IP_*

Options for use with [gs]etsockopt at the IP level

`IP_OPTIONS = GlobalSock.IP_OPTIONS;`
`IP_MULTICAST_IF = GlobalSock.IP_MULTICAST_IF;`
`IP_MULTICAST_TTL = GlobalSock.IP_MULTICAST_TTL;`
`IP_MULTICAST_LOOP = GlobalSock.IP_MULTICAST_LOOP;`
`IP_ADD_MEMBERSHIP = GlobalSock.IP_ADD_MEMBERSHIP;`
`IP_DROP_MEMBERSHIP = GlobalSock.IP_DROP_MEMBERSHIP;`
`IP_TTL = GlobalSock.IP_TTL;`
`IP_TOS = GlobalSock.IP_TOS;`
`IP_DONTFRAGMENT = GlobalSock.IP_DONTFRAGMENT;`
`IP_HDRINCL = GlobalSock.IP_HDRINCL;`

`IP_DEFAULT_MULTICAST_TTL = GlobalSock.IP_DEFAULT_MULTICAST_TTL;`
`IP_DEFAULT_MULTICAST_LOOP = GlobalSock.IP_DEFAULT_MULTICAST_LOOP;`
`IP_MAX_MEMBERSHIPS = GlobalSock.IP_MAX_MEMBERSHIPS;`

Socket type SOCK_*

`SOCK_UNSPEC = GlobalSock.SOCK_UNSPEC;`
`SOCK_STREAM = GlobalSock.SOCK_STREAM;`
`SOCK_DGRAM = GlobalSock.SOCK_DGRAM;`
`SOCK_RAW = GlobalSock.SOCK_RAW;`
`SOCK_RDM = GlobalSock.SOCK_RDM;`
`SOCK_SEQPACKET = GlobalSock.SOCK_SEQPACKET;`
`SOCK_PACKET = GlobalSock.SOCK_PACKET;`

Socket option SO_*

`SO_DEBUG = GlobalSock.SO_DEBUG;`
`SO_ACCEPTCONN = GlobalSock.SO_ACCEPTCONN;`
`SO_REUSEADDR = GlobalSock.SO_REUSEADDR;`
`SO_KEEPALIVE = GlobalSock.SO_KEEPALIVE;`
`SO_DONTROUTE = GlobalSock.SO_DONTROUTE;`
`SO_BROADCAST = GlobalSock.SO_BROADCAST;`
`SO_USELOOPBACK = GlobalSock.SO_USELOOPBACK;`
`SO_LINGER = GlobalSock.SO_LINGER;`
`SO_OOBINLINE = GlobalSock.SO_OOBINLINE;`

`SO_DONTLINGER = GlobalSock.SO_DONTLINGER;`

Additional options
`SO_SNDBUF = GlobalSock.SO_SNDBUF;`
`SO_RCVBUF = GlobalSock.SO_RCVBUF;`
`SO_SNDLOWAT = GlobalSock.SO_SNDLOWAT;`
`SO_RCVLOWAT = GlobalSock.SO_RCVLOWAT;`
`SO_SNDTIMEO = GlobalSock.SO_SNDTIMEO;`
`SO_RCVTIMEO = GlobalSock.SO_RCVTIMEO;`
`SO_ERROR = GlobalSock.SO_ERROR;`
`SO_TYPE = GlobalSock.SO_TYPE;`
`SO_CONNTIMEO = GlobalSock.SO_CONNTIMEO;`

Options for connect and disconnect data and options. Used only by non-TCP/IP transports such as DECNet, OSI TP4, etc
`SO_CONNDATA = GlobalSock.SO_CONNDATA;`
`SO_CONNOPT = GlobalSock.SO_CONNOPT;`
`SO_DISCDATA = GlobalSock.SO_DISCDATA;`
`SO_DISCOPT = GlobalSock.SO_DISCOPT;`
`SO_CONNDATALEN = GlobalSock.SO_CONNDATALEN;`
`SO_CONNOPTLEN = GlobalSock.SO_CONNOPTLEN;`
`SO_DISCDATALEN = GlobalSock.SO_DISCDATALEN;`
`SO_DISCOPTLEN = GlobalSock.SO_DISCOPTLEN;`

Option for opening sockets for synchronous access
`SO_OPENTYPE = GlobalSock.SO_OPENTYPE;`
`SO_SYNCHRONOUS_ALERT = GlobalSock.SO_SYNCHRONOUS_ALERT;`
`SO_SYNCHRONOUS_NONALERT = GlobalSock.SO_SYNCHRONOUS_NONALERT;`

Other NT-specific options
`SO_MAXDG = GlobalSock.SO_MAXDG;`
`SO_MAXPATHDG = GlobalSock.SO_MAXPATHDG;`
`SO_UPDATE_ACCEPT_CONTEXT = GlobalSock.SO_UPDATE_ACCEPT_CONTEXT;`
`SO_CONNECT_TIME = GlobalSock.SO_CONNECT_TIME;`

TCP option TCP_*

`TCP_NODELAY= GlobalSock.TCP_NODELAY;`
`TCP_MAXSEG = GlobalSock.TCP_MAXSEG;`
`TCP_NOPUSH = GlobalSock.TCP_NOPUSH;`
`TCP_NOOPT = GlobalSock.TCP_NOOPT;`
`TCP_BSDURGENT = GlobalSock.TCP_BSDURGENT;`

`TCP_WSCALE = GlobalSock.TCP_WSCALE;`
`TCP_NOSACK = GlobalSock.TCP_NOSACK;`

UDP option UDP_*

`UDP_NOCHECKSUM = GlobalSock.UDP_NOCHECKSUM;`

Address family AF_*

`AF_UNSPEC = GlobalSock.AF_UNSPEC;`
`AF_UNIX = GlobalSock.AF_UNIX;`
`AF_INET = GlobalSock.AF_INET;`
`AF_IMPLINK = GlobalSock.AF_IMPLINK;`
`AF_PUP = GlobalSock.AF_PUP;`
`AF_CHAOS = GlobalSock.AF_CHAOS;`
`AF_IPX = GlobalSock.AF_IPX;`
`AF_NS = GlobalSock.AF_NS;`
`AF_ISO = GlobalSock.AF_ISO;`
`AF_OSI = GlobalSock.AF_OSI;`
`AF_ECMA = GlobalSock.AF_ECMA;`
`AF_DATAKIT = GlobalSock.AF_DATAKIT;`
`AF_CCITT = GlobalSock.AF_CCITT;`
`AF_SNA = GlobalSock.AF_SNA;`
`AF_DECnet = GlobalSock.AF_DECnet;`
`AF_DLI = GlobalSock.AF_DLI;`
`AF_LAT = GlobalSock.AF_LAT;`
`AF_HYLINK = GlobalSock.AF_HYLINK;`
`AF_APPLETALK = GlobalSock.AF_APPLETALK;`
`AF_NETBIOS = GlobalSock.AF_NETBIOS;`
`AF_VOICEVIEW = GlobalSock.AF_VOICEVIEW;`
`AF_FIREFOX = GlobalSock.AF_FIREFOX;`
`AF_UNKNOWN1 = GlobalSock.AF_UNKNOWN1;`
`AF_BAN = GlobalSock.AF_BAN;`
`AF_ATM = GlobalSock.AF_ATM;`
`AF_INET6 = GlobalSock.AF_INET6;`
`AF_CLUSTER = GlobalSock.AF_CLUSTER;`
`AF_12844 = GlobalSock.AF_12844;`
`AF_IRDA = GlobalSock.AF_IRDA;`
`AF_NETDES = GlobalSock.AF_NETDES;`

`AF_MAX = GlobalSock.AF_MAX;`

Protocol family PF_*

`PF_UNSPEC = GlobalSock.PF_UNSPEC;`
`PF_UNIX = GlobalSock.PF_UNIX;`
`PF_INET = GlobalSock.PF_INET;`
`PF_IMPLINK = GlobalSock.PF_IMPLINK;`
`PF_PUP = GlobalSock.PF_PUP;`
`PF_CHAOS = GlobalSock.PF_CHAOS;`
`PF_NS = GlobalSock.PF_NS;`
`PF_IPX = GlobalSock.PF_IPX;`
`PF_ISO = GlobalSock.PF_ISO;`
`PF_OSI = GlobalSock.PF_OSI;`
`PF_ECMA = GlobalSock.PF_ECMA;`
`PF_DATAKIT = GlobalSock.PF_DATAKIT;`
`PF_CCITT = GlobalSock.PF_CCITT;`
`PF_SNA = GlobalSock.PF_SNA;`
`PF_DECnet = GlobalSock.PF_DECnet;`
`PF_DLI = GlobalSock.PF_DLI;`
`PF_LAT = GlobalSock.PF_LAT;`
`PF_HYLINK = GlobalSock.PF_HYLINK;`
`PF_APPLETALK = GlobalSock.PF_APPLETALK;`
`PF_VOICEVIEW = GlobalSock.PF_VOICEVIEW;`
`PF_FIREFOX = GlobalSock.PF_FIREFOX;`
`PF_UNKNOWN1 = GlobalSock.PF_UNKNOWN1;`
`PF_BAN = GlobalSock.PF_BAN;`
`PF_ATM = GlobalSock.PF_ATM;`
`PF_INET6 = GlobalSock.PF_INET6;`
`PF_CLUSTER = GlobalSock.PF_CLUSTER;`
`PF_12844 = GlobalSock.PF_12844;`
`PF_IRDA = GlobalSock.PF_IRDA;`
`PF_NETDES = GlobalSock.PF_NETDES;`

`PF_MAX = GlobalSock.PF_MAX;`

Message flag MSG_*

`MSG_OOB = GlobalSock.MSG_OOB;`
`MSG_PEEK = GlobalSock.MSG_PEEK;`
`MSG_DONTROUTE = GlobalSock.MSG_DONTROUTE;`

`MSG_INTERRUPT = GlobalSock.MSG_INTERRUPT;`
`MSG_MAXIOVLEN = GlobalSock.MSG_MAXIOVLEN;`

`MSG_PARTIAL = GlobalSock.MSG_PARTIAL;`

FD option FD_*

WinSock 2 extension -- bit values and indices for FD_XXX network events

`FD_READ_BIT = 0;`
`FD_READ = (1 shl FD_READ_BIT);`
`FD_WRITE_BIT = 1;`
`FD_WRITE = (1 shl FD_WRITE_BIT);`
`FD_OOB_BIT = 2;`
`FD_OOB = (1 shl FD_OOB_BIT);`
`FD_ACCEPT_BIT = 3;`
`FD_ACCEPT = (1 shl FD_ACCEPT_BIT);`
`FD_CONNECT_BIT = 4;`
`FD_CONNECT = (1 shl FD_CONNECT_BIT);`
`FD_CLOSE_BIT = 5;`
`FD_CLOSE = (1 shl FD_CLOSE_BIT);`
`FD_QOS_BIT = 6;`
`FD_QOS = (1 shl FD_QOS_BIT);`
`FD_GROUP_QOS_BIT = 7;`
`FD_GROUP_QOS = (1 shl FD_GROUP_QOS_BIT);`
`FD_MAX_EVENTS = 8;`
`FD_ALL_EVENTS = ((1 shl FD_MAX_EVENTS) - 1);`

Socket error WSAE*

All Windows Sockets error constants are biased by WSABASEERR from the "normal"

`WSABASEERR = GlobalSock.WSABASEERR;`

Windows Sockets definitions of regular Microsoft C error constants
`WSAEINTR = GlobalSock.WSAEINTR;`
`WSAEBADF = GlobalSock.WSAEBADF;`
`WSAEACCES = GlobalSock.WSAEACCES;`
`WSAEFAULT = GlobalSock.WSAEFAULT;`
`WSAEINVAL = GlobalSock.WSAEINVAL;`
`WSAEMFILE = GlobalSock.WSAEMFILE;`

Windows Sockets definitions of regular Berkeley error constants
`WSAEWOULDBLOCK = GlobalSock.WSAEWOULDBLOCK;`
`WSAEINPROGRESS = GlobalSock.WSAEINPROGRESS;`
`WSAEALREADY = GlobalSock.WSAEALREADY;`
`WSAENOTSOCK = GlobalSock.WSAENOTSOCK;`
`WSAEDESTADDRREQ = GlobalSock.WSAEDESTADDRREQ;`
`WSAEMSGSIZE = GlobalSock.WSAEMSGSIZE;`
`WSAEPROTOTYPE = GlobalSock.WSAEPROTOTYPE;`
`WSAENOPROTOOPT = GlobalSock.WSAENOPROTOOPT;`
`WSAEPROTONOSUPPORT = GlobalSock.WSAEPROTONOSUPPORT;`
`WSAESOCKTNOSUPPORT = GlobalSock.WSAESOCKTNOSUPPORT;`
`WSAEOPNOTSUPP = GlobalSock.WSAEOPNOTSUPP;`
`WSAEPFNOSUPPORT = GlobalSock.WSAEPFNOSUPPORT;`
`WSAEAFNOSUPPORT = GlobalSock.WSAEAFNOSUPPORT;`
`WSAEADDRINUSE = GlobalSock.WSAEADDRINUSE;`
`WSAEADDRNOTAVAIL = GlobalSock.WSAEADDRNOTAVAIL;`
`WSAENETDOWN = GlobalSock.WSAENETDOWN;`
`WSAENETUNREACH = GlobalSock.WSAENETUNREACH;`
`WSAENETRESET = GlobalSock.WSAENETRESET;`
`WSAECONNABORTED = GlobalSock.WSAECONNABORTED;`
`WSAECONNRESET = GlobalSock.WSAECONNRESET;`
`WSAENOBUFS = GlobalSock.WSAENOBUFS;`
`WSAEISCONN = GlobalSock.WSAEISCONN;`
`WSAENOTCONN = GlobalSock.WSAENOTCONN;`
`WSAESHUTDOWN = GlobalSock.WSAESHUTDOWN;`
`WSAETOOMANYREFS = GlobalSock.WSAETOOMANYREFS;`
`WSAETIMEDOUT = GlobalSock.WSAETIMEDOUT;`
`WSAECONNREFUSED = GlobalSock.WSAECONNREFUSED;`
`WSAELOOP = GlobalSock.WSAELOOP;`
`WSAENAMETOOLONG = GlobalSock.WSAENAMETOOLONG;`
`WSAEHOSTDOWN = GlobalSock.WSAEHOSTDOWN;`
`WSAEHOSTUNREACH = GlobalSock.WSAEHOSTUNREACH;`
`WSAENOTEMPTY = GlobalSock.WSAENOTEMPTY;`
`WSAEPROCLIM = GlobalSock.WSAEPROCLIM;`
`WSAEUSERS = GlobalSock.WSAEUSERS;`
`WSAEDQUOT = GlobalSock.WSAEDQUOT;`
`WSAESTALE = GlobalSock.WSAESTALE;`
`WSAEREMOTE = GlobalSock.WSAEREMOTE;`

`WSAEDISCON = GlobalSock.WSAEDISCON;`

Extended Windows Sockets error constant definitions
`WSASYSNOTREADY = GlobalSock.WSASYSNOTREADY;`
`WSAVERNOTSUPPORTED = GlobalSock.WSAVERNOTSUPPORTED;`
`WSANOTINITIALISED = GlobalSock.WSANOTINITIALISED;`

`WSAENOMORE = GlobalSock.WSAENOMORE;`
`WSAECANCELLED = GlobalSock.WSAECANCELLED;`
`WSAEINVALIDPROCTABLE = GlobalSock.WSAEINVALIDPROCTABLE;`
`WSAEINVALIDPROVIDER = GlobalSock.WSAEINVALIDPROVIDER;`
`WSAEPROVIDERFAILEDINIT = GlobalSock.WSAEPROVIDERFAILEDINIT;`
`WSASYSCALLFAILURE = GlobalSock.WSASYSCALLFAILURE;`
`WSASERVICE_NOT_FOUND = GlobalSock.WSASERVICE_NOT_FOUND;`
`WSATYPE_NOT_FOUND = GlobalSock.WSATYPE_NOT_FOUND;`
`WSA_E_NO_MORE = GlobalSock.WSA_E_NO_MORE;`
`WSA_E_CANCELLED = GlobalSock.WSA_E_CANCELLED;`
`WSAEREFUSED = GlobalSock.WSAEREFUSED;`

Error return codes from gethostbyname() and gethostbyaddr() (when using the resolver). Note that these errors are retrieved via WSAGetLastError() and must therefore follow the rules for avoiding clashes with error numbers from specific implementations or language run-time systems. For this reason the codes are based at WSABASEERR+1001. Note also that [WSA]NO_ADDRESS is defined only for compatibility purposes.

Authoritative Answer: Host not found
`WSAHOST_NOT_FOUND = GlobalSock.WSAHOST_NOT_FOUND;`
`HOST_NOT_FOUND = GlobalSock.HOST_NOT_FOUND;`

Non-Authoritative: Host not found, or SERVERFAIL
`WSATRY_AGAIN = GlobalSock.WSATRY_AGAIN;`
`TRY_AGAIN = GlobalSock.TRY_AGAIN;`

Non recoverable errors, FORMERR, REFUSED, NOTIMP
`WSANO_RECOVERY = GlobalSock.WSANO_RECOVERY;`
`NO_RECOVERY = GlobalSock.NO_RECOVERY;`

Valid name, no data record of requested type
`WSANO_DATA = GlobalSock.WSANO_DATA;`
`NO_DATA = GlobalSock.NO_DATA;`

no address, look for MX record
`WSANO_ADDRESS = GlobalSock.WSANO_ADDRESS;`
`NO_ADDRESS = GlobalSock.NO_ADDRESS;`

WinSock 2 extension -- new error codes and type definition
`WSA_IO_PENDING = GlobalSock.WSA_IO_PENDING;`
`WSA_IO_INCOMPLETE = GlobalSock.WSA_IO_INCOMPLETE;`
`WSA_INVALID_HANDLE = GlobalSock.WSA_INVALID_HANDLE;`
`WSA_INVALID_PARAMETER = GlobalSock.WSA_INVALID_PARAMETER;`
`WSA_NOT_ENOUGH_MEMORY = GlobalSock.WSA_NOT_ENOUGH_MEMORY;`
`WSA_OPERATION_ABORTED = GlobalSock.WSA_OPERATION_ABORTED;`
`WSA_INVALID_EVENT = GlobalSock.WSA_INVALID_EVENT;`
`WSA_MAXIMUM_WAIT_EVENTS = GlobalSock.WSA_MAXIMUM_WAIT_EVENTS;`
`WSA_WAIT_FAILED = GlobalSock.WSA_WAIT_FAILED;`
`WSA_WAIT_EVENT_0 = GlobalSock.WSA_WAIT_EVENT_0;`
`WSA_WAIT_IO_COMPLETION = GlobalSock.WSA_WAIT_IO_COMPLETION;`
`WSA_WAIT_TIMEOUT = GlobalSock.WSA_WAIT_TIMEOUT;`
`WSA_INFINITE = GlobalSock.WSA_INFINITE;`

Windows Sockets errors redefined as regular Berkeley error constants. These are commented out in Windows NT to avoid conflicts with errno.h. Use the WSA constants instead.
`EWOULDBLOCK = GlobalSock.EWOULDBLOCK;`
`EINPROGRESS = GlobalSock.EINPROGRESS;`
`EALREADY = GlobalSock.EALREADY;`
`ENOTSOCK = GlobalSock.ENOTSOCK;`
`EDESTADDRREQ = GlobalSock.EDESTADDRREQ;`
`EMSGSIZE = GlobalSock.EMSGSIZE;`
`EPROTOTYPE = GlobalSock.EPROTOTYPE;`
`ENOPROTOOPT = GlobalSock.ENOPROTOOPT;`
`EPROTONOSUPPORT = GlobalSock.EPROTONOSUPPORT;`
`ESOCKTNOSUPPORT = GlobalSock.ESOCKTNOSUPPORT;`
`EOPNOTSUPP = GlobalSock.EOPNOTSUPP;`
`EPFNOSUPPORT = GlobalSock.EPFNOSUPPORT;`
`EAFNOSUPPORT = GlobalSock.EAFNOSUPPORT;`
`EADDRINUSE = GlobalSock.EADDRINUSE;`
`EADDRNOTAVAIL = GlobalSock.EADDRNOTAVAIL;`
`ENETDOWN = GlobalSock.ENETDOWN;`
`ENETUNREACH = GlobalSock.ENETUNREACH;`
`ENETRESET = GlobalSock.ENETRESET;`
`ECONNABORTED = GlobalSock.ECONNABORTED;`
`ECONNRESET = GlobalSock.ECONNRESET;`
`ENOBUFS = GlobalSock.ENOBUFS;`
`EISCONN = GlobalSock.EISCONN;`
`ENOTCONN = GlobalSock.ENOTCONN;`
`ESHUTDOWN = GlobalSock.ESHUTDOWN;`
`ETOOMANYREFS = GlobalSock.ETOOMANYREFS;`
`ETIMEDOUT = GlobalSock.ETIMEDOUT;`
`ECONNREFUSED = GlobalSock.ECONNREFUSED;`
`ELOOP = GlobalSock.ELOOP;`
`ENAMETOOLONG = GlobalSock.ENAMETOOLONG;`
`EHOSTDOWN = GlobalSock.EHOSTDOWN;`
`EHOSTUNREACH = GlobalSock.EHOSTUNREACH;`
`ENOTEMPTY = GlobalSock.ENOTEMPTY;`
`EPROCLIM = GlobalSock.EPROCLIM;`
`EUSERS = GlobalSock.EUSERS;`
`EDQUOT = GlobalSock.EDQUOT;`
`ESTALE = GlobalSock.ESTALE;`
`EREMOTE = GlobalSock.EREMOTE;`

`ENOTREADY = GlobalSock.ENOTREADY;`
`EVERNOTSUPPORTED = GlobalSock.EVERNOTSUPPORTED;`
`ENOTINITIALISED = GlobalSock.ENOTINITIALISED;`

Error codes from getaddrinfo()
`EAI_AGAIN = GlobalSock.EAI_AGAIN;`
`EAI_BADFLAGS = GlobalSock.EAI_BADFLAGS;`
`EAI_FAIL = GlobalSock.EAI_FAIL;`
`EAI_FAMILY = GlobalSock.EAI_FAMILY;`
`EAI_MEMORY = GlobalSock.EAI_MEMORY;`
`EAI_NODATA = GlobalSock.EAI_NODATA;`
`EAI_NONAME = GlobalSock.EAI_NONAME;`
`EAI_SERVICE = GlobalSock.EAI_SERVICE;`
`EAI_SOCKTYPE = GlobalSock.EAI_SOCKTYPE;`

`EAI_NODATA = GlobalSock.EAI_NODATA;`

Condition function value CF_*

WinSock 2 extension -- manifest constants for return values of the condition function

`CF_ACCEPT = $0000;`
`CF_REJECT = $0001;`
`CF_DEFER = $0002;`

Shutdown option SD_*

WinSock 2 extension -- manifest constants for shutdown()

`SD_RECEIVE = GlobalSock.SD_RECEIVE;`
`SD_SEND = GlobalSock.SD_SEND;`
`SD_BOTH = GlobalSock.SD_BOTH;`

Socket group SG_*

WinSock 2 extension -- data type and manifest constants for socket groups

`SG_UNCONSTRAINED_GROUP = $01;`
`SG_CONSTRAINED_GROUP = $02;`

Provider flag PFL_*

Flag bit definitions for dwProviderFlags */

`PFL_MULTIPLE_PROTO_ENTRIES = $00000001;`
`PFL_RECOMMENDED_PROTO_ENTRY = $00000002;`
`PFL_HIDDEN = $00000004;`
`PFL_MATCHES_PROTOCOL_ZERO = $00000008;`

Service flag XP1_*

Flag bit definitions for dwServiceFlags1 */

`XP1_CONNECTIONLESS = $00000001;`
`XP1_GUARANTEED_DELIVERY = $00000002;`
`XP1_GUARANTEED_ORDER = $00000004;`
`XP1_MESSAGE_ORIENTED = $00000008;`
`XP1_PSEUDO_STREAM = $00000010;`
`XP1_GRACEFUL_CLOSE = $00000020;`
`XP1_EXPEDITED_DATA = $00000040;`
`XP1_CONNECT_DATA = $00000080;`
`XP1_DISCONNECT_DATA = $00000100;`
`XP1_SUPPORT_BROADCAST = $00000200;`
`XP1_SUPPORT_MULTIPOINT = $00000400;`
`XP1_MULTIPOINT_CONTROL_PLANE = $00000800;`
`XP1_MULTIPOINT_DATA_PLANE = $00001000;`
`XP1_QOS_SUPPORTED = $00002000;`
`XP1_INTERRUPT = $00004000;`
`XP1_UNI_SEND = $00008000;`
`XP1_UNI_RECV = $00010000;`
`XP1_IFS_HANDLES = $00020000;`
`XP1_PARTIAL_MESSAGE = $00040000;`

Join leaf option JL_*

WinSock 2 extension -- manifest constants for WSAJoinLeaf()

`JL_SENDER_ONLY = $01;`
`JL_RECEIVER_ONLY = $02;`
`JL_BOTH = $04;`

Socket flag WSA_FLAG_*

WinSock 2 extension -- manifest constants for WSASocket()

`WSA_FLAG_OVERLAPPED = $01;`
`WSA_FLAG_MULTIPOINT_C_ROOT = $02;`
`WSA_FLAG_MULTIPOINT_C_LEAF = $04;`
`WSA_FLAG_MULTIPOINT_D_ROOT = $08;`
`WSA_FLAG_MULTIPOINT_D_LEAF = $10;`

Socket IOC option IOC_*

WinSock 2 extension -- manifest constants for WSAIoctl()

`IOC_UNIX = $00000000;`
`IOC_WS2 = $08000000;`
`IOC_PROTOCOL = $10000000;`
`IOC_VENDOR = $18000000;`

SIO option SIO_*

`SIO_ASSOCIATE_HANDLE = IOC_IN or IOC_WS2 or 1;`
`SIO_ENABLE_CIRCULAR_QUEUEING = IOC_WS2 or 2;`
`SIO_FIND_ROUTE = IOC_OUT or IOC_WS2 or 3;`
`SIO_FLUSH = IOC_WS2 or 4;`
`SIO_GET_BROADCAST_ADDRESS = IOC_OUT or IOC_WS2 or 5;`
`SIO_GET_EXTENSION_FUNCTION_POINTER = IOC_INOUT or IOC_WS2 or 6;`
`SIO_GET_QOS = IOC_INOUT or IOC_WS2 or 7;`
`SIO_GET_GROUP_QOS = IOC_INOUT or IOC_WS2 or 8;`
`SIO_MULTIPOINT_LOOPBACK = IOC_IN or IOC_WS2 or 9;`
`SIO_MULTICAST_SCOPE = IOC_IN or IOC_WS2 or 10;`
`SIO_SET_QOS = IOC_IN or IOC_WS2 or 11;`
`SIO_SET_GROUP_QOS = IOC_IN or IOC_WS2 or 12;`
`SIO_TRANSLATE_HANDLE = IOC_INOUT or IOC_WS2 or 13;`

WinSock 2 extension -- manifest constants for SIO_TRANSLATE_HANDLE ioctl
`TH_NETDEV = $00000001;`
`TH_TAPI = $00000002;`

Name space NS_*

`NS_ALL = (0);`

`NS_SAP = (1);`
`NS_NDS = (2);`
`NS_PEER_BROWSE = (3);`

`NS_TCPIP_LOCAL = (10);`
`NS_TCPIP_HOSTS = (11);`
`NS_DNS = (12);`
`NS_NETBT = (13);`
`NS_WINS = (14);`

`NS_NBP = (20);`

`NS_MS = (30);`
`NS_STDA = (31);`
`NS_NTDS = (32);`

`NS_X500 = (40);`
`NS_NIS = (41);`
`NS_NISPLUS = (42);`

`NS_WRQ = (50);`

Resolution flag RES_*

Resolution flags for WSAGetAddressByName() Note these are also used by the 1.1 API GetAddressByName, so leave them around.

`RES_UNUSED_1 = $00000001;`
`RES_FLUSH_CACHE = $00000002;`
`RES_SERVICE = $00000004;`

Service type value SERVICE_TYPE_*

Well known value names for Service Types

`SERVICE_TYPE_VALUE_IPXPORTA = 'IpxSocket';`	SERVICE_TYPE_VALUE_IPXPORTW : PWideChar = 'IpxSocket';

`SERVICE_TYPE_VALUE_SAPIDA = 'SapId';`	SERVICE_TYPE_VALUE_SAPIDW : PWideChar = 'SapId';

`SERVICE_TYPE_VALUE_TCPPORTA = 'TcpPort';`	SERVICE_TYPE_VALUE_TCPPORTW : PWideChar = 'TcpPort';

`SERVICE_TYPE_VALUE_UDPPORTA = 'UdpPort';`	SERVICE_TYPE_VALUE_UDPPORTW : PWideChar = 'UdpPort';

`SERVICE_TYPE_VALUE_OBJECTIDA = 'ObjectId';`	SERVICE_TYPE_VALUE_OBJECTIDW : PWideChar = 'ObjectId';

`SERVICE_TYPE_VALUE_SAPID = SERVICE_TYPE_VALUE_SAPIDA;`
`SERVICE_TYPE_VALUE_TCPPORT = SERVICE_TYPE_VALUE_TCPPORTA;`
`SERVICE_TYPE_VALUE_UDPPORT = SERVICE_TYPE_VALUE_UDPPORTA;`
`SERVICE_TYPE_VALUE_OBJECTID = SERVICE_TYPE_VALUE_OBJECTIDA;`

WinSock 2 extension -- WSABUF and QOS struct, include qos.h to pull in FLOWSPEC and related definitions
`SERVICETYPE_NOTRAFFIC = $00000000;`	No data in this direction
`SERVICETYPE_BESTEFFORT = $00000001;`	Best Effort
`SERVICETYPE_CONTROLLEDLOAD = $00000002;`	Controlled Load
`SERVICETYPE_GUARANTEED = $00000003;`	Guaranteed
`SERVICETYPE_NETWORK_UNAVAILABLE = $00000004;`	Used to notify change to user
`SERVICETYPE_GENERAL_INFORMATION = $00000005;`	Corresponds to "General Parameters" defined by IntServ
`SERVICETYPE_NOCHANGE = $00000006;`	Used to indicate that the flow spec contains no change from any previous one

`SERVICE_IMMEDIATE_TRAFFIC_CONTROL = $80000000;`	To turn on immediate traffic control, OR this flag with the ServiceType field in teh FLOWSPEC

LUP option LUP_*

`LUP_DEEP = $0001;`
`LUP_CONTAINERS = $0002;`
`LUP_NOCONTAINERS = $0004;`
`LUP_NEAREST = $0008;`
`LUP_RETURN_NAME = $0010;`
`LUP_RETURN_TYPE = $0020;`
`LUP_RETURN_VERSION = $0040;`
`LUP_RETURN_COMMENT = $0080;`
`LUP_RETURN_ADDR = $0100;`
`LUP_RETURN_BLOB = $0200;`
`LUP_RETURN_ALIASES = $0400;`
`LUP_RETURN_QUERY_STRING = $0800;`
`LUP_RETURN_ALL = $0FF0;`
`LUP_RES_SERVICE = $8000;`

`LUP_FLUSHCACHE = $1000;`
`LUP_FLUSHPREVIOUS = $2000;`

Address info flag AI_*

Flags used in "hints" argument to getaddrinfo()
Note: Under Linux these values may be different

`AI_PASSIVE = GlobalSock.AI_PASSIVE;`
`AI_CANONNAME = GlobalSock.AI_CANONNAME;`
`AI_NUMERICHOST = GlobalSock.AI_NUMERICHOST;`
`AI_NUMERICSERV = GlobalSock.AI_NUMERICSERV;`
`AI_ALL = GlobalSock.AI_ALL;`
`AI_ADDRCONFIG = GlobalSock.AI_ADDRCONFIG;`
`AI_V4MAPPED = GlobalSock.AI_V4MAPPED;`
`AI_NON_AUTHORITATIVE = GlobalSock.AI_NON_AUTHORITATIVE;`
`AI_SECURE = GlobalSock.AI_SECURE;`
`AI_RETURN_PREFERRED_NAMES = GlobalSock.AI_RETURN_PREFERRED_NAMES;`
`AI_FQDN = GlobalSock.AI_FQDN;`
`AI_FILESERVER = GlobalSock.AI_FILESERVER;`

Name info flag NI_*

Flags for getnameinfo()

`NI_NOFQDN = GlobalSock.NI_NOFQDN;`
`NI_NUMERICHOST = GlobalSock.NI_NUMERICHOST;`
`NI_NAMEREQD = GlobalSock.NI_NAMEREQD;`
`NI_NUMERICSERV = GlobalSock.NI_NUMERICSERV;`
`NI_DGRAM = GlobalSock.NI_DGRAM;`

`NI_MAXHOST = GlobalSock.NI_MAXHOST;`
`NI_MAXSERV = GlobalSock.NI_MAXSERV;`

Type definitions

See globalsock.pas

Class definitions

Winsock2 socket

TWinsock2Socket = class(TListObject)

Note: Base Socket classes

public
`constructor Create;`
private
`FBoundPort:Word;`
`FBoundAddress:String;`

`FReuseAddress:Boolean;`

`procedure SetFamily(AFamily:Integer); virtual;`
`procedure SetSocketType(ASocketType:Integer); virtual;`
`procedure SetProtocol(AProtocol:Integer); virtual;`

`procedure SetBoundPort(ABoundPort:Word);`
`procedure SetBoundAddress(const ABoundAddress:String); virtual;`

`procedure SetReuseAddress(AReuseAddress:Boolean);`

`function GetLocalPort:Word;`
`function GetLocalHost:String;`
`function GetLocalAddress:String;`
`function GetLocalAddresses:TStrings;`

`function GetSendSize:Integer;`
`procedure SetSendSize(ASize:Integer);`
`function GetReceiveSize:Integer;`
`procedure SetReceiveSize(ASize:Integer);`
`function GetSendTimeout:Integer;`
`procedure SetSendTimeout(ATimeout:Integer);`
`function GetReceiveTimeout:Integer;`
`procedure SetReceiveTimeout(ATimeout:Integer);`
`function GetConnectTimeout:Integer;`
`procedure SetConnectTimeout(ATimeout:Integer);`
protected
`FHandle:TSocket;`

`FFamily:Integer;`
`FSocketType:Integer;`
`FProtocol:Integer;`

`FLastError:LongInt;`

`function GetBroadcastAddress:String;`

`function AllocateFamily:Boolean; virtual;`

`function AllocateAddress(var ALength:Integer):PSockAddr;`
`function ReleaseAddress(var ASockAddr:PSockAddr; var ALength:Integer):Boolean;`

`function AllocateBoundAddress(var ALength:Integer):PSockAddr;`

`function AllocateSocket(ASocketType:Integer):TSocket;`
`function Bind:LongInt;`

`function SockAddrToPort(ASockAddr:PSockAddr; ALength:Integer):Word;`
`function SockAddrToAddress(ASockAddr:PSockAddr; ALength:Integer):String;`
`function PortToSockAddr(APort:Word; ASockAddr:PSockAddr; ALength:Integer):Boolean;`
`function AddressToSockAddr(const AAddress:String; var ALength:Integer):PSockAddr;`
public
`property Handle:TSocket read FHandle;`

`property Family:Integer read FFamily write SetFamily;`
`property SocketType:Integer read FSocketType write SetSocketType;`
`property Protocol:Integer read FProtocol write SetProtocol;`

`property LastError:LongInt read FLastError;`

`property BoundPort:Word read FBoundPort write SetBoundPort;`
`property BoundAddress:String read FBoundAddress write SetBoundAddress;`

`property ReuseAddress:Boolean read FReuseAddress write SetReuseAddress;`

`property LocalPort:Word read GetLocalPort;`
`property LocalHost:String read GetLocalHost;`
`property LocalAddress:String read GetLocalAddress;`
`property LocalAddresses:TStrings read GetLocalAddresses;`

`property SendSize:Integer read GetSendSize write SetSendSize;`
`property ReceiveSize:Integer read GetReceiveSize write SetReceiveSize;`
`property SendTimeout:Integer read GetSendTimeout write SetSendTimeout;`
`property ReceiveTimeout:Integer read GetReceiveTimeout write SetReceiveTimeout;`
`property ConnectTimeout:Integer read GetConnectTimeout write SetConnectTimeout;`

`function Connected:Boolean; virtual;`

`function Shutdown:Boolean; virtual;`
`function Disconnect:Boolean; virtual;`
`function CloseSocket:Boolean; virtual;`

`function ResolveHost(const AHost:String):String;`
`function ResolveFamily(const AAddress:String):Integer;`
`function ResolveAddress(const AAddress:String):String;`

`function ResolveHostEx(const AHost:String; AFamily:Integer; AAll:Boolean):TStrings;`

Winsock2 socket thread

TWinsock2SocketThread = class(TThreadEx)

private
`FPrev:TWinsock2SocketThread;`
`FNext:TWinsock2SocketThread;`
protected

public
`property Prev:TWinsock2SocketThread read FPrev write FPrev;`
`property Next:TWinsock2SocketThread read FNext write FNext;`

Winsock2 socket threads

TWinsock2SocketThreads = class(TObject)

public
`constructor Create;`
`destructor Destroy; override;`
private
`FLock:TCriticalSectionHandle;`

`FCount:Integer;`
`FFirst:TWinsock2SocketThread;`
`FLast:TWinsock2SocketThread;`

`function GetCount:Integer;`
`function GetFirst:TWinsock2SocketThread;`
`function GetLast:TWinsock2SocketThread;`
`function Link(AValue:TWinsock2SocketThread):Boolean;`
`function LinkEx(APrev,AValue:TWinsock2SocketThread):Boolean;`
`function Unlink(AValue:TWinsock2SocketThread):Boolean;`
protected
`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`
public
`property Count:Integer read GetCount;`
`property First:TWinsock2SocketThread read GetFirst;`
`property Last:TWinsock2SocketThread read GetLast;`
`function Add(AValue:TWinsock2SocketThread):Boolean; virtual;`
`function Remove(AValue:TWinsock2SocketThread):Boolean; virtual;`
`function Insert(APrev,AValue:TWinsock2SocketThread):Boolean; virtual;`
`function Find(AValue:TWinsock2SocketThread):Boolean; virtual;`
`procedure Clear; virtual;`

Winsock2 socket buffer

TWinsock2SocketBuffer = class(TObject)

private
`FPrev:TWinsock2SocketBuffer;`
`FNext:TWinsock2SocketBuffer;`
protected

public
`property Prev:TWinsock2SocketBuffer read FPrev write FPrev;`
`property Next:TWinsock2SocketBuffer read FNext write FNext;`

Winsock2 socket buffers

TWinsock2SocketBuffers = class(TObject)

public
`constructor Create;`
`destructor Destroy; override;`
private
`FLock:TCriticalSectionHandle;`

`FCount:Integer;`
`FFirst:TWinsock2SocketBuffer;`
`FLast:TWinsock2SocketBuffer;`

`function GetCount:Integer;`
`function GetFirst:TWinsock2SocketBuffer;`
`function GetLast:TWinsock2SocketBuffer;`
`function Link(AValue:TWinsock2SocketBuffer):Boolean;`
`function LinkEx(APrev,AValue:TWinsock2SocketBuffer):Boolean;`
`function Unlink(AValue:TWinsock2SocketBuffer):Boolean;`
protected
`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`
public
`property Count:Integer read GetCount;`
`property First:TWinsock2SocketBuffer read GetFirst;`
`property Last:TWinsock2SocketBuffer read GetLast;`
`function Add(AValue:TWinsock2SocketBuffer):Boolean; virtual;`
`function Remove(AValue:TWinsock2SocketBuffer):Boolean; virtual;`
`function Insert(APrev,AValue:TWinsock2SocketBuffer):Boolean; virtual;`
`function Find(AValue:TWinsock2SocketBuffer):Boolean; virtual;`
`procedure Clear; virtual;`

Winsock2 RAW socket

TWinsock2RAWSocket = class(TWinsock2Socket)

Note: Raw Socket (SOCK_RAW) classes

public
`constructor Create;`
private
`FBufferSize:Integer;`
`FBroadcastEnabled:Boolean;`

`procedure SetSocketType(ASocketType:Integer); override;`
`procedure SetProtocol(AProtocol:Integer); override;`

`procedure SetBufferSize(ABufferSize:Integer);`
`procedure SetBroadcastEnabled(ABroadcastEnabled:Boolean);`
protected
`function RecvFromSocket(ASockAddr:PSockAddr; ASockLen:PInteger; AData:Pointer; ASize:Integer; var ACount:Integer):LongInt; virtual;`
`function SendToSocket(ASockAddr:PSockAddr; ASockLen:Integer; AData:Pointer; ASize:Integer; var ACount:Integer):LongInt; virtual;`

`function RecvFromSocketEx(AHandle:THandle; ASockAddr:PSockAddr; ASockLen:PInteger; AData:Pointer; ASize:Integer; var ACount:Integer; var AClosed:Boolean):LongInt; virtual;`
`function SendToSocketEx(AHandle:THandle; ASockAddr:PSockAddr; ASockLen:Integer; AData:Pointer; ASize:Integer; var ACount:Integer):LongInt; virtual;`
public
`property BufferSize:Integer read FBufferSize write SetBufferSize;`
`property BroadcastEnabled:Boolean read FBroadcastEnabled write SetBroadcastEnabled;`

`function RecvData(AData:Pointer; ACount:Integer):Integer; virtual;`
`function SendData(AData:Pointer; ACount:Integer):Integer; virtual;`
`function BroadcastData(AData:Pointer; ACount:Integer):Integer; virtual;`

`function RecvDataFrom(var AHost:String; AData:Pointer; ACount:Integer):Integer; virtual;`
`function SendDataTo(const AHost:String; AData:Pointer; ACount:Integer):Integer; virtual;`
`function BroadcastDataTo(const AAddress:String; AData:Pointer; ACount:Integer):Integer; virtual;`

Winsock2 TCP socket

TWinsock2TCPSocket = class(TWinsock2Socket)

Note: Stream Socket (SOCK_STREAM) classes

public
`constructor Create;`
private
`FUseNagle:Boolean;`
`FUseKeepalive:Boolean;`
`FSegmentSize:Integer;`
`FMaxSegmentSize:LongWord;`

`procedure SetSocketType(ASocketType:Integer); override;`
`procedure SetProtocol(AProtocol:Integer); override;`

`procedure SetBacklog(ABacklog:Integer);`

`procedure SetUseNagle(AUseNagle:Boolean);`
`procedure SetUseKeepalive(AUseKeepalive:Boolean);`
`procedure SetSegmentSize(ASegmentSize:Integer);`
`procedure SetMaxSegmentSize(AMaxSegmentSize:LongWord);`
protected
`FBacklog:Integer;`

`function Listen(ABacklog:Integer):LongInt;`

`function ReadFromSocket(AData:Pointer; ASize:Integer):LongInt;`
`function WriteToSocket(AData:Pointer; ASize:Integer):LongInt;`

`function ReadFromSocketEx(AData:Pointer; ASize:Integer; var ACount:Integer; var AClosed:Boolean; AWait:Boolean; ATimeout:Integer):LongInt;`
`function WriteToSocketEx(AData:Pointer; ASize:Integer; var ACount:Integer; AWait:Boolean; ATimeout:Integer):LongInt;`
public
`property Backlog:Integer read FBacklog write SetBacklog;`

`property UseNagle:Boolean read FUseNagle write SetUseNagle;`
`property UseKeepalive:Boolean read FUseKeepalive write SetUseKeepalive;`
`property SegmentSize:Integer read FSegmentSize write SetSegmentSize;`
`property MaxSegmentSize:LongWord read FMaxSegmentSize write SetMaxSegmentSize;`

`function ReadData(AData:Pointer; ACount:Integer):Boolean;`
`function WriteData(AData:Pointer; ACount:Integer):Boolean;`

`function ReadAvailable(AData:Pointer; ASize:Integer; var ACount:Integer; var AClosed:Boolean):Boolean;`

Winsock2 UDP socket

TWinsock2UDPSocket = class(TWinsock2Socket)

Note: Datagram Socket (SOCK_DGRAM) classes

public
`constructor Create;`
private
`FBufferSize:Integer;`
`FBroadcastEnabled:Boolean;`

`procedure SetSocketType(ASocketType:Integer); override;`
`procedure SetProtocol(AProtocol:Integer); override;`

`procedure SetBufferSize(ABufferSize:Integer);`
`procedure SetBroadcastEnabled(ABroadcastEnabled:Boolean);`
protected
`function RecvFromSocket(ASockAddr:PSockAddr; ASockLen:PInteger; AData:Pointer; ASize:Integer; var ACount:Integer):LongInt; virtual;`
`function SendToSocket(ASockAddr:PSockAddr; ASockLen:Integer; AData:Pointer; ASize:Integer; var ACount:Integer):LongInt; virtual;`

`function RecvFromSocketEx(AHandle:THandle; ASockAddr:PSockAddr; ASockLen:PInteger; AData:Pointer; ASize:Integer; var ACount:Integer; var AClosed:Boolean):LongInt; virtual;`
`function SendToSocketEx(AHandle:THandle; ASockAddr:PSockAddr; ASockLen:Integer; AData:Pointer; ASize:Integer; var ACount:Integer):LongInt; virtual;`
public
`property BufferSize:Integer read FBufferSize write SetBufferSize;`
`property BroadcastEnabled:Boolean read FBroadcastEnabled write SetBroadcastEnabled;`

`function RecvData(AData:Pointer; ACount:Integer):Integer; virtual;`
`function SendData(AData:Pointer; ACount:Integer):Integer; virtual;`
`function BroadcastData(AData:Pointer; ACount:Integer):Integer; virtual;`

`function RecvDataFrom(var AHost:String; var APort:Word; AData:Pointer; ACount:Integer):Integer; virtual;`
`function SendDataTo(const AHost:String; APort:Word; AData:Pointer; ACount:Integer):Integer; virtual;`
`function BroadcastDataTo(const AAddress:String; APort:Word; AData:Pointer; ACount:Integer):Integer; virtual;`

Winsock2 RAW client

TWinsock2RAWClient = class(TWinsock2RAWSocket)

Note: Raw Client classes

public
`constructor Create;`
`destructor Destroy; override;`
private
`FUseConnect:Boolean;`

`FRemoteHost:String;`
`FRemoteAddress:String;`

`procedure SetUseConnect(AUseConnect:Boolean);`

`procedure SetFamily(AFamily:Integer); override;`

`procedure SetBoundAddress(const ABoundAddress:String); override;`

`procedure SetRemoteHost(const ARemoteHost:String);`
`procedure SetRemoteAddress(const ARemoteAddress:String);`
protected
`function AllocateFamily:Boolean; override;`

`function AllocateRemoteAddress(var ALength:Integer):PSockAddr;`
public
`property UseConnect:Boolean read FUseConnect write SetUseConnect;`

`property RemoteHost:String read FRemoteHost write SetRemoteHost;`
`property RemoteAddress:String read FRemoteAddress write SetRemoteAddress;`

`function Connect:Boolean; virtual;`
`function Disconnect:Boolean; override;`

Winsock2 TCP client

TWinsock2TCPClient = class(TWinsock2TCPSocket)

Note: Stream Client classes

public
`constructor Create;`
`destructor Destroy; override;`
private
`FRemotePort:Word;`
`FRemoteHost:String;`
`FRemoteAddress:String;`

`procedure SetFamily(AFamily:Integer); override;`

`procedure SetBoundAddress(const ABoundAddress:String); override;`

`procedure SetRemotePort(ARemotePort:Word);`
`procedure SetRemoteHost(const ARemoteHost:String);`
`procedure SetRemoteAddress(const ARemoteAddress:String);`
protected
`function AllocateFamily:Boolean; override;`

`function AllocateRemoteAddress(var ALength:Integer):PSockAddr;`
public
`property RemotePort:Word read FRemotePort write SetRemotePort;`
`property RemoteHost:String read FRemoteHost write SetRemoteHost;`
`property RemoteAddress:String read FRemoteAddress write SetRemoteAddress;`

`function Connect:Boolean; virtual;`
`function ConnectEx:Boolean; virtual;`
`function Disconnect:Boolean; override;`

Winsock2 UDP client

TWinsock2UDPClient = class(TWinsock2UDPSocket)

Note: Datagram Client classes

public
`constructor Create;`
`destructor Destroy; override;`
private
`FUseConnect:Boolean;`

`FRemotePort:Word;`
`FRemoteHost:String;`
`FRemoteAddress:String;`

`procedure SetUseConnect(AUseConnect:Boolean);`

`procedure SetFamily(AFamily:Integer); override;`

`procedure SetBoundAddress(const ABoundAddress:String); override;`

`procedure SetRemotePort(ARemotePort:Word);`
`procedure SetRemoteHost(const ARemoteHost:String);`
`procedure SetRemoteAddress(const ARemoteAddress:String);`
protected
`function AllocateFamily:Boolean; override;`

`function AllocateRemoteAddress(var ALength:Integer):PSockAddr;`
public
`property UseConnect:Boolean read FUseConnect write SetUseConnect;`

`property RemotePort:Word read FRemotePort write SetRemotePort;`
`property RemoteHost:String read FRemoteHost write SetRemoteHost;`
`property RemoteAddress:String read FRemoteAddress write SetRemoteAddress;`

`function Connect:Boolean; virtual;`
`function Disconnect:Boolean; override;`

Winsock2 TCP server

TWinsock2TCPServer = class(TWinsock2TCPSocket)

Note: Stream Server classes

public
`constructor Create(AListener:TWinsock2TCPListener);`
private
`FPeerPort:Word;`
`FPeerAddress:String;`

`FListener:TWinsock2TCPListener;`
protected
`procedure SetHandle(AHandle:TSocket); virtual;`
`procedure SetLastError(ALastError:LongInt); virtual;`
public
`property PeerPort:Word read FPeerPort;`
`property PeerAddress:String read FPeerAddress;`
`property Listener:TWinsock2TCPListener read FListener;`

`function Disconnect:Boolean; override;`

Winsock2 TCP server thread

TWinsock2TCPServerThread = class(TWinsock2SocketThread)

public
`constructor Create(AServer:TWinsock2TCPServer);`
`destructor Destroy; override;`
private
`FData:TObject;`
`FServer:TWinsock2TCPServer;`
protected
`procedure AfterExecution; override;`
`procedure BeforeExecution; override;`
public
`property Data:TObject read FData write FData;`
`property Server:TWinsock2TCPServer read FServer;`

`procedure Execution; override;`

Winsock2 TCP listener thread

TWinsock2TCPListenerThread = class(TWinsock2SocketThread)

public
`constructor Create(AListener:TWinsock2TCPListener);`
private
`FListener:TWinsock2TCPListener;`
protected
`procedure AfterExecution; override;`
`procedure BeforeExecution; override;`
public
`property Listener:TWinsock2TCPListener read FListener;`

`procedure Execution; override;`

Winsock2 TCP server threads

TWinsock2TCPServerThreads = class(TWinsock2SocketThreads)

private
`procedure TerminateThread(AThread:TWinsock2TCPServerThread);`
protected

public
`procedure TerminateAll;`
`function Terminate(AThread:TWinsock2TCPServerThread):Boolean;`

Winsock2 TCP listener

TWinsock2TCPListener = class(TWinsock2TCPSocket)

public
`constructor Create;`
`destructor Destroy; override;`
private
`FActive:Boolean;`
`FThreads:TWinsock2TCPServerThreads;`
`FListenerThread:TWinsock2TCPListenerThread;`

`FOnExecute:TTCPExecuteEvent;`
`FOnConnect:TTCPConnectEvent;`
`FOnDisconnect:TTCPDisconnectEvent;`
`FOnCreateThread:TTCPCreateThreadEvent;`

`procedure SetActive(AActive:Boolean);`
protected
`procedure SetLastError(ALastError:LongInt); virtual;`

`procedure DoConnect(AThread:TWinsock2TCPServerThread); virtual;`
`procedure DoDisconnect(AThread:TWinsock2TCPServerThread); virtual;`

`function DoExecute(AThread:TWinsock2TCPServerThread):Boolean; virtual;`
public
`property Active:Boolean read FActive write SetActive;`
`property Threads:TWinsock2TCPServerThreads read FThreads;`

`property OnExecute:TTCPExecuteEvent read FOnExecute write FOnExecute;`
`property OnConnect:TTCPConnectEvent read FOnConnect write FOnConnect;`
`property OnDisconnect:TTCPDisconnectEvent read FOnDisconnect write FOnDisconnect;`
`property OnCreateThread:TTCPCreateThreadEvent read FOnCreateThread write FOnCreateThread;`

Winsock2 UDP server

TWinsock2UDPServer = class(TWinsock2UDPSocket)

Note: Datagrams Server classes

public
`constructor Create(AListener:TWinsock2UDPListener);`
`destructor Destroy; override;`
private
`FPeerPort:Word;`
`FPeerAddress:String;`

`FUseListener:Boolean;`
`FListener:TWinsock2UDPListener;`

`procedure SetUseListener(AUseListener:Boolean);`
protected
`FBuffer:TWinsock2UDPServerBuffer;`

`function GetData:Pointer; virtual;`
`function GetSize:Integer; virtual;`
`function GetCount:Integer; virtual;`

`procedure SetBuffer(ABuffer:TWinsock2UDPServerBuffer); virtual;`
`procedure SetLastError(ALastError:LongInt); virtual;`
public
`property PeerPort:Word read FPeerPort;`
`property PeerAddress:String read FPeerAddress;`
`property UseListener:Boolean read FUseListener write SetUseListener;`
`property Listener:TWinsock2UDPListener read FListener;`

`property Buffer:TWinsock2UDPServerBuffer read FBuffer;`

`property Data:Pointer read GetData;`
`property Size:Integer read GetSize;`
`property Count:Integer read GetCount;`

`function SendData(AData:Pointer; ACount:Integer):Integer; override;`

`function SendDataTo(const AHost:String; APort:Word; AData:Pointer; ACount:Integer):Integer; override;`

Winsock2 UDP server thread

TWinsock2UDPServerThread = class(TWinsock2SocketThread)

public
`constructor Create(AServer:TWinsock2UDPServer);`
`destructor Destroy; override;`
private
`FLock:TCriticalSectionHandle;`

`FActive:Boolean;`
`FData:TObject;`
`FServer:TWinsock2UDPServer;`

`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`

`function GetActive:Boolean;`
`procedure SetActive(AActive:Boolean);`
protected
`procedure AfterExecution; override;`
`procedure BeforeExecution; override;`
public
`property Active:Boolean read GetActive write SetActive;`
`property Data:TObject read FData write FData;`
`property Server:TWinsock2UDPServer read FServer;`

`procedure Execution; override;`

Winsock2 UDP listener thread

TWinsock2UDPListenerThread = class(TWinsock2SocketThread)

public
`constructor Create(AListener:TWinsock2UDPListener);`
`destructor Destroy; override;`
private
`FListener:TWinsock2UDPListener;`
protected
`procedure AfterExecution; override;`
`procedure BeforeExecution; override;`
public
`property Listener:TWinsock2UDPListener read FListener;`

`procedure Execution; override;`

Winsock2 UDP server threads

TWinsock2UDPServerThreads = class(TWinsock2SocketThreads)

public
`constructor Create(AListener:TWinsock2UDPListener);`
private
`FMin:Integer;`
`FMax:Integer;`

`FListener:TWinsock2UDPListener;`

`function GetMin:Integer;`
`procedure SetMin(AMin:Integer);`
`function GetMax:Integer;`
`procedure SetMax(AMax:Integer);`

`procedure CreateThreads;`
`function CreateThread(AForce:Boolean):TWinsock2UDPServerThread;`
`procedure TerminateThread(AThread:TWinsock2UDPServerThread);`
public
`property Min:Integer read GetMin write SetMin;`
`property Max:Integer read GetMax write SetMax;`

`function GetThread:TWinsock2UDPServerThread;`
`procedure ReleaseThread(AThread:TWinsock2UDPServerThread);`

`procedure TerminateAll;`
`function Terminate(AThread:TWinsock2UDPServerThread):Boolean;`

Winsock2 UDP server buffer

TWinsock2UDPServerBuffer = class(TWinsock2SocketBuffer)

public
`constructor Create(ASize:Integer);`
`destructor Destroy; override;`
private
`FLock:TCriticalSectionHandle;`

`FActive:Boolean;`
`FData:Pointer;`
`FSize:Integer;`
`FCount:Integer;`

`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`

`function GetActive:Boolean;`
`procedure SetActive(AActive:Boolean);`
`procedure SetCount(ACount:Integer);`
public
`property Active:Boolean read GetActive write SetActive;`
`property Data:Pointer read FData;`
`property Size:Integer read FSize;`
`property Count:Integer read FCount write SetCount;`

Winsock2 UDP server buffers

TWinsock2UDPServerBuffers = class(TWinsock2SocketBuffers)

public
`constructor Create(AListener:TWinsock2UDPListener);`
private
`FMin:Integer;`
`FMax:Integer;`

`FListener:TWinsock2UDPListener;`

`function GetMin:Integer;`
`procedure SetMin(AMin:Integer);`
`function GetMax:Integer;`
`procedure SetMax(AMax:Integer);`

`procedure CreateBuffers;`
`function CreateBuffer(AForce:Boolean):TWinsock2UDPServerBuffer;`
`procedure DeleteBuffer(ABuffer:TWinsock2UDPServerBuffer);`
public
`property Min:Integer read GetMin write SetMin;`
`property Max:Integer read GetMax write SetMax;`

`function GetBuffer:TWinsock2UDPServerBuffer;`
`procedure ReleaseBuffer(ABuffer:TWinsock2UDPServerBuffer);`

`procedure DeleteAll;`
`function Delete(ABuffer:TWinsock2UDPServerBuffer):Boolean;`

Winsock2 UDP listener

TWinsock2UDPListener = class(TWinsock2UDPSocket)

public
`constructor Create;`
`destructor Destroy; override;`
private
`FLock:TCriticalSectionHandle;`

`FActive:Boolean;`
`FUseListener:Boolean;`
`FThreads:TWinsock2UDPServerThreads;`
`FBuffers:TWinsock2UDPServerBuffers;`
`FListenerThread:TWinsock2UDPListenerThread;`

`FOnExecute:TUDPExecuteEvent;`
`FOnCreateThread:TUDPCreateThreadEvent;`
`FOnCreateBuffer:TUDPCreateBufferEvent;`

`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`

`procedure SetActive(AActive:Boolean);`
`procedure SetUseListener(AUseListener:Boolean);`
protected
`procedure SetLastError(ALastError:LongInt); virtual;`

`function DoExecute(AThread:TWinsock2UDPServerThread):Boolean; virtual;`

`function SendToSocketEx(AHandle:THandle; ASockAddr:PSockAddr; ASockLen:Integer; AData:Pointer; ASize:Integer; var ACount:Integer):LongInt; override;`
public
`property Active:Boolean read FActive write SetActive;`
`property UseListener:Boolean read FUseListener write SetUseListener;`
`property Threads:TWinsock2UDPServerThreads read FThreads;`
`property Buffers:TWinsock2UDPServerBuffers read FBuffers;`

`property OnExecute:TUDPExecuteEvent read FOnExecute write FOnExecute;`
`property OnCreateThread:TUDPCreateThreadEvent read FOnCreateThread write FOnCreateThread;`
`property OnCreateBuffer:TUDPCreateBufferEvent read FOnCreateBuffer write FOnCreateBuffer;`

Public variables

None defined