Unit Winsock2

From Ultibo.org
Revision as of 06:08, 12 June 2017 by Ultibo (Talk | contribs)

Jump to: navigation, search

Return to Unit Reference


Description


Ultibo Winsock2 interface unit

Notes:

  • All BSD/Winsock functions that accept an Address or Port expect them to be in Network order.
  • All other functions that take an Address or Port expect them to be in Host order.

Constants



Winsock2 specific constants WINSOCK_*
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 = GlobalSock.SOMAXCONN;  
 
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

Function declarations



Initialization functions

procedure WS2Init;
Description: To be documented
Note None documented


function WS2Start:Boolean;
Description: To be documented
Note None documented


function WS2Stop:Boolean;
Description: To be documented
Note None documented


procedure WS2AsyncStart(Data:Pointer);
Description: To be documented
Note None documented


Winsock2 functions

function accept( const s: TSocket; addr: PSockAddr; addrlen: PLongint ): TSocket;
Description: To be documented
Note None documented


function accept( const s: TSocket; addr: PSockAddr; var addrlen: Longint ): TSocket;
Description: To be documented
Note None documented


function bind( const s: TSocket; addr: PSockAddr; namelen: Longint ): Longint;
Description: To be documented
Note None documented


function bind( const s: TSocket; var addr: TSockAddr; namelen: Longint ): Longint;
Description: To be documented
Note None documented


function closesocket( const s: TSocket ): Longint;
Description: To be documented
Note None documented


function connect( const s: TSocket; name: PSockAddr; namelen: Longint): Longint;
Description: To be documented
Note None documented


function connect( const s: TSocket; var name: TSockAddr; namelen: Longint): Longint;
Description: To be documented
Note None documented


function ioctlsocket( const s: TSocket; cmd: Longint; var arg: u_long ): Longint;
Description: To be documented
Note None documented


function ioctlsocket( const s: TSocket; cmd: Longint; argp: pu_long ): Longint;
Description: To be documented
Note None documented


function getpeername( const s: TSocket; var name: TSockAddr; var namelen: Longint ): Longint;
Description: To be documented
Note None documented


function getsockname( const s: TSocket; var name: TSockAddr; var namelen: Longint ): Longint;
Description: To be documented
Note None documented


function getsockopt( const s: TSocket; const level, optname: Longint; optval: PChar; var optlen: Longint ): Longint;
Description: To be documented
Note None documented


function getsockopt( const s: TSocket; const level, optname: Longint; optval: Pointer; var optlen: Longint ): Longint;
Description: To be documented
Note None documented


function getsockopt( const s: TSocket; const level, optname: Longint; var optval; var optlen: Longint ): Longint;
Description: To be documented
Note None documented


function htonl(hostlong: u_long): u_long;
Description: To be documented
Note None documented


function htons(hostshort: u_short): u_short;
Description: To be documented
Note None documented


function inet_addr(cp: PChar): u_long;
Description: To be documented
Note None documented


function inet_ntoa(inaddr: TInAddr): PChar;
Description: To be documented
Note As per the Winsock specification, the buffer returned by this function is only guaranteed to be valid until the next Winsock function call is made within the same thread. Therefore, the data should be copied before another Winsock call.


function listen(s: TSocket; backlog: Longint): Longint;
Description: To be documented
Note None documented


function ntohl(netlong: u_long): u_long;
Description: To be documented
Note None documented


function ntohs(netshort: u_short): u_short;
Description: To be documented
Note None documented


function recv(s: TSocket; var Buf; len, flags: Longint): Longint;
Description: To be documented
Note None documented


function recv(s: TSocket; Buf: PChar; len, flags: Longint): Longint;
Description: To be documented
Note None documented


function recv(s: TSocket; Buf: Pointer; len, flags: Longint): Longint;
Description: To be documented
Note None documented


function recvfrom(s: TSocket; Buf: PChar; len, flags: Longint; from: PSockAddr; fromlen: PLongint): Longint;
Description: To be documented
Note None documented


function recvfrom(s: TSocket; Buf: Pointer; len, flags: Longint; from: PSockAddr; fromlen: PLongint): Longint;
Description: To be documented
Note None documented


function recvfrom(s: TSocket; var Buf; len, flags: Longint; var from: TSockAddr; var fromlen: Longint): Longint;
Description: To be documented
Note None documented


function select(nfds: Longint; readfds, writefds, exceptfds: PFDSet; timeout: PTimeVal): Longint;
Description: To be documented
Note All sockets contained by the FDSet must be of the same type


function send(s: TSocket; var Buf; len, flags: Longint): Longint;
Description: To be documented
Note None documented


function send(s: TSocket; Buf: PChar; len, flags: Longint): Longint;
Description: To be documented
Note None documented


function send(s: TSocket; Buf: Pointer; len, flags: Longint): Longint;
Description: To be documented
Note None documented


function sendto(s: TSocket; var Buf; len, flags: Longint; var addrto: TSockAddr; tolen: Longint): Longint;
Description: To be documented
Note None documented


function sendto(s: TSocket; Buf: PChar; len, flags: Longint; addrto: PSockAddr; tolen: Longint): Longint;
Description: To be documented
Note None documented


function sendto(s: TSocket; Buf: Pointer; len, flags: Longint; addrto: PSockAddr; tolen: Longint): Longint;
Description: To be documented
Note None documented


function setsockopt(s: TSocket; level, optname: Longint; const optval; optlen: Longint): Longint;
Description: To be documented
Note None documented


