{**************************************************************************** This file is part of the Free Pascal run time library. Copyrigth (c) 2003 by Yuri Prokushev (prokushev@freemail.ru) This file corresponds to version 1.1 of the Windows Sockets specification. See the file COPYING.FPC, included in this distribution, for details about the copyright. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. ****************************************************************************} {$ifndef winsock} unit pmwsock; {$endif} {$PACKRECORDS 1} {$MACRO ON} Interface Uses OS2Def; // The new type to be used in all instances which refer to sockets. type TSocket=Cardinal; type PLongint=^Longint; PCardinal=^Cardinal; // Select uses arrays of TSockets. These macros manipulate such // arrays. FD_SETSIZE may be defined by the user before including // this file, but the default here should be >= 64. // // CAVEAT IMPLEMENTOR and USER: THESE MACROS AND TYPES MUST BE // INCLUDED IN WINSOCK.H EXACTLY AS SHOWN HERE. const FD_SETSIZE = 64; type fdset=record fd_count: Word; // how many are SET? fd_array: Array[0..FD_SETSIZE-1] of TSocket; // an array of TSockets end; TFDSet = fdset; PFDSet = ^fdset; Function __WSAFDIsSet(a: TSocket;var b: fdset): Longint; cdecl; external 'PMWSock' index 151; Function __WSAFDIsSet_(s:TSocket; var FDSet:TFDSet): Longint; cdecl; external 'PMWSock' index 151; Function __WSAFDIsSet2_(s:TSocket; var FDSet:TFDSet): boolean; cdecl; external 'PMWSock' index 151; Function FD_ISSET2(a: TSocket;var b: fdset): Longint; cdecl; external 'PMWSock' index 151; Function FD_ISSET(a: TSocket;var b: fdset): boolean; cdecl; external 'PMWSock' index 151; Procedure FD_CLR(ASocket: TSocket; var aset: fdset); Procedure FD_SET(Socket:TSocket; var FDSet:TFDSet); // Structure used in select() call, taken from the BSD file sys/time.h. type timeval=record tv_sec: LongInt; // seconds tv_usec: LongInt; // and microseconds end; TTimeVal = timeval; PTimeVal = ^TTimeVal; { found no reference to this type in c header files and here. AlexS } { minutes west of Greenwich } { type of dst correction } timezone = record tz_minuteswest : longint; tz_dsttime : longint; end; TTimeZone = timezone; PTimeZone = ^TTimeZone; // Operations on timevals. // timercmp does not work for >= or <=. Function timerisset(tvp: timeval): Boolean; //Function timercmp(tvp, uvp, cmp); Procedure timerclear(var tvp: timeval); // Commands for ioctlsocket(), taken from the BSD file fcntl.h. // // Ioctl's have the command encoded in the lower word, // and the size of any in or out parameters in the upper // word. The high 2 bits of the upper word are used // to encode the in/out status of the parameter; for now // we restrict parameters to at most 128 bytes. const IOCPARM_MASK = $7f; // parameters must be < 128 bytes IOC_VOID = $20000000; // no parameters IOC_OUT = $40000000; // copy out parameters IOC_IN = longint ($80000000); // copy in parameters IOC_INOUT = IOC_IN or IOC_OUT; // 0x20000000 distinguishes new & // old ioctl's const // get # bytes to read FIONREAD=(IOC_OUT or ((Longint (sizeof(Cardinal)) and IOCPARM_MASK) shl 16) or (Ord('f') shl 8) or 127); // set/clear non-blocking i/o FIONBIO=(IOC_IN or ((Longint(sizeof(Cardinal)) and IOCPARM_MASK) shl 16) or (Ord('f') shl 8) or 126); // set/clear async i/o FIOASYNC=(IOC_IN or ((Longint(sizeof(Cardinal)) and IOCPARM_MASK) shl 16) or (Ord('f') shl 8) or 125); // Socket I/O Controls const // set high watermark SIOCSHIWAT=(IOC_IN or ((Longint(sizeof(Cardinal)) and IOCPARM_MASK) shl 16) or (Ord('s') shl 8) or 0); // get high watermark SIOCGHIWAT=(IOC_OUT or ((Longint (sizeof(Cardinal)) and IOCPARM_MASK) shl 16) or (Ord('s') shl 8) or 1); // set low watermark SIOCSLOWAT=(IOC_IN or ((Longint(sizeof(Cardinal)) and IOCPARM_MASK) shl 16) or (Ord('s') shl 8) or 2); // get low watermark SIOCGLOWAT=(IOC_OUT or ((Longint (sizeof(Cardinal)) and IOCPARM_MASK) shl 16) or (Ord('s') shl 8) or 3); // at oob mark? SIOCATMARK=(IOC_OUT or ((Longint (sizeof(Cardinal)) and IOCPARM_MASK) shl 16) or (Ord('s') shl 8) or 7); // Structures returned by network data base library, taken from the // BSD file netdb.h. All addresses are supplied in host order, and // returned in network order (suitable for use in system calls). type hostent=record h_name: PChar; // official name of host h_aliases: PPChar; // alias list h_addrtype: LongInt; // host address type h_length: LongInt; // length of address case byte of 0: (h_addr_list: ppchar); // list of addresses from name server 1: (h_addr: ppchar) // address, for backward compatiblity end; phostent=^hostent; THostEnt = hostent; // It is assumed here that a network number // fits in 32 bits. type netent=record n_name: PChar; // official name of net n_aliases: PPChar; // alias list n_addrtype: Longint; // net address type n_net: Cardinal; // network # End; pnetent=^netent; TNetEnt = netent; type servent=record s_name: PChar; // official service name s_aliases: PPChar; // alias list s_port: LongInt; // port # s_proto: PChar; // protocol to use end; TServEnt = servent; pservent=^servent; protoent=record p_name: PChar; // official protocol name p_aliases: PPChar; // alias list p_proto: LongInt; // protocol # end; TProtoEnt = protoent; pprotoent=^protoent; // Constants and structures defined by the internet system, // Per RFC 790, September 1981, taken from the BSD file netinet/in.h. // Protocols const IPPROTO_IP =0; // dummy for IP IPPROTO_ICMP =1; // control message protocol IPPROTO_GGP =2; // gateway^2 (deprecated) IPPROTO_TCP =6; // tcp IPPROTO_PUP =12; // pup IPPROTO_UDP =17; // user datagram protocol IPPROTO_IDP =22; // xns idp IPPROTO_ND =77; // UNOFFICIAL net disk proto IPPROTO_RAW =255; // raw IP packet IPPROTO_MAX =256; // Port/socket numbers: network standard functions IPPORT_ECHO =7; IPPORT_DISCARD =9; IPPORT_SYSTAT =11; IPPORT_DAYTIME =13; IPPORT_NETSTAT =15; IPPORT_FTP =21; IPPORT_TELNET =23; IPPORT_SMTP =25; IPPORT_TIMESERVER =37; IPPORT_NAMESERVER =42; IPPORT_WHOIS =43; IPPORT_MTP =57; // Port/socket numbers: host specific functions IPPORT_TFTP =69; IPPORT_RJE =77; IPPORT_FINGER =79; IPPORT_TTYLINK =87; IPPORT_SUPDUP =95; // UNIX TCP sockets IPPORT_EXECSERVER =512; IPPORT_LOGINSERVER =513; IPPORT_CMDSERVER =514; IPPORT_EFSSERVER =520; // UNIX UDP sockets IPPORT_BIFFUDP =512; IPPORT_WHOSERVER =513; IPPORT_ROUTESERVER =520; // 520+1 also used // Ports < IPPORT_RESERVED are reserved for // privileged processes (e.g. root). IPPORT_RESERVED =1024; // Link numbers IMPLINK_IP =155; IMPLINK_LOWEXPER =156; IMPLINK_HIGHEXPER =158; // Internet address (old style... should be updated) type in_addr=record case Integer of 1:(S_un_b:record s_b1,s_b2,s_b3,s_b4: Byte; end;); 2:(s_un_w:record s_w1,s_w2: Word; end;); 3:(s_addr: Cardinal); end; TInAddr = in_addr; PInAddr = ^TInAddr; {$define s_addr:=in_addr.S_addr} // can be used for most tcp & ip code {$define s_host:=in_addr.S_un_b.s_b2} // host on imp {$define s_net:=in_addr.S_un_b.s_b1} // network {$define s_imp:=in_addr.S_un_w.s_w2} // imp {$define s_impno:=in_addr.S_un_b.s_b4} // imp # {$define s_lh:=in_addr.S_un_b.s_b3} // logical host // Definitions of bits in internet address integers. // On subnets, the decomposition of addresses to host and net parts // is done according to subnet mask, not the masks here. const {$define IN_CLASSA(i):=((Longint(i) and $80000000) = 0)} IN_CLASSA_NET =$ff000000; IN_CLASSA_NSHIFT =24; IN_CLASSA_HOST =$00ffffff; IN_CLASSA_MAX =128; {$define IN_CLASSB(i):=((Longint(i) and $c0000000) = $80000000)} IN_CLASSB_NET =$ffff0000; IN_CLASSB_NSHIFT =16; IN_CLASSB_HOST =$0000ffff; IN_CLASSB_MAX =65536; {$define IN_CLASSC(i):=((Longint(i) and $e0000000) = $c0000000)} IN_CLASSC_NET =$ffffff00; IN_CLASSC_NSHIFT =8; IN_CLASSC_HOST =$000000ff; INADDR_ANY =$00000000; INADDR_LOOPBACK =$7f000001; INADDR_BROADCAST =$ffffffff; INADDR_NONE =$ffffffff; // Socket address, internet style. Type sockaddr_in=Record case integer of 0 : ( (* equals to sockaddr_in, size is 16 byte *) sin_family : SmallInt; (* 2 byte *) sin_port : Word; (* 2 byte *) sin_addr : TInAddr; (* 4 byte *) sin_zero : array[0..8-1] of char; (* 8 byte *) ); 1 : ((* equals to sockaddr, size is 16 byte *) sa_family : Smallint; (* 2 byte *) sa_data : array[0..14-1] of char; (* 14 byte *) ); end; TSockAddrIn = sockaddr_in; PSockAddrIn = ^TSockAddrIn; TSockAddr = sockaddr_in; PSockAddr = ^TSockAddr; const WSADESCRIPTION_LEN =256; WSASYS_STATUS_LEN =128; Type WSAData=Record wVersion:Word; wHighVersion:Word; szDescription: array[0..WSADESCRIPTION_LEN] of Char; szSystemStatus: array[0..WSASYS_STATUS_LEN] of Char; iMaxSockets:Word; iMaxUdpDg:Word; // in OS/2 no such entry // pad1 : SmallInt; { 2 byte, ofs 394 } { ensure right packaging } lpVendorInfo:PChar; End; PWSADATA=^WSAData; LPWSADATA=^WSAData; TWSAData = WSADATA; // Options for use with [gs]etsockopt at the IP level. Const IP_OPTIONS =1; // set/get IP per-packet options IP_MULTICAST_IF = 2; IP_MULTICAST_TTL = 3; IP_MULTICAST_LOOP = 4; IP_ADD_MEMBERSHIP = 5; IP_DROP_MEMBERSHIP = 6; IP_DEFAULT_MULTICAST_TTL = 1; IP_DEFAULT_MULTICAST_LOOP = 1; IP_MAX_MEMBERSHIPS = 20; type ip_mreq = record imr_multiaddr : in_addr; imr_interface : in_addr; end; // Definitions related to sockets: types, address families, options, // taken from the BSD file sys/socket.h. // This is used instead of -1, since the // TSocket type is unsigned. Const INVALID_SOCKET = -1; SOCKET_ERROR = -1; // Types Const SOCK_STREAM =1; // stream socket SOCK_DGRAM =2; // datagram socket SOCK_RAW =3; // raw-protocol interface SOCK_RDM =4; // reliably-delivered message SOCK_SEQPACKET =5; // sequenced packet stream // Option flags per-socket. Const SO_DEBUG =$0001; // turn on debugging info recording SO_ACCEPTCONN =$0002; // socket has had listen() SO_REUSEADDR =$0004; // allow local address reuse SO_KEEPALIVE =$0008; // keep connections alive SO_DONTROUTE =$0010; // just use interface addresses SO_BROADCAST =$0020; // permit sending of broadcast msgs SO_USELOOPBACK =$0040; // bypass hardware when possible SO_LINGER =$0080; // linger on close if data present SO_OOBINLINE =$0100; // leave received OOB data in line SO_DONTLINGER =NOT SO_LINGER; // dont linger // Additional options. SO_SNDBUF =$1001; // send buffer size SO_RCVBUF =$1002; // receive buffer size SO_SNDLOWAT =$1003; // send low-water mark SO_RCVLOWAT =$1004; // receive low-water mark SO_SNDTIMEO =$1005; // send timeout SO_RCVTIMEO =$1006; // receive timeout SO_ERROR =$1007; // get error status and clear SO_TYPE =$1008; // get socket type { Options for connect and disconnect data and options. Used only by non-TCP/IP transports such as DECNet, OSI TP4, etc. } SO_CONNDATA = $7000; SO_CONNOPT = $7001; SO_DISCDATA = $7002; SO_DISCOPT = $7003; SO_CONNDATALEN = $7004; SO_CONNOPTLEN = $7005; SO_DISCDATALEN = $7006; SO_DISCOPTLEN = $7007; { Option for opening sockets for synchronous access. } SO_OPENTYPE = $7008; SO_SYNCHRONOUS_ALERT = $10; SO_SYNCHRONOUS_NONALERT = $20; { Other NT-specific options. } SO_MAXDG = $7009; SO_MAXPATHDG = $700A; SO_UPDATE_ACCEPT_CONTEXT = $700B; SO_CONNECT_TIME = $700C; // TCP options. Const TCP_NODELAY = $0001; TCP_BSDURGENT = $7000; // Address families. Const AF_UNSPEC =0; // unspecified AF_UNIX =1; // local to host (pipes, portals) AF_INET =2; // internetwork: UDP, TCP, etc. AF_IMPLINK =3; // arpanet imp addresses AF_PUP =4; // pup protocols: e.g. BSP AF_CHAOS =5; // mit CHAOS protocols AF_NS =6; // XEROX NS protocols AF_ISO =7; // ISO protocols AF_OSI =AF_ISO; // OSI is ISO AF_ECMA =8; // european computer manufacturers AF_DATAKIT =9; // datakit protocols AF_CCITT =10; // CCITT protocols, X.25 etc AF_SNA =11; // IBM SNA AF_DECnet =12; // DECnet AF_DLI =13; // Direct data link interface AF_LAT =14; // LAT AF_HYLINK =15; // NSC Hyperchannel AF_APPLETALK =16; // AppleTalk AF_NETBIOS =17; // NetBios-style addresses { FireFox } AF_FIREFOX = 19; { Somebody is using this! } AF_UNKNOWN1 = 20; { Banyan } AF_BAN = 21; AF_MAX =22; // Structure used by kernel to store most // addresses. Type sockaddr=Record sa_family:Word; // address family sa_data:Array[0..13] of char; // up to 14 bytes of direct address End; // Structure used by kernel to pass protocol // information in raw sockets. sockproto=Record sp_family:Word; // address family sp_protocol:Word; // protocol End; TSockProto = sockproto; PSockProto = ^TSockProto; // Protocol families, same as address families for now. Const PF_UNSPEC =AF_UNSPEC; PF_UNIX =AF_UNIX; PF_INET =AF_INET; PF_IMPLINK =AF_IMPLINK; PF_PUP =AF_PUP; PF_CHAOS =AF_CHAOS; PF_NS =AF_NS; PF_ISO =AF_ISO; PF_OSI =AF_OSI; PF_ECMA =AF_ECMA; PF_DATAKIT =AF_DATAKIT; PF_CCITT =AF_CCITT; PF_SNA =AF_SNA; PF_DECnet =AF_DECnet; PF_DLI =AF_DLI; PF_LAT =AF_LAT; PF_HYLINK =AF_HYLINK; PF_APPLETALK =AF_APPLETALK; PF_FIREFOX = AF_FIREFOX; PF_UNKNOWN1 = AF_UNKNOWN1; PF_BAN = AF_BAN; PF_MAX = AF_MAX; // Structure used for manipulating linger option. Type linger=Record l_onoff:LongInt; // option on/off l_linger:LongInt; // linger time End; TLinger = linger; PLinger = ^TLinger; // Level number for (get/set)sockopt() to apply to socket itself. Const SOL_SOCKET =$ffff; // options for socket level // Maximum queue length specifiable by listen. SOMAXCONN =5; MSG_OOB =1; // process out-of-band data MSG_PEEK =2; // peek at incoming message MSG_DONTROUTE =4; // send without using routing tables MSG_MAXIOVLEN =16; // Define constant based on rfc883, used by gethostbyxxxx() calls. MAXGETHOSTSTRUCT =1024; MAXHOSTNAMELEN = MAXGETHOSTSTRUCT; // Define flags to be used with the WSAAsyncSelect() call. FD_READ =$01; FD_WRITE =$02; FD_OOB =$04; FD_ACCEPT =$08; FD_CONNECT =$10; FD_CLOSE =$20; // All Windows Sockets error constants are biased by WSABASEERR from // the "normal" WSABASEERR =10000; // Windows Sockets definitions of regular Microsoft C error constants WSAEINTR =(WSABASEERR+4); WSAEBADF =(WSABASEERR+9); WSAEACCES =(WSABASEERR+13); WSAEFAULT =(WSABASEERR+14); WSAEINVAL =(WSABASEERR+22); WSAEMFILE =(WSABASEERR+24); // Windows Sockets definitions of regular Berkeley error constants WSAEWOULDBLOCK =(WSABASEERR+35); WSAEINPROGRESS =(WSABASEERR+36); WSAEALREADY =(WSABASEERR+37); WSAENOTSOCK =(WSABASEERR+38); WSAEDESTADDRREQ =(WSABASEERR+39); WSAEMSGSIZE =(WSABASEERR+40); WSAEPROTOTYPE =(WSABASEERR+41); WSAENOPROTOOPT =(WSABASEERR+42); WSAEPROTONOSUPPORT =(WSABASEERR+43); WSAESOCKTNOSUPPORT =(WSABASEERR+44); WSAEOPNOTSUPP =(WSABASEERR+45); WSAEPFNOSUPPORT =(WSABASEERR+46); WSAEAFNOSUPPORT =(WSABASEERR+47); WSAEADDRINUSE =(WSABASEERR+48); WSAEADDRNOTAVAIL =(WSABASEERR+49); WSAENETDOWN =(WSABASEERR+50); WSAENETUNREACH =(WSABASEERR+51); WSAENETRESET =(WSABASEERR+52); WSAECONNABORTED =(WSABASEERR+53); WSAECONNRESET =(WSABASEERR+54); WSAENOBUFS =(WSABASEERR+55); WSAEISCONN =(WSABASEERR+56); WSAENOTCONN =(WSABASEERR+57); WSAESHUTDOWN =(WSABASEERR+58); WSAETOOMANYREFS =(WSABASEERR+59); WSAETIMEDOUT =(WSABASEERR+60); WSAECONNREFUSED =(WSABASEERR+61); WSAELOOP =(WSABASEERR+62); WSAENAMETOOLONG =(WSABASEERR+63); WSAEHOSTDOWN =(WSABASEERR+64); WSAEHOSTUNREACH =(WSABASEERR+65); WSAENOTEMPTY =(WSABASEERR+66); WSAEPROCLIM =(WSABASEERR+67); WSAEUSERS =(WSABASEERR+68); WSAEDQUOT =(WSABASEERR+69); WSAESTALE =(WSABASEERR+70); WSAEREMOTE =(WSABASEERR+71); WSAEDISCON = WSABASEERR + 101; // Extended Windows Sockets error constant definitions WSASYSNOTREADY =(WSABASEERR+91); WSAVERNOTSUPPORTED =(WSABASEERR+92); WSANOTINITIALISED =(WSABASEERR+93); // 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. {$define h_errno:=WSAGetLastError()} // Authoritative Answer: Host not found WSAHOST_NOT_FOUND =(WSABASEERR+1001); HOST_NOT_FOUND =WSAHOST_NOT_FOUND; // Non-Authoritative: Host not found, or SERVERFAIL WSATRY_AGAIN =(WSABASEERR+1002); TRY_AGAIN =WSATRY_AGAIN; // Non recoverable errors, FORMERR, REFUSED, NOTIMP WSANO_RECOVERY =(WSABASEERR+1003); NO_RECOVERY =WSANO_RECOVERY; // Valid name, no data record of requested type WSANO_DATA =(WSABASEERR+1004); NO_DATA =WSANO_DATA; // no address, look for MX record WSANO_ADDRESS =WSANO_DATA; NO_ADDRESS =WSANO_ADDRESS; // Windows Sockets errors redefined as regular Berkeley error constants Const EWOULDBLOCK =WSAEWOULDBLOCK; EINPROGRESS =WSAEINPROGRESS; EALREADY =WSAEALREADY; ENOTSOCK =WSAENOTSOCK; EDESTADDRREQ =WSAEDESTADDRREQ; EMSGSIZE =WSAEMSGSIZE; EPROTOTYPE =WSAEPROTOTYPE; ENOPROTOOPT =WSAENOPROTOOPT; EPROTONOSUPPORT =WSAEPROTONOSUPPORT; ESOCKTNOSUPPORT =WSAESOCKTNOSUPPORT; EOPNOTSUPP =WSAEOPNOTSUPP; EPFNOSUPPORT =WSAEPFNOSUPPORT; EAFNOSUPPORT =WSAEAFNOSUPPORT; EADDRINUSE =WSAEADDRINUSE; EADDRNOTAVAIL =WSAEADDRNOTAVAIL; ENETDOWN =WSAENETDOWN; ENETUNREACH =WSAENETUNREACH; ENETRESET =WSAENETRESET; ECONNABORTED =WSAECONNABORTED; ECONNRESET =WSAECONNRESET; ENOBUFS =WSAENOBUFS; EISCONN =WSAEISCONN; ENOTCONN =WSAENOTCONN; ESHUTDOWN =WSAESHUTDOWN; ETOOMANYREFS =WSAETOOMANYREFS; ETIMEDOUT =WSAETIMEDOUT; ECONNREFUSED =WSAECONNREFUSED; ELOOP =WSAELOOP; ENAMETOOLONG =WSAENAMETOOLONG; EHOSTDOWN =WSAEHOSTDOWN; EHOSTUNREACH =WSAEHOSTUNREACH; ENOTEMPTY =WSAENOTEMPTY; EPROCLIM =WSAEPROCLIM; EUSERS =WSAEUSERS; EDQUOT =WSAEDQUOT; ESTALE =WSAESTALE; EREMOTE =WSAEREMOTE; TF_DISCONNECT = $01; TF_REUSE_SOCKET = $02; TF_WRITE_BEHIND = $04; { Options for use with [gs]etsockopt at the IP level. } IP_TTL = 7; IP_TOS = 8; IP_DONTFRAGMENT = 9; type _TRANSMIT_FILE_BUFFERS = record Head : Pointer; HeadLength : Cardinal; Tail : Pointer; TailLength : Cardinal; end; TRANSMIT_FILE_BUFFERS = _TRANSMIT_FILE_BUFFERS; TTransmitFileBuffers = _TRANSMIT_FILE_BUFFERS; PTransmitFileBuffers = ^TTransmitFileBuffers; // Socket function prototypes Function accept(s: TSocket; Var addr; Var addrlen: LongInt): TSocket; cdecl; external 'PMWSock' index 1; Function accept(s:TSocket; addr: PSockAddr; addrlen : PLongint) : TSocket; cdecl; external 'PMWSock' index 1; Function accept(s:TSocket; addr: PSockAddr; var addrlen : Longint) : TSocket; cdecl; external 'PMWSock' index 1; Function bind(s: TSocket; Const addr; namelen: LongInt): LongInt; cdecl; external 'PMWSock' index 2; Function bind(s:TSocket; addr: PSockaddr;namelen: Longint): Longint; cdecl; external 'PMWSock' index 2; Function closesocket(s: TSocket): LongInt; cdecl; external 'PMWSock' index 3; Function connect(s: TSocket; Const name: sockaddr; namelen: LongInt): LongInt; cdecl; external 'PMWSock' index 4; Function connect(s:TSocket; addr:PSockAddr; namelen: Longint): Longint; cdecl; external 'PMWSock' index 4; Function ioctlsocket(s: TSocket; cmd: LongInt; Var argp: Cardinal): LongInt; cdecl; external 'PMWSock' index 12; Function ioctlsocket(s: TSocket; cmd: longint; var arg:longint): Longint; cdecl; external 'PMWSock' index 12; Function ioctlsocket(s: TSocket; cmd: longint; argp: PCardinal): Longint; cdecl; external 'PMWSock' index 12; Function getpeername(s: TSocket; Var name: sockaddr; Var nameLen: LongInt): LongInt; cdecl; external 'PMWSock' index 5; Function getsockname(s: TSocket;Var name: sockaddr; Var namelen: LongInt): LongInt; cdecl; external 'PMWSock' index 6; Function getsockopt(s: TSocket; level, optname: LongInt;Var optval; Var optlen: LongInt): LongInt; cdecl; external 'PMWSock' index 7; Function getsockopt(s: TSocket; level: Longint; optname: Longint; optval:pchar;var optlen: Longint): Longint; cdecl; external 'PMWSock' index 7; Function htonl(hostlong: Cardinal): Cardinal; cdecl; external 'PMWSock' index 8; Function htons(hostshort: Word): Word; cdecl; external 'PMWSock' index 9; Function inet_addr(cp: pchar): Cardinal; cdecl; external 'PMWSock' index 10; Function inet_ntoa(Var _in: in_addr): PChar; cdecl; external 'PMWSock' index 11; Function inet_ntoa(i: PInAddr): pchar; cdecl; external 'PMWSock' index 11; Function listen(s: TSocket; backlog: LongInt): LongInt; cdecl; external 'PMWSock' index 13; Function ntohl(netlong: Cardinal): Cardinal; cdecl; external 'PMWSock' index 14; Function ntohs(netshort: Word): Word; cdecl; external 'PMWSock' index 15; Function recv(s: TSocket;Var Buf; len, flags: LongInt): LongInt; cdecl; external 'PMWSock' index 16; Function recv(s: TSocket; buf:pchar; len: Longint; flags: Longint): Longint; cdecl; external 'PMWSock' index 16; Function recvfrom(s: TSocket; Var Buf: PChar; len, flags:LongInt; Var from: sockaddr; Var fromLen: LongInt): LongInt; cdecl; external 'PMWSock' index 17; Function recvfrom(s: TSocket; buf:pchar; len: Longint; flags: Longint; from: PSockAddr; fromlen: Longint): Longint; cdecl; external 'PMWSock' index 17; Function recvfrom(s: TSocket; var buf; len: Longint; flags: Longint; Const from: TSockAddr; var fromlen: Longint): Longint; cdecl; external 'PMWSock' index 17; Function select(nfds: LongInt; Var readfds, writefds, exceptfds: fdset; Const timeout: timeval): LongInt; cdecl; external 'PMWSock' index 18; Function select(nfds: Longint; readfds, writefds, exceptfds : PFDSet; timeout: PTimeVal): Longint; cdecl; external 'PMWSock' index 18; Function send(s: TSocket; Const Buf: PChar; len, flags: LongInt): LongInt; cdecl; external 'PMWSock' index 19; Function sendto(s: TSocket; Const Buf: PChar; len, flags: LongInt; Const _to: sockaddr; tolen: LongInt): LongInt; cdecl; external 'PMWSock' index 20; Function sendto(s: TSocket; buf: pchar; len: Longint; flags: Longint; toaddr: PSockAddr; tolen: Longint): Longint; cdecl; external 'PMWSock' index 20; Function setsockopt(s: TSocket; level: Longint; optname: Longint; optval: pchar; optlen: Longint): Longint; cdecl; external 'PMWSock' index 21; Function shutdown(s: TSocket; how: LongInt): LongInt; cdecl; external 'PMWSock' index 22; Function socket(af, typ, protocol: LongInt): TSocket; cdecl; external 'PMWSock' index 23; // Database function prototypes Function gethostbyaddr(addr: pchar; len: Longint; t: Longint): PHostEnt; cdecl; external 'PMWSock' index 51; Function gethostbyname(name: pchar): PHostEnt; cdecl; external 'PMWSock' index 52; Function gethostname(name: pchar; namelen: Longint): Longint; cdecl; external 'PMWSock' index 57; Function getservbyport(port: Longint; proto: pchar): PServEnt; cdecl; external 'PMWSock' index 56; Function getservbyname(name: pchar; proto: pchar): PServEnt; cdecl; external 'PMWSock' index 55; Function getprotobynumber(proto: LongInt): pprotoent; cdecl; external 'PMWSock' index 54; Function getprotobyname(name: pchar): PProtoEnt; cdecl; external 'PMWSock' index 53; // Microsoft Windows Extension function prototypes Function WSAStartup(wVersionRequired: Word;Var aWSAData: WSAData): LongInt; cdecl; external 'PMWSock' index 115; Function WSACleanup: LongInt; cdecl; external 'PMWSock' index 116; Procedure WSASetLastError(iError: LongInt); cdecl; external 'PMWSock' index 112; Function WSAGetLastError: LongInt; cdecl; external 'PMWSock' index 111; Function WSAIsBlocking: Longbool; cdecl; external 'PMWSock' index 114; Function WSAUnhookBlockingHook: LongInt; cdecl; external 'PMWSock' index 110; Function WSASetBlockingHook(lpBlockFunc: Pointer): Pointer; cdecl; external 'PMWSock' index 109; Function WSACancelBlockingCall: LongInt; cdecl; external 'PMWSock' index 113; Function WSAAsyncGetServByName(hWnd: HWND; wMsg: Cardinal; name: pchar; proto: pchar; buf: pchar; buflen: Longint): Cardinal; cdecl; external 'PMWSock' index 107; Function WSAAsyncGetServByPort(hWnd: HWND; wMsg: Cardinal; port: Longint; proto: pchar; buf: pchar; buflen: Longint): Cardinal; cdecl; external 'PMWSock' index 106; Function WSAAsyncGetProtoByName(hWnd: HWND; wMsg: Cardinal; name: pchar; buf: pchar; buflen: Longint): Cardinal; cdecl; external 'PMWSock' index 105; Function WSAAsyncGetProtoByNumber(hWnd: HWND; wMsg: Cardinal; number: Longint; buf: pchar; buflen: Longint): Cardinal; cdecl; external 'PMWSock' index 104; Function WSAAsyncGetHostByName(hWnd: HWND; wMsg: Cardinal; name: pchar; buf: pchar; buflen: Longint): Cardinal; cdecl; external 'PMWSock' index 103; Function WSAAsyncGetHostByAddr(hWnd: HWND; wMsg: Cardinal; addr: pchar; len: Longint; t: Longint; buf: pchar; buflen: Longint): Cardinal; cdecl; external 'PMWSock' index 102; Function WSACancelAsyncRequest(hAsyncTaskHandle: Cardinal): LongInt; cdecl; external 'PMWSock' index 108; Function WSAAsyncSelect(s: TSocket; ahWnd: HWND; wMsg: Cardinal; lEvent: LongInt): Cardinal; cdecl; external 'PMWSock' index 101; // Windows message parameter composition and decomposition // macros. // // WSAMAKEASYNCREPLY is intended for use by the Windows Sockets implementation // when constructing the response to a WSAAsyncGetXByY() routine. Function WSAMakeAsyncReply(Buflen,Error:Word):dword; // Seems to be error in rtl\win32\winsock.pp Function WSAMakeSyncReply(Buflen,Error:Word):dword; // WSAMAKESELECTREPLY is intended for use by the Windows Sockets implementation // when constructing the response to WSAAsyncSelect(). Function WSAMakeSelectReply(Event,Error:Word):dword; // WSAGETASYNCBUFLEN is intended for use by the Windows Sockets application // to extract the buffer length from the lParam in the response // to a WSAGetXByY(). Function WSAGetAsyncBuflen(Param:dword):Word; // // WSAGETASYNCERROR is intended for use by the Windows Sockets application // to extract the error code from the lParam in the response // to a WSAGetXByY(). Function WSAGetAsyncError(Param:dword):Word; // WSAGETSELECTEVENT is intended for use by the Windows Sockets application // to extract the event code from the lParam in the response // to a WSAAsyncSelect(). Function WSAGetSelectEvent(Param:dword):Word; // WSAGETSELECTERROR is intended for use by the Windows Sockets application // to extract the error code from the lParam in the response // to a WSAAsyncSelect(). Function WSAGetSelectError(Param:dword):Word; Procedure FD_ZERO(var aset: fdset); // Following functions not found in PMWSock { function WSARecvEx(s:TSocket;var buf; len:tOS_INT; flags:ptOS_INT):tOS_INT;stdcall; external winsockdll name 'WSARecvEx'; function TransmitFile(hSocket:TSocket; hFile:THandle; nNumberOfBytesToWrite:dword; nNumberOfBytesPerSend:DWORD; lpOverlapped:POverlapped; lpTransmitBuffers:PTransmitFileBuffers; dwReserved:dword):Bool;stdcall; external winsockdll name 'TransmitFile'; function AcceptEx(sListenSocket,sAcceptSocket:TSocket; lpOutputBuffer:Pointer; dwReceiveDataLength,dwLocalAddressLength, dwRemoteAddressLength:dword; var lpdwBytesReceived:dword; lpOverlapped:POverlapped):Bool;stdcall; external winsockdll name 'AcceptEx'; procedure GetAcceptExSockaddrs(lpOutputBuffer:Pointer; dwReceiveDataLength,dwLocalAddressLength,dwRemoteAddressLength:dword; var LocalSockaddr:TSockAddr; var LocalSockaddrLength:tOS_INT; var RemoteSockaddr:TSockAddr; var RemoteSockaddrLength:tOS_INT);stdcall; external winsockdll name 'GetAcceptExSockaddrs'; } Implementation Procedure FD_CLR(ASocket: TSocket; var aset: fdset); var I: Cardinal; begin I := 0; while I <= aset.fd_count do begin if (aset.fd_array[i] = ASocket) then begin while (i < (aset.fd_count-1)) do begin aset.fd_array[I]:=aset.fd_array[i+1]; Inc(I); end; Dec(aset.fd_count); break; end; Inc (I); end; end; Procedure FD_ZERO(var aset: fdset); Begin aset.fd_count:=0; End; procedure FD_SET(Socket: TSocket; var FDSet: tfdset); begin if FDSet.fd_count < FD_SETSIZE then begin FDSet.fd_array[FDSet.fd_count] := Socket; Inc(FDSet.fd_count); end; end; Function MAKELONG(a,b : longint) : LONGINT; begin MAKELONG:=LONGINT((WORD(a)) or ((CARDINAL(WORD(b))) shl 16)); end; Function WSAMakeAsyncReply(Buflen,Error:Word):dword; begin WSAMakeAsyncReply:=MakeLong(Buflen, Error); end; Function WSAMakeSyncReply(Buflen,Error:Word):dword; begin WSAMakeSyncReply:=WSAMakeAsyncReply(Buflen,Error); end; Function WSAMakeSelectReply(Event,Error:Word):dword; begin WSAMakeSelectReply:=MakeLong(Event,Error); end; Function WSAGetAsyncBuflen(Param:dword):Word; begin WSAGetAsyncBuflen:=lo(Param); end; Function WSAGetAsyncError(Param:dword):Word; begin WSAGetAsyncError:=hi(Param); end; Function WSAGetSelectEvent(Param:dword):Word; begin WSAGetSelectEvent:=lo(Param); end; Function WSAGetSelectError(Param:dword):Word; begin WSAGetSelectError:=hi(Param); end; Function timerisset(tvp: timeval): Boolean; Begin TimerIsSet:=Boolean(tvp.tv_sec or tvp.tv_usec); End; (* Function timercmp(tvp, uvp, cmp): Boolean; Begin ((tvp)->tv_sec cmp (uvp)->tv_sec || \ (tvp)->tv_sec == (uvp)->tv_sec && (tvp)->tv_usec cmp (uvp)->tv_usec) End; *) Procedure timerclear(var tvp: timeval); begin tvp.tv_sec:=0; tvp.tv_usec:=0; end; end.