function setsockopt(s: TSocket; level, optname: Longint; optval: PChar; optlen: Longint): Longint;
Description: To be documented
Note None documented


function setsockopt(s: TSocket; level, optname: Longint; optval: Pointer; optlen: Longint): Longint;
Description: To be documented
Note None documented


function shutdown(s: TSocket; how: Longint): Longint;
Description: To be documented
Note None documented


function socket(af, struct, protocol: Longint): TSocket;
Description: To be documented
Note None documented


function gethostbyaddr(addr: Pointer; len, family: Longint): PHostEnt;
Description: To be documented
Note None documented


function gethostbyname(name: PChar): PHostEnt;
Description: To be documented
Note None documented


function gethostname(name: PChar; len: Longint): Longint;
Description: To be documented
Note None documented


function getservbyport(port: Longint; proto: PChar): PServEnt;
Description: To be documented
Note None documented


function getservbyname(name, proto: PChar): PServEnt;
Description: To be documented
Note None documented


function getprotobynumber(proto: Longint): PProtoEnt;
Description: To be documented
Note None documented


function getprotobyname(name: PChar): PProtoEnt;
Description: To be documented
Note None documented


function getaddrinfo(pNodeName, pServiceName: PChar; pHints: PAddrInfo; var ppResult: PAddrInfo): LongInt;
Description: To be documented
Note None documented


procedure freeaddrinfo(ai: PAddrInfo);
Description: To be documented
Note None documented


function getnameinfo(sa: PSockAddr; salen: Integer; host: PChar; hostlen: DWORD; serv: PChar; servlen: DWORD; flags: Integer): Integer;
Description: To be documented
Note None documented


function WSAStartup(wVersionRequired: word; var WSData: TWSAData): Longint;
Description: To be documented
Note None documented


function WSACleanup: Longint;
Description: To be documented
Note None documented


procedure WSASetLastError(iError: Longint);
Description: To be documented
Note None documented


function WSAGetLastError: Longint;
Description: To be documented
Note None documented


function __WSAFDIsSet(s: TSOcket; var FDSet: TFDSet): Bool;
Description: To be documented
Note None documented


function inet_pton(Family: Longint; pszAddrString: PChar; pAddrBuf: Pointer): Longint;
Description: To be documented
Note None documented


function InetPtonA(Family: Longint; pszAddrString: PChar; pAddrBuf: Pointer): Longint;
Description: To be documented
Note None documented


function InetPtonW(Family: Longint; pszAddrString: PWideChar; pAddrBuf: Pointer): Longint;
Description: To be documented
Note None documented


function inet_ntop(Family: Longint; pAddr: Pointer; pStringBuf: PChar; StringBufSize: Longint): PChar;
Description: To be documented
Note None documented


function InetNtopA(Family: Longint; pAddr: Pointer; pStringBuf: PChar; StringBufSize: Longint): PChar;
Description: To be documented
Note None documented


function InetNtopW(Family: Longint; pAddr: Pointer; pStringBuf: PWideChar; StringBufSize: Longint): PWideChar;
Description: To be documented
Note None documented


function WSAhtonl( s : TSocket; hostlong : u_long; var lpnetlong : DWORD ): Longint;
Description: To be documented
Note None documented


function WSAhtons( s : TSocket; hostshort : u_short; var lpnetshort : WORD ): Longint;
Description: To be documented
Note None documented


function WSANtohl( s : TSocket; netlong : u_long; var lphostlong : DWORD ): Longint;
Description: To be documented
Note None documented


function WSANtohs( s : TSocket; netshort : u_short; var lphostshort : WORD ): Longint;
Description: To be documented
Note None documented


function WSAMakeSyncReply(Buflen, Error: Word): Longint;
Description: To be documented
Note None documented


function WSAMakeSelectReply(Event, Error: Word): Longint;
Description: To be documented
Note None documented


function WSAGetAsyncBuflen(Param: Longint): Word;
Description: To be documented
Note None documented


function WSAGetAsyncError(Param: Longint): Word;
Description: To be documented
Note None documented


function WSAGetSelectEvent(Param: Longint): Word;
Description: To be documented
Note None documented


function WSAGetSelectError(Param: Longint): Word;
Description: To be documented
Note None documented


procedure FD_CLR(Socket: TSocket; var FDSet: TFDSet);
Description: To be documented
Note None documented


function FD_ISSET(Socket: TSocket; var FDSet: TFDSet): Boolean;
Description: To be documented
Note None documented


procedure FD_SET(Socket: TSocket; var FDSet: TFDSet);
Description: To be documented
Note None documented


procedure FD_ZERO(var FDSet: TFDSet);
Description: To be documented
Note None documented


Winsock2 undocumented functions

function WsControl(Proto:DWORD; Action:DWORD; pRequestInfo:Pointer; var pcbRequestInfoLen:DWORD; pResponseInfo:Pointer; var pcbResponseInfoLen:DWORD):Integer;
Description: To be documented
Note None documented


function getnetbyaddr(addr: Pointer; len, Struct: Integer): PNetEnt;
Description: To be documented
Note None documented


function getnetbyname(name: PChar): PNetEnt;
Description: To be documented
Note None documented


Winsock2 enhanced functions

function WsControlEx(Proto:DWORD; Action:DWORD; pRequestInfo:Pointer; var pcbRequestInfoLen:DWORD; pResponseInfo:Pointer; var pcbResponseInfoLen:DWORD):Integer;
Description: To be documented
Note None documented


Return to Unit Reference