aksdb
/
restemplate
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
restemplate/indy/System/IdWinsock2.pas

9019 lines
326 KiB
Plaintext
Raw Permalink Blame History

{
$Project$
$Workfile$
$Revision$
$DateUTC$
$Id$
This file is part of the Indy (Internet Direct) project, and is offered
under the dual-licensing agreement described on the Indy website.
(http://www.indyproject.org/)
Copyright:
(c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
}
{
$Log$
}
{
Log: 56400: IdWinsock2.pas
Rev 1.0 2004.02.03 3:14:50 PM czhower
Move and updates
Rev 1.15 1/3/2004 12:41:48 AM BGooijen
Fixed WSAEnumProtocols
Rev 1.14 10/15/2003 1:20:48 PM DSiders
Added localization comments.
Rev 1.13 2003.10.01 11:16:38 AM czhower
.Net
Rev 1.12 9/24/2003 09:18:24 AM JPMugaas
Fixed an AV that happened when a stack call was made.
Rev 1.11 24/9/2003 3:11:34 PM SGrobety
First wave of fixes for compiling in dotnet. Still not functional, needed to
unlock to fix critical failure in Delphi code
Rev 1.10 9/22/2003 11:20:14 PM EHill
Removed assembly code and replaced with defined API stubs.
Rev 1.9 7/7/2003 12:55:10 PM BGooijen
Fixed ServiceQueryTransmitFile, and made it public
Rev 1.8 2003.05.09 10:59:30 PM czhower
Rev 1.7 4/19/2003 10:28:24 PM BGooijen
some functions were linked to the wrong dll
Rev 1.6 4/19/2003 11:14:40 AM JPMugaas
Made some tentitive wrapper functions for some things that should be called
from the Service Provider. Fixed WSARecvMsg.
Rev 1.5 4/19/2003 02:29:26 AM JPMugaas
Added TransmitPackets API function call. Note that this is only supported in
Windows XP or later.
Rev 1.4 4/19/2003 12:22:58 AM BGooijen
fixed: ConnectEx DisconnectEx WSARecvMsg
Rev 1.3 4/18/2003 12:00:58 AM JPMugaas
added
ConnectEx
DisconnectEx
WSARecvMsg
Changed header procedure type names to be consistant with the old
IdWinsock.pas in Indy 8.0 and with the rest of the unit.
Rev 1.2 3/22/2003 10:01:26 PM JPMugaas
WSACreateEvent couldn't load because of a space.
Rev 1.1 3/22/2003 09:46:54 PM JPMugaas
It turns out that we really do not need the TGUID defination in the header at
all. It's defined in D4, D5, D6, and D7.
Rev 1.0 11/13/2002 09:02:54 AM JPMugaas
}
//-------------------------------------------------------------
//
// Borland Delphi Runtime Library
// <API> interface unit
//
// Portions created by Microsoft are
// Copyright (C) 1995-1999 Microsoft Corporation.
// All Rights Reserved.
//
// The original file is: Winsock2.h from CBuilder5 distribution.
// The original Pascal code is: winsock2.pas, released 03 Mar 2001.
// The initial developer of the Pascal code is Alex Konshin
// (alexk@mtgroup.ru).
//-------------------------------------------------------------
{ Winsock2.h -- definitions to be used with the WinSock 2 DLL and WinSock 2 applications.
This header file corresponds to version 2.2.x of the WinSock API specification.
This file includes parts which are Copyright (c) 1982-1986 Regents
of the University of California. All rights reserved.
The Berkeley Software License Agreement specifies the terms and
conditions for redistribution. }
// Note that the original unit is copyrighted by the original author and I did obtain his
// permission to port and use this as part of Indy - J. Peter Mugaas
// 2002-01-28 - Hadi Hariri. Fixes for C++ Builder. Thanks to Chuck Smith.
// 2001 - Oct -25 J. Peter Mugaas
// Made adjustments for Indy usage by
// 1) including removing Trace logging
// 2) renaming and consolidating some .INC files as appropriate
// 3) modifying the unit to follow Indy conventions
// 4) Adding TransmitFile support for the HTTP Server
// 5) Removing all static loading code that was IFDEF'ed. {Do not Localize}
// 2001 - Mar - 1 Alex Konshin
// Revision 3
// converted by Alex Konshin, mailto:alexk@mtgroup.ru
// revision 3, March,1 2001
unit IdWinsock2;
interface
{$I IdCompilerDefines.inc}
{
Important!!!
With the ARM architecture, you may get an EBusError exception sating that
data is misaligned. Sometimes, that architecture does not have the ability to
read misaligned data. On an i386 and x86_64 architecure, you can do this but it
is inefficient. For the ARM chip architecture, we have to make sure our records
are aligned on a 4 byte boundery. See:
http://wiki.lazarus.freepascal.org/Windows_CE_Development_Notes
This is not necessary and can cause problems
when using the standard Win32 API (win32 and win64) where records are packed
instead of aligned.
To deal with this, I use the FPC predefined FPC_REQUIRES_PROPER_ALIGNMENT.
}
{$RANGECHECKS OFF}
{$IFDEF FPC}
{$IFDEF WIN32}
{$ALIGN OFF}
{$ELSE}
//It turns out that Win64 and WinCE require record alignment
{$PACKRECORDS C}
{$ENDIF}
{$ELSE}
{$IFDEF WIN64}
{$ALIGN ON}
{$MINENUMSIZE 4}
{$ELSE}
{$MINENUMSIZE 4}
{$IFDEF REQUIRES_PROPER_ALIGNMENT}
{$ALIGN ON}
{$ELSE}
{$ALIGN OFF}
{$WRITEABLECONST OFF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
uses
IdException, IdGlobal, SysUtils, Windows;
type
EIdWinsockStubError = class(EIdException)
protected
FWin32Error : DWORD;
FWin32ErrorMessage : String;
FTitle : String;
public
constructor Build(AWin32Error: DWORD; const ATitle: String; AArgs: array of const);
property Win32Error : DWORD read FWin32Error;
property Win32ErrorMessage : String read FWin32ErrorMessage;
property Title : String read FTitle;
end;
const
{$IFDEF WINCE}
WINSOCK2_DLL = 'ws2.dll'; {Do not Localize}
{$ELSE}
WINSOCK2_DLL = 'WS2_32.DLL'; {Do not Localize}
MSWSOCK_DLL = 'MSWSOCK.DLL'; {Do not Localize}
{$ENDIF}
{$EXTERNALSYM WINSOCK_VERSION}
WINSOCK_VERSION = $0202;
{$DEFINE WS2_DLL_FUNC_VARS}
{$DEFINE INCL_WINSOCK_API_PROTOTYPES}
{$DEFINE INCL_WINSOCK_API_TYPEDEFS}
type
{$EXTERNALSYM u_char}
u_char = Byte;
{$EXTERNALSYM u_short}
u_short = Word;
{$EXTERNALSYM u_int}
u_int = DWord; //Integer;
{$EXTERNALSYM u_long}
u_long = DWORD;
// The new type to be used in all instances which refer to sockets.
{$EXTERNALSYM TSocket}
TSocket = PtrUInt;
{$EXTERNALSYM WSAEVENT}
WSAEVENT = THandle;
{$NODEFINE PWSAEVENT}
PWSAEVENT = ^WSAEVENT;
{$EXTERNALSYM LPWSAEVENT}
LPWSAEVENT = PWSAEVENT;
// Must define the following types because the older versions of Delphi do not support them
{$IFNDEF HAS_ULONG_PTR}
{$EXTERNALSYM ULONG_PTR}
ULONG_PTR = PtrUInt;
{$ENDIF}
{$IFNDEF HAS_DWORD_PTR}
{$EXTERNALSYM DWORD_PTR}
DWORD_PTR = PtrUInt;
{$ENDIF}
{$IFNDEF HAS_USHORT}
{$EXTERNALSYM USHORT}
USHORT = UInt16;
{$ENDIF}
{$IFNDEF HAS_PVOID}
{$EXTERNALSYM PVOID}
PVOID = Pointer;
{$ENDIF}
{$IFNDEF HAS_ULONG64}
{$EXTERNALSYM ULONG64}
ULONG64 = UInt64;
{$ENDIF}
{$IFNDEF HAS_LONG}
{$EXTERNALSYM LONG}
LONG = Longint;
{$ENDIF}
{$IFNDEF HAS_ULONGLONG}
{$EXTERNALSYM ULONGLONG}
ULONGLONG = UInt64;
{$ENDIF}
const
{$EXTERNALSYM FD_SETSIZE}
FD_SETSIZE = 64;
// the following emits are a workaround to the name conflicts
// with the winsock2 header files
(*$HPPEMIT '#include <winsock2.h>'*)
(*$HPPEMIT '#include <ws2tcpip.h>'*)
(*$HPPEMIT '#include <wsipx.h>'*)
(*$HPPEMIT '// workaround for a bug in wsnwlink.h where a couple of commented lines are not terminated property'*)
(*$HPPEMIT '#pragma option push -C-'*)
(*$HPPEMIT '#include <wsnwlink.h>'*)
(*$HPPEMIT '#pragma option pop'*)
(*$HPPEMIT '#include <wsnetbs.h>'*)
(*$HPPEMIT '#include <ws2atm.h>'*)
(*$HPPEMIT '#include <mswsock.h>'*)
(*$HPPEMIT ''*)
(*$HPPEMIT 'namespace Idwinsock2'*)
(*$HPPEMIT '{'*)
(*$HPPEMIT ' typedef fd_set *PFDSet;'*) // due to name conflict with procedure FD_SET
(*$HPPEMIT ' typedef fd_set TFDSet;'*) // due to name conflict with procedure FD_SET
(*$HPPEMIT '}'*)
(*$HPPEMIT ''*)
type
{$NODEFINE PFDSet}
PFDSet = ^TFDSet;
{$NODEFINE TFDSet}
TFDSet = record
fd_count: u_int;
fd_array: array[0..FD_SETSIZE-1] of TSocket;
end;
{$EXTERNALSYM timeval}
timeval = record
tv_sec: Longint;
tv_usec: Longint;
end;
{$NODEFINE TTimeVal}
TTimeVal = timeval;
{$NODEFINE PTimeVal}
PTimeVal = ^TTimeVal;
const
{$EXTERNALSYM IOCPARM_MASK}
IOCPARM_MASK = $7F;
{$EXTERNALSYM IOC_VOID}
IOC_VOID = $20000000;
{$EXTERNALSYM IOC_OUT}
IOC_OUT = $40000000;
{$EXTERNALSYM IOC_IN}
IOC_IN = $80000000;
{$EXTERNALSYM IOC_INOUT}
IOC_INOUT = (IOC_IN or IOC_OUT);
// get # bytes to read
{$EXTERNALSYM FIONREAD}
FIONREAD = IOC_OUT or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('f') shl 8) or 127; {Do not Localize}
// set/clear non-blocking i/o
{$EXTERNALSYM FIONBIO}
FIONBIO = IOC_IN or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('f') shl 8) or 126; {Do not Localize}
// set/clear async i/o
{$EXTERNALSYM FIOASYNC}
FIOASYNC = IOC_IN or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('f') shl 8) or 125; {Do not Localize}
// Socket I/O Controls
// set high watermark
{$EXTERNALSYM SIOCSHIWAT}
SIOCSHIWAT = IOC_IN or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('s') shl 8) or 0; {Do not Localize}
// get high watermark
{$EXTERNALSYM SIOCGHIWAT}
SIOCGHIWAT = IOC_OUT or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('s') shl 8) or 1; {Do not Localize}
// set low watermark
{$EXTERNALSYM SIOCSLOWAT}
SIOCSLOWAT = IOC_IN or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('s') shl 8) or 2; {Do not Localize}
// get low watermark
{$EXTERNALSYM SIOCGLOWAT}
SIOCGLOWAT = IOC_OUT or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('s') shl 8) or 3; {Do not Localize}
// at oob mark?
{$EXTERNALSYM SIOCATMARK}
SIOCATMARK = IOC_OUT or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('s') shl 8) or 7; {Do not Localize}
// 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
{$EXTERNALSYM hostent}
hostent = record
h_name: PAnsiChar; // official name of host
h_aliases: ^PAnsiChar; // alias list
h_addrtype: short; // host address type
h_length: short; // length of address
case Byte of
0: (h_address_list: ^PAnsiChar);
1: (h_addr: PAnsiChar); // address, for backward compat
end;
{$NODEFINE THostEnt}
THostEnt = hostent;
{$NODEFINE PHostEnt}
PHostEnt = ^THostEnt;
// It is assumed here that a network number
// fits in 32 bits.
{$EXTERNALSYM netent}
netent = record
n_name: PAnsiChar; // official name of net
n_aliases: ^PAnsiChar; // alias list
n_addrtype: short; // net address type
n_net: u_long; // network #
end;
{$NODEFINE TNetEnt}
TNetEnt = netent;
{$NODEFINE PNetEnt}
PNetEnt = ^TNetEnt;
{$EXTERNALSYM servent}
servent = record
s_name: PAnsiChar; // official service name
s_aliases: ^PAnsiChar; // alias list
{$IFDEF _WIN64}
s_proto: PAnsiChar; // protocol to use
s_port: short; // port #
{$ELSE}
s_port: short; // port #
s_proto: PAnsiChar; // protocol to use
{$ENDIF}
end;
{$NODEFINE TServEnt}
TServEnt = servent;
{$NODEFINE PServEnt}
PServEnt = ^TServEnt;
{$EXTERNALSYM protoent}
protoent = record
p_name: PAnsiChar; // official protocol name
p_aliases: ^PAnsiChar; // alias list
p_proto: short; // protocol #
end;
{$NODEFINE TProtoEnt}
TProtoEnt = protoent;
{$NODEFINE PProtoEnt}
PProtoEnt = ^TProtoEnt;
{$EXTERNALSYM NL_ADDRESS_TYPE}
NL_ADDRESS_TYPE = (
NlatUnspecified,
NlatUnicast,
NlatAnycast,
NlatMulticast,
NlatBroadcast,
NlatInvalid);
// Constants and structures defined by the internet system,
// Per RFC 790, September 1981, taken from the BSD file netinet/in.h.
const
// Protocols
{$EXTERNALSYM IPPROTO_IP}
IPPROTO_IP = 0; // dummy for IP
{$EXTERNALSYM IPPROTO_ICMP}
IPPROTO_ICMP = 1; // control message protocol
{$EXTERNALSYM IPPROTO_IGMP}
IPPROTO_IGMP = 2; // group management protocol
{$EXTERNALSYM IPPROTO_GGP}
IPPROTO_GGP = 3; // gateway^2 (deprecated)
{$EXTERNALSYM IPPROTO_TCP}
IPPROTO_TCP = 6; // TCP
{$EXTERNALSYM IPPROTO_PUP}
IPPROTO_PUP = 12; // pup
{$EXTERNALSYM IPPROTO_UDP}
IPPROTO_UDP = 17; // UDP - user datagram protocol
{$EXTERNALSYM IPPROTO_IDP}
IPPROTO_IDP = 22; // xns idp
{$EXTERNALSYM IPPROTO_ND}
IPPROTO_ND = 77; // UNOFFICIAL net disk proto
{$EXTERNALSYM IPPROTO_IPV6}
IPPROTO_IPV6 = 41; // IPv6
{$EXTERNALSYM IPPROTO_ICLFXBM}
IPPROTO_ICLFXBM = 78;
{$EXTERNALSYM IPPROTO_ICMPV6}
IPPROTO_ICMPV6 = 58; // control message protocol
{$EXTERNALSYM IPPROTO_RAW}
IPPROTO_RAW = 255; // raw IP packet
{$EXTERNALSYM IPPROTO_MAX}
IPPROTO_MAX = 256;
// Port/socket numbers: network standard functions
{$EXTERNALSYM IPPORT_ECHO}
IPPORT_ECHO = 7;
{$EXTERNALSYM IPPORT_DISCARD}
IPPORT_DISCARD = 9;
{$EXTERNALSYM IPPORT_SYSTAT}
IPPORT_SYSTAT = 11;
{$EXTERNALSYM IPPORT_DAYTIME}
IPPORT_DAYTIME = 13;
{$EXTERNALSYM IPPORT_NETSTAT}
IPPORT_NETSTAT = 15;
{$EXTERNALSYM IPPORT_FTP}
IPPORT_FTP = 21;
{$EXTERNALSYM IPPORT_TELNET}
IPPORT_TELNET = 23;
{$EXTERNALSYM IPPORT_SMTP}
IPPORT_SMTP = 25;
{$EXTERNALSYM IPPORT_TIMESERVER}
IPPORT_TIMESERVER = 37;
{$EXTERNALSYM IPPORT_NAMESERVER}
IPPORT_NAMESERVER = 42;
{$EXTERNALSYM IPPORT_WHOIS}
IPPORT_WHOIS = 43;
{$EXTERNALSYM IPPORT_MTP}
IPPORT_MTP = 57;
// Port/socket numbers: host specific functions
{$EXTERNALSYM IPPORT_TFTP}
IPPORT_TFTP = 69;
{$EXTERNALSYM IPPORT_RJE}
IPPORT_RJE = 77;
{$EXTERNALSYM IPPORT_FINGER}
IPPORT_FINGER = 79;
{$EXTERNALSYM ipport_ttylink}
IPPORT_TTYLINK = 87;
{$EXTERNALSYM IPPORT_SUPDUP}
IPPORT_SUPDUP = 95;
// UNIX TCP sockets
{$EXTERNALSYM IPPORT_EXECSERVER}
IPPORT_EXECSERVER = 512;
{$EXTERNALSYM IPPORT_LOGINSERVER}
IPPORT_LOGINSERVER = 513;
{$EXTERNALSYM IPPORT_CMDSERVER}
IPPORT_CMDSERVER = 514;
{$EXTERNALSYM IPPORT_EFSSERVER}
IPPORT_EFSSERVER = 520;
// UNIX UDP sockets
{$EXTERNALSYM IPPORT_BIFFUDP}
IPPORT_BIFFUDP = 512;
{$EXTERNALSYM IPPORT_WHOSERVER}
IPPORT_WHOSERVER = 513;
{$EXTERNALSYM IPPORT_ROUTESERVER}
IPPORT_ROUTESERVER = 520;
// Ports < IPPORT_RESERVED are reserved for privileged processes (e.g. root).
{$EXTERNALSYM IPPORT_RESERVED}
IPPORT_RESERVED = 1024;
{$EXTERNALSYM IPPORT_REGISTERED_MIN}
IPPORT_REGISTERED_MIN = IPPORT_RESERVED;
{$IFNDEF WINCE}
{$EXTERNALSYM IPPORT_REGISTERED_MAX}
IPPORT_REGISTERED_MAX = $bfff;
{$EXTERNALSYM IPPORT_DYNAMIC_MIN}
IPPORT_DYNAMIC_MIN = $c000;
{$EXTERNALSYM IPPORT_DYNAMIC_MAX}
IPPORT_DYNAMIC_MAX = $ffff;
{$ENDIF}
// Link numbers
{$EXTERNALSYM IMPLINK_IP}
IMPLINK_IP = 155;
{$EXTERNALSYM IMPLINK_LOWEXPER}
IMPLINK_LOWEXPER = 156;
{$EXTERNALSYM IMPLINK_HIGHEXPER}
IMPLINK_HIGHEXPER = 158;
{$EXTERNALSYM TF_DISCONNECT}
TF_DISCONNECT = $01;
{$EXTERNALSYM TF_REUSE_SOCKET}
TF_REUSE_SOCKET = $02;
{$EXTERNALSYM TF_WRITE_BEHIND}
TF_WRITE_BEHIND = $04;
{$EXTERNALSYM TF_USE_DEFAULT_WORKER}
TF_USE_DEFAULT_WORKER = $00;
{$EXTERNALSYM TF_USE_SYSTEM_THREAD}
TF_USE_SYSTEM_THREAD = $10;
{$EXTERNALSYM TF_USE_KERNEL_APC}
TF_USE_KERNEL_APC = $20;
// This is used instead of -1, since the TSocket type is unsigned.
{$EXTERNALSYM INVALID_SOCKET}
INVALID_SOCKET = TSocket(not(0));
{$EXTERNALSYM SOCKET_ERROR}
SOCKET_ERROR = -1;
// The following may be used in place of the address family, socket type, or
// protocol in a call to WSASocket to indicate that the corresponding value
// should be taken from the supplied WSAPROTOCOL_INFO structure instead of the
// parameter itself.
{$EXTERNALSYM FROM_PROTOCOL_INFO}
FROM_PROTOCOL_INFO = -1;
// Types
{$EXTERNALSYM SOCK_STREAM}
SOCK_STREAM = 1; { stream socket }
{$EXTERNALSYM SOCK_DGRAM}
SOCK_DGRAM = 2; { datagram socket }
{$EXTERNALSYM SOCK_RAW}
SOCK_RAW = 3; { raw-protocol interface }
{$EXTERNALSYM SOCK_RDM}
SOCK_RDM = 4; { reliably-delivered message }
{$EXTERNALSYM SOCK_SEQPACKET}
SOCK_SEQPACKET = 5; { sequenced packet stream }
// option flags per-socket.
{$EXTERNALSYM SO_DEBUG}
SO_DEBUG = $0001; // turn on debugging info recording
{$EXTERNALSYM SO_ACCEPTCONN}
SO_ACCEPTCONN = $0002; // socket has had listen()
{$EXTERNALSYM SO_REUSEADDR}
SO_REUSEADDR = $0004; // allow local address reuse
{$EXTERNALSYM SO_KEEPALIVE}
SO_KEEPALIVE = $0008; // keep connections alive
{$EXTERNALSYM SO_DONTROUTE}
SO_DONTROUTE = $0010; // just use interface addresses
{$EXTERNALSYM SO_BROADCAST}
SO_BROADCAST = $0020; // permit sending of broadcast msgs
{$EXTERNALSYM SO_USELOOPBACK}
SO_USELOOPBACK = $0040; // bypass hardware when possible
{$EXTERNALSYM SO_LINGER}
SO_LINGER = $0080; // linger on close if data present
{$EXTERNALSYM SO_OOBINLINE}
SO_OOBINLINE = $0100; // leave received OOB data in line
{$EXTERNALSYM SO_DONTLINGER}
SO_DONTLINGER = not SO_LINGER;
{$EXTERNALSYM SO_EXCLUSIVEADDRUSE}
SO_EXCLUSIVEADDRUSE = not SO_REUSEADDR; // disallow local address reuse
// additional options.
{$EXTERNALSYM SO_SNDBUF}
SO_SNDBUF = $1001; // send buffer size
{$EXTERNALSYM SO_RCVBUF}
SO_RCVBUF = $1002; // receive buffer size
{$EXTERNALSYM SO_SNDLOWAT}
SO_SNDLOWAT = $1003; // send low-water mark
{$EXTERNALSYM SO_RCVLOWAT}
SO_RCVLOWAT = $1004; // receive low-water mark
{$EXTERNALSYM SO_SNDTIMEO}
SO_SNDTIMEO = $1005; // send timeout
{$EXTERNALSYM SO_RCVTIMEO}
SO_RCVTIMEO = $1006; // receive timeout
{$EXTERNALSYM SO_ERROR}
SO_ERROR = $1007; // get error status and clear
{$EXTERNALSYM SO_TYPE}
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.
{$EXTERNALSYM SO_CONNDATA}
SO_CONNDATA = $7000;
{$EXTERNALSYM SO_CONNOPT}
SO_CONNOPT = $7001;
{$EXTERNALSYM SO_DISCDATA}
SO_DISCDATA = $7002;
{$EXTERNALSYM SO_DISCOPT}
SO_DISCOPT = $7003;
{$EXTERNALSYM SO_CONNDATALEN}
SO_CONNDATALEN = $7004;
{$EXTERNALSYM SO_CONNOPTLEN}
SO_CONNOPTLEN = $7005;
{$EXTERNALSYM SO_DISCDATALEN}
SO_DISCDATALEN = $7006;
{$EXTERNALSYM SO_DISCOPTLEN}
SO_DISCOPTLEN = $7007;
// option for opening sockets for synchronous access.
{$EXTERNALSYM SO_OPENTYPE}
SO_OPENTYPE = $7008;
{$EXTERNALSYM SO_SYNCHRONOUS_ALERT}
SO_SYNCHRONOUS_ALERT = $10;
{$EXTERNALSYM SO_SYNCHRONOUS_NONALERT}
SO_SYNCHRONOUS_NONALERT = $20;
// other nt-specific options.
{$EXTERNALSYM SO_MAXDG}
SO_MAXDG = $7009;
{$EXTERNALSYM SO_MAXPATHDG}
SO_MAXPATHDG = $700A;
{$EXTERNALSYM SO_UPDATE_ACCEPT_CONTEXT}
SO_UPDATE_ACCEPT_CONTEXT = $700B;
{$EXTERNALSYM SO_CONNECT_TIME}
SO_CONNECT_TIME = $700C;
{$EXTERNALSYM SO_UPDATE_CONNECT_CONTEXT}
SO_UPDATE_CONNECT_CONTEXT = $7010;
// tcp options.
{$EXTERNALSYM TCP_NODELAY}
TCP_NODELAY = $0001;
{$EXTERNALSYM TCP_BSDURGENT}
TCP_BSDURGENT = $7000;
// winsock 2 extension -- new options
{$EXTERNALSYM SO_GROUP_ID}
SO_GROUP_ID = $2001; // ID of a socket group
{$EXTERNALSYM SO_GROUP_PRIORITY}
SO_GROUP_PRIORITY = $2002; // the relative priority within a group
{$EXTERNALSYM SO_MAX_MSG_SIZE}
SO_MAX_MSG_SIZE = $2003; // maximum message size
{$EXTERNALSYM SO_PROTOCOL_INFOA}
SO_PROTOCOL_INFOA = $2004; // WSAPROTOCOL_INFOA structure
{$EXTERNALSYM SO_PROTOCOL_INFOW}
SO_PROTOCOL_INFOW = $2005; // WSAPROTOCOL_INFOW structure
{$EXTERNALSYM SO_PROTOCOL_INFO}
{$IFDEF UNICODE}
SO_PROTOCOL_INFO = SO_PROTOCOL_INFOW;
{$ELSE}
SO_PROTOCOL_INFO = SO_PROTOCOL_INFOA;
{$ENDIF}
{$EXTERNALSYM PVD_CONFIG}
PVD_CONFIG = $3001; // configuration info for service provider
{$EXTERNALSYM SO_CONDITIONAL_ACCEPT}
SO_CONDITIONAL_ACCEPT = $3002; // enable true conditional accept:
// connection is not ack-ed to the
// other side until conditional
// function returns CF_ACCEPT
{$EXTERNALSYM SO_REUSE_UNICASTPORT}
SO_REUSE_UNICASTPORT = $3007; // defer ephemeral port allocation for
// outbound connections
{$EXTERNALSYM SO_REUSE_MULTICASTPORT}
SO_REUSE_MULTICASTPORT = $3008; // enable port reuse and disable unicast
//reception.
{$IFNDEF WINCE}
{$EXTERNALSYM SO_RANDOMIZE_PORT}
SO_RANDOMIZE_PORT = $3005; // randomize assignment of wildcard ports
{$EXTERNALSYM SO_PORT_SCALABILITY}
SO_PORT_SCALABILITY = $3006; // enable port scalability
{$ENDIF}
// Address families.
{$EXTERNALSYM AF_UNSPEC}
AF_UNSPEC = 0; // unspecified
{$EXTERNALSYM AF_UNIX}
AF_UNIX = 1; // local to host (pipes, portals)
{$EXTERNALSYM AF_INET}
AF_INET = 2; // internetwork: UDP, TCP, etc.
{$EXTERNALSYM AF_IMPLINK}
AF_IMPLINK = 3; // arpanet imp addresses
{$EXTERNALSYM AF_PUP}
AF_PUP = 4; // pup protocols: e.g. BSP
{$EXTERNALSYM AF_CHAOS}
AF_CHAOS = 5; // mit CHAOS protocols
{$EXTERNALSYM AF_IPX}
AF_IPX = 6; // ipx and SPX
{$EXTERNALSYM AF_NS}
AF_NS = AF_IPX; // xerOX NS protocols
{$EXTERNALSYM AF_ISO}
AF_ISO = 7; // iso protocols
{$EXTERNALSYM AF_OSI}
AF_OSI = AF_ISO; // osi is ISO
{$EXTERNALSYM AF_ECMA}
AF_ECMA = 8; // european computer manufacturers
{$EXTERNALSYM AF_DATAKIT}
AF_DATAKIT = 9; // datakit protocols
{$EXTERNALSYM AF_CCITT}
AF_CCITT = 10; // cciTT protocols, X.25 etc
{$EXTERNALSYM AF_SNA}
AF_SNA = 11; // ibm SNA
{$EXTERNALSYM AF_DECNET}
AF_DECNET = 12; // decnet
{$EXTERNALSYM AF_DLI}
AF_DLI = 13; // direct data link interface
{$EXTERNALSYM AF_LAT}
AF_LAT = 14; // lat
{$EXTERNALSYM AF_HYLINK}
AF_HYLINK = 15; // nsc Hyperchannel
{$EXTERNALSYM AF_APPLETALK}
AF_APPLETALK = 16; // appleTalk
{$EXTERNALSYM AF_NETBIOS}
AF_NETBIOS = 17; // netBios-style addresses
{$EXTERNALSYM AF_VOICEVIEW}
AF_VOICEVIEW = 18; // voiceView
{$EXTERNALSYM AF_FIREFOX}
AF_FIREFOX = 19; // fireFox
{$EXTERNALSYM AF_UNKNOWN1}
AF_UNKNOWN1 = 20; // somebody is using this!
{$EXTERNALSYM AF_BAN}
AF_BAN = 21; // banyan
{$IFDEF WINCE}
{$EXTERNALSYM AF_IRDA}
AF_IRDA = 22; //* IrDA */
{$ELSE}
{$EXTERNALSYM AF_ATM}
AF_ATM = 22; // native ATM Services
{$ENDIF}
{$EXTERNALSYM AF_INET6}
AF_INET6 = 23; // internetwork Version 6
{$EXTERNALSYM AF_CLUSTER}
AF_CLUSTER = 24; // microsoft Wolfpack
{$EXTERNALSYM AF_12844}
AF_12844 = 25; // ieeE 1284.4 WG AF
{$IFDEF WINCE}
{$EXTERNALSYM AF_ATM}
AF_ATM = 26; //* Native ATM Services */
{$ELSE}
{$EXTERNALSYM AF_IRDA}
AF_IRDA = 26; // irdA
{$ENDIF}
{$EXTERNALSYM AF_NETDES}
AF_NETDES = 28; // network Designers OSI & gateway enabled protocols
{$EXTERNALSYM AF_TCNPROCESS}
AF_TCNPROCESS = 29;
{$EXTERNALSYM AF_TCNMESSAGE}
AF_TCNMESSAGE = 30;
{$EXTERNALSYM AF_ICLFXBM}
AF_ICLFXBM = 31;
{$EXTERNALSYM AF_HYPERV}
AF_HYPERV = 34;
{$EXTERNALSYM AF_MAX}
AF_MAX = 35; //was 32
// protocol families, same as address families for now.
{$EXTERNALSYM PF_UNSPEC}
PF_UNSPEC = AF_UNSPEC;
{$EXTERNALSYM PF_UNIX}
PF_UNIX = AF_UNIX;
{$EXTERNALSYM PF_INET}
PF_INET = AF_INET;
{$EXTERNALSYM PF_IMPLINK}
PF_IMPLINK = AF_IMPLINK;
{$EXTERNALSYM PF_PUP}
PF_PUP = AF_PUP;
{$EXTERNALSYM PF_CHAOS}
PF_CHAOS = AF_CHAOS;
{$EXTERNALSYM PF_NS}
PF_NS = AF_NS;
{$EXTERNALSYM PF_IPX}
PF_IPX = AF_IPX;
{$EXTERNALSYM PF_ISO}
PF_ISO = AF_ISO;
{$EXTERNALSYM PF_OSI}
PF_OSI = AF_OSI;
{$EXTERNALSYM PF_ECMA}
PF_ECMA = AF_ECMA;
{$EXTERNALSYM PF_DATAKIT}
PF_DATAKIT = AF_DATAKIT;
{$EXTERNALSYM PF_CCITT}
PF_CCITT = AF_CCITT;
{$EXTERNALSYM PF_SNA}
PF_SNA = AF_SNA;
{$EXTERNALSYM PF_DECNET}
PF_DECNET = AF_DECNET;
{$EXTERNALSYM PF_DLI}
PF_DLI = AF_DLI;
{$EXTERNALSYM PF_LAT}
PF_LAT = AF_LAT;
{$EXTERNALSYM PF_HYLINK}
PF_HYLINK = AF_HYLINK;
{$EXTERNALSYM PF_APPLETALK}
PF_APPLETALK = AF_APPLETALK;
{$EXTERNALSYM PF_VOICEVIEW}
PF_VOICEVIEW = AF_VOICEVIEW;
{$EXTERNALSYM PF_FIREFOX}
PF_FIREFOX = AF_FIREFOX;
{$EXTERNALSYM PF_UNKNOWN1}
PF_UNKNOWN1 = AF_UNKNOWN1;
{$EXTERNALSYM pf_ban}
PF_BAN = AF_BAN;
{$EXTERNALSYM PF_ATM}
PF_ATM = AF_ATM;
{$EXTERNALSYM PF_INET6}
PF_INET6 = AF_INET6;
{$EXTERNALSYM PF_MAX}
PF_MAX = AF_MAX;
{$EXTERNALSYM _SS_MAXSIZE}
_SS_MAXSIZE = 128;
{$EXTERNALSYM _SS_ALIGNSIZE}
_SS_ALIGNSIZE = SizeOf(Int64);
{$EXTERNALSYM _SS_PAD1SIZE}
_SS_PAD1SIZE = _SS_ALIGNSIZE - SizeOf(short);
{$EXTERNALSYM _SS_PAD2SIZE}
_SS_PAD2SIZE = _SS_MAXSIZE - (SizeOf(short) + _SS_PAD1SIZE + _SS_ALIGNSIZE);
type
{$NODEFINE SunB}
SunB = record
s_b1, s_b2, s_b3, s_b4: u_char;
end;
{$NODEFINE SunW}
SunW = record
s_w1, s_w2: u_short;
end;
{$EXTERNALSYM in_addr}
in_addr = record
case integer of
0: (S_un_b: SunB);
1: (S_un_w: SunW);
2: (S_addr: u_long);
end;
{$NODEFINE TInAddr}
TInAddr = in_addr;
{$NODEFINE PInAddr}
PInAddr = ^TInAddr;
// Structure used by kernel to store most addresses.
{$EXTERNALSYM sockaddr_in}
sockaddr_in = record
case Integer of
0: (sin_family : u_short;
sin_port : u_short;
sin_addr : TInAddr;
sin_zero : array[0..7] of AnsiChar);
1: (sa_family : u_short;
sa_data : array[0..13] of AnsiChar)
end;
{$NODEFINE TSockAddrIn}
TSockAddrIn = sockaddr_in;
{$NODEFINE PSockAddrIn}
PSockAddrIn = ^TSockAddrIn;
{$NODEFINE PSockAddr_In}
PSockAddr_In = PSockAddrIn;
{$NODEFINE TSockAddr}
TSockAddr = TSockAddrIn;
{$EXTERNALSYM SOCKADDR}
SOCKADDR = TSockAddr;
{$EXTERNALSYM PSOCKADDR}
PSOCKADDR = ^TSockAddr;
{$EXTERNALSYM LPSOCKADDR}
LPSOCKADDR = PSOCKADDR;
{$EXTERNALSYM SOCKADDR_STORAGE}
SOCKADDR_STORAGE = record
ss_family: short; // Address family.
__ss_pad1: array[0.._SS_PAD1SIZE-1] of AnsiChar; // 6 byte pad, this is to make
// implementation specific pad up to
// alignment field that follows explicit
// in the data structure.
__ss_align: Int64; // Field to force desired structure.
__ss_pad2: array[0.._SS_PAD2SIZE-1] of AnsiChar; // 112 byte pad to achieve desired size;
// _SS_MAXSIZE value minus size of
// ss_family, __ss_pad1, and
// __ss_align fields is 112.
end;
{$NODEFINE TSockAddrStorage}
TSockAddrStorage = SOCKADDR_STORAGE;
{$NODEFINE PSockAddrStorage}
PSockAddrStorage = ^TSockAddrStorage;
{$EXTERNALSYM PSOCKADDR_STORAGE}
PSOCKADDR_STORAGE = PSockAddrStorage;
{$EXTERNALSYM LPSOCKADDR_STORAGE}
LPSOCKADDR_STORAGE = PSOCKADDR_STORAGE;
// Structure used by kernel to pass protocol information in raw sockets.
{$EXTERNALSYM sockproto}
sockproto = record
sp_family : u_short;
sp_protocol : u_short;
end;
{$NODEFINE TSockProto}
TSockProto = sockproto;
{$NODEFINE PSockProto}
PSockProto = ^TSockProto;
// Structure used for manipulating linger option.
{$EXTERNALSYM linger}
linger = record
l_onoff: u_short;
l_linger: u_short;
end;
{$NODEFINE TLinger}
TLinger = linger;
{$EXTERNALSYM PLINGER}
PLINGER = ^TLinger;
{$EXTERNALSYM LPLINGER}
LPLINGER = PLINGER;
const
{$EXTERNALSYM INADDR_ANY}
INADDR_ANY = $00000000;
{$EXTERNALSYM INADDR_LOOPBACK}
INADDR_LOOPBACK = $7F000001;
{$EXTERNALSYM INADDR_BROADCAST}
INADDR_BROADCAST = $FFFFFFFF;
{$EXTERNALSYM INADDR_NONE}
INADDR_NONE = $FFFFFFFF;
{$EXTERNALSYM ADDR_ANY}
ADDR_ANY = INADDR_ANY;
{$EXTERNALSYM SOL_SOCKET}
SOL_SOCKET = $FFFF; // options for socket level
{$EXTERNALSYM MSG_OOB}
MSG_OOB = $1; // process out-of-band data
{$EXTERNALSYM MSG_PEEK}
MSG_PEEK = $2; // peek at incoming message
{$EXTERNALSYM MSG_DONTROUTE}
MSG_DONTROUTE = $4; // send without using routing tables
{$EXTERNALSYM MSG_PARTIAL}
MSG_PARTIAL = $8000; // partial send or recv for message xport
// WinSock 2 extension -- new flags for WSASend(), WSASendTo(), WSARecv() and WSARecvFrom()
{$EXTERNALSYM MSG_INTERRUPT}
MSG_INTERRUPT = $10; // send/recv in the interrupt context
{$EXTERNALSYM MSG_MAXIOVLEN}
MSG_MAXIOVLEN = 16;
// Define constant based on rfc883, used by gethostbyxxxx() calls.
{$EXTERNALSYM MAXGETHOSTSTRUCT}
MAXGETHOSTSTRUCT = 1024;
// Maximum queue length specifiable by listen.
{$EXTERNALSYM SOMAXCONN}
SOMAXCONN = $7FFFFFFF;
// WinSock 2 extension -- bit values and indices for FD_XXX network events
{$EXTERNALSYM FD_READ_BIT}
FD_READ_BIT = 0;
{$EXTERNALSYM FD_WRITE_BIT}
FD_WRITE_BIT = 1;
{$EXTERNALSYM FD_OOB_BIT}
FD_OOB_BIT = 2;
{$EXTERNALSYM FD_ACCEPT_BIT}
FD_ACCEPT_BIT = 3;
{$EXTERNALSYM FD_CONNECT_BIT}
FD_CONNECT_BIT = 4;
{$EXTERNALSYM FD_CLOSE_BIT}
FD_CLOSE_BIT = 5;
{$EXTERNALSYM fd_qos_bit}
FD_QOS_BIT = 6;
{$EXTERNALSYM FD_GROUP_QOS_BIT}
FD_GROUP_QOS_BIT = 7;
{$EXTERNALSYM FD_ROUTING_INTERFACE_CHANGE_BIT}
FD_ROUTING_INTERFACE_CHANGE_BIT = 8;
{$EXTERNALSYM FD_ADDRESS_LIST_CHANGE_BIT}
FD_ADDRESS_LIST_CHANGE_BIT = 9;
{$EXTERNALSYM FD_MAX_EVENTS}
FD_MAX_EVENTS = 10;
{$EXTERNALSYM FD_READ}
FD_READ = (1 shl FD_READ_BIT);
{$EXTERNALSYM FD_WRITE}
FD_WRITE = (1 shl FD_WRITE_BIT);
{$EXTERNALSYM FD_OOB}
FD_OOB = (1 shl FD_OOB_BIT);
{$EXTERNALSYM FD_ACCEPT}
FD_ACCEPT = (1 shl FD_ACCEPT_BIT);
{$EXTERNALSYM FD_CONNECT}
FD_CONNECT = (1 shl FD_CONNECT_BIT);
{$EXTERNALSYM FD_CLOSE}
FD_CLOSE = (1 shl FD_CLOSE_BIT);
{$EXTERNALSYM FD_QOS}
FD_QOS = (1 shl FD_QOS_BIT);
{$EXTERNALSYM FD_GROUP_QOS}
FD_GROUP_QOS = (1 shl FD_GROUP_QOS_BIT);
{$EXTERNALSYM FD_ROUTING_INTERFACE_CHANGE}
FD_ROUTING_INTERFACE_CHANGE = (1 shl FD_ROUTING_INTERFACE_CHANGE_BIT);
{$EXTERNALSYM FD_ADDRESS_LIST_CHANGE}
FD_ADDRESS_LIST_CHANGE = (1 shl FD_ADDRESS_LIST_CHANGE_BIT);
{$EXTERNALSYM FD_ALL_EVENTS}
FD_ALL_EVENTS = (1 shl FD_MAX_EVENTS) - 1;
// All Windows Sockets error constants are biased by WSABASEERR from the "normal"
{$EXTERNALSYM WSABASEERR}
WSABASEERR = 10000;
// Windows Sockets definitions of regular Microsoft C error constants
{$EXTERNALSYM WSAEINTR}
WSAEINTR = WSABASEERR+ 4;
{$EXTERNALSYM WSAEBADF}
WSAEBADF = WSABASEERR+ 9;
{$EXTERNALSYM WSAEACCES}
WSAEACCES = WSABASEERR+ 13;
{$EXTERNALSYM WSAEFAULT}
WSAEFAULT = WSABASEERR+ 14;
{$EXTERNALSYM WSAEINVAL}
WSAEINVAL = WSABASEERR+ 22;
{$EXTERNALSYM WSAEMFILE}
WSAEMFILE = WSABASEERR+ 24;
// Windows Sockets definitions of regular Berkeley error constants
{$EXTERNALSYM WSAEWOULDBLOCK}
WSAEWOULDBLOCK = WSABASEERR+ 35;
{$EXTERNALSYM WSAEINPROGRESS}
WSAEINPROGRESS = WSABASEERR+ 36;
{$EXTERNALSYM WSAEALREADY}
WSAEALREADY = WSABASEERR+ 37;
{$EXTERNALSYM WSAENOTSOCK}
WSAENOTSOCK = WSABASEERR+ 38;
{$EXTERNALSYM WSAEDESTADDRREQ}
WSAEDESTADDRREQ = WSABASEERR+ 39;
{$EXTERNALSYM WSAEMSGSIZE}
WSAEMSGSIZE = WSABASEERR+ 40;
{$EXTERNALSYM WSAEPROTOTYPE}
WSAEPROTOTYPE = WSABASEERR+ 41;
{$EXTERNALSYM WSAENOPROTOOPT}
WSAENOPROTOOPT = WSABASEERR+ 42;
{$EXTERNALSYM WSAEPROTONOSUPPORT}
WSAEPROTONOSUPPORT = WSABASEERR+ 43;
{$EXTERNALSYM WSAESOCKTNOSUPPORT}
WSAESOCKTNOSUPPORT = WSABASEERR+ 44;
{$EXTERNALSYM WSAEOPNOTSUPP}
WSAEOPNOTSUPP = WSABASEERR+ 45;
{$EXTERNALSYM WSAEPFNOSUPPORT}
WSAEPFNOSUPPORT = WSABASEERR+ 46;
{$EXTERNALSYM WSAEAFNOSUPPORT}
WSAEAFNOSUPPORT = WSABASEERR+ 47;
{$EXTERNALSYM WSAEADDRINUSE}
WSAEADDRINUSE = WSABASEERR+ 48;
{$EXTERNALSYM WSAEADDRNOTAVAIL}
WSAEADDRNOTAVAIL = WSABASEERR+ 49;
{$EXTERNALSYM WSAENETDOWN}
WSAENETDOWN = WSABASEERR+ 50;
{$EXTERNALSYM WSAENETUNREACH}
WSAENETUNREACH = WSABASEERR+ 51;
{$EXTERNALSYM WSAENETRESET}
WSAENETRESET = WSABASEERR+ 52;
{$EXTERNALSYM WSAECONNABORTED}
WSAECONNABORTED = WSABASEERR+ 53;
{$EXTERNALSYM WSAECONNRESET}
WSAECONNRESET = WSABASEERR+ 54;
{$EXTERNALSYM WSAENOBUFS}
WSAENOBUFS = WSABASEERR+ 55;
{$EXTERNALSYM WSAEISCONN}
WSAEISCONN = WSABASEERR+ 56;
{$EXTERNALSYM WSAENOTCONN}
WSAENOTCONN = WSABASEERR+ 57;
{$EXTERNALSYM WSAESHUTDOWN}
WSAESHUTDOWN = WSABASEERR+ 58;
{$EXTERNALSYM WSAETOOMANYREFS}
WSAETOOMANYREFS = WSABASEERR+ 59;
{$EXTERNALSYM WSAETIMEDOUT}
WSAETIMEDOUT = WSABASEERR+ 60;
{$EXTERNALSYM WSAECONNREFUSED}
WSAECONNREFUSED = WSABASEERR+ 61;
{$EXTERNALSYM WSAELOOP}
WSAELOOP = WSABASEERR+ 62;
{$EXTERNALSYM WSAENAMETOOLONG}
WSAENAMETOOLONG = WSABASEERR+ 63;
{$EXTERNALSYM WSAEHOSTDOWN}
WSAEHOSTDOWN = WSABASEERR+ 64;
{$EXTERNALSYM WSAEHOSTUNREACH}
WSAEHOSTUNREACH = WSABASEERR+ 65;
{$EXTERNALSYM wsaenotempty}
WSAENOTEMPTY = WSABASEERR+ 66;
{$EXTERNALSYM WSAEPROCLIM}
WSAEPROCLIM = WSABASEERR+ 67;
{$EXTERNALSYM WSAEUSERS}
WSAEUSERS = WSABASEERR+ 68;
{$EXTERNALSYM WSAEDQUOT}
WSAEDQUOT = WSABASEERR+ 69;
{$EXTERNALSYM WSAESTALE}
WSAESTALE = WSABASEERR+ 70;
{$EXTERNALSYM WSAEREMOTE}
WSAEREMOTE = WSABASEERR+ 71;
// Extended Windows Sockets error constant definitions
{$EXTERNALSYM WSASYSNOTREADY}
WSASYSNOTREADY = WSABASEERR+ 91;
{$EXTERNALSYM WSAVERNOTSUPPORTED}
WSAVERNOTSUPPORTED = WSABASEERR+ 92;
{$EXTERNALSYM WSANOTINITIALISED}
WSANOTINITIALISED = WSABASEERR+ 93;
{$EXTERNALSYM WSAEDISCON}
WSAEDISCON = WSABASEERR+101;
{$EXTERNALSYM WSAENOMORE}
WSAENOMORE = WSABASEERR+102;
{$EXTERNALSYM WSAECANCELLED}
WSAECANCELLED = WSABASEERR+103;
{$EXTERNALSYM WSAEINVALIDPROCTABLE}
WSAEINVALIDPROCTABLE = WSABASEERR+104;
{$EXTERNALSYM WSAEINVALIDPROVIDER}
WSAEINVALIDPROVIDER = WSABASEERR+105;
{$EXTERNALSYM WSAEPROVIDERFAILEDINIT}
WSAEPROVIDERFAILEDINIT = WSABASEERR+106;
{$EXTERNALSYM WSASYSCALLFAILURE}
WSASYSCALLFAILURE = WSABASEERR+107;
{$EXTERNALSYM WSASERVICE_NOT_FOUND}
WSASERVICE_NOT_FOUND = WSABASEERR+108;
{$EXTERNALSYM WSATYPE_NOT_FOUND}
WSATYPE_NOT_FOUND = WSABASEERR+109;
{$EXTERNALSYM WSA_E_NO_MORE}
WSA_E_NO_MORE = WSABASEERR+110;
{$EXTERNALSYM WSA_E_CANCELLED}
WSA_E_CANCELLED = WSABASEERR+111;
{$EXTERNALSYM WSAEREFUSED}
WSAEREFUSED = WSABASEERR+112;
{$IFDEF WINCE}
WSAEDUPLICATE_NAME = WSABASEERR+900;
{$ENDIF}
{ 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
{$EXTERNALSYM WSAHOST_NOT_FOUND}
WSAHOST_NOT_FOUND = WSABASEERR+1001;
{$EXTERNALSYM HOST_NOT_FOUND}
HOST_NOT_FOUND = WSAHOST_NOT_FOUND;
// Non-Authoritative: Host not found, or SERVERFAIL
{$EXTERNALSYM WSATRY_AGAIN}
WSATRY_AGAIN = WSABASEERR+1002;
{$EXTERNALSYM TRY_AGAIN}
TRY_AGAIN = WSATRY_AGAIN;
// Non recoverable errors, FORMERR, REFUSED, NOTIMP
{$EXTERNALSYM WSANO_RECOVERY}
WSANO_RECOVERY = WSABASEERR+1003;
{$EXTERNALSYM NO_RECOVERY}
NO_RECOVERY = WSANO_RECOVERY;
// Valid name, no data record of requested type
{$EXTERNALSYM WSANO_DATA}
WSANO_DATA = WSABASEERR+1004;
{$EXTERNALSYM NO_DATA}
NO_DATA = WSANO_DATA;
// no address, look for MX record
{$EXTERNALSYM WSANO_ADDRESS}
WSANO_ADDRESS = WSANO_DATA;
{$EXTERNALSYM NO_ADDRESS}
NO_ADDRESS = WSANO_ADDRESS;
// Define QOS related error return codes
{$EXTERNALSYM WSA_QOS_RECEIVERS}
WSA_QOS_RECEIVERS = WSABASEERR+1005; // at least one reserve has arrived
{$EXTERNALSYM WSA_QOS_SENDERS}
WSA_QOS_SENDERS = WSABASEERR+1006; // at least one path has arrived
{$EXTERNALSYM WSA_QOS_NO_SENDERS}
WSA_QOS_NO_SENDERS = WSABASEERR+1007; // there are no senders
{$EXTERNALSYM WSA_QOS_NO_RECEIVERS}
WSA_QOS_NO_RECEIVERS = WSABASEERR+1008; // there are no receivers
{$EXTERNALSYM WSA_QOS_REQUEST_CONFIRMED}
WSA_QOS_REQUEST_CONFIRMED = WSABASEERR+1009; // reserve has been confirmed
{$EXTERNALSYM WSA_QOS_ADMISSION_FAILURE}
WSA_QOS_ADMISSION_FAILURE = WSABASEERR+1010; // error due to lack of resources
{$EXTERNALSYM WSA_QOS_POLICY_FAILURE}
WSA_QOS_POLICY_FAILURE = WSABASEERR+1011; // rejected for administrative reasons - bad credentials
{$EXTERNALSYM WSA_QOS_BAD_STYLE}
WSA_QOS_BAD_STYLE = WSABASEERR+1012; // unknown or conflicting style
{$EXTERNALSYM WSA_QOS_BAD_OBJECT}
WSA_QOS_BAD_OBJECT = WSABASEERR+1013; // problem with some part of the filterspec or providerspecific buffer in general
{$EXTERNALSYM WSA_QOS_TRAFFIC_CTRL_ERROR}
WSA_QOS_TRAFFIC_CTRL_ERROR = WSABASEERR+1014; // problem with some part of the flowspec
{$EXTERNALSYM WSA_QOS_GENERIC_ERROR}
WSA_QOS_GENERIC_ERROR = WSABASEERR+1015; // general error
{$EXTERNALSYM WSA_QOS_ESERVICETYPE}
WSA_QOS_ESERVICETYPE = WSABASEERR+1016; // invalid service type in flowspec
{$EXTERNALSYM WSA_QOS_EFLOWSPEC}
WSA_QOS_EFLOWSPEC = WSABASEERR+1017; // invalid flowspec
{$EXTERNALSYM WSA_QOS_EPROVSPECBUF}
WSA_QOS_EPROVSPECBUF = WSABASEERR+1018; // invalid provider specific buffer
{$EXTERNALSYM WSA_QOS_EFILTERSTYLE}
WSA_QOS_EFILTERSTYLE = WSABASEERR+1019; // invalid filter style
{$EXTERNALSYM WSA_QOS_EFILTERTYPE}
WSA_QOS_EFILTERTYPE = WSABASEERR+1020; // invalid filter type
{$EXTERNALSYM WSA_QOS_EFILTERCOUNT}
WSA_QOS_EFILTERCOUNT = WSABASEERR+1021; // incorrect number of filters
{$EXTERNALSYM WSA_QOS_EOBJLENGTH}
WSA_QOS_EOBJLENGTH = WSABASEERR+1022; // invalid object length
{$EXTERNALSYM WSA_QOS_EFLOWCOUNT}
WSA_QOS_EFLOWCOUNT = WSABASEERR+1023; // incorrect number of flows
{$EXTERNALSYM WSA_QOS_EUNKOWNPSOBJ}
WSA_QOS_EUNKOWNPSOBJ = WSABASEERR+1024; // unknown object in provider specific buffer
{$EXTERNALSYM WSA_QOS_EPOLICYOBJ}
WSA_QOS_EPOLICYOBJ = WSABASEERR+1025; // invalid policy object in provider specific buffer
{$EXTERNALSYM WSA_QOS_EFLOWDESC}
WSA_QOS_EFLOWDESC = WSABASEERR+1026; // invalid flow descriptor in the list
{$EXTERNALSYM WSA_QOS_EPSFLOWSPEC}
WSA_QOS_EPSFLOWSPEC = WSABASEERR+1027; // inconsistent flow spec in provider specific buffer
{$EXTERNALSYM WSA_QOS_EPSFILTERSPEC}
WSA_QOS_EPSFILTERSPEC = WSABASEERR+1028; // invalid filter spec in provider specific buffer
{$EXTERNALSYM WSA_QOS_ESDMODEOBJ}
WSA_QOS_ESDMODEOBJ = WSABASEERR+1029; // invalid shape discard mode object in provider specific buffer
{$EXTERNALSYM WSA_QOS_ESHAPERATEOBJ}
WSA_QOS_ESHAPERATEOBJ = WSABASEERR+1030; // invalid shaping rate object in provider specific buffer
{$EXTERNALSYM WSA_QOS_RESERVED_PETYPE}
WSA_QOS_RESERVED_PETYPE = WSABASEERR+1031; // reserved policy element in provider specific buffer
{ WinSock 2 extension -- new error codes and type definition }
{$EXTERNALSYM WSA_IO_PENDING}
WSA_IO_PENDING = ERROR_IO_PENDING;
{$EXTERNALSYM WSA_IO_INCOMPLETE}
WSA_IO_INCOMPLETE = ERROR_IO_INCOMPLETE;
{$EXTERNALSYM WSA_INVALID_HANDLE}
WSA_INVALID_HANDLE = ERROR_INVALID_HANDLE;
{$EXTERNALSYM WSA_INVALID_PARAMETER}
WSA_INVALID_PARAMETER = ERROR_INVALID_PARAMETER;
{$EXTERNALSYM WSA_NOT_ENOUGH_MEMORY}
WSA_NOT_ENOUGH_MEMORY = ERROR_NOT_ENOUGH_MEMORY;
{$EXTERNALSYM WSA_OPERATION_ABORTED}
WSA_OPERATION_ABORTED = ERROR_OPERATION_ABORTED;
{$EXTERNALSYM WSA_INVALID_EVENT}
WSA_INVALID_EVENT = WSAEVENT(nil);
{$EXTERNALSYM WSA_MAXIMUM_WAIT_EVENTS}
WSA_MAXIMUM_WAIT_EVENTS = MAXIMUM_WAIT_OBJECTS;
{$EXTERNALSYM WSA_WAIT_FAILED}
WSA_WAIT_FAILED = $FFFFFFFF;
{$EXTERNALSYM WSA_WAIT_EVENT_0}
WSA_WAIT_EVENT_0 = WAIT_OBJECT_0;
{$EXTERNALSYM WSA_WAIT_IO_COMPLETION}
WSA_WAIT_IO_COMPLETION = WAIT_IO_COMPLETION;
{$EXTERNALSYM WSA_WAIT_TIMEOUT}
WSA_WAIT_TIMEOUT = WAIT_TIMEOUT;
{$EXTERNALSYM WSA_INFINITE}
WSA_INFINITE = 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. }
{$EXTERNALSYM EWOULDBLOCK}
EWOULDBLOCK = WSAEWOULDBLOCK;
{$EXTERNALSYM EINPROGRESS}
EINPROGRESS = WSAEINPROGRESS;
{$EXTERNALSYM EALREADY}
EALREADY = WSAEALREADY;
{$EXTERNALSYM ENOTSOCK}
ENOTSOCK = WSAENOTSOCK;
{$EXTERNALSYM EDESTADDRREQ}
EDESTADDRREQ = WSAEDESTADDRREQ;
{$EXTERNALSYM EMSGSIZE}
EMSGSIZE = WSAEMSGSIZE;
{$EXTERNALSYM EPROTOTYPE}
EPROTOTYPE = WSAEPROTOTYPE;
{$EXTERNALSYM ENOPROTOOPT}
ENOPROTOOPT = WSAENOPROTOOPT;
{$EXTERNALSYM EPROTONOSUPPORT}
EPROTONOSUPPORT = WSAEPROTONOSUPPORT;
{$EXTERNALSYM ESOCKTNOSUPPORT}
ESOCKTNOSUPPORT = WSAESOCKTNOSUPPORT;
{$EXTERNALSYM EOPNOTSUPP}
EOPNOTSUPP = WSAEOPNOTSUPP;
{$EXTERNALSYM EPFNOSUPPORT}
EPFNOSUPPORT = WSAEPFNOSUPPORT;
{$EXTERNALSYM EAFNOSUPPORT}
EAFNOSUPPORT = WSAEAFNOSUPPORT;
{$EXTERNALSYM EADDRINUSE}
EADDRINUSE = WSAEADDRINUSE;
{$EXTERNALSYM EADDRNOTAVAIL}
EADDRNOTAVAIL = WSAEADDRNOTAVAIL;
{$EXTERNALSYM ENETDOWN}
ENETDOWN = WSAENETDOWN;
{$EXTERNALSYM ENETUNREACH}
ENETUNREACH = WSAENETUNREACH;
{$EXTERNALSYM ENETRESET}
ENETRESET = WSAENETRESET;
{$EXTERNALSYM ECONNABORTED}
ECONNABORTED = WSAECONNABORTED;
{$EXTERNALSYM ECONNRESET}
ECONNRESET = WSAECONNRESET;
{$EXTERNALSYM ENOBUFS}
ENOBUFS = WSAENOBUFS;
{$EXTERNALSYM EISCONN}
EISCONN = WSAEISCONN;
{$EXTERNALSYM ENOTCONN}
ENOTCONN = WSAENOTCONN;
{$EXTERNALSYM ESHUTDOWN}
ESHUTDOWN = WSAESHUTDOWN;
{$EXTERNALSYM ETOOMANYREFS}
ETOOMANYREFS = WSAETOOMANYREFS;
{$EXTERNALSYM ETIMEDOUT}
ETIMEDOUT = WSAETIMEDOUT;
{$EXTERNALSYM ECONNREFUSED}
ECONNREFUSED = WSAECONNREFUSED;
{$EXTERNALSYM ELOOP}
ELOOP = WSAELOOP;
{$EXTERNALSYM ENAMETOOLONG}
ENAMETOOLONG = WSAENAMETOOLONG;
{$EXTERNALSYM EHOSTDOWN}
EHOSTDOWN = WSAEHOSTDOWN;
{$EXTERNALSYM EHOSTUNREACH}
EHOSTUNREACH = WSAEHOSTUNREACH;
{$EXTERNALSYM ENOTEMPTY}
ENOTEMPTY = WSAENOTEMPTY;
{$EXTERNALSYM EPROCLIM}
EPROCLIM = WSAEPROCLIM;
{$EXTERNALSYM EUSERS}
EUSERS = WSAEUSERS;
{$EXTERNALSYM EDQUOT}
EDQUOT = WSAEDQUOT;
{$EXTERNALSYM ESTALE}
ESTALE = WSAESTALE;
{$EXTERNALSYM EREMOTE}
EREMOTE = WSAEREMOTE;
{$EXTERNALSYM WSADESCRIPTION_LEN}
WSADESCRIPTION_LEN = 256;
{$EXTERNALSYM WSASYS_STATUS_LEN}
WSASYS_STATUS_LEN = 128;
type
{$EXTERNALSYM WSADATA}
WSADATA = record
wVersion : Word;
wHighVersion : Word;
{$IFDEF _WIN64}
iMaxSockets : Word;
iMaxUdpDg : Word;
lpVendorInfo : PAnsiChar;
szDescription : array[0..WSADESCRIPTION_LEN] of AnsiChar;
szSystemStatus : array[0..WSASYS_STATUS_LEN] of AnsiChar;
{$ELSE}
szDescription : array[0..WSADESCRIPTION_LEN] of AnsiChar;
szSystemStatus : array[0..WSASYS_STATUS_LEN] of AnsiChar;
iMaxSockets : Word;
iMaxUdpDg : Word;
lpVendorInfo : PAnsiChar;
{$ENDIF}
end;
{$NODEFINE TWSAData}
TWSAData = WSADATA;
{$NODEFINE PWSAData}
PWSAData = ^TWSAData;
{$EXTERNALSYM LPWSADATA}
LPWSADATA = PWSAData;
{$EXTERNALSYM WSAOVERLAPPED}
WSAOVERLAPPED = TOverlapped;
{$NODEFINE TWSAOverlapped}
TWSAOverlapped = WSAOVERLAPPED;
{$NODEFINE PWSAOverlapped}
PWSAOverlapped = ^TWSAOverlapped;
{$EXTERNALSYM LPWSAOVERLAPPED}
LPWSAOVERLAPPED = PWSAOverlapped;
{$IFNDEF WINCE}
{$EXTERNALSYM WSC_PROVIDER_INFO_TYPE}
{$EXTERNALSYM ProviderInfoLspCategories}
{$EXTERNALSYM ProviderInfoAudit}
WSC_PROVIDER_INFO_TYPE = (
ProviderInfoLspCategories,
ProviderInfoAudit);
{$ENDIF}
{ WinSock 2 extension -- WSABUF and QOS struct, include qos.h }
{ to pull in FLOWSPEC and related definitions }
{$EXTERNALSYM WSABUF}
WSABUF = record
len: u_long; { the length of the buffer }
buf: PAnsiChar; { the pointer to the buffer }
end;
{$NODEFINE TWSABuf}
TWSABuf = WSABUF;
{$NODEFINE PWSABuf}
PWSABuf = ^TWSABuf;
{$EXTERNALSYM LPWSABUF}
LPWSABUF = PWSABUF;
{$EXTERNALSYM SERVICETYPE}
SERVICETYPE = ULONG;
{$NODEFINE TServiceType}
TServiceType = SERVICETYPE;
{$EXTERNALSYM FLOWSPEC}
FLOWSPEC = record
TokenRate, // In Bytes/sec
TokenBucketSize, // In Bytes
PeakBandwidth, // In Bytes/sec
Latency, // In microseconds
DelayVariation : ULONG; // In microseconds
ServiceType : TServiceType;
MaxSduSize, MinimumPolicedSize : ULONG;// In Bytes
end;
{$NODEFINE TFlowSpec}
TFlowSpec = FLOWSPEC;
{$EXTERNALSYM PFLOWSPEC}
PFLOWSPEC = ^TFlowSpec;
{$EXTERNALSYM LPFLOWSPEC}
LPFLOWSPEC = PFLOWSPEC;
{$EXTERNALSYM QOS}
QOS = record
SendingFlowspec: TFlowSpec; { the flow spec for data sending }
ReceivingFlowspec: TFlowSpec; { the flow spec for data receiving }
ProviderSpecific: TWSABuf; { additional provider specific stuff }
end;
{$NODEFINE TQualityOfService}
TQualityOfService = QOS;
{$NODEFINE PQOS}
PQOS = ^QOS;
{$EXTERNALSYM LPQOS}
LPQOS = PQOS;
const
{$EXTERNALSYM SERVICETYPE_NOTRAFFIC}
SERVICETYPE_NOTRAFFIC = $00000000; // No data in this direction
{$EXTERNALSYM SERVICETYPE_BESTEFFORT}
SERVICETYPE_BESTEFFORT = $00000001; // Best Effort
{$EXTERNALSYM SERVICETYPE_CONTROLLEDLOAD}
SERVICETYPE_CONTROLLEDLOAD = $00000002; // Controlled Load
{$EXTERNALSYM SERVICETYPE_GUARANTEED}
SERVICETYPE_GUARANTEED = $00000003; // Guaranteed
{$EXTERNALSYM SERVICETYPE_NETWORK_UNAVAILABLE}
SERVICETYPE_NETWORK_UNAVAILABLE = $00000004; // Used to notify change to user
{$EXTERNALSYM SERVICETYPE_GENERAL_INFORMATION}
SERVICETYPE_GENERAL_INFORMATION = $00000005; // corresponds to "General Parameters" defined by IntServ
{$EXTERNALSYM SERVICETYPE_NOCHANGE}
SERVICETYPE_NOCHANGE = $00000006; // used to indicate that the flow spec contains no change from any previous one
// to turn on immediate traffic control, OR this flag with the ServiceType field in the FLOWSPEC
{$EXTERNALSYM SERVICE_IMMEDIATE_TRAFFIC_CONTROL}
SERVICE_IMMEDIATE_TRAFFIC_CONTROL = $80000000;
// WinSock 2 extension -- manifest constants for return values of the condition function
{$EXTERNALSYM CF_ACCEPT}
CF_ACCEPT = $0000;
{$EXTERNALSYM CF_REJECT}
CF_REJECT = $0001;
{$EXTERNALSYM CF_DEFER}
CF_DEFER = $0002;
// WinSock 2 extension -- manifest constants for shutdown()
{$EXTERNALSYM SD_RECEIVE}
SD_RECEIVE = $00;
{$EXTERNALSYM SD_SEND}
SD_SEND = $01;
{$EXTERNALSYM SD_BOTH}
SD_BOTH = $02;
// WinSock 2 extension -- data type and manifest constants for socket groups
{$EXTERNALSYM SG_UNCONSTRAINED_GROUP}
SG_UNCONSTRAINED_GROUP = $01;
{$EXTERNALSYM SG_CONSTRAINED_GROUP}
SG_CONSTRAINED_GROUP = $02;
type
{$EXTERNALSYM GROUP}
GROUP = DWORD;
{$EXTERNALSYM PGROUP}
PGROUP = ^GROUP;
// WinSock 2 extension -- data type for WSAEnumNetworkEvents()
{$EXTERNALSYM WSANETWORKEVENTS}
WSANETWORKEVENTS = record
lNetworkEvents: LongInt;
iErrorCode: Array[0..FD_MAX_EVENTS-1] of Integer;
end;
{$NODEFINE TWSANetworkEvents}
TWSANetworkEvents = WSANETWORKEVENTS;
{$NODEFINE PWSANetworkEvents}
PWSANetworkEvents = ^TWSANetworkEvents;
{$EXTERNALSYM LPWSANETWORKEVENTS}
LPWSANETWORKEVENTS = PWSANetworkEvents;
//TransmitFile types used for the TransmitFile API function in WinNT/2000/XP
//not sure why its defined in WinCE when TransmitFile is not available.
{$IFNDEF NO_REDECLARE}
{$EXTERNALSYM TRANSMIT_FILE_BUFFERS}
TRANSMIT_FILE_BUFFERS = record
Head: Pointer;
HeadLength: DWORD;
Tail: Pointer;
TailLength: DWORD;
end;
{$NODEFINE TTransmitFileBuffers}
TTransmitFileBuffers = TRANSMIT_FILE_BUFFERS;
{$NODEFINE PTransmitFileBuffers}
PTransmitFileBuffers = ^TTransmitFileBuffers;
{$ENDIF}
{$EXTERNALSYM LPTRANSMIT_FILE_BUFFERS}
LPTRANSMIT_FILE_BUFFERS = PTransmitFileBuffers;
const
{$EXTERNALSYM TP_ELEMENT_MEMORY}
TP_ELEMENT_MEMORY = 1;
{$EXTERNALSYM TP_ELEMENT_FILE}
TP_ELEMENT_FILE = 2;
{$EXTERNALSYM TP_ELEMENT_EOP}
TP_ELEMENT_EOP = 4;
{$EXTERNALSYM TP_DISCONNECT}
TP_DISCONNECT = TF_DISCONNECT;
{$EXTERNALSYM TP_REUSE_SOCKET}
TP_REUSE_SOCKET = TF_REUSE_SOCKET;
{$EXTERNALSYM TP_USE_DEFAULT_WORKER}
TP_USE_DEFAULT_WORKER = TF_USE_DEFAULT_WORKER;
{$EXTERNALSYM TP_USE_SYSTEM_THREAD}
TP_USE_SYSTEM_THREAD = TF_USE_SYSTEM_THREAD;
{$EXTERNALSYM TP_USE_KERNEL_APC}
TP_USE_KERNEL_APC = TF_USE_KERNEL_APC;
type
{$EXTERNALSYM TRANSMIT_PACKETS_ELEMENT}
TRANSMIT_PACKETS_ELEMENT = record
dwElFlags: ULONG;
cLength: ULONG;
case Integer of
1: (nFileOffset: TLargeInteger;
hFile: THandle);
2: (pBuffer: Pointer);
end;
{$NODEFINE TTransmitPacketsElement}
TTransmitPacketsElement = TRANSMIT_PACKETS_ELEMENT;
{$NODEFINE PTransmitPacketsElement}
PTransmitPacketsElement = ^TTransmitPacketsElement;
{$NODEFINE LPTransmitPacketsElement}
LPTransmitPacketsElement = PTransmitPacketsElement;
{$EXTERNALSYM PTRANSMIT_PACKETS_ELEMENT}
PTRANSMIT_PACKETS_ELEMENT = ^TTransmitPacketsElement;
{$EXTERNALSYM LPTRANSMIT_PACKETS_ELEMENT}
LPTRANSMIT_PACKETS_ELEMENT = PTRANSMIT_PACKETS_ELEMENT;
// WinSock 2 extension -- WSAPROTOCOL_INFO structure
{$IFNDEF HAS_LPGUID}
type
{$IFNDEF HAS_PGUID}
{$NODEFINE PGUID}
PGUID = ^TGUID;
{$ENDIF}
{$EXTERNALSYM LPGUID}
LPGUID = PGUID;
{$ENDIF}
// WinSock 2 extension -- WSAPROTOCOL_INFO manifest constants
const
{$EXTERNALSYM MAX_PROTOCOL_CHAIN}
MAX_PROTOCOL_CHAIN = 7;
{$EXTERNALSYM BASE_PROTOCOL}
BASE_PROTOCOL = 1;
{$EXTERNALSYM LAYERED_PROTOCOL}
LAYERED_PROTOCOL = 0;
{$EXTERNALSYM WSAPROTOCOL_LEN}
WSAPROTOCOL_LEN = 255;
type
{$EXTERNALSYM WSAPROTOCOLCHAIN}
WSAPROTOCOLCHAIN = record
ChainLen: Integer; // the length of the chain,
// length = 0 means layered protocol,
// length = 1 means base protocol,
// length > 1 means protocol chain
ChainEntries: Array[0..MAX_PROTOCOL_CHAIN-1] of DWORD; // a list of dwCatalogEntryIds
end;
{$NODEFINE TWSAProtocolChain}
TWSAProtocolChain = WSAPROTOCOLCHAIN;
{$EXTERNALSYM LPWSAPROTOCOLCHAIN}
LPWSAPROTOCOLCHAIN = ^TWSAProtocolChain;
type
{$EXTERNALSYM WSAPROTOCOL_INFOA}
WSAPROTOCOL_INFOA = record
dwServiceFlags1: DWORD;
dwServiceFlags2: DWORD;
dwServiceFlags3: DWORD;
dwServiceFlags4: DWORD;
dwProviderFlags: DWORD;
ProviderId: TGUID;
dwCatalogEntryId: DWORD;
ProtocolChain: TWSAProtocolChain;
iVersion: Integer;
iAddressFamily: Integer;
iMaxSockAddr: Integer;
iMinSockAddr: Integer;
iSocketType: Integer;
iProtocol: Integer;
iProtocolMaxOffset: Integer;
iNetworkByteOrder: Integer;
iSecurityScheme: Integer;
dwMessageSize: DWORD;
dwProviderReserved: DWORD;
szProtocol: Array[0..WSAPROTOCOL_LEN+1-1] of AnsiChar;
end;
{$NODEFINE TWSAProtocol_InfoA}
TWSAProtocol_InfoA = WSAPROTOCOL_INFOA;
{$NODEFINE PWSAProtocol_InfoA}
PWSAProtocol_InfoA = ^WSAPROTOCOL_INFOA;
{$EXTERNALSYM LPWSAPROTOCOL_INFOA}
LPWSAPROTOCOL_INFOA = PWSAProtocol_InfoA;
{$EXTERNALSYM WSAPROTOCOL_INFOW}
WSAPROTOCOL_INFOW = record
dwServiceFlags1: DWORD;
dwServiceFlags2: DWORD;
dwServiceFlags3: DWORD;
dwServiceFlags4: DWORD;
dwProviderFlags: DWORD;
ProviderId: TGUID;
dwCatalogEntryId: DWORD;
ProtocolChain: TWSAProtocolChain;
iVersion: Integer;
iAddressFamily: Integer;
iMaxSockAddr: Integer;
iMinSockAddr: Integer;
iSocketType: Integer;
iProtocol: Integer;
iProtocolMaxOffset: Integer;
iNetworkByteOrder: Integer;
iSecurityScheme: Integer;
dwMessageSize: DWORD;
dwProviderReserved: DWORD;
szProtocol: Array[0..WSAPROTOCOL_LEN+1-1] of WideChar;
end;
{$NODEFINE TWSAProtocol_InfoW}
TWSAProtocol_InfoW = WSAPROTOCOL_INFOW;
{$NODEFINE PWSAProtocol_InfoW}
PWSAProtocol_InfoW = ^TWSAProtocol_InfoW;
{$EXTERNALSYM LPWSAPROTOCOL_INFOW}
LPWSAPROTOCOL_INFOW = PWSAProtocol_InfoW;
{$EXTERNALSYM WSAPROTOCOL_INFO}
{$EXTERNALSYM LPWSAPROTOCOL_INFO}
{$NODEFINE TWSAProtocol_Info}
{$NODEFINE PWSAProtocol_Info}
{$IFDEF UNICODE}
WSAPROTOCOL_INFO = TWSAProtocol_InfoW;
TWSAProtocol_Info = TWSAProtocol_InfoW;
PWSAProtocol_Info = PWSAProtocol_InfoW;
LPWSAPROTOCOL_INFO = PWSAProtocol_InfoW;
{$ELSE}
WSAPROTOCOL_INFO = TWSAProtocol_InfoA;
TWSAProtocol_Info = TWSAProtocol_InfoA;
PWSAProtocol_Info = PWSAProtocol_InfoA;
LPWSAPROTOCOL_INFO = PWSAProtocol_InfoA;
{$ENDIF}
const
// flag bit definitions for dwProviderFlags
{$EXTERNALSYM PFL_MULTIPLE_PROTO_ENTRIES}
PFL_MULTIPLE_PROTO_ENTRIES = $00000001;
{$EXTERNALSYM PFL_RECOMMENTED_PROTO_ENTRY}
PFL_RECOMMENTED_PROTO_ENTRY = $00000002;
{$EXTERNALSYM PFL_HIDDEN}
PFL_HIDDEN = $00000004;
{$EXTERNALSYM PFL_MATCHES_PROTOCOL_ZERO}
PFL_MATCHES_PROTOCOL_ZERO = $00000008;
// flag bit definitions for dwServiceFlags1
{$EXTERNALSYM XP1_CONNECTIONLESS}
XP1_CONNECTIONLESS = $00000001;
{$EXTERNALSYM XP1_GUARANTEED_DELIVERY}
XP1_GUARANTEED_DELIVERY = $00000002;
{$EXTERNALSYM XP1_GUARANTEED_ORDER}
XP1_GUARANTEED_ORDER = $00000004;
{$EXTERNALSYM XP1_MESSAGE_ORIENTED}
XP1_MESSAGE_ORIENTED = $00000008;
{$EXTERNALSYM XP1_PSEUDO_STREAM}
XP1_PSEUDO_STREAM = $00000010;
{$EXTERNALSYM XP1_GRACEFUL_CLOSE}
XP1_GRACEFUL_CLOSE = $00000020;
{$EXTERNALSYM XP1_EXPEDITED_DATA}
XP1_EXPEDITED_DATA = $00000040;
{$EXTERNALSYM XP1_CONNECT_DATA}
XP1_CONNECT_DATA = $00000080;
{$EXTERNALSYM XP1_DISCONNECT_DATA}
XP1_DISCONNECT_DATA = $00000100;
{$EXTERNALSYM XP1_SUPPORT_BROADCAST}
XP1_SUPPORT_BROADCAST = $00000200;
{$EXTERNALSYM XP1_SUPPORT_MULTIPOINT}
XP1_SUPPORT_MULTIPOINT = $00000400;
{$EXTERNALSYM XP1_MULTIPOINT_CONTROL_PLANE}
XP1_MULTIPOINT_CONTROL_PLANE = $00000800;
{$EXTERNALSYM XP1_MULTIPOINT_DATA_PLANE}
XP1_MULTIPOINT_DATA_PLANE = $00001000;
{$EXTERNALSYM XP1_QOS_SUPPORTED}
XP1_QOS_SUPPORTED = $00002000;
{$EXTERNALSYM XP1_INTERRUPT}
XP1_INTERRUPT = $00004000;
{$EXTERNALSYM XP1_UNI_SEND}
XP1_UNI_SEND = $00008000;
{$EXTERNALSYM XP1_UNI_RECV}
XP1_UNI_RECV = $00010000;
{$EXTERNALSYM XP1_IFS_HANDLES}
XP1_IFS_HANDLES = $00020000;
{$EXTERNALSYM XP1_PARTIAL_MESSAGE}
XP1_PARTIAL_MESSAGE = $00040000;
{$EXTERNALSYM BIGENDIAN}
BIGENDIAN = $0000;
{$EXTERNALSYM LITTLEENDIAN}
LITTLEENDIAN = $0001;
{$EXTERNALSYM SECURITY_PROTOCOL_NONE}
SECURITY_PROTOCOL_NONE = $0000;
// WinSock 2 extension -- manifest constants for WSAJoinLeaf()
{$EXTERNALSYM JL_SENDER_ONLY}
JL_SENDER_ONLY = $01;
{$EXTERNALSYM JL_RECEIVER_ONLY}
JL_RECEIVER_ONLY = $02;
{$EXTERNALSYM JL_BOTH}
JL_BOTH = $04;
// WinSock 2 extension -- manifest constants for WSASocket()
{$EXTERNALSYM WSA_FLAG_OVERLAPPED}
WSA_FLAG_OVERLAPPED = $01;
{$EXTERNALSYM WSA_FLAG_MULTIPOINT_C_ROOT}
WSA_FLAG_MULTIPOINT_C_ROOT = $02;
{$EXTERNALSYM WSA_FLAG_MULTIPOINT_C_LEAF}
WSA_FLAG_MULTIPOINT_C_LEAF = $04;
{$EXTERNALSYM WSA_FLAG_MULTIPOINT_D_ROOT}
WSA_FLAG_MULTIPOINT_D_ROOT = $08;
{$EXTERNALSYM WSA_FLAG_MULTIPOINT_D_LEAF}
WSA_FLAG_MULTIPOINT_D_LEAF = $10;
// WinSock 2 extension -- manifest constants for WSAIoctl()
{$EXTERNALSYM IOC_UNIX}
IOC_UNIX = $00000000;
{$EXTERNALSYM IOC_WS2}
IOC_WS2 = $08000000;
{$EXTERNALSYM IOC_PROTOCOL}
IOC_PROTOCOL = $10000000;
{$EXTERNALSYM IOC_VENDOR}
IOC_VENDOR = $18000000;
{$IFNDEF WINCE}
///*
// * WSK-specific IO control codes are Winsock2 codes with the highest-order
// * 3 bits of the Vendor/AddressFamily-specific field set to 1.
// */
{$EXTERNALSYM IOC_WSK}
IOC_WSK = IOC_WS2 or $07000000;
{$ENDIF}
{$EXTERNALSYM SIO_ASSOCIATE_HANDLE}
SIO_ASSOCIATE_HANDLE = DWORD(IOC_IN or IOC_WS2 or 1);
{$EXTERNALSYM SIO_ENABLE_CIRCULAR_QUEUEING}
SIO_ENABLE_CIRCULAR_QUEUEING = DWORD(IOC_VOID or IOC_WS2 or 2);
{$EXTERNALSYM SIO_FIND_ROUTE}
SIO_FIND_ROUTE = DWORD(IOC_OUT or IOC_WS2 or 3);
{$EXTERNALSYM SIO_FLUSH}
SIO_FLUSH = DWORD(IOC_VOID or IOC_WS2 or 4);
{$EXTERNALSYM SIO_GET_BROADCAST_ADDRESS}
SIO_GET_BROADCAST_ADDRESS = DWORD(IOC_OUT or IOC_WS2 or 5);
{$EXTERNALSYM SIO_GET_EXTENSION_FUNCTION_POINTER}
SIO_GET_EXTENSION_FUNCTION_POINTER = DWORD(IOC_INOUT or IOC_WS2 or 6);
{$EXTERNALSYM SIO_GET_QOS}
SIO_GET_QOS = DWORD(IOC_INOUT or IOC_WS2 or 7);
{$EXTERNALSYM SIO_GET_GROUP_QOS}
SIO_GET_GROUP_QOS = DWORD(IOC_INOUT or IOC_WS2 or 8);
{$EXTERNALSYM SIO_MULTIPOINT_LOOPBACK}
SIO_MULTIPOINT_LOOPBACK = DWORD(IOC_IN or IOC_WS2 or 9);
{$EXTERNALSYM SIO_MULTICAST_SCOPE}
SIO_MULTICAST_SCOPE = DWORD(IOC_IN or IOC_WS2 or 10);
{$EXTERNALSYM SIO_SET_QOS}
SIO_SET_QOS = DWORD(IOC_IN or IOC_WS2 or 11);
{$EXTERNALSYM SIO_SET_GROUP_QOS}
SIO_SET_GROUP_QOS = DWORD(IOC_IN or IOC_WS2 or 12);
{$EXTERNALSYM SIO_TRANSLATE_HANDLE}
SIO_TRANSLATE_HANDLE = DWORD(IOC_INOUT or IOC_WS2 or 13);
{$EXTERNALSYM SIO_ROUTING_INTERFACE_QUERY}
SIO_ROUTING_INTERFACE_QUERY = DWORD(IOC_INOUT or IOC_WS2 or 20);
{$EXTERNALSYM SIO_ROUTING_INTERFACE_CHANGE}
SIO_ROUTING_INTERFACE_CHANGE = DWORD(IOC_IN or IOC_WS2 or 21);
{$EXTERNALSYM SIO_ADDRESS_LIST_QUERY}
SIO_ADDRESS_LIST_QUERY = DWORD(IOC_OUT or IOC_WS2 or 22); // see below SOCKET_ADDRESS_LIST
{$EXTERNALSYM SIO_ADDRESS_LIST_CHANGE}
SIO_ADDRESS_LIST_CHANGE = DWORD(IOC_VOID or IOC_WS2 or 23);
{$EXTERNALSYM SIO_QUERY_TARGET_PNP_HANDLE}
SIO_QUERY_TARGET_PNP_HANDLE = DWORD(IOC_OUT or IOC_WS2 or 24);
{$EXTERNALSYM SIO_NSP_NOTIFY_CHANGE}
SIO_NSP_NOTIFY_CHANGE = DWORD(IOC_IN or IOC_WS2 or 25);
{$EXTERNALSYM SIO_ADDRESS_LIST_SORT}
SIO_ADDRESS_LIST_SORT = DWORD(IOC_INOUT or IOC_WS2 or 25);
{$EXTERNALSYM SIO_QUERY_RSS_PROCESSOR_INFO}
SIO_QUERY_RSS_PROCESSOR_INFO = DWORD(IOC_INOUT or IOC_WS2 or 37);
{$IFNDEF WINCE}
{$EXTERNALSYM SIO_RESERVED_1}
SIO_RESERVED_1 = DWORD(IOC_IN or IOC_WS2 or 26);
{$EXTERNALSYM SIO_RESERVED_2}
SIO_RESERVED_2 = DWORD(IOC_IN or IOC_WS2 or 33);
{$ENDIF}
// WinSock 2 extension -- manifest constants for SIO_TRANSLATE_HANDLE ioctl
{$EXTERNALSYM TH_NETDEV}
TH_NETDEV = $00000001;
{$EXTERNALSYM TH_TAPI}
TH_TAPI = $00000002;
type
// Manifest constants and type definitions related to name resolution and
// registration (RNR) API
{$IFNDEF NO_REDECLARE}
{$EXTERNALSYM BLOB}
BLOB = record
cbSize : U_LONG;
pBlobData : PBYTE;
end;
{$NODEFINE TBLOB}
TBLOB = BLOB;
{$NODEFINE PBLOB}
PBLOB = ^TBLOB;
{$ENDIF}
{$EXTERNALSYM LPBLOB}
LPBLOB = PBLOB;
{$EXTERNALSYM RIO_BUFFERID}
RIO_BUFFERID = Pointer;
{$EXTERNALSYM RIO_CQ}
RIO_CQ = Pointer;
{$EXTERNALSYM RIO_RQ}
RIO_RQ = Pointer;
{$EXTERNALSYM PRIO_BUFFERID}
PRIO_BUFFERID = ^RIO_BUFFERID;
{$EXTERNALSYM _RIORESULT}
_RIORESULT = record
Status : LONG;
BytesTransferred : ULONG;
SocketContext : ULONGLONG;
RequestContext : ULONGLONG;
end;
{$EXTERNALSYM RIORESULT}
RIORESULT = _RIORESULT;
{$EXTERNALSYM PRIORESULT}
PRIORESULT = ^RIORESULT;
{$EXTERNALSYM _RIO_BUF}
_RIO_BUF = record
BufferId : RIO_BUFFERID;
Offset : ULONG;
Length : ULONG;
end;
{$EXTERNALSYM RIO_BUF}
RIO_BUF = _RIO_BUF;
{$EXTERNALSYM PRIO_BUF}
PRIO_BUF = ^RIO_BUF;
{$EXTERNALSYM _RIO_CMSG_BUFFER}
_RIO_CMSG_BUFFER = record
TotalLength : ULONG;
//* followed by CMSG_HDR */
end;
{$EXTERNALSYM RIO_CMSG_BUFFER}
RIO_CMSG_BUFFER = _RIO_CMSG_BUFFER;
{$EXTERNALSYM PRIO_CMSG_BUFFER}
PRIO_CMSG_BUFFER = ^RIO_CMSG_BUFFER;
// Service Install Flags
const
{$EXTERNALSYM SERVICE_MULTIPLE}
SERVICE_MULTIPLE = $00000001;
// & name spaces
{$EXTERNALSYM NS_ALL}
NS_ALL = 0;
{$EXTERNALSYM NS_SAP}
NS_SAP = 1;
{$EXTERNALSYM NS_NDS}
NS_NDS = 2;
{$EXTERNALSYM NS_PEER_BROWSE}
NS_PEER_BROWSE = 3;
{$EXTERNALSYM NS_SLP}
NS_SLP = 5;
{$EXTERNALSYM NS_DHCP}
NS_DHCP = 6;
{$EXTERNALSYM NS_TCPIP_LOCAL}
NS_TCPIP_LOCAL = 10;
{$EXTERNALSYM NS_TCPIP_HOSTS}
NS_TCPIP_HOSTS = 11;
{$EXTERNALSYM NS_DNS}
NS_DNS = 12;
{$EXTERNALSYM NS_NETBT}
NS_NETBT = 13;
{$EXTERNALSYM NS_WINS}
NS_WINS = 14;
{$EXTERNALSYM NS_NLA}
NS_NLA = 15; //* Network Location Awareness*/ - WindowsXP
{$EXTERNALSYM NS_BTH}
NS_BTH = 16; //* Bluetooth SDP Namespace */ - Windows Vista
{$EXTERNALSYM NS_NBP}
NS_NBP = 20;
{$EXTERNALSYM NS_MS}
NS_MS = 30;
{$EXTERNALSYM NS_STDA}
NS_STDA = 31;
{$EXTERNALSYM NS_NTDS}
NS_NTDS = 32;
//Windows Vista namespaces
{$EXTERNALSYM NS_EMAIL}
NS_EMAIL = 37;
{$EXTERNALSYM NS_PNRPNAME}
NS_PNRPNAME = 38;
{$EXTERNALSYM NS_PNRPCLOUD}
NS_PNRPCLOUD = 39;
//
{$EXTERNALSYM NS_X500}
NS_X500 = 40;
{$EXTERNALSYM NS_NIS}
NS_NIS = 41;
{$EXTERNALSYM NS_NISPLUS}
NS_NISPLUS = 42;
{$EXTERNALSYM NS_WRQ}
NS_WRQ = 50;
{$EXTERNALSYM NS_NETDES}
NS_NETDES = 60; // Network Designers Limited
{ Resolution flags for WSAGetAddressByName().
Note these are also used by the 1.1 API GetAddressByName, so leave them around. }
{$EXTERNALSYM RES_UNUSED_1}
RES_UNUSED_1 = $00000001;
{$EXTERNALSYM RES_FLUSH_CACHE}
RES_FLUSH_CACHE = $00000002;
{$EXTERNALSYM RES_SERVICE}
RES_SERVICE = $00000004;
{$EXTERNALSYM RIO_MSG_DONT_NOTIFY}
RIO_MSG_DONT_NOTIFY = $00000001;
{$EXTERNALSYM RIO_MSG_DEFER}
RIO_MSG_DEFER = $00000002;
{$EXTERNALSYM RIO_MSG_WAITALL}
RIO_MSG_WAITALL = $00000004;
{$EXTERNALSYM RIO_MSG_COMMIT_ONLY}
RIO_MSG_COMMIT_ONLY = $00000008;
{$EXTERNALSYM RIO_INVALID_BUFFERID}
RIO_INVALID_BUFFERID = RIO_BUFFERID($FFFFFFFF);
{$EXTERNALSYM RIO_INVALID_CQ}
RIO_INVALID_CQ = RIO_CQ(0);
{$EXTERNALSYM RIO_INVALID_RQ}
RIO_INVALID_RQ = RIO_RQ(0);
{$EXTERNALSYM RIO_MAX_CQ_SIZE}
RIO_MAX_CQ_SIZE = $8000000;
{$EXTERNALSYM RIO_CORRUPT_CQ}
RIO_CORRUPT_CQ = $FFFFFFFF;
{ Well known value names for Service Types }
{$EXTERNALSYM SERVICE_TYPE_VALUE_IPXPORTA}
SERVICE_TYPE_VALUE_IPXPORTA : PAnsiChar = 'IpxSocket'; {Do not Localize}
{$EXTERNALSYM SERVICE_TYPE_VALUE_SAPIDA}
SERVICE_TYPE_VALUE_SAPIDA : PAnsiChar = 'SapId'; {Do not Localize}
{$EXTERNALSYM SERVICE_TYPE_VALUE_TCPPORTA}
SERVICE_TYPE_VALUE_TCPPORTA : PAnsiChar = 'TcpPort'; {Do not Localize}
{$EXTERNALSYM SERVICE_TYPE_VALUE_UDPPORTA}
SERVICE_TYPE_VALUE_UDPPORTA : PAnsiChar = 'UdpPort'; {Do not Localize}
{$EXTERNALSYM SERVICE_TYPE_VALUE_OBJECTIDA}
SERVICE_TYPE_VALUE_OBJECTIDA : PAnsiChar = 'ObjectId'; {Do not Localize}
{$EXTERNALSYM SERVICE_TYPE_VALUE_IPXPORTW}
SERVICE_TYPE_VALUE_IPXPORTW : PWideChar = 'IpxSocket'; {Do not Localize}
{$EXTERNALSYM SERVICE_TYPE_VALUE_SAPIDW}
SERVICE_TYPE_VALUE_SAPIDW : PWideChar = 'SapId'; {Do not Localize}
{$EXTERNALSYM SERVICE_TYPE_VALUE_TCPPORTW}
SERVICE_TYPE_VALUE_TCPPORTW : PWideChar = 'TcpPort'; {Do not Localize}
{$EXTERNALSYM SERVICE_TYPE_VALUE_UDPPORTW}
SERVICE_TYPE_VALUE_UDPPORTW : PWideChar = 'UdpPort'; {Do not Localize}
{$EXTERNALSYM SERVICE_TYPE_VALUE_OBJECTIDW}
SERVICE_TYPE_VALUE_OBJECTIDW : PWideChar = 'ObjectId'; {Do not Localize}
{$EXTERNALSYM SERVICE_TYPE_VALUE_SAPID}
{$EXTERNALSYM SERVICE_TYPE_VALUE_TCPPORT}
{$EXTERNALSYM SERVICE_TYPE_VALUE_UDPPORT}
{$EXTERNALSYM SERVICE_TYPE_VALUE_OBJECTID}
{$IFDEF UNICODE}
SERVICE_TYPE_VALUE_SAPID : PWideChar = 'SapId'; {Do not Localize}
SERVICE_TYPE_VALUE_TCPPORT : PWideChar = 'TcpPort'; {Do not Localize}
SERVICE_TYPE_VALUE_UDPPORT : PWideChar = 'UdpPort'; {Do not Localize}
SERVICE_TYPE_VALUE_OBJECTID : PWideChar = 'ObjectId'; {Do not Localize}
{$ELSE}
SERVICE_TYPE_VALUE_SAPID : PAnsiChar = 'SapId'; {Do not Localize}
SERVICE_TYPE_VALUE_TCPPORT : PAnsiChar = 'TcpPort'; {Do not Localize}
SERVICE_TYPE_VALUE_UDPPORT : PAnsiChar = 'UdpPort'; {Do not Localize}
SERVICE_TYPE_VALUE_OBJECTID : PAnsiChar = 'ObjectId'; {Do not Localize}
{$ENDIF}
// SockAddr Information
type
{$EXTERNALSYM SOCKET_ADDRESS}
SOCKET_ADDRESS = record
lpSockaddr : PSOCKADDR;
iSockaddrLength : Integer;
end;
{$NODEFINE TSocket_Address}
TSocket_Address = SOCKET_ADDRESS;
{$EXTERNALSYM PSOCKET_ADDRESS}
PSOCKET_ADDRESS = ^TSocket_Address;
{$EXTERNALSYM SOCKET_ADDRESS_LIST}
SOCKET_ADDRESS_LIST = record
iAddressCount : Integer;
Address : SOCKET_ADDRESS;
end;
{$NODEFINE TSocket_Address_List}
TSocket_Address_List = SOCKET_ADDRESS_LIST;
{$EXTERNALSYM PSOCKET_ADDRESS_LIST}
PSOCKET_ADDRESS_LIST = ^TSocket_Address_List;
{$EXTERNALSYM LPSOCKET_ADDRESS_LIST}
LPSOCKET_ADDRESS_LIST = PSOCKET_ADDRESS_LIST;
// CSAddr Information
{$EXTERNALSYM CSADDR_INFO}
CSADDR_INFO = record
LocalAddr,
RemoteAddr : TSocket_Address;
iSocketType,
iProtocol : Integer;
end;
{$NODEFINE TCSAddr_Info}
TCSAddr_Info = CSADDR_INFO;
{$EXTERNALSYM PCSADDR_INFO}
PCSADDR_INFO = ^TCSAddr_Info;
{$EXTERNALSYM LPCSADDR_INFO}
LPCSADDR_INFO = PCSADDR_INFO;
// Address Family/Protocol Tuples
{$EXTERNALSYM AFPROTOCOLS}
AFPROTOCOLS = record
iAddressFamily : Integer;
iProtocol : Integer;
end;
{$NODEFINE TAFProtocols}
TAFProtocols = AFPROTOCOLS;
{$EXTERNALSYM PAFPROTOCOLS}
PAFPROTOCOLS = ^TAFProtocols;
{$EXTERNALSYM LPAFPROTOCOLS}
LPAFPROTOCOLS = PAFPROTOCOLS;
// Client Query API Typedefs
// The comparators
{$EXTERNALSYM WSAECOMPARATOR}
WSAECOMPARATOR = (COMP_EQUAL {= 0}, COMP_NOTLESS);
{$NODEFINE TWSAEComparator}
TWSAEComparator = WSAECOMPARATOR;
{$EXTERNALSYM PWSAECOMPARATOR}
PWSAECOMPARATOR = ^WSAECOMPARATOR;
{$EXTERNALSYM WSAVERSION}
WSAVERSION = record
dwVersion : DWORD;
ecHow : TWSAEComparator;
end;
{$NODEFINE TWSAVersion}
TWSAVersion = WSAVERSION;
{$EXTERNALSYM PWSAVERSION}
PWSAVERSION = ^TWSAVersion;
{$EXTERNALSYM LPWSAVERSION}
LPWSAVERSION = PWSAVERSION;
{$EXTERNALSYM WSAQUERYSETA}
WSAQUERYSETA = record
dwSize : DWORD;
lpszServiceInstanceName : PAnsiChar;
lpServiceClassId : PGUID;
lpVersion : LPWSAVERSION;
lpszComment : PAnsiChar;
dwNameSpace : DWORD;
lpNSProviderId : PGUID;
lpszContext : PAnsiChar;
dwNumberOfProtocols : DWORD;
lpafpProtocols : LPAFPROTOCOLS;
lpszQueryString : PAnsiChar;
dwNumberOfCsAddrs : DWORD;
lpcsaBuffer : LPCSADDR_INFO;
dwOutputFlags : DWORD;
lpBlob : LPBLOB;
end;
{$NODEFINE TWSAQuerySetA}
TWSAQuerySetA = WSAQUERYSETA;
{$EXTERNALSYM PWSAQUERYSETA}
PWSAQUERYSETA = ^TWSAQuerySetA;
{$EXTERNALSYM LPWSAQUERYSETA}
LPWSAQUERYSETA = PWSAQUERYSETA;
{$EXTERNALSYM WSAQUERYSETW}
WSAQUERYSETW = record
dwSize : DWORD;
lpszServiceInstanceName : PWideChar;
lpServiceClassId : PGUID;
lpVersion : LPWSAVERSION;
lpszComment : PWideChar;
dwNameSpace : DWORD;
lpNSProviderId : PGUID;
lpszContext : PWideChar;
dwNumberOfProtocols : DWORD;
lpafpProtocols : LPAFPROTOCOLS;
lpszQueryString : PWideChar;
dwNumberOfCsAddrs : DWORD;
lpcsaBuffer : LPCSADDR_INFO;
dwOutputFlags : DWORD;
lpBlob : LPBLOB;
end;
{$NODEFINE TWSAQuerySetW}
TWSAQuerySetW = WSAQUERYSETW;
{$EXTERNALSYM PWSAQUERYSETW}
PWSAQUERYSETW = ^TWSAQuerySetW;
{$EXTERNALSYM LPWSAQUERYSETW}
LPWSAQUERYSETW = PWSAQUERYSETW;
{$NODEFINE TWSAQuerySet}
{$EXTERNALSYM PWSAQUERYSET}
{$EXTERNALSYM LPWSAQUERYSET}
{$IFDEF UNICODE}
TWSAQuerySet = TWSAQuerySetW;
PWSAQUERYSET = PWSAQUERYSETW;
LPWSAQUERYSET = LPWSAQUERYSETW;
{$ELSE}
TWSAQuerySet = TWSAQuerySetA;
PWSAQUERYSET = PWSAQUERYSETA;
LPWSAQUERYSET = LPWSAQUERYSETA;
{$ENDIF}
const
{$EXTERNALSYM LUP_DEEP}
LUP_DEEP = $0001;
{$EXTERNALSYM LUP_CONTAINERS}
LUP_CONTAINERS = $0002;
{$EXTERNALSYM LUP_NOCONTAINERS}
LUP_NOCONTAINERS = $0004;
{$EXTERNALSYM LUP_NEAREST}
LUP_NEAREST = $0008;
{$EXTERNALSYM LUP_RETURN_NAME}
LUP_RETURN_NAME = $0010;
{$EXTERNALSYM LUP_RETURN_TYPE}
LUP_RETURN_TYPE = $0020;
{$EXTERNALSYM LUP_RETURN_VERSION}
LUP_RETURN_VERSION = $0040;
{$EXTERNALSYM LUP_RETURN_COMMENT}
LUP_RETURN_COMMENT = $0080;
{$EXTERNALSYM LUP_RETURN_ADDR}
LUP_RETURN_ADDR = $0100;
{$EXTERNALSYM LUP_RETURN_BLOB}
LUP_RETURN_BLOB = $0200;
{$EXTERNALSYM LUP_RETURN_ALIASES}
LUP_RETURN_ALIASES = $0400;
{$EXTERNALSYM LUP_RETURN_QUERY_STRING}
LUP_RETURN_QUERY_STRING = $0800;
{$EXTERNALSYM LUP_RETURN_ALL}
LUP_RETURN_ALL = $0FF0;
{$EXTERNALSYM LUP_RES_SERVICE}
LUP_RES_SERVICE = $8000;
{$EXTERNALSYM LUP_FLUSHCACHE}
LUP_FLUSHCACHE = $1000;
{$EXTERNALSYM LUP_FLUSHPREVIOUS}
LUP_FLUSHPREVIOUS = $2000;
// Return flags
{$EXTERNALSYM RESULT_IS_ALIAS}
RESULT_IS_ALIAS = $0001;
//These are not supported in WinCE 4.2 but are available in later versions.
{$EXTERNALSYM RESULT_IS_ADDED}
RESULT_IS_ADDED = $0010;
{$EXTERNALSYM RESULT_IS_CHANGED}
RESULT_IS_CHANGED = $0020;
{$EXTERNALSYM RESULT_IS_DELETED}
RESULT_IS_DELETED = $0040;
{$EXTERNALSYM MAX_NATURAL_ALIGNMENT}
{$IFDEF _WIN64}
MAX_NATURAL_ALIGNMENT = SizeOf(Int64);
{$ELSE}
MAX_NATURAL_ALIGNMENT = SizeOf(DWORD);
{$ENDIF}
// WSARecvMsg flags
{$EXTERNALSYM MSG_TRUNC}
MSG_TRUNC = $0100;
{$EXTERNALSYM MSG_CTRUNC}
MSG_CTRUNC = $0200;
{$EXTERNALSYM MSG_BCAST}
MSG_BCAST = $0400;
{$EXTERNALSYM MSG_MCAST}
MSG_MCAST = $0800;
{$IFNDEF WINCE}
//Windows Vista WSAPoll
//* Event flag definitions for WSAPoll(). */
{$EXTERNALSYM POLLRDNORM}
POLLRDNORM = $0100;
{$EXTERNALSYM POLLRDBAND}
POLLRDBAND = $0200;
{$EXTERNALSYM POLLIN}
POLLIN = (POLLRDNORM or POLLRDBAND);
{$EXTERNALSYM POLLPRI}
POLLPRI = $0400;
{$EXTERNALSYM POLLWRNORM}
POLLWRNORM = $0010;
{$EXTERNALSYM POLLOUT}
POLLOUT = (POLLWRNORM);
{$EXTERNALSYM POLLWRBAND}
POLLWRBAND = $0020;
{$EXTERNALSYM POLLERR}
POLLERR = $0001;
{$EXTERNALSYM POLLHUP}
POLLHUP = $0002;
{$EXTERNALSYM POLLNVAL}
POLLNVAL = $0004;
{$ENDIF}
type
// Service Address Registration and Deregistration Data Types.
{$EXTERNALSYM WSAESETSERVICEOP}
WSAESETSERVICEOP = (RNRSERVICE_REGISTER{=0}, RNRSERVICE_DEREGISTER, RNRSERVICE_DELETE);
{$NODEFINE TWSAESetServiceOp}
TWSAESetServiceOp = WSAESETSERVICEOP;
{ Service Installation/Removal Data Types. }
{$EXTERNALSYM WSANSCLASSINFOA}
WSANSCLASSINFOA = record
lpszName : PAnsiChar;
dwNameSpace : DWORD;
dwValueType : DWORD;
dwValueSize : DWORD;
lpValue : Pointer;
end;
{$NODEFINE TWSANSClassInfoA}
TWSANSClassInfoA = WSANSCLASSINFOA;
{$EXTERNALSYM PWSANSClassInfoA}
PWSANSCLASSINFOA = ^TWSANSClassInfoA;
{$EXTERNALSYM LPWSANSCLASSINFOA}
LPWSANSCLASSINFOA = PWSANSCLASSINFOA;
{$EXTERNALSYM WSANSCLASSINFOW}
WSANSCLASSINFOW = record
lpszName : PWideChar;
dwNameSpace : DWORD;
dwValueType : DWORD;
dwValueSize : DWORD;
lpValue : Pointer;
end;
{$NODEFINE TWSANSClassInfoW}
TWSANSClassInfoW = WSANSCLASSINFOW;
{$EXTERNALSYM PWSANSClassInfoW}
PWSANSCLASSINFOW = ^TWSANSClassInfoW;
{$EXTERNALSYM LPWSANSCLASSINFOW}
LPWSANSCLASSINFOW = PWSANSCLASSINFOW;
{$NODEFINE TWSANSClassInfo}
{$EXTERNALSYM WSANSCLASSINFO}
{$EXTERNALSYM PWSANSCLASSINFO}
{$EXTERNALSYM LPWSANSCLASSINFO}
{$IFDEF UNICODE}
TWSANSClassInfo = TWSANSClassInfoW;
WSANSCLASSINFO = TWSANSClassInfoW;
PWSANSCLASSINFO = PWSANSCLASSINFOW;
LPWSANSCLASSINFO = LPWSANSCLASSINFOW;
{$ELSE}
TWSANSClassInfo = TWSANSClassInfoA;
WSANSCLASSINFO = TWSANSClassInfoA;
PWSANSCLASSINFO = PWSANSCLASSINFOA;
LPWSANSCLASSINFO = LPWSANSCLASSINFOA;
{$ENDIF // UNICODE}
{$EXTERNALSYM WSASERVICECLASSINFOA}
WSASERVICECLASSINFOA = record
lpServiceClassId : PGUID;
lpszServiceClassName : PAnsiChar;
dwCount : DWORD;
lpClassInfos : LPWSANSCLASSINFOA;
end;
{$NODEFINE TWSAServiceClassInfoA}
TWSAServiceClassInfoA = WSASERVICECLASSINFOA;
{$EXTERNALSYM PWSASERVICECLASSINFOA}
PWSASERVICECLASSINFOA = ^TWSAServiceClassInfoA;
{$EXTERNALSYM LPWSASERVICECLASSINFOA}
LPWSASERVICECLASSINFOA = PWSASERVICECLASSINFOA;
{$EXTERNALSYM WSASERVICECLASSINFOW}
WSASERVICECLASSINFOW = record
lpServiceClassId : PGUID;
lpszServiceClassName : PWideChar;
dwCount : DWORD;
lpClassInfos : LPWSANSCLASSINFOW;
end;
{$NODEFINE TWSAServiceClassInfoW}
TWSAServiceClassInfoW = WSASERVICECLASSINFOW;
{$EXTERNALSYM PWSASERVICECLASSINFOW}
PWSASERVICECLASSINFOW = ^TWSAServiceClassInfoW;
{$EXTERNALSYM LPWSASERVICECLASSINFOW}
LPWSASERVICECLASSINFOW = PWSASERVICECLASSINFOW;
{$NODEFINE TWSAServiceClassInfo}
{$EXTERNALSYM WSASERVICECLASSINFO}
{$EXTERNALSYM PWSASERVICECLASSINFO}
{$EXTERNALSYM LPWSASERVICECLASSINFO}
{$IFDEF UNICODE}
TWSAServiceClassInfo = TWSAServiceClassInfoW;
WSASERVICECLASSINFO = TWSAServiceClassInfoW;
PWSASERVICECLASSINFO = PWSASERVICECLASSINFOW;
LPWSASERVICECLASSINFO = LPWSASERVICECLASSINFOW;
{$ELSE}
TWSAServiceClassInfo = TWSAServiceClassInfoA;
WSASERVICECLASSINFO = TWSAServiceClassInfoA;
PWSASERVICECLASSINFO = PWSASERVICECLASSINFOA;
LPWSASERVICECLASSINFO = LPWSASERVICECLASSINFOA;
{$ENDIF}
{$EXTERNALSYM WSANAMESPACE_INFOA}
WSANAMESPACE_INFOA = record
NSProviderId : TGUID;
dwNameSpace : DWORD;
fActive : DWORD{Bool};
dwVersion : DWORD;
lpszIdentifier : PAnsiChar;
end;
{$NODEFINE TWSANameSpace_InfoA}
TWSANameSpace_InfoA = WSANAMESPACE_INFOA;
{$EXTERNALSYM PWSANAMESPACE_INFOA}
PWSANAMESPACE_INFOA = ^TWSANameSpace_InfoA;
{$EXTERNALSYM LPWSANAMESPACE_INFOA}
LPWSANAMESPACE_INFOA = PWSANAMESPACE_INFOA;
{$EXTERNALSYM WSANAMESPACE_INFOW}
WSANAMESPACE_INFOW = record
NSProviderId : TGUID;
dwNameSpace : DWORD;
fActive : DWORD{Bool};
dwVersion : DWORD;
lpszIdentifier : PWideChar;
end;
{$NODEFINE TWSANameSpace_InfoW}
TWSANameSpace_InfoW = WSANAMESPACE_INFOW;
{$EXTERNALSYM PWSANAMESPACE_INFOW}
PWSANAMESPACE_INFOW = ^TWSANameSpace_InfoW;
{$EXTERNALSYM LPWSANAMESPACE_INFOW}
LPWSANAMESPACE_INFOW = PWSANAMESPACE_INFOW;
{$IFNDEF WINCE}
{$EXTERNALSYM WSANAMESPACE_INFOEXW}
WSANAMESPACE_INFOEXW = record
NSProviderId : TGUID;
dwNameSpace : DWord;
fActive : LongBool;
lpszIdentifier : LPWSTR;
ProviderSpecific : BLOB;
end;
{$NODEFINE TWSANameSpace_InfoExW}
TWSANameSpace_InfoExW = WSANAMESPACE_INFOEXW;
{$EXTERNALSYM PWSANAMESPACE_INFOEXW}
PWSANAMESPACE_INFOEXW = ^TWSANameSpace_InfoExW;
{$EXTERNALSYM LPWSANAMESPACE_INFOEXW}
LPWSANAMESPACE_INFOEXW = PWSANAMESPACE_INFOEXW;
{$EXTERNALSYM WSANAMESPACE_INFOEXA}
WSANAMESPACE_INFOEXA = record
NSProviderId : TGUID;
dwNameSpace : DWord;
fActive : LongBool;
lpszIdentifier : LPSTR;
ProviderSpecific : BLOB;
end;
{$NODEFINE TWSANameSpace_InfoExA}
TWSANameSpace_InfoExA = WSANAMESPACE_INFOEXA;
{$EXTERNALSYM PWSANAMESPACE_INFOEXA}
PWSANAMESPACE_INFOEXA = ^TWSANameSpace_InfoExA;
{$EXTERNALSYM LPWSANAMESPACE_INFOEXA}
LPWSANAMESPACE_INFOEXA = PWSANAMESPACE_INFOEXA;
{$EXTERNALSYM LPFN_WSAENUMNAMESPACEPROVIDERSEXW}
LPFN_WSAENUMNAMESPACEPROVIDERSEXW = function (var lpdwBufferLength : DWord;
lpnspBuffer : PWSANAMESPACE_INFOEXW): Integer; stdcall;
{$EXTERNALSYM LPFN_WSAENUMNAMESPACEPROVIDERSEXA}
LPFN_WSAENUMNAMESPACEPROVIDERSEXA = function (var lpdwBufferLength : DWord;
lpnspBuffer : PWSANAMESPACE_INFOEXA): Integer; stdcall;
{$NODEFINE TWSANameSpace_InfoEx}
{$EXTERNALSYM WSANAMESPACE_INFOEX}
{$EXTERNALSYM PWSANAMESPACE_INFOEX}
{$EXTERNALSYM LPWSANAMESPACE_INFOEX}
{$EXTERNALSYM LPFN_WSAENUMNAMESPACEPROVIDERSEX}
{$IFDEF UNICODE}
WSANAMESPACE_INFOEX = WSANAMESPACE_INFOEXW;
TWSANameSpace_InfoEx = TWSANameSpace_InfoExW;
PWSANAMESPACE_INFOEX = PWSANAMESPACE_INFOEXW;
LPWSANAMESPACE_INFOEX = PWSANAMESPACE_INFOEX;
LPFN_WSAENUMNAMESPACEPROVIDERSEX = LPFN_WSAENUMNAMESPACEPROVIDERSEXW;
{$ELSE}
WSANAMESPACE_INFOEX = WSANAMESPACE_INFOEXA;
TWSANameSpace_InfoEx = TWSANameSpace_InfoExA;
PWSANAMESPACE_INFOEX = PWSANAMESPACE_INFOEXA;
LPWSANAMESPACE_INFOEX = PWSANAMESPACE_INFOEX;
LPFN_WSAENUMNAMESPACEPROVIDERSEX = LPFN_WSAENUMNAMESPACEPROVIDERSEXA;
{$ENDIF}
{$ENDIF} // WINCE
{$NODEFINE TWSANameSpace_Info}
{$EXTERNALSYM WSANAMESPACE_INFO}
{$EXTERNALSYM PWSANAMESPACE_INFO}
{$EXTERNALSYM LPWSANAMESPACE_INFO}
{$IFDEF UNICODE}
TWSANameSpace_Info = TWSANameSpace_InfoW;
WSANAMESPACE_INFO = TWSANameSpace_InfoW;
PWSANAMESPACE_INFO = PWSANAMESPACE_INFOW;
LPWSANAMESPACE_INFO = LPWSANAMESPACE_INFOW;
{$ELSE}
TWSANameSpace_Info = TWSANameSpace_InfoA;
WSANAMESPACE_INFO = TWSANameSpace_InfoA;
PWSANAMESPACE_INFO = PWSANAMESPACE_INFOA;
LPWSANAMESPACE_INFO = LPWSANAMESPACE_INFOA;
{$ENDIF}
{$IFDEF WINCE}
{$EXTERNALSYM DSCP_TRAFFIC_TYPE}
{$EXTERNALSYM DSCPTypeNotSet}
{$EXTERNALSYM DSCPBestEffort}
{$EXTERNALSYM DSCPBackground}
{$EXTERNALSYM DSCPExcellentEffort}
{$EXTERNALSYM DSCPVideo}
{$EXTERNALSYM DSCPAudio}
{$EXTERNALSYM DSCPControl}
{$EXTERNALSYM NumDSCPTrafficTypes}
DSCP_TRAFFIC_TYPE = (
DSCPTypeNotSet = 0,
DSCPBestEffort = 1,
DSCPBackground = 2,
DSCPExcellentEffort = 3,
DSCPVideo = 4,
DSCPAudio = 5,
DSCPControl = 6);
// Define NumDSCPTrafficTypes as DSCPControl
//because FPC warns that enumerations must be descending.
//The original definition for DSCP_TRAFFIC_TYPE is:
//
///* differential service traffic types */
//typedef enum _DSCP_TRAFFIC_TYPE
//{
// DSCPTypeNotSet = 0,
// DSCPBestEffort = 1,
// DSCPBackground = 2,
// DSCPExcellentEffort = 3,
// DSCPVideo = 4,
// DSCPAudio = 5,
// DSCPControl = 6,
// NumDSCPTrafficTypes = 6
//} //DSCP_TRAFFIC_TYPE;
const
NumDSCPTrafficTypes : DSCP_TRAFFIC_TYPE = DSCPControl;
type
{$ENDIF}
{$EXTERNALSYM WSAMSG}
WSAMSG = record
name : PSOCKADDR; ///* Remote address */
namelen : Integer; ///* Remote address length *
lpBuffers : LPWSABUF; // /* Data buffer array */
dwBufferCount : DWord; // /* Number of elements in the array */
Control : WSABUF; // /* Control buffer */
dwFlags : DWord; // /* Flags */
end;
{$NODEFINE TWSAMSG}
TWSAMSG = WSAMSG;
{$EXTERNALSYM PWSAMSG}
PWSAMSG = ^TWSAMSG;
{$EXTERNALSYM LPWSAMSG}
LPWSAMSG = PWSAMSG;
{$EXTERNALSYM _WSACMSGHDR}
_WSACMSGHDR = record
cmsg_len: SIZE_T;
cmsg_level: Integer;
cmsg_type: Integer;
{ followed by UCHAR cmsg_data[] }
end;
{$EXTERNALSYM WSACMSGHDR}
WSACMSGHDR = _WSACMSGHDR;
{$EXTERNALSYM cmsghdr}
cmsghdr = _WSACMSGHDR;
{$NODEFINE TWSACMsgHdr}
TWSACMsgHdr = WSACMSGHDR;
{$EXTERNALSYM PWSACMSGHDR}
PWSACMSGHDR = ^TWSACMsgHdr;
{$EXTERNALSYM LPWSACMSGHDR}
LPWSACMSGHDR = PWSACMSGHDR;
{$EXTERNALSYM PCMSGHDR}
PCMSGHDR = ^CMSGHDR;
{$IFNDEF WINCE}
{$EXTERNALSYM WSAPOLLFD}
WSAPOLLFD = record
fd : TSocket;
events : SHORT;
revents : SHORT;
end;
{$NODEFINE TWSAPOLLFD}
TWSAPOLLFD = WSAPOLLFD;
{$EXTERNALSYM PWSAPOLLFD}
PWSAPOLLFD = ^TWSAPOLLFD;
{$EXTERNALSYM LPWSAPOLLFD}
LPWSAPOLLFD = PWSAPOLLFD;
{$ENDIF}
{ WinSock 2 extensions -- data types for the condition function in }
{ WSAAccept() and overlapped I/O completion routine. }
type
{$EXTERNALSYM LPCONDITIONPROC}
LPCONDITIONPROC = function(lpCallerId: LPWSABUF; lpCallerData: LPWSABUF; lpSQOS, pGQOS: LPQOS;
lpCalleeId,lpCalleeData: LPWSABUF; g: PGROUP; dwCallbackData: DWORD_PTR): Integer; stdcall;
{$EXTERNALSYM LPWSAOVERLAPPED_COMPLETION_ROUTINE}
LPWSAOVERLAPPED_COMPLETION_ROUTINE = procedure(dwError, cbTransferred: DWORD;
lpOverlapped: LPWSAOVERLAPPED; dwFlags: DWORD); stdcall;
{$EXTERNALSYM WSACOMPLETIONTYPE}
{$EXTERNALSYM NSP_NOTIFY_IMMEDIATELY}
{$EXTERNALSYM NSP_NOTIFY_HWND}
{$EXTERNALSYM NSP_NOTIFY_EVENT}
{$EXTERNALSYM NSP_NOTIFY_PORT}
{$EXTERNALSYM NSP_NOTIFY_APC}
WSACOMPLETIONTYPE = (
NSP_NOTIFY_IMMEDIATELY,
NSP_NOTIFY_HWND,
NSP_NOTIFY_EVENT,
NSP_NOTIFY_PORT,
NSP_NOTIFY_APC);
{$EXTERNALSYM WSACOMPLETION_WINDOWMESSAGE}
WSACOMPLETION_WINDOWMESSAGE = record
hWnd : HWND;
uMsg : UINT;
context : WPARAM;
end;
{$EXTERNALSYM WSACOMPLETION_EVENT}
WSACOMPLETION_EVENT = record
lpOverlapped : LPWSAOVERLAPPED;
end;
{$EXTERNALSYM WSACOMPLETION_APC}
WSACOMPLETION_APC = record
lpOverlapped : LPWSAOVERLAPPED;
lpfnCompletionProc : LPWSAOVERLAPPED_COMPLETION_ROUTINE;
end;
{$EXTERNALSYM WSACOMPLETION_PORT}
WSACOMPLETION_PORT = record
lpOverlapped : LPWSAOVERLAPPED;
hPort : THandle;
Key : ULONG_PTR;
end;
{$EXTERNALSYM WSACOMPLETION_UNION}
WSACOMPLETION_union = record
case Integer of
0: (WindowMessage : WSACOMPLETION_WINDOWMESSAGE);
1: (Event : WSACOMPLETION_EVENT);
2: (Apc : WSACOMPLETION_APC);
3: (Port : WSACOMPLETION_PORT);
end;
{$EXTERNALSYM WSACOMPLETION}
WSACOMPLETION = record
_Type : WSACOMPLETIONTYPE;
Parameters : WSACOMPLETION_union;
end;
{$EXTERNALSYM PWSACOMPLETION}
PWSACOMPLETION = ^WSACOMPLETION;
{$EXTERNALSYM LPWSACOMPLETION}
LPWSACOMPLETION = PWSACOMPLETION;
{$IFNDEF WINCE}
{$EXTERNALSYM _RIO_NOTIFICATION_COMPLETION_TYPE}
{$EXTERNALSYM RIO_EVENT_COMPLETION}
{$EXTERNALSYM RIO_IOCP_COMPLETION}
{$IFNDEF HAS_ENUM_ELEMENT_VALUES}
{$NODEFINE rnctUnused}
{$ENDIF}
// The Pascal compiler in Delphi/BCB prior to v6 does not
// support specifying values for individual enum items
_RIO_NOTIFICATION_COMPLETION_TYPE = (
{$IFDEF HAS_ENUM_ELEMENT_VALUES}
RIO_EVENT_COMPLETION = 1,
RIO_IOCP_COMPLETION = 2
{$ELSE}
rnctUnused, // do not use
RIO_EVENT_COMPLETION,
RIO_IOCP_COMPLETION
{$ENDIF}
);
{$EXTERNALSYM RIO_NOTIFICATION_COMPLETION_TYPE}
RIO_NOTIFICATION_COMPLETION_TYPE = _RIO_NOTIFICATION_COMPLETION_TYPE;
{$EXTERNALSYM PRIO_NOTIFICATION_COMPLETION_TYPE}
PRIO_NOTIFICATION_COMPLETION_TYPE = ^RIO_NOTIFICATION_COMPLETION_TYPE;
{$EXTERNALSYM _RIO_NOTIFICATION_COMPLETION}
{$EXTERNALSYM RIO_NOTIFICATION_COMPLETION}
{$EXTERNALSYM PRIO_NOTIFICATION_COMPLETION}
{$EXTERNALSYM _RIO_NOTIFICATION_COMPLETION_UNION}
{$EXTERNALSYM _RIO_NOTIFICATION_COMPLETION_IOCP}
{$EXTERNALSYM _RIO_NOTIFICATION_COMPLETION_EVENT}
_RIO_NOTIFICATION_COMPLETION_EVENT = record
EventHandle : THandle;
NotifyReset : BOOL;
end;
_RIO_NOTIFICATION_COMPLETION_IOCP = record
IocpHandle : THANDLE;
CompletionKey : PVOID;
Overlapped : PVOID;
end;
_RIO_NOTIFICATION_COMPLETION_UNION = record
case Integer of
0 : (Event : _RIO_NOTIFICATION_COMPLETION_EVENT);
1 : (Iocp : _RIO_NOTIFICATION_COMPLETION_IOCP);
end;
_RIO_NOTIFICATION_COMPLETION = record
_Type : RIO_NOTIFICATION_COMPLETION_TYPE;
a : _RIO_NOTIFICATION_COMPLETION_UNION;
end;
{$EXTERNALSYM RIO_NOTIFICATION_COMPLETION}
RIO_NOTIFICATION_COMPLETION = _RIO_NOTIFICATION_COMPLETION;
{$EXTERNALSYM PRIO_NOTIFICATION_COMPLETION}
PRIO_NOTIFICATION_COMPLETION = ^RIO_NOTIFICATION_COMPLETION;
{$ENDIF}
type
{$IFDEF INCL_WINSOCK_API_TYPEDEFS}
{$EXTERNALSYM LPFN_WSASTARTUP}
LPFN_WSASTARTUP = function(const wVersionRequired: WORD; out WSData: TWSAData): Integer; stdcall;
{$EXTERNALSYM LPFN_WSACLEANUP}
LPFN_WSACLEANUP = function: Integer; stdcall;
{$EXTERNALSYM LPFN_ACCEPT}
LPFN_ACCEPT = function(const s: TSocket; AAddr: PSOCKADDR; addrlen: PInteger): TSocket; stdcall;
{$EXTERNALSYM LPFN_BIND}
LPFN_BIND = function(const s: TSocket; const name: PSOCKADDR; const namelen: Integer): Integer; stdcall;
{$EXTERNALSYM LPFN_CLOSESOCKET}
LPFN_CLOSESOCKET = function(const s: TSocket): Integer; stdcall;
{$EXTERNALSYM LPFN_CONNECT}
LPFN_CONNECT = function(const s: TSocket; const name: PSOCKADDR; const namelen: Integer): Integer; stdcall;
{$EXTERNALSYM lpfn_IOCTLSOCKET}
LPFN_IOCTLSOCKET = function(const s: TSocket; const cmd: DWORD; var arg: u_long): Integer; stdcall;
{$EXTERNALSYM LPFN_GETPEERNAME}
LPFN_GETPEERNAME = function(const s: TSocket; const name: PSOCKADDR; var namelen: Integer): Integer; stdcall;
{$EXTERNALSYM LPFN_GETSOCKNAME}
LPFN_GETSOCKNAME = function(const s: TSocket; const name: PSOCKADDR; var namelen: Integer): Integer; stdcall;
{$EXTERNALSYM LPFN_GETSOCKOPT}
LPFN_GETSOCKOPT = function(const s: TSocket; const level, optname: Integer; optval: PAnsiChar; var optlen: Integer): Integer; stdcall;
{$EXTERNALSYM LPFN_HTONL}
LPFN_HTONL = function(hostlong: u_long): u_long; stdcall;
{$EXTERNALSYM LPFN_HTONS}
LPFN_HTONS = function(hostshort: u_short): u_short; stdcall;
{$EXTERNALSYM LPFN_INET_ADDR}
LPFN_INET_ADDR = function(cp: PAnsiChar): u_long; stdcall;
{$EXTERNALSYM LPFN_INET_NTOA}
LPFN_INET_NTOA = function(inaddr: TInAddr): PAnsiChar; stdcall;
{$EXTERNALSYM LPFN_LISTEN}
LPFN_LISTEN = function(const s: TSocket; backlog: Integer): Integer; stdcall;
{$EXTERNALSYM LPFN_NTOHL}
LPFN_NTOHL = function(netlong: u_long): u_long; stdcall;
{$EXTERNALSYM LPFN_NTOHS}
LPFN_NTOHS = function(netshort: u_short): u_short; stdcall;
{$EXTERNALSYM LPFN_RECV}
LPFN_RECV = function(const s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
{$EXTERNALSYM LPFN_RECVFROM}
LPFN_RECVFROM = function(const s: TSocket; var Buf; len, flags: Integer; from: PSOCKADDR; fromlen: PInteger): Integer; stdcall;
{$EXTERNALSYM LPFN_SELECT}
LPFN_SELECT = function(nfds: Integer; readfds, writefds, exceptfds: PFDSet; timeout: PTimeVal): Integer; stdcall;
{$EXTERNALSYM LPFN_SEND}
LPFN_SEND = function(const s: TSocket; const Buf; len, flags: Integer): Integer; stdcall;
{$EXTERNALSYM LPFN_SENDTO}
LPFN_SENDTO = function(const s: TSocket; const Buf; const len, flags: Integer; const addrto: PSOCKADDR; const tolen: Integer): Integer; stdcall;
{$EXTERNALSYM LPFN_SETSOCKOPT}
LPFN_SETSOCKOPT = function(const s: TSocket; const level, optname: Integer; optval: PAnsiChar; const optlen: Integer): Integer; stdcall;
{$EXTERNALSYM LPFN_SHUTDOWN}
LPFN_SHUTDOWN = function(const s: TSocket; const how: Integer): Integer; stdcall;
{$EXTERNALSYM LPFN_SOCKET}
LPFN_SOCKET = function(const af, istruct, protocol: Integer): TSocket; stdcall;
{$EXTERNALSYM LPFN_GETHOSTBYADDR}
LPFN_GETHOSTBYADDR = function(AAddr: Pointer; const len, addrtype: Integer): PHostEnt; stdcall;
{$EXTERNALSYM LPFN_GETHOSTBYNAME}
LPFN_GETHOSTBYNAME = function(name: PAnsiChar): PHostEnt; stdcall;
{$EXTERNALSYM LPFN_GETHOSTNAME}
LPFN_GETHOSTNAME = function(name: PAnsiChar; len: Integer): Integer; stdcall;
{$IFDEF WINCE}
// WinCE specific for setting the host name
{$EXTERNALSYM LPFN_SETHOSTNAME}
LPFN_SETHOSTNAME = function(pName : PAnsiChar; len : Integer) : Integer; stdcall;
{$ENDIF}
{$EXTERNALSYM LPFN_GETSERVBYPORT}
LPFN_GETSERVBYPORT = function(const port: Integer; const proto: PAnsiChar): PServEnt; stdcall;
{$EXTERNALSYM LPFN_GETSERVBYNAME}
LPFN_GETSERVBYNAME = function(const name, proto: PAnsiChar): PServEnt; stdcall;
{$EXTERNALSYM LPFN_GETPROTOBYNUMBER}
LPFN_GETPROTOBYNUMBER = function(const proto: Integer): PProtoEnt; stdcall;
{$EXTERNALSYM LPFN_GETPROTOBYNAME}
LPFN_GETPROTOBYNAME = function(const name: PAnsiChar): PProtoEnt; stdcall;
{$EXTERNALSYM LPFN_WSASETLASTERROR}
LPFN_WSASETLASTERROR = procedure(const iError: Integer); stdcall;
{$EXTERNALSYM LPFN_WSAGETLASTERROR}
LPFN_WSAGETLASTERROR = function: Integer; stdcall;
{$IFNDEF WINCE}
{$EXTERNALSYM LPFN_WSACANCELASYNCREQUEST}
LPFN_WSACANCELASYNCREQUEST = function(hAsyncTaskHandle: THandle): Integer; stdcall;
{$EXTERNALSYM LPFN_WSAISBLOCKING}
LPFN_WSAISBLOCKING = function: BOOL; stdcall;
{$EXTERNALSYM LPFN_WSAUNHOOKBLOCKINGHOOK}
LPFN_WSAUNHOOKBLOCKINGHOOK = function: Integer; stdcall;
{$EXTERNALSYM LPFN_WSASETBLOCKINGHOOK}
LPFN_WSASETBLOCKINGHOOK = function(lpBlockFunc: TFarProc): TFarProc; stdcall;
{$EXTERNALSYM LPFN_WSACANCELBLOCKINGCALL}
LPFN_WSACANCELBLOCKINGCALL = function: Integer; stdcall;
{$EXTERNALSYM LPFN_WSAASYNCGETSERVBYNAME}
LPFN_WSAASYNCGETSERVBYNAME = function(HWindow: HWND; wMsg: u_int; name, proto, buf: PAnsiChar; buflen: Integer): THandle; stdcall;
{$EXTERNALSYM LPFN_WSAASYNCGETSERVBYPORT}
LPFN_WSAASYNCGETSERVBYPORT = function(HWindow: HWND; wMsg, port: u_int; proto, buf: PAnsiChar; buflen: Integer): THandle; stdcall;
{$EXTERNALSYM LPFN_WSAASYNCGETPROTOBYNAME}
LPFN_WSAASYNCGETPROTOBYNAME = function(HWindow: HWND; wMsg: u_int; name, buf: PAnsiChar; buflen: Integer): THandle; stdcall;
{$EXTERNALSYM LPFN_WSAASYNCGETPROTOBYNUMBER}
LPFN_WSAASYNCGETPROTOBYNUMBER = function(HWindow: HWND; wMsg: u_int; number: Integer; buf: PAnsiChar; buflen: Integer): THandle; stdcall;
{$EXTERNALSYM LPFN_WSAASYNCGETHOSTBYNAME}
LPFN_WSAASYNCGETHOSTBYNAME = function(HWindow: HWND; wMsg: u_int; name, buf: PAnsiChar; buflen: Integer): THandle; stdcall;
{$EXTERNALSYM LPFN_WSAASYNCGETHOSTBYADDR}
LPFN_WSAASYNCGETHOSTBYADDR = function(HWindow: HWND; wMsg: u_int; AAddr: PAnsiChar; len, istruct: Integer; buf: PAnsiChar; buflen: Integer): THandle; stdcall;
{$EXTERNALSYM LPFN_WSAASYNCSELECT}
LPFN_WSAASYNCSELECT = function(const s: TSocket; HWindow: HWND; wMsg: u_int; lEvent: Longint): Integer; stdcall;
{$ENDIF}
{$EXTERNALSYM LPFN___WSAFDISSET}
LPFN___WSAFDISSET = function(const s: TSocket; var FDSet: TFDSet): Bool; stdcall;
// WinSock 2 API new function prototypes
{$EXTERNALSYM LPFN_WSAACCEPT}
LPFN_WSAACCEPT = function(const s : TSocket; AAddr : PSOCKADDR; addrlen : PInteger; lpfnCondition : LPCONDITIONPROC; const dwCallbackData : DWORD): TSocket; stdcall;
{$EXTERNALSYM LPFN_WSAENUMPROTOCOLSA}
LPFN_WSAENUMPROTOCOLSA = function(lpiProtocols : PInteger; lpProtocolBuffer : LPWSAPROTOCOL_INFOA; var lpdwBufferLength : DWORD) : Integer; stdcall;
{$EXTERNALSYM LPFN_WSAENUMPROTOCOLSW}
LPFN_WSAENUMPROTOCOLSW = function(lpiProtocols : PInteger; lpProtocolBuffer : LPWSAPROTOCOL_INFOW; var lpdwBufferLength : DWORD) : Integer; stdcall;
{$EXTERNALSYM LPFN_WSAGETOVERLAPPEDRESULT}
LPFN_WSAGETOVERLAPPEDRESULT = function(const s : TSocket; AOverlapped: Pointer; lpcbTransfer : LPDWORD; fWait : BOOL; var lpdwFlags : DWORD) : WordBool; stdcall;
{$EXTERNALSYM LPFN_WSAIOCTL}
LPFN_WSAIOCTL = function(const s : TSocket; dwIoControlCode : DWORD; lpvInBuffer : Pointer; cbInBuffer : DWORD; lpvOutBuffer : Pointer; cbOutBuffer : DWORD;
lpcbBytesReturned : LPDWORD; AOverlapped: Pointer; lpCompletionRoutine : LPWSAOVERLAPPED_COMPLETION_ROUTINE) : Integer; stdcall;
{$EXTERNALSYM LPFN_WSARECVFROM}
LPFN_WSARECVFROM = function(const s : TSocket; lpBuffers : LPWSABUF; dwBufferCount : DWORD; var lpNumberOfBytesRecvd : DWORD; var lpFlags : DWORD;
lpFrom : PSOCKADDR; lpFromlen : PInteger; AOverlapped: Pointer; lpCompletionRoutine : LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
{$EXTERNALSYM LPFN_TRANSMITFILE}
LPFN_TRANSMITFILE = function(hSocket: TSocket; hFile: THandle; nNumberOfBytesToWrite, nNumberOfBytesPerSend: DWORD;
lpOverlapped: POverlapped; lpTransmitBuffers: LPTRANSMIT_FILE_BUFFERS; dwReserved: DWORD): BOOL; stdcall;
{$EXTERNALSYM LPFN_ACCEPTEX}
LPFN_ACCEPTEX = function(sListenSocket, sAcceptSocket: TSocket;
lpOutputBuffer: Pointer; dwReceiveDataLength, dwLocalAddressLength,
dwRemoteAddressLength: DWORD; var lpdwBytesReceived: DWORD;
lpOverlapped: POverlapped): BOOL; stdcall;
{$IFNDEF WINCE}
{$EXTERNALSYM LPFN_WSACONNECTBYLIST}
LPFN_WSACONNECTBYLIST = function(const s : TSocket; SocketAddressList : PSOCKET_ADDRESS_LIST;
var LocalAddressLength : DWORD; LocalAddress : LPSOCKADDR;
var RemoteAddressLength : DWORD; RemoteAddress : LPSOCKADDR;
timeout : Ptimeval; Reserved : LPWSAOVERLAPPED):LongBool; stdcall;
{$EXTERNALSYM LPFN_WSACONNECTBYNAMEA}
LPFN_WSACONNECTBYNAMEA = function(const s : TSOCKET;
nodename : PAnsiChar; servicename : PAnsiChar;
var LocalAddressLength : DWORD; LocalAddress : LPSOCKADDR;
var RemoteAddressLength : DWORD; RemoteAddress : LPSOCKADDR;
timeout : Ptimeval; Reserved : LPWSAOVERLAPPED) : Integer; stdcall;
{$EXTERNALSYM LPFN_WSACONNECTBYNAMEW}
LPFN_WSACONNECTBYNAMEW = function(const s : TSOCKET;
nodename : PWChar; servicename : PWChar;
var LocalAddressLength : DWORD; LocalAddress : LPSOCKADDR;
var RemoteAddressLength : DWORD; RemoteAddress : LPSOCKADDR;
timeout : Ptimeval; Reserved : LPWSAOVERLAPPED) : Integer; stdcall;
{$EXTERNALSYM LPFN_WSACONNECTBYNAME}
{$IFDEF UNICODE}
LPFN_WSACONNECTBYNAME = LPFN_WSACONNECTBYNAMEW;
{$ELSE}
LPFN_WSACONNECTBYNAME = LPFN_WSACONNECTBYNAMEA;
{$ENDIF}
{$ENDIF}
{$EXTERNALSYM LPFN_WSAENUMPROTOCOLS}
{wince}
{$IFDEF UNICODE}
LPFN_WSAENUMPROTOCOLS = LPFN_WSAENUMPROTOCOLSW;
{$ELSE}
LPFN_WSAENUMPROTOCOLS = LPFN_WSAENUMPROTOCOLSA;
{$ENDIF}
{$EXTERNALSYM LPFN_WSACLOSEEVENT}
LPFN_WSACLOSEEVENT = function(const hEvent : WSAEVENT) : WordBool; stdcall;
{$EXTERNALSYM LPFN_WSACONNECT}
LPFN_WSACONNECT = function(const s : TSocket; const name : PSOCKADDR; const namelen : Integer; lpCallerData, lpCalleeData : LPWSABUF; lpSQOS, lpGQOS : LPQOS) : Integer; stdcall;
{$EXTERNALSYM LPFN_WSACREATEEVENT}
LPFN_WSACREATEEVENT = function: WSAEVENT; stdcall;
{$IFNDEF WINCE}
{$EXTERNALSYM LPFN_WSADUPLICATESOCKETA}
LPFN_WSADUPLICATESOCKETA = function(const s : TSocket; const dwProcessId : DWORD; lpProtocolInfo : LPWSAPROTOCOL_INFOA) : Integer; stdcall;
{$EXTERNALSYM LPFN_WSADUPLICATESOCKETW}
LPFN_WSADUPLICATESOCKETW = function(const s : TSocket; const dwProcessId : DWORD; lpProtocolInfo : LPWSAPROTOCOL_INFOW) : Integer; stdcall;
{$EXTERNALSYM LPFN_WSADUPLICATESOCKET}
{$IFDEF UNICODE}
LPFN_WSADUPLICATESOCKET = LPFN_WSADUPLICATESOCKETW;
{$ELSE}
LPFN_WSADUPLICATESOCKET = LPFN_WSADUPLICATESOCKETA;
{$ENDIF}
{$ENDIF}
{$EXTERNALSYM LPFN_WSAENUMNETWORKEVENTS}
LPFN_WSAENUMNETWORKEVENTS = function(const s : TSocket; const hEventObject : WSAEVENT; lpNetworkEvents : LPWSANETWORKEVENTS) :Integer; stdcall;
{$EXTERNALSYM LPFN_WSAEVENTSELECT}
LPFN_WSAEVENTSELECT = function(const s : TSocket; const hEventObject : WSAEVENT; lNetworkEvents : LongInt): Integer; stdcall;
{$EXTERNALSYM LPFN_WSAGETQOSBYNAME}
LPFN_WSAGETQOSBYNAME = function(const s : TSocket; lpQOSName : LPWSABUF; lpQOS : LPQOS): WordBool; stdcall;
{$EXTERNALSYM LPFN_WSAHTONL}
LPFN_WSAHTONL = function(const s : TSocket; hostlong : u_long; var lpnetlong : DWORD): Integer; stdcall;
{$EXTERNALSYM LPFN_WSAHTONS}
LPFN_WSAHTONS = function(const s : TSocket; hostshort : u_short; var lpnetshort : WORD): Integer; stdcall;
{$EXTERNALSYM LPFN_WSAJOINLEAF}
LPFN_WSAJOINLEAF = function(const s : TSocket; name : PSOCKADDR; namelen : Integer; lpCallerData, lpCalleeData : LPWSABUF;
lpSQOS,lpGQOS : LPQOS; dwFlags : DWORD) : TSocket; stdcall;
{$EXTERNALSYM LPFN_WSANTOHL}
LPFN_WSANTOHL = function(const s : TSocket; netlong : u_long; var lphostlong : DWORD): Integer; stdcall;
{$EXTERNALSYM LPFN_WSANTOHS}
LPFN_WSANTOHS = function(const s : TSocket; netshort : u_short; var lphostshort : WORD): Integer; stdcall;
{$EXTERNALSYM LPFN_WSARECV}
LPFN_WSARECV = function(const s : TSocket; lpBuffers : LPWSABUF; dwBufferCount : DWORD; var lpNumberOfBytesRecvd : DWORD; var lpFlags : DWORD;
lpOverlapped : LPWSAOVERLAPPED; lpCompletionRoutine : LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
{$EXTERNALSYM LPFN_WSARECVDISCONNECT}
LPFN_WSARECVDISCONNECT = function(const s : TSocket; lpInboundDisconnectData : LPWSABUF): Integer; stdcall;
{$EXTERNALSYM LPFN_WSARESETEVENT}
LPFN_WSARESETEVENT = function(hEvent : WSAEVENT): WordBool; stdcall;
{$EXTERNALSYM LPFN_WSASEND}
LPFN_WSASEND = function(const s : TSocket; lpBuffers : LPWSABUF; dwBufferCount : DWORD; var lpNumberOfBytesSent : DWORD; dwFlags : DWORD;
lpOverlapped : LPWSAOVERLAPPED; lpCompletionRoutine : LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
{$EXTERNALSYM LPFN_WSASENDDISCONNECT}
LPFN_WSASENDDISCONNECT = function(const s : TSocket; lpOutboundDisconnectData : LPWSABUF): Integer; stdcall;
{$EXTERNALSYM LPFN_WSASENDTO}
LPFN_WSASENDTO = function(const s : TSocket; lpBuffers : LPWSABUF; dwBufferCount : DWORD; var lpNumberOfBytesSent : DWORD; dwFlags : DWORD;
lpTo : LPSOCKADDR; iTolen : Integer; lpOverlapped : LPWSAOVERLAPPED; lpCompletionRoutine : LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
{$EXTERNALSYM LPFN_WSASETEVENT}
LPFN_WSASETEVENT = function(hEvent : WSAEVENT): WordBool; stdcall;
{$EXTERNALSYM LPFN_WSASOCKETA}
LPFN_WSASOCKETA = function(af, iType, protocol : Integer; lpProtocolInfo : LPWSAPROTOCOL_INFOA; g : GROUP; dwFlags : DWORD): TSocket; stdcall;
{$EXTERNALSYM LPFN_WSASOCKETW}
LPFN_WSASOCKETW = function(af, iType, protocol : Integer; lpProtocolInfo : LPWSAPROTOCOL_INFOW; g : GROUP; dwFlags : DWORD): TSocket; stdcall;
{$EXTERNALSYM LPFN_WSASOCKET}
{$IFDEF UNICODE}
LPFN_WSASOCKET = LPFN_WSASOCKETW;
{$ELSE}
LPFN_WSASOCKET = LPFN_WSASOCKETA;
{$ENDIF}
{$EXTERNALSYM LPFN_WSAWAITFORMULTIPLEEVENTS}
LPFN_WSAWAITFORMULTIPLEEVENTS = function(cEvents : DWORD; lphEvents : PWSAEVENT; fWaitAll : LongBool;
dwTimeout : DWORD; fAlertable : LongBool): DWORD; stdcall;
{$EXTERNALSYM LPFN_WSAADDRESSTOSTRINGA}
LPFN_WSAADDRESSTOSTRINGA = function(lpsaAddress : PSOCKADDR; const dwAddressLength : DWORD; const lpProtocolInfo : LPWSAPROTOCOL_INFOA;
const lpszAddressString : PAnsiChar; var lpdwAddressStringLength : DWORD): Integer; stdcall;
{$EXTERNALSYM LPFN_WSAADDRESSTOSTRINGW}
LPFN_WSAADDRESSTOSTRINGW = function(lpsaAddress : PSOCKADDR; const dwAddressLength : DWORD; const lpProtocolInfo : LPWSAPROTOCOL_INFOW;
const lpszAddressString : PWideChar; var lpdwAddressStringLength : DWORD): Integer; stdcall;
{$EXTERNALSYM LPFN_WSAADDRESSTOSTRING}
{$IFDEF UNICODE}
LPFN_WSAADDRESSTOSTRING = LPFN_WSAADDRESSTOSTRINGW;
{$ELSE}
LPFN_WSAADDRESSTOSTRING = LPFN_WSAADDRESSTOSTRINGA;
{$ENDIF}
{$EXTERNALSYM LPFN_WSASTRINGTOADDRESSA}
LPFN_WSASTRINGTOADDRESSA = function(const AddressString : PAnsiChar; const AddressFamily: Integer; const lpProtocolInfo : LPWSAPROTOCOL_INFOA;
var lpAddress : TSockAddr; var lpAddressLength : Integer): Integer; stdcall;
{$EXTERNALSYM LPFN_WSASTRINGTOADDRESSW}
LPFN_WSASTRINGTOADDRESSW = function(const AddressString : PWideChar; const AddressFamily: Integer; const lpProtocolInfo : LPWSAPROTOCOL_INFOW;
var lpAddress : TSockAddr; var lpAddressLength : Integer): Integer; stdcall;
{$EXTERNALSYM LPFN_WSASTRINGTOADDRESS}
{$IFDEF UNICODE}
LPFN_WSASTRINGTOADDRESS = LPFN_WSASTRINGTOADDRESSW;
{$ELSE}
LPFN_WSASTRINGTOADDRESS = LPFN_WSASTRINGTOADDRESSA;
{$ENDIF}
// Registration and Name Resolution API functions
{$EXTERNALSYM LPFN_WSALOOKUPSERVICEBEGINA}
LPFN_WSALOOKUPSERVICEBEGINA = function(var qsRestrictions : TWSAQuerySetA; const dwControlFlags : DWORD; var hLookup : THandle): Integer; stdcall;
{$EXTERNALSYM LPFN_WSALOOKUPSERVICEBEGINw}
LPFN_WSALOOKUPSERVICEBEGINW = function(var qsRestrictions : TWSAQuerySetW; const dwControlFlags : DWORD; var hLookup : THandle): Integer; stdcall;
{$EXTERNALSYM LPFN_WSALOOKUPSERVICEBEGIN}
{$IFDEF UNICODE}
LPFN_WSALOOKUPSERVICEBEGIN = LPFN_WSALOOKUPSERVICEBEGINW;
{$ELSE}
LPFN_WSALOOKUPSERVICEBEGIN = LPFN_WSALOOKUPSERVICEBEGINA;
{$ENDIF}
{$EXTERNALSYM LPFN_WSALOOKUPSERVICENEXTA}
LPFN_WSALOOKUPSERVICENEXTA = function(const hLookup : THandle; const dwControlFlags : DWORD; var dwBufferLength : DWORD; lpqsResults : PWSAQUERYSETA): Integer; stdcall;
{$EXTERNALSYM LPFN_WSALOOKUPSERVICENEXTW}
LPFN_WSALOOKUPSERVICENEXTW = function(const hLookup : THandle; const dwControlFlags : DWORD; var dwBufferLength : DWORD; lpqsResults : PWSAQUERYSETW): Integer; stdcall;
{$EXTERNALSYM LPFN_WSALOOKUPSERVICENEXT}
{$IFDEF UNICODE}
LPFN_WSALOOKUPSERVICENEXT = LPFN_WSALOOKUPSERVICENEXTW;
{$ELSE}
LPFN_WSALOOKUPSERVICENEXT = LPFN_WSALOOKUPSERVICENEXTA;
{$ENDIF}
//WinCE 4.20 doesn't support WSANSPIoctl but later versions do.
{$EXTERNALSYM LPFN_WSANSPIOCTL}
LPFN_WSANSPIOCTL = function(const hLookup : THANDLE; const dwControlCode : DWORD; lpvInBuffer : Pointer; var cbInBuffer : DWORD; lpvOutBuffer : Pointer; var cbOutBuffer : DWORD; var lpcbBytesReturned : DWORD; lpCompletion : LPWSACOMPLETION) : Integer; stdcall;
{$EXTERNALSYM LPFN_WSALOOKUPSERVICEEND}
LPFN_WSALOOKUPSERVICEEND = function(const hLookup : THandle): Integer; stdcall;
{$EXTERNALSYM LPFN_WSAINSTALLSERVICECLASSA}
LPFN_WSAINSTALLSERVICECLASSA = function(const lpServiceClassInfo : LPWSASERVICECLASSINFOA) : Integer; stdcall;
{$EXTERNALSYM LPFN_WSAINSTALLSERVICECLASSW}
LPFN_WSAINSTALLSERVICECLASSW = function(const lpServiceClassInfo : LPWSASERVICECLASSINFOW) : Integer; stdcall;
{$EXTERNALSYM LPFN_WSAINSTALLSERVICECLASS}
{$IFDEF UNICODE}
LPFN_WSAINSTALLSERVICECLASS = LPFN_WSAINSTALLSERVICECLASSW;
{$ELSE}
LPFN_WSAINSTALLSERVICECLASS = LPFN_WSAINSTALLSERVICECLASSA;
{$ENDIF}
{$EXTERNALSYM LPFN_WSAREMOVESERVICECLASS}
LPFN_WSAREMOVESERVICECLASS = function(const lpServiceClassId : LPGUID) : Integer; stdcall;
{$EXTERNALSYM LPFN_WSAGETSERVICECLASSINFOA}
LPFN_WSAGETSERVICECLASSINFOA = function(const lpProviderId : LPGUID; const lpServiceClassId : LPGUID; var lpdwBufSize : DWORD;
lpServiceClassInfo : LPWSASERVICECLASSINFOA): Integer; stdcall;
{$EXTERNALSYM LPFN_WSAGETSERVICECLASSINFOW}
LPFN_WSAGETSERVICECLASSINFOW = function(const lpProviderId : LPGUID; const lpServiceClassId : LPGUID; var lpdwBufSize : DWORD;
lpServiceClassInfo : LPWSASERVICECLASSINFOW): Integer; stdcall;
{$EXTERNALSYM LPFN_WSAGETSERVICECLASSINFO}
{$IFDEF UNICODE}
LPFN_WSAGETSERVICECLASSINFO = LPFN_WSAGETSERVICECLASSINFOW;
{$ELSE}
LPFN_WSAGETSERVICECLASSINFO = LPFN_WSAGETSERVICECLASSINFOA;
{$ENDIF}
{$ENDIF}
{$EXTERNALSYM LPFN_WSAENUMNAMESPACEPROVIDERSA}
LPFN_WSAENUMNAMESPACEPROVIDERSA = function(var lpdwBufferLength: DWORD; const lpnspBuffer: LPWSANAMESPACE_INFOA): Integer; stdcall;
{$EXTERNALSYM LPFN_WSAENUMNAMESPACEPROVIDERSW}
LPFN_WSAENUMNAMESPACEPROVIDERSW = function(var lpdwBufferLength: DWORD; const lpnspBuffer: LPWSANAMESPACE_INFOW): Integer; stdcall;
{$EXTERNALSYM LPFN_WSAENUMNAMESPACEPROVIDERS}
{$IFDEF UNICODE}
LPFN_WSAENUMNAMESPACEPROVIDERS = LPFN_WSAENUMNAMESPACEPROVIDERSW;
{$ELSE}
LPFN_WSAENUMNAMESPACEPROVIDERS = LPFN_WSAENUMNAMESPACEPROVIDERSA;
{$ENDIF}
{$EXTERNALSYM LPFN_WSAGETSERVICECLASSNAMEBYCLASSIDA}
LPFN_WSAGETSERVICECLASSNAMEBYCLASSIDA = function(const lpServiceClassId: LPGUID; lpszServiceClassName: PAnsiChar; var lpdwBufferLength: DWORD): Integer; stdcall;
{$EXTERNALSYM LPFN_WSAGETSERVICECLASSNAMEBYCLASSIDW}
LPFN_WSAGETSERVICECLASSNAMEBYCLASSIDW = function(const lpServiceClassId: LPGUID; lpszServiceClassName: PWideChar; var lpdwBufferLength: DWORD): Integer; stdcall;
{$EXTERNALSYM LPFN_WSAGETSERVICECLASSNAMEBYCLASSID}
{$IFDEF UNICODE}
LPFN_WSAGETSERVICECLASSNAMEBYCLASSID = LPFN_WSAGETSERVICECLASSNAMEBYCLASSIDW;
{$ELSE}
LPFN_WSAGETSERVICECLASSNAMEBYCLASSID = LPFN_WSAGETSERVICECLASSNAMEBYCLASSIDA;
{$ENDIF}
{$EXTERNALSYM LPFN_WSASETSERVICEA}
LPFN_WSASETSERVICEA = function(const lpqsRegInfo: LPWSAQUERYSETA; const essoperation: WSAESETSERVICEOP; const dwControlFlags: DWORD): Integer; stdcall;
{$EXTERNALSYM LPFN_WSASETSERVICEW}
LPFN_WSASETSERVICEW = function(const lpqsRegInfo: LPWSAQUERYSETW; const essoperation: WSAESETSERVICEOP; const dwControlFlags: DWORD): Integer; stdcall;
{$EXTERNALSYM LPFN_WSASETSERVICE}
{$IFDEF UNICODE}
LPFN_WSASETSERVICE = LPFN_WSASETSERVICEW;
{$ELSE}
LPFN_WSASETSERVICE = LPFN_WSASETSERVICEA;
{$ENDIF}
{$EXTERNALSYM LPFN_WSAPROVIDERCONFIGCHANGE}
LPFN_WSAPROVIDERCONFIGCHANGE = function(var lpNotificationHandle : THandle; lpOverlapped : LPWSAOVERLAPPED; lpCompletionRoutine : LPWSAOVERLAPPED_COMPLETION_ROUTINE) : Integer; stdcall;
//microsoft specific extension
{$EXTERNALSYM LPFN_GETACCEPTEXSOCKADDRS}
LPFN_GETACCEPTEXSOCKADDRS = procedure(lpOutputBuffer: Pointer;
dwReceiveDataLength, dwLocalAddressLength, dwRemoteAddressLength: DWORD;
var LocalSockaddr: TSockAddr; var LocalSockaddrLength: Integer;
var RemoteSockaddr: TSockAddr; var RemoteSockaddrLength: Integer); stdcall;
{$IFNDEF WINCE}
//This is defined in the Windows Mobile 6 Standard SDK Refresh
//but I'm not sure what .DLL the function is in. I also couldn't find a WSAID
//constant for it.
{$EXTERNALSYM LPFN_WSARECVEX}
LPFN_WSARECVEX = function(s: TSocket; var buf; len: Integer; var flags: Integer): Integer; stdcall;
{$ENDIF}
//Windows Server 2003, Windows Vista
{$EXTERNALSYM LPFN_CONNECTEX}
LPFN_CONNECTEX = function(const s : TSocket; const name: PSOCKADDR; const namelen: Integer; lpSendBuffer : Pointer; dwSendDataLength : DWORD; var lpdwBytesSent : DWORD; lpOverlapped : LPWSAOVERLAPPED) : BOOL; stdcall;
{$EXTERNALSYM LPFN_DISCONNECTEX}
LPFN_DISCONNECTEX = function(const hSocket : TSocket; AOverlapped: Pointer; const dwFlags : DWORD; const dwReserved : DWORD) : BOOL; stdcall;
{$EXTERNALSYM LPFN_WSARECVMSG} //XP and Server 2003 only
LPFN_WSARECVMSG = function(const s : TSocket; lpMsg : LPWSAMSG; var lpNumberOfBytesRecvd : DWORD; AOverlapped: Pointer; lpCompletionRoutine : LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
{$EXTERNALSYM LPFN_TRANSMITPACKETS}
LPFN_TRANSMITPACKETS = function(s: TSocket; lpPacketArray: LPTRANSMIT_PACKETS_ELEMENT; nElementCount: DWORD; nSendSize: DWORD; lpOverlapped: LPWSAOVERLAPPED; dwFlags: DWORD): BOOL; stdcall;
//Windows Vista, Windows Server 2008
{$IFNDEF WINCE}
{$EXTERNALSYM LPFN_WSASENDMSG}
LPFN_WSASENDMSG = function(const s : TSocket; lpMsg : LPWSAMSG; const dwFlags : DWORD; var lpNumberOfBytesSent : DWORD; lpOverlapped : LPWSAOVERLAPPED; lpCompletionRoutine : LPWSAOVERLAPPED_COMPLETION_ROUTINE) : Integer; stdcall;
{$EXTERNALSYM LPFN_WSAPOLL}
LPFN_WSAPOLL = function(fdarray : LPWSAPOLLFD; const nfds : u_long; const timeout : Integer) : Integer; stdcall;
{$EXTERNALSYM LPFN_RIORECEIVE}
LPFN_RIORECEIVE = function (SocketQueue : RIO_RQ;
pData : PRIO_BUF;
const DataBufferCount : ULONG;
Flags : DWORD;
RequestContext : PVOID) : BOOL stdcall;
{$EXTERNALSYM LPFN_RIORECEIVEEX}
LPFN_RIORECEIVEEX = function (SocketQueu : RIO_RQ;
pData : PRIO_BUF;
const DataBufferCount : ULONG;
pLocalAddress, pRemoteAddress, pControlContext, pFlags : PRIO_BUF;
const Flags : DWORD; RequestContext : PVOID) : Integer stdcall;
{$EXTERNALSYM LPFN_RIOSEND}
LPFN_RIOSEND = function(SocketQueue : RIO_RQ;
pData : PRIO_BUF;
const DataBufferCount : ULONG;
const Flags : DWORD;
const RequestContext : PVOID) : Boolean stdcall;
{$EXTERNALSYM LPFN_RIOSENDEX}
LPFN_RIOSENDEX = function (SocketQueue : RIO_RQ;
pData : PRIO_BUF;
const DataBufferCount : ULONG;
pLocalAddress, pRemoteAddress, pControlContext, pFlags : PRIO_BUF;
const Flags : DWORD;
RequestContext : PVOID) : Boolean stdcall;
{$EXTERNALSYM LPFN_RIOCREATECOMPLETIONQUEUE}
LPFN_RIOCREATECOMPLETIONQUEUE = function (const QueueSize : DWORD;
NotificationCompletion : PRIO_NOTIFICATION_COMPLETION) : RIO_CQ stdcall;
{$EXTERNALSYM LPFN_RIOCREATEREQUESTQUEUE}
LPFN_RIOCREATEREQUESTQUEUE = function (const Socket : TSOCKET;
const MaxOutstandingReceive, MaxReceiveDataBuffers, MaxOutstandingSend, MaxSendDataBuffers : ULONG;
const ReceiveCQ, SendCQ : RIO_CQ; SocketContext : PVOID) : RIO_RQ stdcall;
{$EXTERNALSYM LPFN_RIODEQUEUECOMPLETION}
LPFN_RIODEQUEUECOMPLETION = function (const CQ : RIO_CQ; _Array : PRIORESULT; const ArraySize : ULONG) : ULONG stdcall;
{$EXTERNALSYM LPFN_RIODEREGISTERBUFFER}
LPFN_RIODEREGISTERBUFFER = procedure (const BufferId : RIO_BUFFERID) stdcall;
{$EXTERNALSYM LPFN_RIONOTIFY}
LPFN_RIONOTIFY = function (CQ : RIO_CQ) : Integer stdcall;
{$EXTERNALSYM LPFN_RIOREGISTERBUFFER}
LPFN_RIOREGISTERBUFFER = function (DataBuffer : PAnsiChar; const DataLength : DWORD) : BOOL stdcall;
{$EXTERNALSYM LPFN_RIORESIZECOMPLETIONQUEUE}
LPFN_RIORESIZECOMPLETIONQUEUE = function(const CQ : RIO_CQ; const QueueSize : DWORD) : BOOL stdcall;
{$EXTERNALSYM LPFN_RIORESIZEREQUESTQUEUE}
LPFN_RIORESIZEREQUESTQUEUE = function(const RQ : RIO_RQ; const MaxOutstandingReceive, MaxOutstandingSend : DWORD) : BOOL stdcall;
{$EXTERNALSYM LPFN_RIOCLOSECOMPLETIONQUEUE}
LPFN_RIOCLOSECOMPLETIONQUEUE = procedure (const CQ : RIO_CQ) stdcall;
{$EXTERNALSYM _RIO_EXTENSION_FUNCTION_TABLE}
_RIO_EXTENSION_FUNCTION_TABLE = record
cbSize : DWORD;
RIOReceive : LPFN_RIORECEIVE;
RIOReceiveEx : LPFN_RIORECEIVEEX;
RIOSend : LPFN_RIOSEND;
RIOSendEx : LPFN_RIOSENDEX;
RIOCloseCompletionQueue : LPFN_RIOCLOSECOMPLETIONQUEUE;
RIOCreateCompletionQueue : LPFN_RIOCREATECOMPLETIONQUEUE;
RIOCreateRequestQueue : LPFN_RIOCREATEREQUESTQUEUE;
RIODequeueCompletion : LPFN_RIODEQUEUECOMPLETION;
RIODeregisterBuffer : LPFN_RIODEREGISTERBUFFER;
RIONotify : LPFN_RIONOTIFY;
RIORegisterBuffer : LPFN_RIOREGISTERBUFFER;
RIOResizeCompletionQueue : LPFN_RIORESIZECOMPLETIONQUEUE;
RIOResizeRequestQueue : LPFN_RIORESIZEREQUESTQUEUE;
end;
{$EXTERNALSYM RIO_EXTENSION_FUNCTION_TABLE}
RIO_EXTENSION_FUNCTION_TABLE = _RIO_EXTENSION_FUNCTION_TABLE;
{$EXTERNALSYM PRIO_EXTENSION_FUNCTION_TABLE}
PRIO_EXTENSION_FUNCTION_TABLE = ^RIO_EXTENSION_FUNCTION_TABLE;
{$ENDIF} // $IFDEF INCL_WINSOCK_API_TYPEDEFS
const
//GUID's for Microsoft extensions
{$EXTERNALSYM WSAID_ACCEPTEX}
WSAID_ACCEPTEX: TGuid = (D1:$b5367df1;D2:$cbac;D3:$11cf;D4:($95,$ca,$00,$80,$5f,$48,$a1,$92));
{$EXTERNALSYM WSAID_CONNECTEX}
WSAID_CONNECTEX: TGuid = (D1:$25a207b9;D2:$ddf3;D3:$4660;D4:($8e,$e9,$76,$e5,$8c,$74,$06,$3e));
{$EXTERNALSYM WSAID_DISCONNECTEX}
WSAID_DISCONNECTEX: TGuid = (D1:$7fda2e11;D2:$8630;D3:$436f;D4:($a0,$31,$f5,$36,$a6,$ee,$c1,$57));
{$EXTERNALSYM WSAID_GETACCEPTEXSOCKADDRS}
WSAID_GETACCEPTEXSOCKADDRS: TGuid = (D1:$b5367df2;D2:$cbac;D3:$11cf;D4:($95,$ca,$00,$80,$5f,$48,$a1,$92));
{$EXTERNALSYM WSAID_TRANSMITFILE}
WSAID_TRANSMITFILE: TGuid = (D1:$b5367df0; D2:$cbac; D3:$11cf; D4:($95, $ca, $00, $80, $5f, $48, $a1, $92));
{$EXTERNALSYM WSAID_TRANSMITPACKETS}
WSAID_TRANSMITPACKETS: TGuid = (D1:$d9689da0;D2:$1f90;D3:$11d3;D4:($99,$71,$00,$c0,$4f,$68,$c8,$76));
{$IFNDEF WINCE}
{$EXTERNALSYM WSAID_WSAPOLL}
WSAID_WSAPOLL: TGuid = (D1:$18C76F85;D2:$DC66;D3:$4964;D4:($97,$2E,$23,$C2,$72,$38,$31,$2B));
{$ENDIF}
{$EXTERNALSYM WSAID_WSARECVMSG}
WSAID_WSARECVMSG: TGuid = (D1:$f689d7c8;D2:$6f1f;D3:$436b;D4:($8a,$53,$e5,$4f,$e3,$51,$c3,$22));
{$IFNDEF WINCE}
{$EXTERNALSYM WSAID_WSASENDMSG}
WSAID_WSASENDMSG : TGuid = (D1:$a441e712;D2:$754f;D3:$43ca;D4:($84,$a7,$0d,$ee,$44,$cf,$60,$6d));
{$EXTERNALSYM WSAID_MULTIPLE_RIO}
WSAID_MULTIPLE_RIO : TGuid = (D1:$8509e081;D2:$96dd;D3:$4005;D4:($b1,$65,$9e,$2e,$e8,$c7,$9e,$3f));
{$ENDIF}
{$IFDEF WS2_DLL_FUNC_VARS}
var
{$EXTERNALSYM WSAStartup}
WSAStartup : LPFN_WSASTARTUP = nil;
{$EXTERNALSYM WSACleanup}
WSACleanup : LPFN_WSACLEANUP = nil;
{$EXTERNALSYM accept}
accept : LPFN_ACCEPT = nil;
{$EXTERNALSYM bind}
bind : LPFN_BIND = nil;
{$EXTERNALSYM closesocket}
closesocket : LPFN_CLOSESOCKET = nil;
{$EXTERNALSYM connect}
connect : LPFN_CONNECT = nil;
{$EXTERNALSYM ioctlsocket}
ioctlsocket : LPFN_IOCTLSOCKET = nil;
{$EXTERNALSYM getpeername}
getpeername : LPFN_GETPEERNAME = nil;
{$EXTERNALSYM getsockname}
getsockname : LPFN_GETSOCKNAME = nil;
{$EXTERNALSYM getsockopt}
getsockopt : LPFN_GETSOCKOPT = nil;
{$EXTERNALSYM htonl}
htonl : LPFN_HTONL = nil;
{$EXTERNALSYM htons}
htons : LPFN_HTONS = nil;
{$EXTERNALSYM inet_addr}
inet_addr : LPFN_INET_ADDR = nil;
{$EXTERNALSYM inet_ntoa}
inet_ntoa : LPFN_INET_NTOA = nil;
{$EXTERNALSYM listen}
listen : LPFN_LISTEN = nil;
{$EXTERNALSYM ntohl}
ntohl : LPFN_NTOHL = nil;
{$EXTERNALSYM ntohs}
ntohs : LPFN_NTOHS = nil;
{$EXTERNALSYM recv}
recv : LPFN_RECV = nil;
{$EXTERNALSYM recvfrom}
recvfrom : LPFN_RECVFROM = nil;
{$EXTERNALSYM select}
select : LPFN_SELECT = nil;
{$EXTERNALSYM send}
send : LPFN_SEND = nil;
{$EXTERNALSYM sendto}
sendto : LPFN_SENDTO = nil;
{$EXTERNALSYM setsockopt}
setsockopt : LPFN_SETSOCKOPT = nil;
{$EXTERNALSYM shutdown}
shutdown : LPFN_SHUTDOWN = nil;
{$EXTERNALSYM socket}
socket : LPFN_SOCKET = nil;
{$EXTERNALSYM gethostbyaddr}
gethostbyaddr : LPFN_GETHOSTBYADDR = nil;
{$EXTERNALSYM gethostbyname}
gethostbyname : LPFN_GETHOSTBYNAME = nil;
{$EXTERNALSYM gethostname}
gethostname : LPFN_GETHOSTNAME = nil;
{$IFDEF WINCE}
{$EXTERNALSYM sethostname}
sethostname : LPFN_SETHOSTNAME = nil;
{$ENDIF}
{$EXTERNALSYM getservbyport}
getservbyport : LPFN_GETSERVBYPORT = nil;
{$EXTERNALSYM getservbyname}
getservbyname : LPFN_GETSERVBYNAME = nil;
{$EXTERNALSYM getprotobynumber}
getprotobynumber : LPFN_GETPROTOBYNUMBER = nil;
{$EXTERNALSYM getprotobyname}
getprotobyname : LPFN_GETPROTOBYNAME = nil;
{$EXTERNALSYM WSASetLastError}
WSASetLastError : LPFN_WSASETLASTERROR = nil;
{$EXTERNALSYM WSAGetLastError}
WSAGetLastError : LPFN_WSAGETLASTERROR = nil;
{$IFNDEF WINCE}
{$EXTERNALSYM WSAIsblocking}
WSAIsBlocking : LPFN_WSAISBLOCKING = nil;
{$EXTERNALSYM WSAUnhookBlockingHook}
WSAUnhookBlockingHook : LPFN_WSAUNHOOKBLOCKINGHOOK = nil;
{$EXTERNALSYM WSASetBlockingHook}
WSASetBlockingHook : LPFN_WSASETBLOCKINGHOOK = nil;
{$EXTERNALSYM WSACancelBlockingCall}
WSACancelBlockingCall : LPFN_WSACANCELBLOCKINGCALL = nil;
{$EXTERNALSYM WSAAsyncGetServByName}
WSAAsyncGetServByName : LPFN_WSAASYNCGETSERVBYNAME = nil;
{$EXTERNALSYM WSAAsyncGetServByPort}
WSAAsyncGetServByPort : LPFN_WSAASYNCGETSERVBYPORT = nil;
{$EXTERNALSYM WSAAsyncGetProtoByName}
WSAAsyncGetProtoByName : LPFN_WSAASYNCGETPROTOBYNAME = nil;
{$EXTERNALSYM WSAAsyncGetProtoByNumber}
WSAAsyncGetProtoByNumber : LPFN_WSAASYNCGETPROTOBYNUMBER = nil;
{$EXTERNALSYM WSAAsyncGetHostByName}
WSAAsyncGetHostByName : LPFN_WSAASYNCGETHOSTBYNAME = nil;
{$EXTERNALSYM WSAAsyncGetHostByAddr}
WSAAsyncGetHostByAddr : LPFN_WSAASYNCGETHOSTBYADDR = nil;
{$EXTERNALSYM WSACancelAsyncRequest}
WSACancelAsyncRequest : LPFN_WSACANCELASYNCREQUEST = nil;
{$EXTERNALSYM WSAAsyncSelect}
WSAAsyncSelect : LPFN_WSAASYNCSELECT = nil;
{$ENDIF}
{$EXTERNALSYM __WSAFDIsSet}
__WSAFDIsSet : LPFN___WSAFDISSET = nil;
{$EXTERNALSYM WSAAccept}
WSAAccept : LPFN_WSAACCEPT = nil;
{$EXTERNALSYM WSAAddressToStringA}
WSAAddressToStringA : LPFN_WSAADDRESSTOSTRINGA = nil;
{$EXTERNALSYM WSAAddressToStringW}
WSAAddressToStringW : LPFN_WSAADDRESSTOSTRINGW = nil;
{$EXTERNALSYM WSAAddressToString}
WSAAddressToString : LPFN_WSAADDRESSTOSTRING = nil;
{$EXTERNALSYM WSACloseEvent}
WSACloseEvent : LPFN_WSACLOSEEVENT = nil;
{$EXTERNALSYM WSAConnect}
WSAConnect : LPFN_WSACONNECT = nil;
{$EXTERNALSYM WSACreateEvent}
WSACreateEvent : LPFN_WSACREATEEVENT = nil;
{$IFNDEF WINCE}
{$EXTERNALSYM WSADuplicateSocketA}
WSADuplicateSocketA : LPFN_WSADUPLICATESOCKETA = nil;
{$EXTERNALSYM WSADuplicateSocketW}
WSADuplicateSocketW : LPFN_WSADUPLICATESOCKETW = nil;
{$EXTERNALSYM WSADuplicateSocket}
WSADuplicateSocket : LPFN_WSADUPLICATESOCKET = nil;
{$ENDIF}
{$EXTERNALSYM WSAEnumNetworkEvents}
WSAEnumNetworkEvents : LPFN_WSAENUMNETWORKEVENTS = nil;
{$EXTERNALSYM WSAEnumProtocolsA}
WSAEnumProtocolsA : LPFN_WSAENUMPROTOCOLSA = nil;
{$EXTERNALSYM WSAEnumProtocolsW}
WSAEnumProtocolsW : LPFN_WSAENUMPROTOCOLSW = nil;
{$EXTERNALSYM WSAEnumProtocols}
WSAEnumProtocols : LPFN_WSAENUMPROTOCOLS = nil;
{$EXTERNALSYM WSAEnumNameSpaceProvidersA}
WSAEnumNameSpaceProvidersA : LPFN_WSAENUMNAMESPACEPROVIDERSA = nil;
{$EXTERNALSYM WSAEnumNameSpaceProvidersW}
WSAEnumNameSpaceProvidersW : LPFN_WSAENUMNAMESPACEPROVIDERSW = nil;
{$EXTERNALSYM WSAEnumNameSpaceProviders}
WSAEnumNameSpaceProviders : LPFN_WSAENUMNAMESPACEPROVIDERS = nil;
{$EXTERNALSYM WSAEventSelect}
WSAEventSelect : LPFN_WSAEVENTSELECT = nil;
{$EXTERNALSYM WSAGetOverlappedResult}
WSAGetOverlappedResult : LPFN_WSAGETOVERLAPPEDRESULT = nil;
{$EXTERNALSYM WSAGetQosByName}
WSAGetQosByName : LPFN_WSAGETQOSBYNAME = nil;
{$EXTERNALSYM WSAGetServiceClassInfoA}
WSAGetServiceClassInfoA : LPFN_WSAGETSERVICECLASSINFOA = nil;
{$EXTERNALSYM WSAGetServiceClassInfoW}
WSAGetServiceClassInfoW : LPFN_WSAGETSERVICECLASSINFOW = nil;
{$EXTERNALSYM WSAGetServiceClassInfo}
WSAGetServiceClassInfo : LPFN_WSAGETSERVICECLASSINFO = nil;
{$EXTERNALSYM WSAGetServiceClassNameByClassIdA}
WSAGetServiceClassNameByClassIdA : LPFN_WSAGETSERVICECLASSNAMEBYCLASSIDA = nil;
{$EXTERNALSYM WSAGetServiceClassNameByClassIdW}
WSAGetServiceClassNameByClassIdW : LPFN_WSAGETSERVICECLASSNAMEBYCLASSIDW = nil;
{$EXTERNALSYM WSAGetServiceClassNameByClassId}
WSAGetServiceClassNameByClassId : LPFN_WSAGETSERVICECLASSNAMEBYCLASSID = nil;
{$EXTERNALSYM WSAHtonl}
WSAHtonl : LPFN_WSAHTONL = nil;
{$EXTERNALSYM WSAHtons}
WSAHtons : LPFN_WSAHTONS = nil;
{$EXTERNALSYM WSAIoctl}
WSAIoctl : LPFN_WSAIOCTL = nil;
{$EXTERNALSYM WSAInstallServiceClassA}
WSAInstallServiceClassA : LPFN_WSAINSTALLSERVICECLASSA = nil;
{$EXTERNALSYM WSAInstallServiceClassW}
WSAInstallServiceClassW : LPFN_WSAINSTALLSERVICECLASSW = nil;
{$EXTERNALSYM WSAInstallServiceClass}
WSAInstallServiceClass : LPFN_WSAINSTALLSERVICECLASS = nil;
{$EXTERNALSYM WSAJoinLeaf}
WSAJoinLeaf : LPFN_WSAJOINLEAF = nil;
{$EXTERNALSYM WSALookupServiceBeginA}
WSALookupServiceBeginA : LPFN_WSALOOKUPSERVICEBEGINA = nil;
{$EXTERNALSYM WSALookupServiceBeginW}
WSALookupServiceBeginW : LPFN_WSALOOKUPSERVICEBEGINW = nil;
{$EXTERNALSYM WSALookupServiceBegin}
WSALookupServiceBegin : LPFN_WSALOOKUPSERVICEBEGIN = nil;
{$EXTERNALSYM WSALookupServiceEnd}
WSALookupServiceEnd : LPFN_WSALOOKUPSERVICEEND = nil;
{$EXTERNALSYM WSALookupServiceNextA}
WSALookupServiceNextA : LPFN_WSALOOKUPSERVICENEXTA = nil;
{$EXTERNALSYM WSALookupServiceNextW}
WSALookupServiceNextW : LPFN_WSALOOKUPSERVICENEXTW = nil;
{$EXTERNALSYM WSALookupServiceNext}
WSALookupServiceNext : LPFN_WSALOOKUPSERVICENEXT = nil;
{$EXTERNALSYM WSANtohl}
WSANtohl : LPFN_WSANTOHL = nil;
{$EXTERNALSYM WSANtohs}
WSANtohs : LPFN_WSANTOHS = nil;
{$EXTERNALSYM WSARecv}
WSARecv : LPFN_WSARECV = nil;
{$EXTERNALSYM WSARecvDisconnect}
WSARecvDisconnect : LPFN_WSARECVDISCONNECT = nil;
{$EXTERNALSYM WSARecvFrom}
WSARecvFrom : LPFN_WSARECVFROM = nil;
{$EXTERNALSYM WSARemoveServiceClass}
WSARemoveServiceClass : LPFN_WSAREMOVESERVICECLASS = nil;
{$EXTERNALSYM WSAResetEvent}
WSAResetEvent : LPFN_WSARESETEVENT = nil;
{$EXTERNALSYM WSASend}
WSASend : LPFN_WSASEND = nil;
{$EXTERNALSYM WSASendDisconnect}
WSASendDisconnect : LPFN_WSASENDDISCONNECT = nil;
{$EXTERNALSYM WSASendTo}
WSASendTo : LPFN_WSASENDTO = nil;
{$EXTERNALSYM WSASetEvent}
WSASetEvent : LPFN_WSASETEVENT = nil;
{$EXTERNALSYM WSASetServiceA}
WSASetServiceA : LPFN_WSASETSERVICEA = nil;
{$EXTERNALSYM WSASetServiceW}
WSASetServiceW : LPFN_WSASETSERVICEW = nil;
{$EXTERNALSYM WSASetService}
WSASetService : LPFN_WSASETSERVICE = nil;
{$EXTERNALSYM WSASocketA}
WSASocketA : LPFN_WSASOCKETA = nil;
{$EXTERNALSYM WSASocketW}
WSASocketW : LPFN_WSASOCKETW = nil;
{$EXTERNALSYM WSASocket}
WSASocket : LPFN_WSASOCKET = nil;
{$EXTERNALSYM WSAStringToAddressA}
WSAStringToAddressA : LPFN_WSASTRINGTOADDRESSA = nil;
{$EXTERNALSYM WSAStringToAddressW}
WSAStringToAddressW : LPFN_WSASTRINGTOADDRESSW = nil;
{$EXTERNALSYM WSAStringToAddress}
WSAStringToAddress : LPFN_WSASTRINGTOADDRESS = nil;
{$EXTERNALSYM WSAWaitForMultipleEvents}
WSAWaitForMultipleEvents : LPFN_WSAWAITFORMULTIPLEEVENTS = nil;
{$EXTERNALSYM WSAProviderConfigChange}
WSAProviderConfigChange : LPFN_WSAPROVIDERCONFIGCHANGE = nil;
{$EXTERNALSYM TransmitFile}
TransmitFile : LPFN_TRANSMITFILE = nil;
{$EXTERNALSYM AcceptEx}
AcceptEx : LPFN_ACCEPTEX = nil;
{$EXTERNALSYM GetAcceptExSockaddrs}
GetAcceptExSockaddrs : LPFN_GETACCEPTEXSOCKADDRS = nil;
{$IFNDEF WINCE}
//This is defined in the Windows Mobile 6 Standard SDK Refresh
//but I'm not sure what .DLL the function is in. I also couldn't find a WSAID
//constant for it.
{$EXTERNALSYM WSARecvEx}
WSARecvEx : LPFN_WSARECVEX = nil;
{$ENDIF}
{$EXTERNALSYM ConnectEx}
ConnectEx : LPFN_CONNECTEX = nil;
{$EXTERNALSYM DisconnectEx}
DisconnectEx : LPFN_DISCONNECTEX = nil;
{$EXTERNALSYM WSARecvMsg}
WSARecvMsg : LPFN_WSARECVMSG = nil;
{$EXTERNALSYM TransmitPackets}
TransmitPackets : LPFN_TRANSMITPACKETS = nil;
{$IFNDEF WINCE}
//Windows Vista, Windows Server 2008
{$EXTERNALSYM WSASendMsg}
WSASendMsg: LPFN_WSASENDMSG = nil;
{$EXTERNALSYM WSAPoll}
WSAPoll: LPFN_WSAPOLL = nil;
{$ENDIF}
//WSANSPIoctl is not supported in WinCE 4.20 but is supported in later versions.
{$EXTERNALSYM WSANSPIoctl}
WSANSPIoctl : LPFN_WSANSPIOCTL = nil;
{$ENDIF} // $IFDEF WS2_DLL_FUNC_VARS
{ Macros }
{$EXTERNALSYM WSAMakeSyncReply}
function WSAMakeSyncReply(Buflen, AError: Word): Longint;
{$EXTERNALSYM WSAMakeSelectReply}
function WSAMakeSelectReply(Event, AError: Word): Longint;
{$EXTERNALSYM WSAGetAsyncBuflen}
function WSAGetAsyncBuflen(Param: LPARAM): Word;
{$EXTERNALSYM WSAGetAsyncError}
function WSAGetAsyncError(Param: LPARAM): Word;
{$EXTERNALSYM WSAGetSelectEvent}
function WSAGetSelectEvent(Param: LPARAM): Word;
{$EXTERNALSYM WSAGetSelectError}
function WSAGetSelectError(Param: LPARAM): Word;
{$EXTERNALSYM FD_CLR}
procedure FD_CLR(ASocket: TSocket; var FDSet: TFDSet);
{$EXTERNALSYM FD_ISSET}
function FD_ISSET(ASocket: TSocket; var FDSet: TFDSet): Boolean;
{$EXTERNALSYM FD_SET}
procedure FD_SET(ASocket: TSocket; var FDSet: TFDSet);
{$EXTERNALSYM FD_ZERO}
procedure FD_ZERO(var FDSet: TFDSet);
{$IFNDEF WINCE}
//Posix aliases for helper macros
// #define CMSGHDR_ALIGN WSA_CMSGHDR_ALIGN
{$EXTERNALSYM CMSGHDR_ALIGN}
function CMSGHDR_ALIGN(const Alength: SIZE_T): SIZE_T;
// #define CMSGDATA_ALIGN WSA_CMSGDATA_ALIGN
{$EXTERNALSYM CMSGDATA_ALIGN}
function CMSGDATA_ALIGN(const Alength: PtrUInt): PtrUInt;
//#define CMSG_FIRSTHDR WSA_CMSG_FIRSTHDR
{$EXTERNALSYM CMSG_FIRSTHDR}
function CMSG_FIRSTHDR(const msg: LPWSAMSG): LPWSACMSGHDR;
// #define CMSG_NXTHDR WSA_CMSG_NXTHDR
{$EXTERNALSYM CMSG_NXTHDR}
function CMSG_NXTHDR(const msg: LPWSAMSG; const cmsg: LPWSACMSGHDR): LPWSACMSGHDR;
// #define CMSG_SPACE WSA_CMSG_SPACE
{$EXTERNALSYM CMSG_SPACE}
function CMSG_SPACE(const Alength: PtrUInt): PtrUInt;
// #define CMSG_LEN WSA_CMSG_LEN
{$EXTERNALSYM CMSG_LEN}
function CMSG_LEN(const Alength: SIZE_T): SIZE_T;
//
{$EXTERNALSYM WSA_CMSGHDR_ALIGN}
function WSA_CMSGHDR_ALIGN(const Alength: PtrUInt): PtrUInt;
{$EXTERNALSYM WSA_CMSGDATA_ALIGN}
function WSA_CMSGDATA_ALIGN(const Alength: PtrUInt): PtrUInt;
{$EXTERNALSYM WSA_CMSG_FIRSTHDR}
function WSA_CMSG_FIRSTHDR(const msg: LPWSAMSG): LPWSACMSGHDR;
// #define CMSG_FIRSTHDR WSA_CMSG_FIRSTHDR
{$EXTERNALSYM WSA_CMSG_NXTHDR}
function WSA_CMSG_NXTHDR(const msg: LPWSAMSG; const cmsg: LPWSACMSGHDR): LPWSACMSGHDR;
{$EXTERNALSYM WSA_CMSG_DATA}
function WSA_CMSG_DATA(const cmsg: LPWSACMSGHDR): PByte;
{$EXTERNALSYM WSA_CMSG_SPACE}
function WSA_CMSG_SPACE(const Alength: SIZE_T): SIZE_T;
{$EXTERNALSYM WSA_CMSG_LEN}
function WSA_CMSG_LEN(const Alength: SIZE_T): SIZE_T;
{$ENDIF}
//=============================================================
{
WS2TCPIP.H - WinSock2 Extension for TCP/IP protocols
This file contains TCP/IP specific information for use
by WinSock2 compatible applications.
Copyright (c) 1995-1999 Microsoft Corporation
To provide the backward compatibility, all the TCP/IP
specific definitions that were included in the WINSOCK.H
file are now included in WINSOCK2.H file. WS2TCPIP.H
file includes only the definitions introduced in the
"WinSock 2 Protocol-Specific Annex" document.
Rev 0.3 Nov 13, 1995
Rev 0.4 Dec 15, 1996
}
type
// Argument structure for IP_ADD_MEMBERSHIP and IP_DROP_MEMBERSHIP
{$EXTERNALSYM ip_mreq}
ip_mreq = record
imr_multiaddr : TInAddr; // IP multicast address of group
imr_interface : TInAddr; // local IP address of interface
end;
// Argument structure for IP_ADD_SOURCE_MEMBERSHIP, IP_DROP_SOURCE_MEMBERSHIP,
// IP_BLOCK_SOURCE, and IP_UNBLOCK_SOURCE
{$EXTERNALSYM ip_mreq_source}
ip_mreq_source = record
imr_multiaddr: TInAddr; // IP multicast address of group
imr_sourceaddr: TInAddr; // IP address of source
imr_interface: TInAddr; // local IP address of interface
end;
// Argument structure for SIO_{GET,SET}_MULTICAST_FILTER
{$EXTERNALSYM ip_msfilter}
ip_msfilter = record
imsf_multiaddr: TInAddr; // IP multicast address of group
imsf_interface: TInAddr; // local IP address of interface
imsf_fmode: u_long; // filter mode - INCLUDE or EXCLUDE
imsf_numsrc: u_long; // number of sources in src_list
imsf_slist: Array[0..0] of TInAddr;
end;
{$EXTERNALSYM IP_MSFILTER_SIZE}
function IP_MSFILTER_SIZE(const numsrc: DWORD): PtrUInt;
// TCP/IP specific Ioctl codes
const
{$EXTERNALSYM SIO_GET_INTERFACE_LIST}
SIO_GET_INTERFACE_LIST = IOC_OUT or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('t') shl 8) or 127; {Do not Localize}
// New IOCTL with address size independent address array
{$EXTERNALSYM SIO_GET_INTERFACE_LIST_EX}
SIO_GET_INTERFACE_LIST_EX = IOC_OUT or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('t') shl 8) or 126; {Do not Localize}
{$EXTERNALSYM SIO_SET_MULTICAST_FILTER}
SIO_SET_MULTICAST_FILTER = IOC_IN or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('t') shl 8) or 125; {Do not Localize}
{$EXTERNALSYM SIO_GET_MULTICAST_FILTER}
SIO_GET_MULTICAST_FILTER = IOC_IN or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('t') shl 8) or (124 or IOC_IN); {Do not Localize}
{$EXTERNALSYM SIOCSIPMSFILTER}
SIOCSIPMSFILTER = SIO_SET_MULTICAST_FILTER;
{$EXTERNALSYM SIOCGIPMSFILTER}
SIOCGIPMSFILTER = SIO_GET_MULTICAST_FILTER;
//
// Protocol independent ioctls for setting and retrieving multicast filters.
//
{$EXTERNALSYM SIOCSMSFILTER}
SIOCSMSFILTER = IOC_IN or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('t') shl 8) or 126; {Do not Localize}
{$EXTERNALSYM SIOCGMSFILTER}
SIOCGMSFILTER = IOC_IN or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('t') shl 8) or (127 or IOC_IN); {Do not Localize}
{$IFNDEF WINCE}
//Windows 2008 and Windows Vista SP1 additions
{$EXTERNALSYM SIO_IDEAL_SEND_BACKLOG_QUERY}
SIO_IDEAL_SEND_BACKLOG_QUERY = IOC_OUT or ((SizeOf(u_long) and IOCPARM_MASK) shl 16) or (Ord('t') shl 8) or 123;
{$EXTERNALSYM SIO_IDEAL_SEND_BACKLOG_CHANGE}
SIO_IDEAL_SEND_BACKLOG_CHANGE = IOC_VOID or (Ord('t') shl 8) or 122;
{$ENDIF}
{$IFNDEF WINCE}
// Options for use with [gs]etsockopt at the IP level.
{$EXTERNALSYM IP_OPTIONS}
IP_OPTIONS = 1; // set/get IP options
{$EXTERNALSYM IP_HDRINCL}
IP_HDRINCL = 2; // header is included with data
{$EXTERNALSYM IP_TOS}
IP_TOS = 3; // IP type of service and preced
{$EXTERNALSYM IP_TTL}
IP_TTL = 4; // IP time to live
{$EXTERNALSYM IP_MULTICAST_IF}
IP_MULTICAST_IF = 9; // set/get IP multicast i/f
{$EXTERNALSYM IP_MULTICAST_TTL}
IP_MULTICAST_TTL = 10; // set/get IP multicast ttl
{$EXTERNALSYM IP_MULTICAST_LOOP}
IP_MULTICAST_LOOP = 11; // set/get IP multicast loopback
{$EXTERNALSYM IP_ADD_MEMBERSHIP}
IP_ADD_MEMBERSHIP = 12; // add an IP group membership
{$EXTERNALSYM IP_DROP_MEMBERSHIP}
IP_DROP_MEMBERSHIP = 13; // drop an IP group membership
{$ELSE}
{$EXTERNALSYM IP_TOS}
IP_TOS = 8; //* IP type of service and preced*/
{$EXTERNALSYM IP_TTL}
IP_TTL = 7; //* IP time to live */
{$EXTERNALSYM IP_MULTICAST_IF}
IP_MULTICAST_IF = 2; //* set/get IP multicast i/f */
{$EXTERNALSYM IP_MULTICAST_TTL}
IP_MULTICAST_TTL = 3; //* set/get IP multicast ttl */
{$EXTERNALSYM IP_MULTICAST_LOOP}
IP_MULTICAST_LOOP = 4; //*set/get IP multicast loopback */
{$EXTERNALSYM IP_ADD_MEMBERSHIP}
IP_ADD_MEMBERSHIP = 5; //* add an IP group membership */
{$EXTERNALSYM IP_DROP_MEMBERSHIP}
IP_DROP_MEMBERSHIP = 6; //* drop an IP group membership */
//JPM Notes. IP_HDRINCL is not supported in WinCE 4.0.
{$EXTERNALSYM IP_HDRINCL}
IP_HDRINCL = 9; //* header is included with data */
{$ENDIF}
{$EXTERNALSYM IP_DONTFRAGMENT}
IP_DONTFRAGMENT = 14; // don't fragment IP datagrams {Do not Localize}
{$EXTERNALSYM IP_ADD_SOURCE_MEMBERSHIP}
IP_ADD_SOURCE_MEMBERSHIP = 15; // join IP group/source
{$EXTERNALSYM IP_DROP_SOURCE_MEMBERSHIP}
IP_DROP_SOURCE_MEMBERSHIP = 16; // leave IP group/source
{$EXTERNALSYM IP_BLOCK_SOURCE}
IP_BLOCK_SOURCE = 17; // block IP group/source
{$EXTERNALSYM IP_UNBLOCK_SOURCE}
IP_UNBLOCK_SOURCE = 18; // unblock IP group/source
{$EXTERNALSYM IP_PKTINFO}
IP_PKTINFO = 19; // receive packet information for ipv4
{$EXTERNALSYM IP_RECEIVE_BROADCAST}
IP_RECEIVE_BROADCAST = 22; // Allow/block broadcast reception.
{$EXTERNALSYM IP_RECVIF}
IP_RECVIF = 24; // Receive arrival interface.
{$EXTERNALSYM IP_RECVDSTADDR}
IP_RECVDSTADDR = 25; // Receive destination address.
{$EXTERNALSYM IP_IFLIST}
IP_IFLIST = 28; // Enable/Disable an interface list.
{$EXTERNALSYM IP_ADD_IFLIST}
IP_ADD_IFLIST = 29; // Add an interface list entry.
{$EXTERNALSYM IP_DEL_IFLIST}
IP_DEL_IFLIST = 30; // Delete an interface list entry.
{$EXTERNALSYM IP_UNICAST_IF}
IP_UNICAST_IF = 31; // IP unicast interface.
{$EXTERNALSYM IP_RTHDR}
IP_RTHDR = 32; // Set/get IPv6 routing header.
{$EXTERNALSYM IP_GET_IFLIST}
IP_GET_IFLIST = 33; // Get an interface list.
{$EXTERNALSYM IP_RECVRTHDR}
IP_RECVRTHDR = 38; // Receive the routing header.
{$EXTERNALSYM IP_TCLASS}
IP_TCLASS = 39; // Packet traffic class.
{$EXTERNALSYM IP_RECVTCLASS}
IP_RECVTCLASS = 40; // Receive packet traffic class.
{$EXTERNALSYM IP_ORIGINAL_ARRIVAL_IF}
IP_ORIGINAL_ARRIVAL_IF = 47; // Original Arrival Interface Index. (Windows 7)
{$IFDEF WINCE}
{$EXTERNALSYM IP_DSCP_TRAFFIC_TYPE}
IP_DSCP_TRAFFIC_TYPE = 100; //* differential services */
{$EXTERNALSYM IP_RELOAD_DSCP_MAPPINGS}
IP_RELOAD_DSCP_MAPPINGS = 101; //* reload DSCP registry mappings */
{$ENDIF}
{$EXTERNALSYM IP_DEFAULT_MULTICAST_TTL}
IP_DEFAULT_MULTICAST_TTL = 1; // normally limit m'casts to 1 hop {Do not Localize}
{$EXTERNALSYM IP_DEFAULT_MULTICAST_LOOP}
IP_DEFAULT_MULTICAST_LOOP = 1; // normally hear sends if a member
{$EXTERNALSYM IP_MAX_MEMBERSHIPS}
IP_MAX_MEMBERSHIPS = 20; // per socket; must fit in one mbuf
// Option to use with [gs]etsockopt at the IPPROTO_IPV6 level
{$EXTERNALSYM IPV6_HDRINCL}
IPV6_HDRINCL = 2; // Header is included with data
{$EXTERNALSYM IPV6_UNICAST_HOPS}
IPV6_UNICAST_HOPS = 4; // Set/get IP unicast hop limit
{$EXTERNALSYM IPV6_MULTICAST_IF}
IPV6_MULTICAST_IF = 9; // Set/get IP multicast interface
{$EXTERNALSYM IPV6_MULTICAST_HOPS}
IPV6_MULTICAST_HOPS = 10; // Set/get IP multicast ttl
{$EXTERNALSYM IPV6_MULTICAST_LOOP}
IPV6_MULTICAST_LOOP = 11; // Set/get IP multicast loopback
{$EXTERNALSYM IPV6_ADD_MEMBERSHIP}
IPV6_ADD_MEMBERSHIP = 12; // Add an IP group membership
{$EXTERNALSYM IPV6_DROP_MEMBERSHIP}
IPV6_DROP_MEMBERSHIP = 13; // Drop an IP group membership
{$EXTERNALSYM IPV6_JOIN_GROUP}
IPV6_JOIN_GROUP = IPV6_ADD_MEMBERSHIP;
{$EXTERNALSYM IPV6_LEAVE_GROUP}
IPV6_LEAVE_GROUP = IPV6_DROP_MEMBERSHIP;
{$EXTERNALSYM IPV6_PKTINFO}
IPV6_PKTINFO = 19; // Receive packet information for ipv6
{$EXTERNALSYM IPV6_HOPLIMIT}
IPV6_HOPLIMIT = 21; // Receive packet hop limit
//Note that IPV6_PROTECTION_LEVEL is not supported for WinCE 4.2
{$EXTERNALSYM IPV6_PROTECTION_LEVEL}
IPV6_PROTECTION_LEVEL = 23; // Set/get IPv6 protection level
{$EXTERNALSYM IPV6_RECVIF}
IPV6_RECVIF = 24; // Receive arrival interface.
{$EXTERNALSYM IPV6_RECVDSTADDR}
IPV6_RECVDSTADDR = 25; // Receive destination address.
{$EXTERNALSYM IPV6_CHECKSUM}
IPV6_CHECKSUM = 26; // Offset to checksum for raw IP socket send.
{$EXTERNALSYM IPV6_V6ONLY}
IPV6_V6ONLY = 27; // Treat wildcard bind as AF_INET6-only.
{$EXTERNALSYM IPV6_IFLIST}
IPV6_IFLIST = 28; // Enable/Disable an interface list.
{$EXTERNALSYM IPV6_ADD_IFLIST}
IPV6_ADD_IFLIST = 29; // Add an interface list entry.
{$EXTERNALSYM IPV6_DEL_IFLIST}
IPV6_DEL_IFLIST = 30; // Delete an interface list entry.
{$EXTERNALSYM IPV6_UNICAST_IF}
IPV6_UNICAST_IF = 31; // IP unicast interface.
{$EXTERNALSYM IPV6_RTHDR}
IPV6_RTHDR = 32; // Set/get IPv6 routing header.
{$EXTERNALSYM IPV6_GET_IFLIST}
IPV6_GET_IFLIST = 33; // Get an interface list.
{$EXTERNALSYM IPV6_RECVRTHDR}
IPV6_RECVRTHDR = 38; // Receive the routing header.
{$EXTERNALSYM IPV6_TCLASS}
IPV6_TCLASS = 39; // Packet traffic class.
{$EXTERNALSYM IPV6_RECVTCLASS}
IPV6_RECVTCLASS = 40; // Receive packet traffic class.
{$EXTERNALSYM IPV6_ECN}
IPV6_ECN = 50; // Receive ECN codepoints in the IP header.
{$EXTERNALSYM IPV6_PKTINFO_EX}
IPV6_PKTINFO_EX = 51; // Receive extended packet information.
{$EXTERNALSYM IPV6_WFP_REDIRECT_RECORDS}
IPV6_WFP_REDIRECT_RECORDS = 60; // WFP's Connection Redirect Records
{$EXTERNALSYM IPV6_WFP_REDIRECT_CONTEXT}
IPV6_WFP_REDIRECT_CONTEXT = 70; // WFP's Connection Redirect Context
// Option to use with [gs]etsockopt at the IPPROTO_UDP level
{$EXTERNALSYM UDP_NOCHECKSUM}
UDP_NOCHECKSUM = 1;
{$EXTERNALSYM UDP_CHECKSUM_COVERAGE}
UDP_CHECKSUM_COVERAGE = 20; // Set/get UDP-Lite checksum coverage
// Option to use with [gs]etsockopt at the IPPROTO_TCP level
{$EXTERNALSYM TCP_EXPEDITED_1122}
TCP_EXPEDITED_1122 = $0002;
{$EXTERNALSYM TCP_KEEPALIVE}
TCP_KEEPALIVE = 3;
{$EXTERNALSYM TCP_MAXSEG}
TCP_MAXSEG = 4;
{$EXTERNALSYM TCP_MAXRT}
TCP_MAXRT = 5;
{$EXTERNALSYM TCP_STDURG}
TCP_STDURG = 6;
{$EXTERNALSYM TCP_NOURG}
TCP_NOURG = 7;
{$EXTERNALSYM TCP_ATMARK}
TCP_ATMARK = 8;
{$EXTERNALSYM TCP_NOSYNRETRIES}
TCP_NOSYNRETRIES = 9;
{$EXTERNALSYM TCP_TIMESTAMPS}
TCP_TIMESTAMPS = 10;
{$EXTERNALSYM TCP_OFFLOAD_PREFERENCE}
TCP_OFFLOAD_PREFERENCE = 11;
{$EXTERNALSYM TCP_CONGESTION_ALGORITHM}
TCP_CONGESTION_ALGORITHM = 12;
{$EXTERNALSYM TCP_DELAY_FIN_ACK}
TCP_DELAY_FIN_ACK = 13;
{$EXTERNALSYM TCP_MAXRTMS}
TCP_MAXRTMS = 14;
// IPv6 definitions
type
{$EXTERNALSYM IN6_ADDR}
IN6_ADDR = record
case Integer of
0: (s6_bytes: array[0..15] of u_char);
1: (s6_words: array[0..7] of u_short);
end;
{$NODEFINE TIn6Addr}
TIn6Addr = IN6_ADDR;
{$NODEFINE PIn6Addr}
PIn6Addr = ^TIn6Addr;
{$EXTERNALSYM PIN6_ADDR}
PIN6_ADDR = PIn6Addr;
{$EXTERNALSYM LPIN6_ADDR}
LPIN6_ADDR = PIN6_ADDR;
{$IFNDEF WINCE}
{$IFNDEF NO_REDECLARE}
// Argument structure for IPV6_JOIN_GROUP and IPV6_LEAVE_GROUP
{$EXTERNALSYM ipv6_mreq}
ipv6_mreq = record
ipv6mr_multiaddr: TIn6Addr; // IPv6 multicast address
ipv6mr_interface: u_int; // Interface index
end;
{$NODEFINE TIPv6_MReq}
TIPv6_MReq = IPV6_MREQ;
{$NODEFINE PIPv6_MReq}
PIPv6_MReq = ^TIPv6_MReq;
{$ENDIF}
{$ENDIF}
{$EXTERNALSYM SCOPE_LEVEL}
// The Pascal compiler in Delphi/BCB prior to v6 does not
// support specifying values for individual enum items
SCOPE_LEVEL = (
{$IFDEF HAS_ENUM_ELEMENT_VALUES}
ScopeLevelInterface = 1,
ScopeLevelLink = 2,
ScopeLevelSubnet = 3,
ScopeLevelAdmin = 4,
ScopeLevelSite = 5,
ScopeLevelOrganization = 8,
ScopeLevelGlobal = 14,
ScopeLevelCount = 16
{$ELSE}
slUnused0, // do not use
ScopeLevelInterface,
ScopeLevelLink,
ScopeLevelSubnet,
ScopeLevelAdmin,
ScopeLevelSite,
slUnused6, // do not use
slUnused7, // do not use
ScopeLevelOrganization,
slUnused9, // do not use
slUnused10, // do not use
slUnused11, // do not use
slUnused12, // do not use
slUnused13, // do not use
ScopeLevelGlobal,
slUnused15, // do not use
ScopeLevelCount
{$ENDIF}
);
// Old IPv6 socket address structure (retained for sockaddr_gen definition below)
{$EXTERNALSYM sockaddr_in6_old}
sockaddr_in6_old = record
sin6_family : short; // AF_INET6
sin6_port : u_short; // Transport level port number
sin6_flowinfo : u_long; // IPv6 flow information
sin6_addr : TIn6Addr; // IPv6 address
end;
// IPv6 socket address structure, RFC 2553
{$IFDEF WINCE}
{$EXTERNALSYM SOCKADDR_IN6}
SOCKADDR_IN6 = record
sin6_family : short; // AF_INET6
sin6_port : u_short; // Transport level port number
sin6_flowinfo : u_long; // IPv6 flow information
sin6_addr : TIn6Addr; // IPv6 address
sin6_scope_id : u_long; // set of interfaces for a scope
end;
{$ELSE}
{$EXTERNALSYM ADDRESS_FAMILY}
ADDRESS_FAMILY = USHORT;
//
// IPv6 socket address structure, RFC 3493.
//
//
// NB: The LH version of sockaddr_in6 has the struct tag sockaddr_in6 rather
// than sockaddr_in6_lh. This is to make sure that standard sockets apps
// that conform to RFC 2553 (Basic Socket Interface Extensions for IPv6).
//
{$EXTERNALSYM SCOPE_ID}
SCOPE_ID = record
// union {
// struct {
// ULONG Zone : 28;
// ULONG Level : 4;
// };
// ULONG Value;
// };
Value : ULONG;
end;
{$EXTERNALSYM PSCOPE_ID}
PSCOPE_ID = ^SCOPE_ID;
{$EXTERNALSYM SCOPEID_UNSPECIFIED_INIT}
function SCOPEID_UNSPECIFIED_INIT: SCOPE_ID;
type
{$EXTERNALSYM sockaddr_in6_union}
sockaddr_in6_union = record
case Integer of
0 : (sin6_scope_id : ULONG); // Set of interfaces for a scope.
1 : (sin6_scope_struct : SCOPE_ID);
end;
{$EXTERNALSYM SOCKADDR_IN6_LH}
SOCKADDR_IN6_LH = record
sin6_family : ADDRESS_FAMILY; // AF_INET6.
sin6_port : USHORT; // Transport level port number.
sin6_flowinfo : ULONG; // IPv6 flow information.
sin6_addr : IN6_ADDR; // IPv6 address.
a : sockaddr_in6_union;
end;
{$EXTERNALSYM SOCKADDR_IN6_W2KSP1}
SOCKADDR_IN6_W2KSP1 = record
sin6_family : short; //* AF_INET6 */
sin6_port : USHORT; //* Transport level port number */
sin6_flowinfo : ULONG; //* IPv6 flow information */
sin6_addr : in6_addr; //* IPv6 address */
sin6_scope_id : ULONG; //* set of interfaces for a scope */
end;
{$EXTERNALSYM PSOCKADDR_IN6_LH}
PSOCKADDR_IN6_LH = ^SOCKADDR_IN6_LH;
{$EXTERNALSYM SOCKADDR_IN6}
SOCKADDR_IN6 = SOCKADDR_IN6_LH;
{$ENDIF}
{$NODEFINE TSockAddrIn6}
TSockAddrIn6 = SOCKADDR_IN6;
{$NODEFINE PSockAddrIn6}
PSockAddrIn6 = ^TSockAddrIn6;
{$EXTERNALSYM PSOCKADDR_IN6}
PSOCKADDR_IN6 = PSockAddrIn6;
{$EXTERNALSYM LPSOCKADDR_IN6}
LPSOCKADDR_IN6 = PSOCKADDR_IN6;
{$EXTERNALSYM sockaddr_gen}
sockaddr_gen = record
case Integer of
1 : ( Address : TSockAddr; );
2 : ( AddressIn : TSockAddrIn; );
3 : ( AddressIn6 : sockaddr_in6_old; );
end;
{$NODEFINE TSockAddrGen}
TSockAddrGen = sockaddr_gen;
// Structure to keep interface specific information
{$EXTERNALSYM INTERFACE_INFO}
INTERFACE_INFO = record
iiFlags : u_long; // Interface flags
iiAddress : TSockAddrGen; // Interface address
iiBroadcastAddress : TSockAddrGen; // Broadcast address
iiNetmask : TSockAddrGen; // Network mask
end;
{$NODEFINE TInterface_Info}
TInterface_Info = INTERFACE_INFO;
{$EXTERNALSYM PINTERFACE_INFO}
PINTERFACE_INFO = ^TInterface_Info;
{$EXTERNALSYM LPINTERFACE_INFO}
LPINTERFACE_INFO = PINTERFACE_INFO;
// New structure that does not have dependency on the address size
{$EXTERNALSYM INTERFACE_INFO_EX}
INTERFACE_INFO_EX = record
iiFlags : u_long; // Interface flags
iiAddress : TSocket_Address; // Interface address
iiBroadcastAddress : TSocket_Address; // Broadcast address
iiNetmask : TSocket_Address; // Network mask
end;
{$NODEFINE TInterface_Info_Ex}
TInterface_Info_Ex = INTERFACE_INFO_EX;
{$EXTERNALSYM PINTERFACE_INFO_EX}
PINTERFACE_INFO_EX = ^TInterface_Info_Ex;
{$EXTERNALSYM LPINTERFACE_INFO_EX}
LPINTERFACE_INFO_EX = PINTERFACE_INFO_EX;
// Macro that works for both IPv4 and IPv6
{$EXTERNALSYM SS_PORT}
function SS_PORT(ssp: PSockAddrIn): u_short;
{$EXTERNALSYM IN6ADDR_ANY_INIT}
function IN6ADDR_ANY_INIT: TIn6Addr;
{$EXTERNALSYM IN6ADDR_LOOPBACK_INIT}
function IN6ADDR_LOOPBACK_INIT: TIn6Addr;
{$EXTERNALSYM IN6ADDR_ALLNODESONNODE_INIT}
function IN6ADDR_ALLNODESONNODE_INIT : TIn6Addr;
{$EXTERNALSYM IN6ADDR_ALLNODESONLINK_INIT}
function IN6ADDR_ALLNODESONLINK_INIT : TIn6Addr;
{$EXTERNALSYM IN6ADDR_ALLROUTERSONLINK_INIT}
function IN6ADDR_ALLROUTERSONLINK_INIT : TIn6Addr;
{$EXTERNALSYM IN6ADDR_ALLMLDV2ROUTERSONLINK_INIT}
function IN6ADDR_ALLMLDV2ROUTERSONLINK_INIT : TIn6Addr;
{$EXTERNALSYM IN6ADDR_TEREDOINITIALLINKLOCALADDRESS_INIT}
function IN6ADDR_TEREDOINITIALLINKLOCALADDRESS_INIT : TIn6Addr;
{$EXTERNALSYM IN6ADDR_TEREDOOLDLINKLOCALADDRESSXP_INIT}
function IN6ADDR_TEREDOOLDLINKLOCALADDRESSXP_INIT : TIn6Addr;
{$EXTERNALSYM IN6ADDR_TEREDOOLDLINKLOCALADDRESSVISTA_INIT}
function IN6ADDR_TEREDOOLDLINKLOCALADDRESSVISTA_INIT : TIn6Addr;
{$EXTERNALSYM IN6ADDR_SETANY}
procedure IN6ADDR_SETANY(sa: PSockAddrIn6);
{$EXTERNALSYM IN6ADDR_SETLOOPBACK}
procedure IN6ADDR_SETLOOPBACK(sa: PSockAddrIn6);
{$EXTERNALSYM IN6ADDR_ISANY}
function IN6ADDR_ISANY(sa: PSockAddrIn6): Boolean;
{$EXTERNALSYM IN6ADDR_ISLOOPBACK}
function IN6ADDR_ISLOOPBACK(sa: PSockAddrIn6): Boolean;
{$EXTERNALSYM IN6_IS_ADDR_SUBNET_ROUTER_ANYCAST}
function IN6_IS_ADDR_SUBNET_ROUTER_ANYCAST(const a : PIn6Addr) : Boolean;
{$EXTERNALSYM IN6_IS_ADDR_SUBNET_RESERVED_ANYCAST}
function IN6_IS_ADDR_SUBNET_RESERVED_ANYCAST(const a: PIn6Addr) : Boolean;
{$EXTERNALSYM IN6_IS_ADDR_ANYCAST}
function IN6_IS_ADDR_ANYCAST(const a: PIn6Addr) : Boolean;
{$EXTERNALSYM IN6_ADDR_EQUAL}
function IN6_ADDR_EQUAL(const a: PIn6Addr; const b: PIn6Addr): Boolean;
{$EXTERNALSYM IN6_IS_ADDR_UNSPECIFIED}
function IN6_IS_ADDR_UNSPECIFIED(const a: PIn6Addr): Boolean;
{$EXTERNALSYM IN6_IS_ADDR_LOOPBACK}
function IN6_IS_ADDR_LOOPBACK(const a: PIn6Addr): Boolean;
{$EXTERNALSYM IN6_IS_ADDR_MULTICAST}
function IN6_IS_ADDR_MULTICAST(const a: PIn6Addr): Boolean;
{$EXTERNALSYM IN6_IS_ADDR_EUI64}
function IN6_IS_ADDR_EUI64(const a : PIn6Addr) : Boolean;
{$EXTERNALSYM IN6_IS_ADDR_LINKLOCAL}
function IN6_IS_ADDR_LINKLOCAL(const a: PIn6Addr): Boolean;
{$EXTERNALSYM IN6_IS_ADDR_SITELOCAL}
function IN6_IS_ADDR_SITELOCAL(const a: PIn6Addr): Boolean;
{$EXTERNALSYM IN6_IS_ADDR_V4MAPPED}
function IN6_IS_ADDR_V4MAPPED(const a: PIn6Addr): Boolean;
{$EXTERNALSYM IN6_IS_ADDR_V4COMPAT}
function IN6_IS_ADDR_V4COMPAT(const a: PIn6Addr): Boolean;
{$EXTERNALSYM IN6_IS_ADDR_V4TRANSLATED}
function IN6_IS_ADDR_V4TRANSLATED(const a: PIn6Addr): Boolean;
{$EXTERNALSYM IN6_IS_ADDR_MC_NODELOCAL}
function IN6_IS_ADDR_MC_NODELOCAL(const a: PIn6Addr): Boolean;
{$EXTERNALSYM IN6_IS_ADDR_MC_LINKLOCAL}
function IN6_IS_ADDR_MC_LINKLOCAL(const a: PIn6Addr): Boolean;
{$EXTERNALSYM IN6_IS_ADDR_MC_SITELOCAL}
function IN6_IS_ADDR_MC_SITELOCAL(const a: PIn6Addr): Boolean;
{$EXTERNALSYM IN6_IS_ADDR_MC_ORGLOCAL}
function IN6_IS_ADDR_MC_ORGLOCAL(const a: PIn6Addr): Boolean;
{$EXTERNALSYM IN6_IS_ADDR_MC_GLOBAL}
function IN6_IS_ADDR_MC_GLOBAL(const a: PIn6Addr): Boolean;
{$EXTERNALSYM IN6_SET_ADDR_UNSPECIFIED}
procedure IN6_SET_ADDR_UNSPECIFIED(a : PIN6_ADDR);
// Possible flags for the iiFlags - bitmask
const
{$EXTERNALSYM IFF_UP}
IFF_UP = $00000001; // Interface is up
{$EXTERNALSYM IFF_BROADCAST}
IFF_BROADCAST = $00000002; // Broadcast is supported
{$EXTERNALSYM IFF_LOOPBACK}
IFF_LOOPBACK = $00000004; // this is loopback interface
{$EXTERNALSYM IFF_POINTTOPOINT}
IFF_POINTTOPOINT = $00000008; // this is point-to-point interface
{$EXTERNALSYM IFF_MULTICAST}
IFF_MULTICAST = $00000010; // multicast is supported
type
{$EXTERNALSYM MULTICAST_MODE_TYPE}
{$EXTERNALSYM MCAST_INCLUDE}
{$EXTERNALSYM MCAST_EXCLUDE}
MULTICAST_MODE_TYPE = (MCAST_INCLUDE, MCAST_EXCLUDE);
{$EXTERNALSYM GROUP_FILTER}
GROUP_FILTER = record
gf_interface : PULONG; // Interface index.
gf_group : SOCKADDR_STORAGE; // Multicast address.
gf_fmode : MULTICAST_MODE_TYPE; // Filter mode.
gf_numsrc : ULONG; // Number of sources.
gf_slist : SOCKADDR_STORAGE; //gf_slist[1] : SOCKADDR_STORAGE; // Source address.
end;
{$EXTERNALSYM PGROUP_FILTER}
PGROUP_FILTER = ^GROUP_FILTER;
{$EXTERNALSYM GROUP_REQ}
GROUP_REQ = record
gr_interface : ULONG; // Interface index.
gr_group : SOCKADDR_STORAGE; // Multicast address.
end;
{$EXTERNALSYM PGROUP_REQ}
PGROUP_REQ = ^GROUP_REQ;
{$EXTERNALSYM GROUP_SOURCE_REQ}
GROUP_SOURCE_REQ = record
gsr_interface : ULONG; // Interface index.
gsr_group : SOCKADDR_STORAGE; // Group address.
gsr_source : SOCKADDR_STORAGE; // Source address.
end;
{$EXTERNALSYM PGROUP_SOURCE_REQ}
PGROUP_SOURCE_REQ = ^GROUP_SOURCE_REQ;
{$EXTERNALSYM GROUP_FILTER_SIZE}
function GROUP_FILTER_SIZE(const numsrc : DWord) : PtrUInt;
type
{$EXTERNALSYM WSAQUERYSET2}
WSAQUERYSET2 = record
dwSize : DWORD;
lpszServiceInstanceName : LPTSTR;
lpVersion : LPWSAVERSION;
lpszComment : LPTSTR;
dwNameSpace : DWORD;
lpNSProviderId : LPGUID;
lpszContext : LPTSTR;
dwNumberOfProtocols : DWORD;
lpafpProtocols : LPAFPROTOCOLS;
lpszQueryString : LPTSTR;
dwNumberOfCsAddrs : DWORD;
lpcsaBuffer : LPCSADDR_INFO;
dwOutputFlags : DWORD;
lpBlob : LPBLOB;
end;
{$EXTERNALSYM PWSAQUERYSET2}
PWSAQUERYSET2 = ^WSAQUERYSET2;
{$EXTERNALSYM LPWSAQUERYSET2}
LPWSAQUERYSET2 = PWSAQUERYSET2;
{$EXTERNALSYM NAPI_PROVIDER_TYPE}
{$EXTERNALSYM ProviderType_Application}
{$EXTERNALSYM ProviderType_Service}
{$IFNDEF HAS_ENUM_ELEMENT_VALUES}
{$NODEFINE nptUnused}
{$ENDIF}
// The Pascal compiler in Delphi/BCB prior to v6 does not
// support specifying values for individual enum items
NAPI_PROVIDER_TYPE = (
{$IFDEF HAS_ENUM_ELEMENT_VALUES}
ProviderType_Application = 1,
{$ELSE}
nptUnused, // Do not use
ProviderType_Application,
{$ENDIF}
ProviderType_Service);
{$EXTERNALSYM NAPI_DOMAIN_DESCRIPTION_BLOB}
NAPI_DOMAIN_DESCRIPTION_BLOB = record
AuthLevel : DWORD;
cchDomainName : DWORD;
OffsetNextDomainDescription : DWORD;
OffsetThisDomainName : DWORD;
end;
{$EXTERNALSYM PNAPI_DOMAIN_DESCRIPTION_BLOB}
PNAPI_DOMAIN_DESCRIPTION_BLOB = ^NAPI_DOMAIN_DESCRIPTION_BLOB;
{$EXTERNALSYM NAPI_PROVIDER_LEVEL}
{$EXTERNALSYM PROVIDERLEVEL_NONE}
{$EXTERNALSYM PROVIDERLEVEL_SECONDARY}
{$EXTERNALSYM PROVIDERLEVEL_PRIMARY}
NAPI_PROVIDER_LEVEL = (
PROVIDERLEVEL_NONE,
PROVIDERLEVEL_SECONDARY,
PROVIDERLEVEL_PRIMARY
);
{$EXTERNALSYM NAPI_PROVIDER_INSTALLATION_BLOB}
NAPI_PROVIDER_INSTALLATION_BLOB = record
dwVersion : DWORD;
dwProviderType : DWORD;
fSupportsWildCard : DWORD;
cDomains : DWORD;
OffsetFirstDomain : DWORD;
end;
{$EXTERNALSYM PNAPI_PROVIDER_INSTALLATION_BLOB}
PNAPI_PROVIDER_INSTALLATION_BLOB = ^NAPI_PROVIDER_INSTALLATION_BLOB;
{$IFNDEF NOREDECLARE}
{$EXTERNALSYM SERVICE_ADDRESS}
SERVICE_ADDRESS = record
dwAddressType : DWORD;
dwAddressFlags : DWORD;
dwAddressLength : DWORD;
dwPrincipalLength : DWORD;
lpAddress : PByte;
lpPrincipal : PByte;
end;
{$ENDIF}
{$EXTERNALSYM PSERVICE_ADDRESS}
PSERVICE_ADDRESS = ^SERVICE_ADDRESS;
{$EXTERNALSYM LPSERVICE_ADDRESS}
LPSERVICE_ADDRESS = PSERVICE_ADDRESS;
{$IFNDEF NOREDECLARE}
{$EXTERNALSYM SERVICE_ADDRESSES}
SERVICE_ADDRESSES = record
dwAddressCount : DWORD;
//#ifdef MIDL_PASS
// [size_is(dwAddressCount)] SERVICE_ADDRESS Addressses[*];
//#else // MIDL_PASS
// SERVICE_ADDRESS Addresses[1] ;
//#endif // MIDL_PASS
Addresses : SERVICE_ADDRESS;
end;
{$EXTERNALSYM PSERVICE_ADDRESSES}
PSERVICE_ADDRESSES = ^SERVICE_ADDRESSES;
{$EXTERNALSYM LPSERVICE_ADDRESSES}
LPSERVICE_ADDRESSES = PSERVICE_ADDRESSES;
{$ENDIF}
{$IFNDEF VCL_2007_OR_ABOVE}
const
{$EXTERNALSYM RESOURCEDISPLAYTYPE_GENERIC}
RESOURCEDISPLAYTYPE_GENERIC = $00000000;
{$EXTERNALSYM RESOURCEDISPLAYTYPE_DOMAIN}
RESOURCEDISPLAYTYPE_DOMAIN = $00000001;
{$EXTERNALSYM RESOURCEDISPLAYTYPE_SERVER}
RESOURCEDISPLAYTYPE_SERVER = $00000002;
{$EXTERNALSYM RESOURCEDISPLAYTYPE_SHARE}
RESOURCEDISPLAYTYPE_SHARE = $00000003;
{$EXTERNALSYM RESOURCEDISPLAYTYPE_FILE}
RESOURCEDISPLAYTYPE_FILE = $00000004;
{$EXTERNALSYM RESOURCEDISPLAYTYPE_GROUP}
RESOURCEDISPLAYTYPE_GROUP = $00000005;
{$EXTERNALSYM RESOURCEDISPLAYTYPE_NETWORK}
RESOURCEDISPLAYTYPE_NETWORK = $00000006;
{$EXTERNALSYM RESOURCEDISPLAYTYPE_ROOT}
RESOURCEDISPLAYTYPE_ROOT = $00000007;
{$EXTERNALSYM RESOURCEDISPLAYTYPE_SHAREADMIN}
RESOURCEDISPLAYTYPE_SHAREADMIN = $00000008;
{$EXTERNALSYM RESOURCEDISPLAYTYPE_DIRECTORY}
RESOURCEDISPLAYTYPE_DIRECTORY = $00000009;
{$EXTERNALSYM RESOURCEDISPLAYTYPE_TREE}
RESOURCEDISPLAYTYPE_TREE = $0000000A;
{$EXTERNALSYM RESOURCEDISPLAYTYPE_NDSCONTAINER}
RESOURCEDISPLAYTYPE_NDSCONTAINER = $0000000B;
{$ENDIF}
type
{$EXTERNALSYM SERVICE_TYPE_VALUE_ABSA}
SERVICE_TYPE_VALUE_ABSA = record
dwNameSpace : DWORD;
dwValueType : DWORD;
dwValueSize : DWORD;
lpValueName : LPSTR;
lpValue : Pointer;
end;
{$EXTERNALSYM PSERVICE_TYPE_VALUE_ABSA}
PSERVICE_TYPE_VALUE_ABSA = ^SERVICE_TYPE_VALUE_ABSA;
{$EXTERNALSYM LPSERVICE_TYPE_VALUE_ABSA}
LPSERVICE_TYPE_VALUE_ABSA = PSERVICE_TYPE_VALUE_ABSA;
{$EXTERNALSYM SERVICE_INFOA}
SERVICE_INFOA = record
lpServiceType : LPGUID;
lpServiceName : PAnsiChar;
lpComment : PAnsiChar;
lpLocale : PAnsiChar;
dwDisplayHint : DWORD;
dwVersion : DWORD;
dwTime : DWORD;
lpMachineName : PAnsiChar;
lpServiceAddress : LPSERVICE_ADDRESSES;
ServiceSpecificInfo : BLOB;
end;
{$EXTERNALSYM SERVICE_INFOW}
SERVICE_INFOW = record
lpServiceType : LPGUID;
lpServiceName : PWideChar;
lpComment : PWideChar;
lpLocale : PWideChar;
dwDisplayHint : DWORD;
dwVersion : DWORD;
dwTime : DWORD;
lpMachineName : PWideChar;
lpServiceAddress : LPSERVICE_ADDRESSES;
ServiceSpecificInfo : BLOB;
end;
{$EXTERNALSYM SOCKET_USAGE_TYPE}
{$EXTERNALSYM SYSTEM_CRITICAL_SOCKET}
{$IFNDEF HAS_ENUM_ELEMENT_VALUES}
{$NODEFINE sutUnused}
{$ENDIF}
// The Pascal compiler in Delphi/BCB prior to v6 does not
// support specifying values for individual enum items
SOCKET_USAGE_TYPE = (
{$IFDEF HAS_ENUM_ELEMENT_VALUES}
SYSTEM_CRITICAL_SOCKET = 1
{$ELSE}
sutUnused, // do not use
SYSTEM_CRITICAL_SOCKET
{$ENDIF}
);
{$EXTERNALSYM SOCKET_SECURITY_PROTOCOL}
{$EXTERNALSYM SOCKET_SECURITY_PROTOCOL_DEFAULT}
{$EXTERNALSYM SOCKET_SECURITY_PROTOCOL_IPSEC}
{$EXTERNALSYM SOCKET_SECURITY_PROTOCOL_IPSEC2}
SOCKET_SECURITY_PROTOCOL = (
SOCKET_SECURITY_PROTOCOL_DEFAULT,
SOCKET_SECURITY_PROTOCOL_IPSEC,
SOCKET_SECURITY_PROTOCOL_IPSEC2);
{$IFNDEF NO_REDECLARE}
{$EXTERNALSYM SERVICE_INFO}
{$IFDEF UNICODE}
SERVICE_INFO = SERVICE_INFOW;
{$ELSE}
SERVICE_INFO = SERVICE_INFOA;
{$ENDIF}
{$ENDIF}
{$EXTERNALSYM NS_SERVICE_INFOA}
NS_SERVICE_INFOA = record
dwNameSpace : DWORD;
ServiceInfo : SERVICE_INFOA;
end;
{$EXTERNALSYM PNS_SERVICE_INFOA}
PNS_SERVICE_INFOA = ^NS_SERVICE_INFOA;
{$EXTERNALSYM LPNS_SERVICE_INFOA}
LPNS_SERVICE_INFOA = NS_SERVICE_INFOA;
{$EXTERNALSYM NS_SERVICE_INFOW}
NS_SERVICE_INFOW = record
dwNameSpace : DWORD;
ServiceInfo : SERVICE_INFOW;
end;
{$EXTERNALSYM PNS_SERVICE_INFOW}
PNS_SERVICE_INFOW = ^NS_SERVICE_INFOW;
{$EXTERNALSYM LPNS_SERVICE_INFOW}
LPNS_SERVICE_INFOW = NS_SERVICE_INFOW;
{$IFNDEF NO_REDECLARE}
{$EXTERNALSYM NS_SERVICE_INFO}
{$EXTERNALSYM PNS_SERVICE_INFO}
{$EXTERNALSYM LPNS_SERVICE_INFO}
{$IFDEF UNICODE}
NS_SERVICE_INFO = NS_SERVICE_INFOW;
PNS_SERVICE_INFO = PNS_SERVICE_INFOW;
LPNS_SERVICE_INFO = LPNS_SERVICE_INFOW;
{$ELSE}
NS_SERVICE_INFO = NS_SERVICE_INFOA;
PNS_SERVICE_INFO = PNS_SERVICE_INFOA;
LPNS_SERVICE_INFO = LPNS_SERVICE_INFOA;
{$ENDIF}
{$ENDIF}
{$IFNDEF WINCE}
type
// structure for IP_PKTINFO option
{$EXTERNALSYM IN_PKTINFO}
IN_PKTINFO = record
ipi_addr : TInAddr; // destination IPv4 address
ipi_ifindex : UINT; // received interface index
end;
{$NODEFINE TInPktInfo}
TInPktInfo = IN_PKTINFO;
{$NODEFINE PInPktInfo}
PInPktInfo = ^IN_PKTINFO;
// structure for IPV6_PKTINFO option
{$EXTERNALSYM IN6_PKTINFO}
IN6_PKTINFO = record
ipi6_addr : TIn6Addr; // destination IPv6 address
ipi6_ifindex : UINT; // received interface index
end;
{$NODEFINE TIn6PktInfo}
TIn6PktInfo = IN6_PKTINFO;
{$NODEFINE PIn6PktInfo}
PIn6PktInfo = ^TIn6PktInfo;
{$ENDIF}
// Error codes from getaddrinfo()
const
{$EXTERNALSYM EAI_AGAIN}
EAI_AGAIN = WSATRY_AGAIN;
{$EXTERNALSYM EAI_BADFLAGS}
EAI_BADFLAGS = WSAEINVAL;
{$EXTERNALSYM EAI_FAIL}
EAI_FAIL = WSANO_RECOVERY;
{$EXTERNALSYM EAI_FAMILY}
EAI_FAMILY = WSAEAFNOSUPPORT;
{$EXTERNALSYM EAI_MEMORY}
EAI_MEMORY = WSA_NOT_ENOUGH_MEMORY;
// {$EXTERNALSYM EAI_NODATA}
// EAI_NODATA = WSANO_DATA;
{$EXTERNALSYM EAI_NONAME}
EAI_NONAME = WSAHOST_NOT_FOUND;
{$EXTERNALSYM EAI_SERVICE}
EAI_SERVICE = WSATYPE_NOT_FOUND;
{$EXTERNALSYM EAI_SOCKTYPE}
EAI_SOCKTYPE = WSAESOCKTNOSUPPORT;
// DCR_FIX: EAI_NODATA remove or fix
//
// EAI_NODATA was removed from rfc2553bis
// need to find out from the authors why and
// determine the error for "no records of this type"
// temporarily, we'll keep #define to avoid changing
// code that could change back; use NONAME
{$EXTERNALSYM EAI_NODATA}
EAI_NODATA = EAI_NONAME;
// Structure used in getaddrinfo() call
type
{$NODEFINE PAddrInfo}
PAddrInfo = ^ADDRINFO;
{$NODEFINE PPaddrinfo}
PPaddrinfo = ^PAddrInfo;
{$NODEFINE PPaddrinfoW}
PPaddrinfoW = ^PAddrInfoW;
{$EXTERNALSYM ADDRINFO}
ADDRINFO = record
ai_flags : Integer; // AI_PASSIVE, AI_CANONNAME, AI_NUMERICHOST
ai_family : Integer; // PF_xxx
ai_socktype : Integer; // SOCK_xxx
ai_protocol : Integer; // 0 or IPPROTO_xxx for IPv4 and IPv6
ai_addrlen : size_t; // Length of ai_addr
ai_canonname : PAnsiChar; // Canonical name for nodename
ai_addr : PSOCKADDR; // Binary address
ai_next : PAddrInfo; // Next structure in linked list
end;
{$NODEFINE TAddrInfo}
TAddrInfo = ADDRINFO;
{$EXTERNALSYM LPADDRINFO}
LPADDRINFO = PAddrInfo;
{$NODEFINE PAddrInfoW}
PAddrInfoW = ^ADDRINFOW;
{$EXTERNALSYM ADDRINFOW}
ADDRINFOW = record
ai_flags : Integer; // AI_PASSIVE, AI_CANONNAME, AI_NUMERICHOST
ai_family : Integer; // PF_xxx
ai_socktype : Integer; // SOCK_xxx
ai_protocol : Integer; // 0 or IPPROTO_xxx for IPv4 and IPv6
ai_addrlen : size_t; // Length of ai_addr
ai_canonname : PWideChar; // Canonical name for nodename
ai_addr : PSOCKADDR; // Binary address
ai_next : PAddrInfoW; // Next structure in linked list
end;
{$NODEFINE TAddrInfoW}
TAddrInfoW = ADDRINFOW;
{$EXTERNALSYM LPADDRINFOW}
LPADDRINFOW = PAddrInfoW;
// Flags used in "hints" argument to getaddrinfo()
const
{$EXTERNALSYM AI_PASSIVE}
AI_PASSIVE = $00000001; // Socket address will be used in bind() call
{$EXTERNALSYM AI_CANONNAME}
AI_CANONNAME = $00000002; // Return canonical name in first ai_canonname
{$EXTERNALSYM AI_NUMERICHOST}
AI_NUMERICHOST = $00000004; // Nodename must be a numeric address string
{$EXTERNALSYM AI_NUMERICSERV}
AI_NUMERICSERV = $00000008; // Servicename must be a numeric port number
{$EXTERNALSYM AI_ALL}
AI_ALL = $00000100; // Query both IP6 and IP4 with AI_V4MAPPED
{$EXTERNALSYM AI_ADDRCONFIG}
AI_ADDRCONFIG = $00000400; // Resolution only if global address configured
{$EXTERNALSYM AI_V4MAPPED}
AI_V4MAPPED = $00000800; // On v6 failure, query v4 and convert to V4MAPPED format (Vista or later)
{$EXTERNALSYM AI_NON_AUTHORITATIVE}
AI_NON_AUTHORITATIVE = $00004000; // LUP_NON_AUTHORITATIVE (Vista or later)
{$EXTERNALSYM AI_SECURE}
AI_SECURE = $00008000; // LUP_SECURE (Vista or later and applies only to NS_EMAIL namespace.)
{$EXTERNALSYM AI_RETURN_PREFERRED_NAMES}
AI_RETURN_PREFERRED_NAMES = $00010000; // LUP_RETURN_PREFERRED_NAMES (Vista or later and applies only to NS_EMAIL namespace.)
{$EXTERNALSYM AI_FQDN}
AI_FQDN = $00020000; // Return the FQDN in ai_canonname (Windows 7 or later)
{$EXTERNALSYM AI_FILESERVER}
AI_FILESERVER = $00040000; // Resolving fileserver name resolution (Windows 7 or later)
{$EXTERNALSYM AI_DISABLE_IDN_ENCODING}
AI_DISABLE_IDN_ENCODING = $00080000; // Disable Internationalized Domain Names handling
type
{$EXTERNALSYM PADDRINFOEXA}
PADDRINFOEXA = ^TAddrInfoEXA;
{$EXTERNALSYM ADDRINFOEXA}
ADDRINFOEXA = record
ai_flags : Integer; // AI_PASSIVE, AI_CANONNAME, AI_NUMERICHOST
ai_family : Integer; // PF_xxx
ai_socktype : Integer; // SOCK_xxx
ai_protocol : Integer; // 0 or IPPROTO_xxx for IPv4 and IPv6
ai_addrlen : size_t; // Length of ai_addr
ai_canonname : PAnsiChar; // Canonical name for nodename
ai_addr : Psockaddr; // Binary address
ai_blob : Pointer;
ai_bloblen : size_t;
ai_provider : LPGUID;
ai_next : PADDRINFOEXA; // Next structure in linked list
end;
{$NODEFINE TAddrInfoEXA}
TAddrInfoExA = ADDRINFOEXA;
{$EXTERNALSYM LPADDRINFOEXA}
LPADDRINFOEXA = PADDRINFOEXA;
{$EXTERNALSYM PADDRINFOEXW}
PADDRINFOEXW = ^TAddrInfoEXW;
{$EXTERNALSYM ADDRINFOEXW}
ADDRINFOEXW = record
ai_flags : Integer; // AI_PASSIVE, AI_CANONNAME, AI_NUMERICHOST
ai_family : Integer; // PF_xxx
ai_socktype : Integer; // SOCK_xxx
ai_protocol : Integer; // 0 or IPPROTO_xxx for IPv4 and IPv6
ai_addrlen : size_t; // Length of ai_addr
ai_canonname : PWideChar; // Canonical name for nodename
ai_addr : Psockaddr; // Binary address
ai_blob : Pointer;
ai_bloblen : size_t;
ai_provider : LPGUID;
ai_next : PADDRINFOEXW; // Next structure in linked list
end;
{$NODEFINE TAddrInfoExW}
TAddrInfoExW = ADDRINFOEXW;
{$EXTERNALSYM LPADDRINFOEXW}
LPADDRINFOEXW = PADDRINFOEXW;
{$EXTERNALSYM Paddrinfoex2A}
Paddrinfoex2A = ^addrinfoex2A;
{$EXTERNALSYM addrinfoex2A}
addrinfoex2A = record
ai_flags : Integer; // AI_PASSIVE, AI_CANONNAME, AI_NUMERICHOST
ai_family : Integer; // PF_xxx
ai_socktype : Integer; // SOCK_xxx
ai_protocol : Integer; // 0 or IPPROTO_xxx for IPv4 and IPv6
ai_addrlen : size_t; // Length of ai_addr
ai_canonname : PAnsiChar; // Canonical name for nodename
ai_addr : Psockaddr; // Binary address
ai_blob : Pointer;
ai_bloblen : size_t;
ai_provider : LPGUID;
ai_next : Paddrinfoex2A; // Next structure in linked list
ai_version : Integer;
ai_fqdn : PAnsiChar;
end;
{$NODEFINE TAddrInfoEx2A}
TAddrInfoEx2A = addrinfoex2A;
{$EXTERNALSYM LPADDRINFOEX2A}
LPADDRINFOEX2A = Paddrinfoex2A;
{$EXTERNALSYM Paddrinfoex2W}
Paddrinfoex2W = ^addrinfoex2W;
{$EXTERNALSYM addrinfoex2W}
addrinfoex2W = record
ai_flags : Integer; // AI_PASSIVE, AI_CANONNAME, AI_NUMERICHOST
ai_family : Integer; // PF_xxx
ai_socktype : Integer; // SOCK_xxx
ai_protocol : Integer; // 0 or IPPROTO_xxx for IPv4 and IPv6
ai_addrlen : size_t; // Length of ai_addr
ai_canonname : PWideChar; // Canonical name for nodename
ai_addr : Psockaddr; //_Field_size_bytes_(ai_addrlen) // Binary address
ai_blob : Pointer; //_Field_size_(ai_bloblen)
ai_bloblen : size_t;
ai_provider : LPGUID;
ai_next : Paddrinfoex2W; // Next structure in linked list
ai_version : Integer;
ai_fqdn : PWideChar;
end;
{$NODEFINE TAddrInfoEx2W}
TAddrInfoEx2W = addrinfoex2W;
{$EXTERNALSYM LPADDRINFOEX2W}
LPADDRINFOEX2W = Paddrinfoex2W;
var
{$EXTERNALSYM scopeid_unspecified}
scopeid_unspecified: {$IFDEF WINCE}u_long{$ELSE}SCOPE_ID{$ENDIF};
// RLebeau: the in4addr_any, _in4addr_loopback, and _in4addr_broadcast variables
// clash with the IN4ADDR_ANY, IN4ADDR_LOOPBACK, and IN4ADDR_BROADCAST constants
{$EXTERNALSYM in4addr_any}
{$NODEFINE _in4addr_any}
_in4addr_any: TInAddr;
{$EXTERNALSYM in4addr_loopback}
{$NODEFINE _in4addr_loopback}
_in4addr_loopback: TInAddr;
{$EXTERNALSYM in4addr_broadcast}
{$NODEFINE _in4addr_broadcast}
_in4addr_broadcast: TInAddr;
{$EXTERNALSYM in4addr_allnodesonlink}
in4addr_allnodesonlink: TInAddr;
{$EXTERNALSYM in4addr_allroutersonlink}
in4addr_allroutersonlink: TInAddr;
{$EXTERNALSYM in4addr_alligmpv3routersonlink}
in4addr_alligmpv3routersonlink: TInAddr;
{$EXTERNALSYM in4addr_allteredohostsonlink}
in4addr_allteredohostsonlink: TInAddr;
{$EXTERNALSYM in4addr_linklocalprefix}
in4addr_linklocalprefix: TInAddr;
{$EXTERNALSYM in4addr_multicastprefix}
in4addr_multicastprefix: TInAddr;
{$EXTERNALSYM in6addr_any}
in6addr_any: TIn6Addr;
{$EXTERNALSYM in6addr_loopback}
in6addr_loopback: TIn6Addr;
{$EXTERNALSYM in6addr_allnodesonnode}
in6addr_allnodesonnode: TIn6Addr;
{$EXTERNALSYM in6addr_allnodesonlink}
in6addr_allnodesonlink: TIn6Addr;
{$EXTERNALSYM in6addr_allroutersonlink}
in6addr_allroutersonlink: TIn6Addr;
{$EXTERNALSYM in6addr_solicitednodemulticastprefix}
in6addr_solicitednodemulticastprefix: TIn6Addr;
{$EXTERNALSYM in6addr_v4mappedprefix}
in6addr_v4mappedprefix: TIn6Addr;
{$EXTERNALSYM in6addr_6to4prefix}
in6addr_6to4prefix: TIn6Addr;
{$EXTERNALSYM in6addr_teredoprefix}
in6addr_teredoprefix: TIn6Addr;
//=============================================================
{
wsipx.h
Microsoft Windows
Copyright (C) Microsoft Corporation, 1992-1999.
Windows Sockets include file for IPX/SPX. This file contains all
standardized IPX/SPX information. Include this header file after
winsock.h.
To open an IPX socket, call socket() with an address family of
AF_IPX, a socket type of SOCK_DGRAM, and protocol NSPROTO_IPX.
Note that the protocol value must be specified, it cannot be 0.
All IPX packets are sent with the packet type field of the IPX
header set to 0.
To open an SPX or SPXII socket, call socket() with an address
family of AF_IPX, socket type of SOCK_SEQPACKET or SOCK_STREAM,
and protocol of NSPROTO_SPX or NSPROTO_SPXII. If SOCK_SEQPACKET
is specified, then the end of message bit is respected, and
recv() calls are not completed until a packet is received with
the end of message bit set. If SOCK_STREAM is specified, then
the end of message bit is not respected, and recv() completes
as soon as any data is received, regardless of the setting of the
end of message bit. Send coalescing is never performed, and sends
smaller than a single packet are always sent with the end of
message bit set. Sends larger than a single packet are packetized
with the end of message bit set on only the last packet of the
send.
}
// This is the structure of the SOCKADDR structure for IPX and SPX.
type
{$EXTERNALSYM SOCKADDR_IPX}
SOCKADDR_IPX = record
sa_family : u_short;
sa_netnum : Array [0..3] of AnsiChar;
sa_nodenum : Array [0..5] of AnsiChar;
sa_socket : u_short;
end;
{$NODEFINE TSockAddrIPX}
TSockAddrIPX = SOCKADDR_IPX;
{$NODEFINE PSockAddrIPX}
PSockAddrIPX = ^TSockAddrIPX;
{$EXTERNALSYM PSOCKADDR_IPX}
PSOCKADDR_IPX = PSockAddrIPX;
{$EXTERNALSYM LPSOCKADDR_IPX}
LPSOCKADDR_IPX = PSOCKADDR_IPX;
// Protocol families used in the "protocol" parameter of the socket() API.
const
{$EXTERNALSYM NSPROTO_IPX}
NSPROTO_IPX = 1000;
{$EXTERNALSYM NSPROTO_SPX}
NSPROTO_SPX = 1256;
{$EXTERNALSYM NSPROTO_SPXII}
NSPROTO_SPXII = 1257;
//=============================================================
{
wsnwlink.h
Microsoft Windows
Copyright (C) Microsoft Corporation, 1992-1999.
Microsoft-specific extensions to the Windows NT IPX/SPX Windows
Sockets interface. These extensions are provided for use as
necessary for compatibility with existing applications. They are
otherwise not recommended for use, as they are only guaranteed to
work over the Microsoft IPX/SPX stack. An application which
uses these extensions may not work over other IPX/SPX
implementations. Include this header file after winsock.h and
wsipx.h.
To open an IPX socket where a particular packet type is sent in
the IPX header, specify NSPROTO_IPX + n as the protocol parameter
of the socket() API. For example, to open an IPX socket that
sets the packet type to 34, use the following socket() call:
s = socket(AF_IPX, SOCK_DGRAM, NSPROTO_IPX + 34);
}
// Below are socket option that may be set or retrieved by specifying
// the appropriate manifest in the "optname" parameter of getsockopt()
// or setsockopt(). Use NSPROTO_IPX as the "level" argument for the
// call.
const
// Set/get the IPX packet type. The value specified in the
// optval argument will be set as the packet type on every IPX
// packet sent from this socket. The optval parameter of
// getsockopt()/setsockopt() points to an int.
{$EXTERNALSYM IPX_PTYPE}
IPX_PTYPE = $4000;
// Set/get the receive filter packet type. Only IPX packets with
// a packet type equal to the value specified in the optval
// argument will be returned; packets with a packet type that
// does not match are discarded. optval points to an int.
{$EXTERNALSYM IPX_FILTERPTYPE}
IPX_FILTERPTYPE = $4001;
// Stop filtering on packet type set with IPX_FILTERPTYPE.
{$EXTERNALSYM IPX_STOPFILTERPTYPE}
IPX_STOPFILTERPTYPE = $4003;
// Set/get the value of the datastream field in the SPX header on
// every packet sent. optval points to an int.
{$EXTERNALSYM IPX_DSTYPE}
IPX_DSTYPE = $4002;
// Enable extended addressing. On sends, adds the element
// "unsigned char sa_ptype" to the SOCKADDR_IPX structure,
// making the total length 15 bytes. On receives, add both
// the sa_ptype and "unsigned char sa_flags" to the SOCKADDR_IPX
// structure, making the total length 16 bytes. The current
// bits defined in sa_flags are:
// 0x01 - the received frame was sent as a broadcast
// 0x02 - the received frame was sent from this machine
// optval points to a BOOL.
{$EXTERNALSYM IPX_EXTENDED_ADDRESS}
IPX_EXTENDED_ADDRESS = $4004;
// Send protocol header up on all receive packets. optval points
// to a BOOL.
{$EXTERNALSYM IPX_RECVHDR}
IPX_RECVHDR = $4005;
// Get the maximum data size that can be sent. Not valid with
// setsockopt(). optval points to an int where the value is
// returned.
{$EXTERNALSYM IPX_MAXSIZE}
IPX_MAXSIZE = $4006;
// Query information about a specific adapter that IPX is bound
// to. In a system with n adapters they are numbered 0 through n-1.
// Callers can issue the IPX_MAX_ADAPTER_NUM getsockopt() to find
// out the number of adapters present, or call IPX_ADDRESS with
// increasing values of adapternum until it fails. Not valid
// with setsockopt(). optval points to an instance of the
// IPX_ADDRESS_DATA structure with the adapternum filled in.
{$EXTERNALSYM IPX_ADDRESS}
IPX_ADDRESS = $4007;
type
{$EXTERNALSYM IPX_ADDRESS_DATA}
IPX_ADDRESS_DATA = record
adapternum : Integer; // input: 0-based adapter number
netnum : Array [0..3] of Byte; // output: IPX network number
nodenum : Array [0..5] of Byte; // output: IPX node address
wan : Boolean; // output: TRUE = adapter is on a wan link
status : Boolean; // output: TRUE = wan link is up (or adapter is not wan)
maxpkt : Integer; // output: max packet size, not including IPX header
linkspeed : ULONG; // output: link speed in 100 bytes/sec (i.e. 96 == 9600 bps)
end;
{$NODEFINE TIPXAddressData}
TIPXAddressData = IPX_ADDRESS_DATA;
{$NODEFINE PIPXAddressData}
PIPXAddressData = ^TIPXAddressData;
{$EXTERNALSYM PIPX_ADDRESS_DATA}
PIPX_ADDRESS_DATA = PIPXAddressData;
const
// Query information about a specific IPX network number. If the
// network is in IPX's cache it will return the information directly, {Do not Localize}
// otherwise it will issue RIP requests to find it. Not valid with
// setsockopt(). optval points to an instance of the IPX_NETNUM_DATA
// structure with the netnum filled in.
{$EXTERNALSYM IPX_GETNETINFO}
IPX_GETNETINFO = $4008;
type
{$EXTERNALSYM IPX_NETNUM_DATA}
IPX_NETNUM_DATA = record
netnum : Array [0..3] of Byte; // input: IPX network number
hopcount : Word; // output: hop count to this network, in machine order
netdelay : Word; // output: tick count to this network, in machine order
cardnum : Integer; // output: 0-based adapter number used to route to this net;
// can be used as adapternum input to IPX_ADDRESS
router : Array [0..5] of Byte; // output: MAC address of the next hop router, zeroed if
// the network is directly attached
end;
{$NODEFINE TIPXNetNumData}
TIPXNetNumData = IPX_NETNUM_DATA;
{$NODEFINE PIPXNetNumData}
PIPXNetNumData = ^TIPXNetNumData;
{$EXTERNALSYM PIPX_NETNUM_DATA}
PIPX_NETNUM_DATA = PIPXNetNumData;
const
// Like IPX_GETNETINFO except it does not issue RIP requests. If the
// network is in IPX's cache it will return the information, otherwise {Do not Localize}
// it will fail (see also IPX_RERIPNETNUMBER which always forces a
// re-RIP). Not valid with setsockopt(). optval points to an instance of
// the IPX_NETNUM_DATA structure with the netnum filled in.
{$EXTERNALSYM IPX_GETNETINFO_NORIP}
IPX_GETNETINFO_NORIP = $4009;
// Get information on a connected SPX socket. optval points
// to an instance of the IPX_SPXCONNSTATUS_DATA structure.
// *** All numbers are in Novell (high-low) order. ***
{$EXTERNALSYM IPX_SPXGETCONNECTIONSTATUS}
IPX_SPXGETCONNECTIONSTATUS = $400B;
type
{$EXTERNALSYM IPX_SPXCONNSTATUS_DATA}
IPX_SPXCONNSTATUS_DATA = record
ConnectionState : Byte;
WatchDogActive : Byte;
LocalConnectionId : Word;
RemoteConnectionId : Word;
LocalSequenceNumber : Word;
LocalAckNumber : Word;
LocalAllocNumber : Word;
RemoteAckNumber : Word;
RemoteAllocNumber : Word;
LocalSocket : Word;
ImmediateAddress : Array [0..5] of Byte;
RemoteNetwork : Array [0..3] of Byte;
RemoteNode : Array [0..5] of Byte;
RemoteSocket : Word;
RetransmissionCount : Word;
EstimatedRoundTripDelay : Word; // In milliseconds
RetransmittedPackets : Word;
SuppressedPacket : Word;
end;
{$NODEFINE TIPXSPXConnStatusData}
TIPXSPXConnStatusData = IPX_SPXCONNSTATUS_DATA;
{$NODEFINE PIPXSPXConnStatusData}
PIPXSPXConnStatusData = ^TIPXSPXConnStatusData;
{$EXTERNALSYM PIPX_SPXCONNSTATUS_DATA}
PIPX_SPXCONNSTATUS_DATA = PIPXSPXConnStatusData;
const
// Get notification when the status of an adapter that IPX is
// bound to changes. Typically this will happen when a wan line
// goes up or down. Not valid with setsockopt(). optval points
// to a buffer which contains an IPX_ADDRESS_DATA structure
// followed immediately by a HANDLE to an unsignaled event.
//
// When the getsockopt() query is submitted, it will complete
// successfully. However, the IPX_ADDRESS_DATA pointed to by
// optval will not be updated at that point. Instead the
// request is queued internally inside the transport.
//
// When the status of an adapter changes, IPX will locate a
// queued getsockopt() query and fill in all the fields in the
// IPX_ADDRESS_DATA structure. It will then signal the event
// pointed to by the HANDLE in the optval buffer. This handle
// should be obtained before calling getsockopt() by calling
// CreateEvent(). If multiple getsockopts() are submitted at
// once, different events must be used.
//
// The event is used because the call needs to be asynchronous
// but currently getsockopt() does not support this.
//
// WARNING: In the current implementation, the transport will
// only signal one queued query for each status change. Therefore
// only one service which uses this query should be running at
// once.
{$EXTERNALSYM IPX_ADDRESS_NOTIFY}
IPX_ADDRESS_NOTIFY = $400C;
// Get the maximum number of adapters present. If this call returns
// n then the adapters are numbered 0 through n-1. Not valid
// with setsockopt(). optval points to an int where the value
// is returned.
{$EXTERNALSYM IPX_MAX_ADAPTER_NUM}
IPX_MAX_ADAPTER_NUM = $400D;
// Like IPX_GETNETINFO except it forces IPX to re-RIP even if the
// network is in its cache (but not if it is directly attached to).
// Not valid with setsockopt(). optval points to an instance of
// the IPX_NETNUM_DATA structure with the netnum filled in.
{$EXTERNALSYM IPX_RERIPNETNUMBER}
IPX_RERIPNETNUMBER = $400E;
// A hint that broadcast packets may be received. The default is
// TRUE. Applications that do not need to receive broadcast packets
// should set this sockopt to FALSE which may cause better system
// performance (note that it does not necessarily cause broadcasts
// to be filtered for the application). Not valid with getsockopt().
// optval points to a BOOL.
{$EXTERNALSYM IPX_RECEIVE_BROADCAST}
IPX_RECEIVE_BROADCAST = $400F;
// On SPX connections, don't delay before sending ack. Applications {Do not Localize}
// that do not tend to have back-and-forth traffic over SPX should
// set this; it will increase the number of acks sent but will remove
// delays in sending acks. optval points to a BOOL.
{$EXTERNALSYM IPX_IMMEDIATESPXACK}
IPX_IMMEDIATESPXACK = $4010;
//=============================================================
// wsnetbs.h
// Copyright (c) 1994-1999, Microsoft Corp. All rights reserved.
//
// Windows Sockets include file for NETBIOS. This file contains all
// standardized NETBIOS information. Include this header file after
// winsock.h.
// To open a NetBIOS socket, call the socket() function as follows:
//
// s = socket( AF_NETBIOS, {SOCK_SEQPACKET|SOCK_DGRAM}, -Lana );
//
// where Lana is the NetBIOS Lana number of interest. For example, to
// open a socket for Lana 2, specify -2 as the "protocol" parameter
// to the socket() function.
// This is the structure of the SOCKADDR structure for NETBIOS.
const
{$EXTERNALSYM NETBIOS_NAME_LENGTH}
NETBIOS_NAME_LENGTH = 16;
type
{$EXTERNALSYM SOCKADDR_NB}
SOCKADDR_NB = record
snb_family : short;
snb_type : u_short;
snb_name : array[0..NETBIOS_NAME_LENGTH-1] of AnsiChar;
end;
{$NODEFINE TSockAddrNB}
TSockAddrNB = SOCKADDR_NB;
{$NODEFINE PSockAddrNB}
PSockAddrNB = ^TSockAddrNB;
{$EXTERNALSYM PSOCKADDR_NB}
PSOCKADDR_NB = PSockAddrNB;
{$EXTERNALSYM LPSOCKADDR_NB}
LPSOCKADDR_NB = PSOCKADDR_NB;
// Bit values for the snb_type field of SOCKADDR_NB.
const
{$EXTERNALSYM NETBIOS_UNIQUE_NAME}
NETBIOS_UNIQUE_NAME = $0000;
{$EXTERNALSYM NETBIOS_GROUP_NAME}
NETBIOS_GROUP_NAME = $0001;
{$EXTERNALSYM NETBIOS_TYPE_QUICK_UNIQUE}
NETBIOS_TYPE_QUICK_UNIQUE = $0002;
{$EXTERNALSYM NETBIOS_TYPE_QUICK_GROUP}
NETBIOS_TYPE_QUICK_GROUP = $0003;
// A macro convenient for setting up NETBIOS SOCKADDRs.
{$EXTERNALSYM SET_NETBIOS_SOCKADDR}
procedure SET_NETBIOS_SOCKADDR(snb : PSockAddrNB; const SnbType : Word; const Name : PAnsiChar; const Port : AnsiChar);
//=============================================================
// Copyright 1997 - 1998 Microsoft Corporation
//
// Module Name:
//
// ws2atm.h
//
// Abstract:
//
// Winsock 2 ATM Annex definitions.
const
{$EXTERNALSYM ATMPROTO_AALUSER}
ATMPROTO_AALUSER = $00; // User-defined AAL
{$EXTERNALSYM ATMPROTO_AAL1}
ATMPROTO_AAL1 = $01; // AAL 1
{$EXTERNALSYM ATMPROTO_AAL2}
ATMPROTO_AAL2 = $02; // AAL 2
{$EXTERNALSYM ATMPROTO_AAL34}
ATMPROTO_AAL34 = $03; // AAL 3/4
{$EXTERNALSYM ATMPROTO_AAL5}
ATMPROTO_AAL5 = $05; // AAL 5
{$EXTERNALSYM SAP_FIELD_ABSENT}
SAP_FIELD_ABSENT = $FFFFFFFE;
{$EXTERNALSYM SAP_FIELD_ANY}
SAP_FIELD_ANY = $FFFFFFFF;
{$EXTERNALSYM SAP_FIELD_ANY_AESA_SEL}
SAP_FIELD_ANY_AESA_SEL = $FFFFFFFA;
{$EXTERNALSYM SAP_FIELD_ANY_AESA_REST}
SAP_FIELD_ANY_AESA_REST = $FFFFFFFB;
// values used for AddressType in struct ATM_ADDRESS
{$EXTERNALSYM ATM_E164}
ATM_E164 = $01; // E.164 addressing scheme
{$EXTERNALSYM ATM_NSAP}
ATM_NSAP = $02; // NSAP-style ATM Endsystem Address scheme
{$EXTERNALSYM ATM_AESA}
ATM_AESA = $02; // NSAP-style ATM Endsystem Address scheme
{$EXTERNALSYM ATM_ADDR_SIZE}
ATM_ADDR_SIZE = 20;
type
{$EXTERNALSYM ATM_ADDRESS}
ATM_ADDRESS = record
AddressType : DWORD; // E.164 or NSAP-style ATM Endsystem Address
NumofDigits : DWORD; // number of digits;
Addr : Array[0..ATM_ADDR_SIZE-1] of Byte; // IA5 digits for E164, BCD encoding for NSAP
// format as defined in the ATM Forum UNI 3.1
end;
// values used for Layer2Protocol in B-LLI
const
{$EXTERNALSYM BLLI_L2_ISO_1745}
BLLI_L2_ISO_1745 = $01; // Basic mode ISO 1745
{$EXTERNALSYM BLLI_L2_Q921}
BLLI_L2_Q921 = $02; // CCITT Rec. Q.921
{$EXTERNALSYM BLLI_L2_X25L}
BLLI_L2_X25L = $06; // CCITT Rec. X.25, link layer
{$EXTERNALSYM BLLI_L2_X25M}
BLLI_L2_X25M = $07; // CCITT Rec. X.25, multilink
{$EXTERNALSYM BLLI_L2_ELAPB}
BLLI_L2_ELAPB = $08; // Extended LAPB; for half duplex operation
{$EXTERNALSYM BLLI_L2_HDLC_NRM}
BLLI_L2_HDLC_NRM = $09; // HDLC NRM (ISO 4335)
{$EXTERNALSYM BLLI_L2_HDLC_ABM}
BLLI_L2_HDLC_ABM = $0A; // HDLC ABM (ISO 4335)
{$EXTERNALSYM BLLI_L2_HDLC_ARM}
BLLI_L2_HDLC_ARM = $0B; // HDLC ARM (ISO 4335)
{$EXTERNALSYM BLLI_L2_LLC}
BLLI_L2_LLC = $0C; // LAN logical link control (ISO 8802/2)
{$EXTERNALSYM BLLI_L2_X75}
BLLI_L2_X75 = $0D; // CCITT Rec. X.75, single link procedure
{$EXTERNALSYM BLLI_L2_Q922}
BLLI_L2_Q922 = $0E; // CCITT Rec. Q.922
{$EXTERNALSYM BLLI_L2_USER_SPECIFIED}
BLLI_L2_USER_SPECIFIED = $10; // User Specified
{$EXTERNALSYM BLLI_L2_ISO_7776}
BLLI_L2_ISO_7776 = $11; // ISO 7776 DTE-DTE operation
// values used for Layer3Protocol in B-LLI
{$EXTERNALSYM BLLI_L3_X25}
BLLI_L3_X25 = $06; // CCITT Rec. X.25, packet layer
{$EXTERNALSYM BLLI_L3_ISO_8208}
BLLI_L3_ISO_8208 = $07; // ISO/IEC 8208 (X.25 packet layer for DTE
{$EXTERNALSYM BLLI_L3_X223}
BLLI_L3_X223 = $08; // X.223/ISO 8878
{$EXTERNALSYM BLLI_L3_SIO_8473}
BLLI_L3_SIO_8473 = $09; // ISO/IEC 8473 (OSI connectionless)
{$EXTERNALSYM BLLI_L3_T70}
BLLI_L3_T70 = $0A; // CCITT Rec. T.70 min. network layer
{$EXTERNALSYM BLLI_L3_ISO_TR9577}
BLLI_L3_ISO_TR9577 = $0B; // ISO/IEC TR 9577 Network Layer Protocol ID
{$EXTERNALSYM BLLI_L3_USER_SPECIFIED}
BLLI_L3_USER_SPECIFIED = $10; // User Specified
// values used for Layer3IPI in B-LLI
{$EXTERNALSYM BLLI_L3_IPI_SNAP}
BLLI_L3_IPI_SNAP = $80; // IEEE 802.1 SNAP identifier
{$EXTERNALSYM BLLI_L3_IPI_IP}
BLLI_L3_IPI_IP = $CC; // Internet Protocol (IP) identifier
type
{$EXTERNALSYM ATM_BLLI}
ATM_BLLI = record
// Identifies the layer-two protocol.
// Corresponds to the User information layer 2 protocol field in the B-LLI information element.
// A value of SAP_FIELD_ABSENT indicates that this field is not used, and a value of SAP_FIELD_ANY means wildcard.
Layer2Protocol : DWORD; // User information layer 2 protocol
// Identifies the user-specified layer-two protocol.
// Only used if the Layer2Protocol parameter is set to BLLI_L2_USER_SPECIFIED.
// The valid values range from zero-127.
// Corresponds to the User specified layer 2 protocol information field in the B-LLI information element.
Layer2UserSpecifiedProtocol : DWORD; // User specified layer 2 protocol information
// Identifies the layer-three protocol.
// Corresponds to the User information layer 3 protocol field in the B-LLI information element.
// A value of SAP_FIELD_ABSENT indicates that this field is not used, and a value of SAP_FIELD_ANY means wildcard.
Layer3Protocol : DWORD; // User information layer 3 protocol
// Identifies the user-specified layer-three protocol.
// Only used if the Layer3Protocol parameter is set to BLLI_L3_USER_SPECIFIED.
// The valid values range from zero-127.
// Corresponds to the User specified layer 3 protocol information field in the B-LLI information element.
Layer3UserSpecifiedProtocol : DWORD; // User specified layer 3 protocol information
// Identifies the layer-three Initial Protocol Identifier.
// Only used if the Layer3Protocol parameter is set to BLLI_L3_ISO_TR9577.
// Corresponds to the ISO/IEC TR 9577 Initial Protocol Identifier field in the B-LLI information element.
Layer3IPI : DWORD; // ISO/IEC TR 9577 Initial Protocol Identifier
// Identifies the 802.1 SNAP identifier.
// Only used if the Layer3Protocol parameter is set to BLLI_L3_ISO_TR9577 and Layer3IPI is set to BLLI_L3_IPI_SNAP,
// indicating an IEEE 802.1 SNAP identifier. Corresponds to the OUI and PID fields in the B-LLI information element.
SnapID : Array[0..4] of Byte; // SNAP ID consisting of OUI and PID
end;
// values used for the HighLayerInfoType field in ATM_BHLI
const
{$EXTERNALSYM BHLI_ISO}
BHLI_ISO = $00; // ISO
{$EXTERNALSYM BHLI_UserSpecific}
BHLI_UserSpecific = $01; // User Specific
{$EXTERNALSYM BHLI_HighLayerProfile}
BHLI_HighLayerProfile = $02; // High layer profile (only in UNI3.0)
{$EXTERNALSYM BHLI_VendorSpecificAppId}
BHLI_VendorSpecificAppId = $03; // Vendor-Specific Application ID
type
{$EXTERNALSYM ATM_BHLI}
ATM_BHLI = record
// Identifies the high layer information type field in the B-LLI information element.
// Note that the type BHLI_HighLayerProfile has been eliminated in UNI 3.1.
// A value of SAP_FIELD_ABSENT indicates that B-HLI is not present, and a value of SAP_FIELD_ANY means wildcard.
HighLayerInfoType : DWORD; // High Layer Information Type
// Identifies the number of bytes from one to eight in the HighLayerInfo array.
// Valid values include eight for the cases of BHLI_ISO and BHLI_UserSpecific,
// four for BHLI_HighLayerProfile, and seven for BHLI_VendorSpecificAppId.
HighLayerInfoLength : DWORD; // number of bytes in HighLayerInfo
// Identifies the high layer information field in the B-LLI information element.
// In the case of HighLayerInfoType being BHLI_VendorSpecificAppId,
// the first 3 bytes consist of a globally-administered Organizationally Unique Identifier (OUI)
// (as per IEEE standard 802-1990), followed by a 4-byte application identifier,
// which is administered by the vendor identified by the OUI.
// Value for the case of BHLI_UserSpecific is user defined and requires bilateral agreement between two end users.
HighLayerInfo : Array[0..7] of Byte; // the value dependent on the HighLayerInfoType field
end;
// A new address family, AF_ATM, is introduced for native ATM services,
// and the corresponding SOCKADDR structure, sockaddr_atm, is defined in the following.
// To open a socket for native ATM services, parameters in socket should contain
// AF_ATM, SOCK_RAW, and ATMPROTO_AAL5 or ATMPROTO_AALUSER, respectively.
{$EXTERNALSYM SOCKADDR_ATM}
SOCKADDR_ATM = record
// Identifies the address family, which is AF_ATM in this case.
satm_family : u_short;
// Identifies the ATM address that could be either in E.164 or NSAP-style ATM End Systems Address format.
// This field will be mapped to the Called Party Number IE (Information Element)
// if it is specified in bind and WSPBind for a listening socket, or in connect, WSAConnect, WSPConnect,
// WSAJoinLeaf, or WSPJoinLeaf for a connecting socket.
// It will be mapped to the Calling Party Number IE if specified in bind and WSPBind for a connecting socket.
satm_number : ATM_ADDRESS;
// Identifies the fields in the B-LLI Information Element that are used along with satm_bhli to identify an application.
// Note that the B-LLI layer two information is treated as not present
// if its Layer2Protocol field contains SAP_FIELD_ABSENT, or as a wildcard if it contains SAP_FIELD_ANY.
// Similarly, the B-LLI layer three information is treated as not present
// if its Layer3Protocol field contains SAP_FIELD_ABSENT, or as a wildcard if it contains SAP_FIELD_ANY.
satm_blli : ATM_BLLI; // B-LLI
// Identifies the fields in the B-HLI Information Element that are used along with satm_blli to identify an application.
satm_bhli : ATM_BHLI; // B-HLI
end;
{$NODEFINE TSockAddrATM}
TSockAddrATM = SOCKADDR_ATM;
{$NODEFINE PSockAddrATM}
PSockAddrATM = ^TSockAddrATM;
{$EXTERNALSYM PSOCKADDR_ATM}
PSOCKADDR_ATM = PSockAddrATM;
{$EXTERNALSYM LPSOCKADDR_ATM}
LPSOCKADDR_ATM = PSOCKADDR_ATM;
{$EXTERNALSYM Q2931_IE_TYPE}
Q2931_IE_TYPE = (
IE_AALParameters,
IE_TrafficDescriptor,
IE_BroadbandBearerCapability,
IE_BHLI,
IE_BLLI,
IE_CalledPartyNumber,
IE_CalledPartySubaddress,
IE_CallingPartyNumber,
IE_CallingPartySubaddress,
IE_Cause,
IE_QOSClass,
IE_TransitNetworkSelection);
{$EXTERNALSYM Q2931_IE}
Q2931_IE = record
IEType : Q2931_IE_TYPE;
IELength : ULONG;
IE : Array[0..0] of Byte;
end;
// manifest constants for the AALType field in struct AAL_PARAMETERS_IE
{$EXTERNALSYM AAL_TYPE}
AAL_TYPE = LongInt;
const
{$EXTERNALSYM AALTYPE_5}
AALTYPE_5 = 5; // AAL 5
{$EXTERNALSYM AALTYPE_USER}
AALTYPE_USER = 16; // user-defined AAL
// values used for the Mode field in struct AAL5_PARAMETERS
{$EXTERNALSYM AAL5_MODE_MESSAGE}
AAL5_MODE_MESSAGE = $01;
{$EXTERNALSYM AAL5_MODE_STREAMING}
AAL5_MODE_STREAMING = $02;
// values used for the SSCSType field in struct AAL5_PARAMETERS
{$EXTERNALSYM AAL5_SSCS_NULL}
AAL5_SSCS_NULL = $00;
{$EXTERNALSYM AAL5_SSCS_SSCOP_ASSURED}
AAL5_SSCS_SSCOP_ASSURED = $01;
{$EXTERNALSYM AAL5_SSCS_SSCOP_NON_ASSURED}
AAL5_SSCS_SSCOP_NON_ASSURED = $02;
{$EXTERNALSYM AAL5_SSCS_FRAME_RELAY}
AAL5_SSCS_FRAME_RELAY = $04;
type
{$EXTERNALSYM AAL5_PARAMETERS}
AAL5_PARAMETERS = record
ForwardMaxCPCSSDUSize : ULONG;
BackwardMaxCPCSSDUSize : ULONG;
Mode : Byte; // only available in UNI 3.0
SSCSType : Byte;
end;
{$EXTERNALSYM AALUSER_PARAMETERS}
AALUSER_PARAMETERS = record
UserDefined : ULONG;
end;
{$EXTERNALSYM AAL_PARAMETERS_IE}
AAL_PARAMETERS_IE = record
AALType : AAL_TYPE;
case Byte of
0: ( AAL5Parameters : AAL5_PARAMETERS );
1: ( AALUserParameters : AALUSER_PARAMETERS );
end;
{$EXTERNALSYM ATM_TD}
ATM_TD = record
PeakCellRate_CLP0 : ULONG;
PeakCellRate_CLP01 : ULONG;
SustainableCellRate_CLP0 : ULONG;
SustainableCellRate_CLP01 : ULONG;
MaxBurstSize_CLP0 : ULONG;
MaxBurstSize_CLP01 : ULONG;
Tagging : LongBool;
end;
{$EXTERNALSYM ATM_TRAFFIC_DESCRIPTOR_IE}
ATM_TRAFFIC_DESCRIPTOR_IE = record
_Forward : ATM_TD;
Backward : ATM_TD;
BestEffort : LongBool;
end;
// values used for the BearerClass field in struct ATM_BROADBAND_BEARER_CAPABILITY_IE
const
{$EXTERNALSYM BCOB_A}
BCOB_A = $01; // Bearer class A
{$EXTERNALSYM BCOB_C}
BCOB_C = $03; // Bearer class C
{$EXTERNALSYM BCOB_X}
BCOB_X = $10; // Bearer class X
// values used for the TrafficType field in struct ATM_BROADBAND_BEARER_CAPABILITY_IE
{$EXTERNALSYM TT_NOIND}
TT_NOIND = $00; // No indication of traffic type
{$EXTERNALSYM TT_CBR}
TT_CBR = $04; // Constant bit rate
{$EXTERNALSYM TT_VBR}
TT_VBR = $06; // Variable bit rate
// values used for the TimingRequirements field in struct ATM_BROADBAND_BEARER_CAPABILITY_IE
{$EXTERNALSYM TR_NOIND}
TR_NOIND = $00; // No timing requirement indication
{$EXTERNALSYM TR_END_TO_END}
TR_END_TO_END = $01; // End-to-end timing required
{$EXTERNALSYM TR_NO_END_TO_END}
TR_NO_END_TO_END = $02; // End-to-end timing not required
// values used for the ClippingSusceptability field in struct ATM_BROADBAND_BEARER_CAPABILITY_IE
{$EXTERNALSYM CLIP_NOT}
CLIP_NOT = $00; // Not susceptible to clipping
{$EXTERNALSYM CLIP_SUS}
CLIP_SUS = $20; // Susceptible to clipping
// values used for the UserPlaneConnectionConfig field in struct ATM_BROADBAND_BEARER_CAPABILITY_IE
{$EXTERNALSYM UP_P2P}
UP_P2P = $00; // Point-to-point connection
{$EXTERNALSYM UP_P2MP}
UP_P2MP = $01; // Point-to-multipoint connection
type
{$EXTERNALSYM ATM_BROADBAND_BEARER_CAPABILITY_IE}
ATM_BROADBAND_BEARER_CAPABILITY_IE = record
BearerClass : Byte;
TrafficType : Byte;
TimingRequirements : Byte;
ClippingSusceptability : Byte;
UserPlaneConnectionConfig : Byte;
end;
{$EXTERNALSYM ATM_BHLI_IE}
ATM_BHLI_IE = ATM_BHLI;
// values used for the Layer2Mode field in struct ATM_BLLI_IE
const
{$EXTERNALSYM BLLI_L2_MODE_NORMAL}
BLLI_L2_MODE_NORMAL = $40;
{$EXTERNALSYM BLLI_L2_MODE_EXT}
BLLI_L2_MODE_EXT = $80;
// values used for the Layer3Mode field in struct ATM_BLLI_IE
{$EXTERNALSYM BLLI_L3_MODE_NORMAL}
BLLI_L3_MODE_NORMAL = $40;
{$EXTERNALSYM BLLI_L3_MODE_EXT}
BLLI_L3_MODE_EXT = $80;
// values used for the Layer3DefaultPacketSize field in struct ATM_BLLI_IE
{$EXTERNALSYM BLLI_L3_PACKET_16}
BLLI_L3_PACKET_16 = $04;
{$EXTERNALSYM BLLI_L3_PACKET_32}
BLLI_L3_PACKET_32 = $05;
{$EXTERNALSYM BLLI_L3_PACKET_64}
BLLI_L3_PACKET_64 = $06;
{$EXTERNALSYM BLLI_L3_PACKET_128}
BLLI_L3_PACKET_128 = $07;
{$EXTERNALSYM BLLI_L3_PACKET_256}
BLLI_L3_PACKET_256 = $08;
{$EXTERNALSYM BLLI_L3_PACKET_512}
BLLI_L3_PACKET_512 = $09;
{$EXTERNALSYM BLLI_L3_PACKET_1024}
BLLI_L3_PACKET_1024 = $0A;
{$EXTERNALSYM BLLI_L3_PACKET_2048}
BLLI_L3_PACKET_2048 = $0B;
{$EXTERNALSYM BLLI_L3_PACKET_4096}
BLLI_L3_PACKET_4096 = $0C;
type
{$EXTERNALSYM ATM_BLLI_IE}
ATM_BLLI_IE = record
Layer2Protocol : DWORD; // User information layer 2 protocol
Layer2Mode : Byte;
Layer2WindowSize : Byte;
Layer2UserSpecifiedProtocol : DWORD; // User specified layer 2 protocol information
Layer3Protocol : DWORD; // User information layer 3 protocol
Layer3Mode : Byte;
Layer3DefaultPacketSize : Byte;
Layer3PacketWindowSize : Byte;
Layer3UserSpecifiedProtocol : DWORD; // User specified layer 3 protocol information
Layer3IPI : DWORD; // ISO/IEC TR 9577 Initial Protocol Identifier
SnapID : Array[0..4] of Byte; // SNAP ID consisting of OUI and PID
end;
{$EXTERNALSYM ATM_CALLED_PARTY_NUMBER_IE}
ATM_CALLED_PARTY_NUMBER_IE = ATM_ADDRESS;
{$EXTERNALSYM ATM_CALLED_PARTY_SUBADDRESS_IE}
ATM_CALLED_PARTY_SUBADDRESS_IE = ATM_ADDRESS;
// values used for the Presentation_Indication field in struct ATM_CALLING_PARTY_NUMBER_IE
const
{$EXTERNALSYM PI_ALLOWED}
PI_ALLOWED = $00;
{$EXTERNALSYM PI_RESTRICTED}
PI_RESTRICTED = $40;
{$EXTERNALSYM PI_NUMBER_NOT_AVAILABLE}
PI_NUMBER_NOT_AVAILABLE = $80;
// values used for the Screening_Indicator field in struct ATM_CALLING_PARTY_NUMBER_IE
{$EXTERNALSYM SI_USER_NOT_SCREENED}
SI_USER_NOT_SCREENED = $00;
{$EXTERNALSYM SI_USER_PASSED}
SI_USER_PASSED = $01;
{$EXTERNALSYM SI_USER_FAILED}
SI_USER_FAILED = $02;
{$EXTERNALSYM SI_NETWORK}
SI_NETWORK = $03;
type
{$EXTERNALSYM ATM_CALLING_PARTY_NUMBER_IE}
ATM_CALLING_PARTY_NUMBER_IE = record
ATM_Number : ATM_ADDRESS;
Presentation_Indication : Byte;
Screening_Indicator : Byte;
end;
{$EXTERNALSYM ATM_CALLING_PARTY_SUBADDRESS_IE}
ATM_CALLING_PARTY_SUBADDRESS_IE = ATM_ADDRESS;
// values used for the Location field in struct ATM_CAUSE_IE
const
{$EXTERNALSYM CAUSE_LOC_USER}
CAUSE_LOC_USER = $00;
{$EXTERNALSYM CAUSE_LOC_PRIVATE_LOCAL}
CAUSE_LOC_PRIVATE_LOCAL = $01;
{$EXTERNALSYM CAUSE_LOC_PUBLIC_LOCAL}
CAUSE_LOC_PUBLIC_LOCAL = $02;
{$EXTERNALSYM CAUSE_LOC_TRANSIT_NETWORK}
CAUSE_LOC_TRANSIT_NETWORK = $03;
{$EXTERNALSYM CAUSE_LOC_PUBLIC_REMOTE}
CAUSE_LOC_PUBLIC_REMOTE = $04;
{$EXTERNALSYM CAUSE_LOC_PRIVATE_REMOTE}
CAUSE_LOC_PRIVATE_REMOTE = $05;
{$EXTERNALSYM CAUSE_LOC_INTERNATIONAL_NETWORK}
CAUSE_LOC_INTERNATIONAL_NETWORK = $06;
{$EXTERNALSYM CAUSE_LOC_BEYOND_INTERWORKING}
CAUSE_LOC_BEYOND_INTERWORKING = $0A;
// values used for the Cause field in struct ATM_CAUSE_IE
{$EXTERNALSYM CAUSE_UNALLOCATED_NUMBER}
CAUSE_UNALLOCATED_NUMBER = $01;
{$EXTERNALSYM CAUSE_NO_ROUTE_TO_TRANSIT_NETWORK}
CAUSE_NO_ROUTE_TO_TRANSIT_NETWORK = $02;
{$EXTERNALSYM CAUSE_NO_ROUTE_TO_DESTINATION}
CAUSE_NO_ROUTE_TO_DESTINATION = $03;
{$EXTERNALSYM CAUSE_VPI_VCI_UNACCEPTABLE}
CAUSE_VPI_VCI_UNACCEPTABLE = $0A;
{$EXTERNALSYM CAUSE_NORMAL_CALL_CLEARING}
CAUSE_NORMAL_CALL_CLEARING = $10;
{$EXTERNALSYM CAUSE_USER_BUSY}
CAUSE_USER_BUSY = $11;
{$EXTERNALSYM CAUSE_NO_USER_RESPONDING}
CAUSE_NO_USER_RESPONDING = $12;
{$EXTERNALSYM CAUSE_CALL_REJECTED}
CAUSE_CALL_REJECTED = $15;
{$EXTERNALSYM CAUSE_NUMBER_CHANGED}
CAUSE_NUMBER_CHANGED = $16;
{$EXTERNALSYM CAUSE_USER_REJECTS_CLIR}
CAUSE_USER_REJECTS_CLIR = $17;
{$EXTERNALSYM CAUSE_DESTINATION_OUT_OF_ORDER}
CAUSE_DESTINATION_OUT_OF_ORDER = $1B;
{$EXTERNALSYM CAUSE_INVALID_NUMBER_FORMAT}
CAUSE_INVALID_NUMBER_FORMAT = $1C;
{$EXTERNALSYM CAUSE_STATUS_ENQUIRY_RESPONSE}
CAUSE_STATUS_ENQUIRY_RESPONSE = $1E;
{$EXTERNALSYM CAUSE_NORMAL_UNSPECIFIED}
CAUSE_NORMAL_UNSPECIFIED = $1F;
{$EXTERNALSYM CAUSE_VPI_VCI_UNAVAILABLE}
CAUSE_VPI_VCI_UNAVAILABLE = $23;
{$EXTERNALSYM CAUSE_NETWORK_OUT_OF_ORDER}
CAUSE_NETWORK_OUT_OF_ORDER = $26;
{$EXTERNALSYM CAUSE_TEMPORARY_FAILURE}
CAUSE_TEMPORARY_FAILURE = $29;
{$EXTERNALSYM CAUSE_ACCESS_INFORMAION_DISCARDED}
CAUSE_ACCESS_INFORMAION_DISCARDED = $2B;
{$EXTERNALSYM CAUSE_NO_VPI_VCI_AVAILABLE}
CAUSE_NO_VPI_VCI_AVAILABLE = $2D;
{$EXTERNALSYM CAUSE_RESOURCE_UNAVAILABLE}
CAUSE_RESOURCE_UNAVAILABLE = $2F;
{$EXTERNALSYM CAUSE_QOS_UNAVAILABLE}
CAUSE_QOS_UNAVAILABLE = $31;
{$EXTERNALSYM CAUSE_USER_CELL_RATE_UNAVAILABLE}
CAUSE_USER_CELL_RATE_UNAVAILABLE = $33;
{$EXTERNALSYM CAUSE_BEARER_CAPABILITY_UNAUTHORIZED}
CAUSE_BEARER_CAPABILITY_UNAUTHORIZED = $39;
{$EXTERNALSYM CAUSE_BEARER_CAPABILITY_UNAVAILABLE}
CAUSE_BEARER_CAPABILITY_UNAVAILABLE = $3A;
{$EXTERNALSYM CAUSE_OPTION_UNAVAILABLE}
CAUSE_OPTION_UNAVAILABLE = $3F;
{$EXTERNALSYM CAUSE_BEARER_CAPABILITY_UNIMPLEMENTED}
CAUSE_BEARER_CAPABILITY_UNIMPLEMENTED = $41;
{$EXTERNALSYM CAUSE_UNSUPPORTED_TRAFFIC_PARAMETERS}
CAUSE_UNSUPPORTED_TRAFFIC_PARAMETERS = $49;
{$EXTERNALSYM CAUSE_INVALID_CALL_REFERENCE}
CAUSE_INVALID_CALL_REFERENCE = $51;
{$EXTERNALSYM CAUSE_CHANNEL_NONEXISTENT}
CAUSE_CHANNEL_NONEXISTENT = $52;
{$EXTERNALSYM CAUSE_INCOMPATIBLE_DESTINATION}
CAUSE_INCOMPATIBLE_DESTINATION = $58;
{$EXTERNALSYM CAUSE_INVALID_ENDPOINT_REFERENCE}
CAUSE_INVALID_ENDPOINT_REFERENCE = $59;
{$EXTERNALSYM CAUSE_INVALID_TRANSIT_NETWORK_SELECTION}
CAUSE_INVALID_TRANSIT_NETWORK_SELECTION = $5B;
{$EXTERNALSYM CAUSE_TOO_MANY_PENDING_ADD_PARTY}
CAUSE_TOO_MANY_PENDING_ADD_PARTY = $5C;
{$EXTERNALSYM CAUSE_AAL_PARAMETERS_UNSUPPORTED}
CAUSE_AAL_PARAMETERS_UNSUPPORTED = $5D;
{$EXTERNALSYM CAUSE_MANDATORY_IE_MISSING}
CAUSE_MANDATORY_IE_MISSING = $60;
{$EXTERNALSYM CAUSE_UNIMPLEMENTED_MESSAGE_TYPE}
CAUSE_UNIMPLEMENTED_MESSAGE_TYPE = $61;
{$EXTERNALSYM CAUSE_UNIMPLEMENTED_IE}
CAUSE_UNIMPLEMENTED_IE = $63;
{$EXTERNALSYM CAUSE_INVALID_IE_CONTENTS}
CAUSE_INVALID_IE_CONTENTS = $64;
{$EXTERNALSYM CAUSE_INVALID_STATE_FOR_MESSAGE}
CAUSE_INVALID_STATE_FOR_MESSAGE = $65;
{$EXTERNALSYM CAUSE_RECOVERY_ON_TIMEOUT}
CAUSE_RECOVERY_ON_TIMEOUT = $66;
{$EXTERNALSYM CAUSE_INCORRECT_MESSAGE_LENGTH}
CAUSE_INCORRECT_MESSAGE_LENGTH = $68;
{$EXTERNALSYM CAUSE_PROTOCOL_ERROR}
CAUSE_PROTOCOL_ERROR = $6F;
// values used for the Condition portion of the Diagnostics field
// in struct ATM_CAUSE_IE, for certain Cause values
{$EXTERNALSYM CAUSE_COND_UNKNOWN}
CAUSE_COND_UNKNOWN = $00;
{$EXTERNALSYM CAUSE_COND_PERMANENT}
CAUSE_COND_PERMANENT = $01;
{$EXTERNALSYM CAUSE_COND_TRANSIENT}
CAUSE_COND_TRANSIENT = $02;
// values used for the Rejection Reason portion of the Diagnostics field
// in struct ATM_CAUSE_IE, for certain Cause values
{$EXTERNALSYM CAUSE_REASON_USER}
CAUSE_REASON_USER = $00;
{$EXTERNALSYM CAUSE_REASON_IE_MISSING}
CAUSE_REASON_IE_MISSING = $04;
{$EXTERNALSYM CAUSE_REASON_IE_INSUFFICIENT}
CAUSE_REASON_IE_INSUFFICIENT = $08;
// values used for the P-U flag of the Diagnostics field
// in struct ATM_CAUSE_IE, for certain Cause values
{$EXTERNALSYM CAUSE_PU_PROVIDER}
CAUSE_PU_PROVIDER = $00;
{$EXTERNALSYM CAUSE_PU_USER}
CAUSE_PU_USER = $08;
// values used for the N-A flag of the Diagnostics field
// in struct ATM_CAUSE_IE, for certain Cause values
{$EXTERNALSYM CAUSE_NA_NORMAL}
CAUSE_NA_NORMAL = $00;
{$EXTERNALSYM CAUSE_NA_ABNORMAL}
CAUSE_NA_ABNORMAL = $04;
type
{$EXTERNALSYM ATM_CAUSE_IE}
ATM_CAUSE_IE = record
Location : Byte;
Cause : Byte;
DiagnosticsLength : Byte;
Diagnostics : Array[0..3] of Byte;
end;
// values used for the QOSClassForward and QOSClassBackward
// field in struct ATM_QOS_CLASS_IE
const
{$EXTERNALSYM QOS_CLASS0}
QOS_CLASS0 = $00;
{$EXTERNALSYM QOS_CLASS1}
QOS_CLASS1 = $01;
{$EXTERNALSYM QOS_CLASS2}
QOS_CLASS2 = $02;
{$EXTERNALSYM QOS_CLASS3}
QOS_CLASS3 = $03;
{$EXTERNALSYM QOS_CLASS4}
QOS_CLASS4 = $04;
type
{$EXTERNALSYM ATM_QOS_CLASS_IE}
ATM_QOS_CLASS_IE = record
QOSClassForward : Byte;
QOSClassBackward : Byte;
end;
// values used for the TypeOfNetworkId field in struct ATM_TRANSIT_NETWORK_SELECTION_IE
const
{$EXTERNALSYM TNS_TYPE_NATIONAL}
TNS_TYPE_NATIONAL = $40;
// values used for the NetworkIdPlan field in struct ATM_TRANSIT_NETWORK_SELECTION_IE
{$EXTERNALSYM TNS_PLAN_CARRIER_ID_CODE}
TNS_PLAN_CARRIER_ID_CODE = $01;
type
{$EXTERNALSYM ATM_TRANSIT_NETWORK_SELECTION_IE}
ATM_TRANSIT_NETWORK_SELECTION_IE = record
TypeOfNetworkId : Byte;
NetworkIdPlan : Byte;
NetworkIdLength : Byte;
NetworkId : Array[0..0] of Byte;
end;
// ATM specific Ioctl codes
const
{$EXTERNALSYM SIO_GET_NUMBER_OF_ATM_DEVICES}
SIO_GET_NUMBER_OF_ATM_DEVICES = $50160001;
{$EXTERNALSYM SIO_GET_ATM_ADDRESS}
SIO_GET_ATM_ADDRESS = $d0160002;
{$EXTERNALSYM SIO_ASSOCIATE_PVC}
SIO_ASSOCIATE_PVC = $90160003;
{$EXTERNALSYM SIO_GET_ATM_CONNECTION_ID}
SIO_GET_ATM_CONNECTION_ID = $50160004;
// ATM Connection Identifier
type
{$EXTERNALSYM ATM_CONNECTION_ID}
ATM_CONNECTION_ID = record
DeviceNumber : DWORD;
VPI : DWORD;
VCI : DWORD;
end;
// Input buffer format for SIO_ASSOCIATE_PVC
{$EXTERNALSYM ATM_PVC_PARAMS}
ATM_PVC_PARAMS = record
PvcConnectionId : ATM_CONNECTION_ID;
PvcQos : QOS;
end;
{$NODEFINE InitializeWinSock}
procedure InitializeWinSock;
{$NODEFINE UninitializeWinSock}
procedure UninitializeWinSock;
function Winsock2Loaded: Boolean;
function WinsockHandle : THandle;
//JPM
{
I made these symbols up so to prevent range check warnings in FreePascal.
SizeOf is a SmallInt when an expression is evaluated at run-time. This
run-time evaluation makes no sense because the compiler knows these when compiling
so it should give us the numbers.
}
const
{$EXTERNALSYM SIZE_WSACMSGHDR}
SIZE_WSACMSGHDR = DWORD(SizeOf(WSACMSGHDR));
{$EXTERNALSYM SIZE_FARPROC}
SIZE_FARPROC = DWORD(SizeOf(FARPROC));
{$EXTERNALSYM MAX_NATURAL_ALIGNMENT_SUB_1}
MAX_NATURAL_ALIGNMENT_SUB_1 = DWORD(MAX_NATURAL_ALIGNMENT - 1);
{$EXTERNALSYM SIZE_IP_MSFILTER}
SIZE_IP_MSFILTER = DWORD(SizeOf(ip_msfilter));
{$EXTERNALSYM SIZE_TINADDR}
SIZE_TINADDR = DWORD(SizeOf(TInAddr));
{$EXTERNALSYM SIZE_TIN6ADDR}
SIZE_TIN6ADDR = DWORD(SizeOf(TIn6Addr));
{$EXTERNALSYM SIZE_TSOCKADDRIN}
SIZE_TSOCKADDRIN = DWORD(SizeOf(TSockAddrIn));
{$EXTERNALSYM SIZE_TSOCKADDRIN6}
SIZE_TSOCKADDRIN6 = DWORD(SizeOf(TSockAddrIn6));
{$EXTERNALSYM SIZE_GROUP_FILTER}
SIZE_GROUP_FILTER = DWORD(SizeOf(GROUP_FILTER));
{$EXTERNALSYM SIZE_TADDRINFO}
SIZE_TADDRINFO = DWORD(SizeOf(TAddrInfo));
{$EXTERNALSYM SIZE_SOCKADDR_STORAGE}
SIZE_SOCKADDR_STORAGE = DWORD(sizeof(SOCKADDR_STORAGE));
{$IFNDEF WINCE}
{$EXTERNALSYM SIZE_TWSAMSG}
SIZE_TWSAMSG = DWORD(SizeOf(TWSAMSG));
{$ENDIF}
{$EXTERNALSYM SIZE_GUID}
SIZE_GUID = DWORD(SizeOf(TGuid));
{$EXTERNALSYM SIZE_INTEGER}
SIZE_INTEGER = DWORD(SizeOf(Integer));
//=============================================================
// Copyright (c) Microsoft Corporation. All rights reserved.
//
// Module Name:
//
// mstcpip.h
//
// Abstract:
//
// This module contains Microsoft-specific extensions to the core
// Winsock definitions.
//
// Environment:
//
// user mode or kernel mode
type
{$EXTERNALSYM TRANSPORT_SETTING_ID}
TRANSPORT_SETTING_ID = record
Guid : TGUID;
end;
{$EXTERNALSYM PTRANSPORT_SETTING_ID}
PTRANSPORT_SETTING_ID = ^TRANSPORT_SETTING_ID;
{$EXTERNALSYM _tcp_keepalive}
_tcp_keepalive = record
onoff: u_long;
keepalivetime: u_long;
keepaliveinterval: u_long;
end;
{$EXTERNALSYM TCP_INITIAL_RTO_PARAMETERS}
TCP_INITIAL_RTO_PARAMETERS = record
//
// Supplies the initial RTT in milliseconds.
//
Rtt : USHORT;
//
// Supplies the number of retransmissions attempted before the connection
// setup fails.
//
MaxSynRetransmissions : UCHAR;
end;
{$EXTERNALSYM PTCP_INITIAL_RTO_PARAMETERS}
PTCP_INITIAL_RTO_PARAMETERS = ^TCP_INITIAL_RTO_PARAMETERS;
{$EXTERNALSYM _INET_PORT_RANGE}
_INET_PORT_RANGE = record
StartPort : USHORT;
NumberOfPorts : USHORT;
end;
{$EXTERNALSYM INET_PORT_RANGE}
INET_PORT_RANGE = _INET_PORT_RANGE;
{$EXTERNALSYM PINET_PORT_RANGE}
PINET_PORT_RANGE = ^INET_PORT_RANGE;
{$EXTERNALSYM INET_PORT_RESERVATION}
INET_PORT_RESERVATION = _INET_PORT_RANGE;
{$EXTERNALSYM PINET_PORT_RESERVATION}
PINET_PORT_RESERVATION = ^INET_PORT_RESERVATION;
{$EXTERNALSYM INET_PORT_RESERVATION_TOKEN}
INET_PORT_RESERVATION_TOKEN = record
Token : ULONG64;
end;
{$EXTERNALSYM PINET_PORT_RESERVATION_TOKEN}
PINET_PORT_RESERVATION_TOKEN = ^INET_PORT_RESERVATION_TOKEN;
{$EXTERNALSYM INET_PORT_RESERVATION_INSTANCE}
INET_PORT_RESERVATION_INSTANCE = record
Reservation : INET_PORT_RESERVATION;
Token : INET_PORT_RESERVATION_TOKEN;
end;
{$EXTERNALSYM PINET_PORT_RESERVATION_INSTANCE}
PINET_PORT_RESERVATION_INSTANCE = ^INET_PORT_RESERVATION_INSTANCE;
{$EXTERNALSYM INET_PORT_RESERVATION_INFORMATION}
INET_PORT_RESERVATION_INFORMATION = record
AssignmentCount : ULONG;
OwningPid : ULONG;
end;
{$EXTERNALSYM PINET_PORT_RESERVATION_INFORMATION}
PINET_PORT_RESERVATION_INFORMATION = ^INET_PORT_RESERVATION_INFORMATION;
{$EXTERNALSYM CONTROL_CHANNEL_TRIGGER_STATUS}
{$EXTERNALSYM CONTROL_CHANNEL_TRIGGER_STATUS_INVALID}
{$EXTERNALSYM CONTROL_CHANNEL_TRIGGER_STATUS_SOFTWARE_SLOT_ALLOCATED}
{$EXTERNALSYM CONTROL_CHANNEL_TRIGGER_STATUS_HARDWARE_SLOT_ALLOCATED}
{$EXTERNALSYM CONTROL_CHANNEL_TRIGGER_STATUS_POLICY_ERROR}
{$EXTERNALSYM CONTROL_CHANNEL_TRIGGER_STATUS_SYSTEM_ERROR}
{$EXTERNALSYM CONTROL_CHANNEL_TRIGGER_STATUS_TRANSPORT_DISCONNECTED}
{$EXTERNALSYM CONTROL_CHANNEL_TRIGGER_STATUS_SERVICE_UNAVAILABLE}
CONTROL_CHANNEL_TRIGGER_STATUS = (
CONTROL_CHANNEL_TRIGGER_STATUS_INVALID,
CONTROL_CHANNEL_TRIGGER_STATUS_SOFTWARE_SLOT_ALLOCATED,
CONTROL_CHANNEL_TRIGGER_STATUS_HARDWARE_SLOT_ALLOCATED,
CONTROL_CHANNEL_TRIGGER_STATUS_POLICY_ERROR,
CONTROL_CHANNEL_TRIGGER_STATUS_SYSTEM_ERROR,
CONTROL_CHANNEL_TRIGGER_STATUS_TRANSPORT_DISCONNECTED,
CONTROL_CHANNEL_TRIGGER_STATUS_SERVICE_UNAVAILABLE);
{$EXTERNALSYM PCONTROL_CHANNEL_TRIGGER_STATUS}
PCONTROL_CHANNEL_TRIGGER_STATUS = ^CONTROL_CHANNEL_TRIGGER_STATUS;
{$EXTERNALSYM REAL_TIME_NOTIFICATION_SETTING_INPUT}
REAL_TIME_NOTIFICATION_SETTING_INPUT = record
TransportSettingId : TRANSPORT_SETTING_ID;
BrokerEventGuid : TGUID;
end;
{$EXTERNALSYM PREAL_TIME_NOTIFICATION_SETTING_INPUT}
PREAL_TIME_NOTIFICATION_SETTING_INPUT = ^REAL_TIME_NOTIFICATION_SETTING_INPUT;
{$EXTERNALSYM REAL_TIME_NOTIFICATION_SETTING_OUTPUT}
REAL_TIME_NOTIFICATION_SETTING_OUTPUT = record
ChannelStatus : CONTROL_CHANNEL_TRIGGER_STATUS;
end;
{$EXTERNALSYM PREAL_TIME_NOTIFICATION_SETTING_OUTPUT}
PREAL_TIME_NOTIFICATION_SETTING_OUTPUT = ^REAL_TIME_NOTIFICATION_SETTING_OUTPUT;
{$EXTERNALSYM RCVALL_VALUE}
{$EXTERNALSYM RCVALL_OFF}
{$EXTERNALSYM RCVALL_ON}
{$EXTERNALSYM RCVALL_SOCKETLEVELONLY}
{$EXTERNALSYM RCVALL_IPLEVEL}
RCVALL_VALUE = (
RCVALL_OFF,
RCVALL_ON,
RCVALL_SOCKETLEVELONLY,
RCVALL_IPLEVEL
);
{$EXTERNALSYM PRCVALL_VALUE}
PRCVALL_VALUE = ^RCVALL_VALUE;
{$EXTERNALSYM RCVALL_IF}
RCVALL_IF = record
Mode : RCVALL_VALUE;
_Interface : ULONG;
end;
{$EXTERNALSYM PRCVALL_IF}
PRCVALL_IF = ^RCVALL_IF;
{$EXTERNALSYM SOCKET_SECURITY_QUERY_INFO_IPSEC2}
SOCKET_SECURITY_QUERY_INFO_IPSEC2 = record
SecurityProtocol : SOCKET_SECURITY_PROTOCOL;
Flags : ULONG;
PeerApplicationAccessTokenHandle : UINT64;
PeerMachineAccessTokenHandle : UINT64;
MmSaId : UINT64;
QmSaId : UINT64;
NegotiationWinerr : UINT32;
SaLookupContext : TGuid;
end;
{$EXTERNALSYM PSOCKET_SECURITY_QUERY_INFO_IPSEC2}
PSOCKET_SECURITY_QUERY_INFO_IPSEC2 = ^SOCKET_SECURITY_QUERY_INFO_IPSEC2;
{$EXTERNALSYM RSS_SCALABILITY_INFO}
RSS_SCALABILITY_INFO = record
RssEnabled : BOOL;
end;
{$EXTERNALSYM PRSS_SCALABILITY_INFO}
PRSS_SCALABILITY_INFO = ^RSS_SCALABILITY_INFO;
const
//
// Argument structures for SIO_QUERY_TRANSPORT_SETTING and
// SIO_QUERY_TRANSPORT_SETTING.
//
{$EXTERNALSYM CONTROL_CHANNEL_TRIGGER_STATUS_MAX}
CONTROL_CHANNEL_TRIGGER_STATUS_MAX = CONTROL_CHANNEL_TRIGGER_STATUS_SYSTEM_ERROR;
//
// New WSAIoctl Options
//
{$EXTERNALSYM SIO_RCVALL}
SIO_RCVALL = (IOC_IN or IOC_VENDOR or 1);
{$EXTERNALSYM SIO_RCVALL_MCAST}
SIO_RCVALL_MCAST = (IOC_IN or IOC_VENDOR or 2);
{$EXTERNALSYM SIO_RCVALL_IGMPMCAST}
SIO_RCVALL_IGMPMCAST = (IOC_IN or IOC_VENDOR or 3);
{$EXTERNALSYM SIO_KEEPALIVE_VALS}
SIO_KEEPALIVE_VALS = (IOC_IN or IOC_VENDOR or 4);
{$EXTERNALSYM SIO_ABSORB_RTRALERT}
SIO_ABSORB_RTRALERT = (IOC_IN or IOC_VENDOR or 5);
{$EXTERNALSYM SIO_UCAST_IF}
SIO_UCAST_IF = (IOC_IN or IOC_VENDOR or 6);
{$EXTERNALSYM SIO_LIMIT_BROADCASTS}
SIO_LIMIT_BROADCASTS = (IOC_IN or IOC_VENDOR or 7);
{$EXTERNALSYM SIO_INDEX_BIND}
SIO_INDEX_BIND = (IOC_IN or IOC_VENDOR or 8);
{$EXTERNALSYM SIO_INDEX_MCASTIF}
SIO_INDEX_MCASTIF = (IOC_IN or IOC_VENDOR or 9);
{$EXTERNALSYM SIO_INDEX_ADD_MCAST}
SIO_INDEX_ADD_MCAST = (IOC_IN or IOC_VENDOR or 10);
{$EXTERNALSYM SIO_INDEX_DEL_MCAST}
SIO_INDEX_DEL_MCAST = (IOC_IN or IOC_VENDOR or 11);
// SIO_UDP_CONNRESET = _WSAIOW(IOC_VENDOR,12)
{$EXTERNALSYM SIO_RCVALL_MCAST_IF}
SIO_RCVALL_MCAST_IF = (IOC_IN or IOC_VENDOR or 13);
{$EXTERNALSYM SIO_RCVALL_IF}
SIO_RCVALL_IF = (IOC_IN or IOC_VENDOR or 14);
{$EXTERNALSYM SIO_LOOPBACK_FAST_PATH}
SIO_LOOPBACK_FAST_PATH = (IOC_IN or IOC_VENDOR or 16);
{$EXTERNALSYM SIO_TCP_INITIAL_RTO}
SIO_TCP_INITIAL_RTO = (IOC_IN or IOC_VENDOR or 17);
{$EXTERNALSYM SIO_APPLY_TRANSPORT_SETTING}
SIO_APPLY_TRANSPORT_SETTING = (IOC_IN or IOC_VENDOR or 19);
{$EXTERNALSYM SIO_QUERY_TRANSPORT_SETTING}
SIO_QUERY_TRANSPORT_SETTING = (IOC_IN or IOC_VENDOR or 20);
//
// Values for use with SIO_RCVALL* options
//
{$EXTERNALSYM RCVALL_MAX}
RCVALL_MAX = RCVALL_IPLEVEL;
//
// Parameters to configure the initial RTT.
//
{$EXTERNALSYM TCP_INITIAL_RTO_UNSPECIFIED_RTT}
TCP_INITIAL_RTO_UNSPECIFIED_RTT = USHORT(-1);
{$EXTERNALSYM TCP_INITIAL_RTO_UNSPECIFIED_MAX_SYN_RETRANSMISSIONS}
TCP_INITIAL_RTO_UNSPECIFIED_MAX_SYN_RETRANSMISSIONS = UCHAR(-1);
{$EXTERNALSYM TCP_INITIAL_RTO_DEFAULT_RTT}
TCP_INITIAL_RTO_DEFAULT_RTT = (0);
{$EXTERNALSYM TCP_INITIAL_RTO_DEFAULT_MAX_SYN_RETRANSMISSIONS}
TCP_INITIAL_RTO_DEFAULT_MAX_SYN_RETRANSMISSIONS = (0);
//
// TCP/UDP port management definitions.
//
{$EXTERNALSYM SIO_ACQUIRE_PORT_RESERVATION}
SIO_ACQUIRE_PORT_RESERVATION = (IOC_IN or IOC_VENDOR or 100);
{$EXTERNALSYM SIO_RELEASE_PORT_RESERVATION}
SIO_RELEASE_PORT_RESERVATION = (IOC_IN or IOC_VENDOR or 101);
{$EXTERNALSYM SIO_ASSOCIATE_PORT_RESERVATION}
SIO_ASSOCIATE_PORT_RESERVATION = (IOC_IN or IOC_VENDOR or 102);
{$EXTERNALSYM INVALID_PORT_RESERVATION_TOKEN}
INVALID_PORT_RESERVATION_TOKEN = ULONG64(0);
//
// Secure socket API type definitions.
//
{$EXTERNALSYM SIO_SET_SECURITY}
SIO_SET_SECURITY = (IOC_IN or IOC_VENDOR or 200);
{$EXTERNALSYM SIO_QUERY_SECURITY}
SIO_QUERY_SECURITY = (IOC_INOUT or IOC_VENDOR or 201);
{$EXTERNALSYM SIO_SET_PEER_TARGET_NAME}
SIO_SET_PEER_TARGET_NAME = (IOC_IN or IOC_VENDOR or 202);
{$EXTERNALSYM SIO_DELETE_PEER_TARGET_NAME}
SIO_DELETE_PEER_TARGET_NAME = (IOC_IN or IOC_VENDOR or 203);
//
// WFP Proxy Connection Tracking API type definitions.
//
{$EXTERNALSYM SIO_QUERY_WFP_CONNECTION_REDIRECT_RECORDS}
SIO_QUERY_WFP_CONNECTION_REDIRECT_RECORDS = (IOC_IN or IOC_VENDOR or 220);
{$EXTERNALSYM SIO_QUERY_WFP_CONNECTION_REDIRECT_CONTEXT}
SIO_QUERY_WFP_CONNECTION_REDIRECT_CONTEXT = (IOC_IN or IOC_VENDOR or 221);
{$EXTERNALSYM SIO_SET_WFP_CONNECTION_REDIRECT_RECORDS}
SIO_SET_WFP_CONNECTION_REDIRECT_RECORDS = (IOC_IN or IOC_VENDOR or 222);
{$EXTERNALSYM SIO_SOCKET_USAGE_NOTIFICATION}
SIO_SOCKET_USAGE_NOTIFICATION = (IOC_IN or IOC_VENDOR or 204);
// Flags for generic security settings
{$EXTERNALSYM SOCKET_SETTINGS_GUARANTEE_ENCRYPTION}
SOCKET_SETTINGS_GUARANTEE_ENCRYPTION = $1;
{$EXTERNALSYM SOCKET_SETTINGS_ALLOW_INSECURE}
SOCKET_SETTINGS_ALLOW_INSECURE = $2;
// Flags specific to IPsec security settings.
// NOTE: these flags must be specified under the
// SOCKET_SECURITY_SETTINGS_IPSEC->IpsecFlags field.
{$EXTERNALSYM SOCKET_SETTINGS_IPSEC_SKIP_FILTER_INSTANTIATION}
SOCKET_SETTINGS_IPSEC_SKIP_FILTER_INSTANTIATION = $1;
{$EXTERNALSYM SOCKET_SETTINGS_IPSEC_OPTIONAL_PEER_NAME_VERIFICATION}
SOCKET_SETTINGS_IPSEC_OPTIONAL_PEER_NAME_VERIFICATION = $2;
{$EXTERNALSYM SOCKET_SETTINGS_IPSEC_ALLOW_FIRST_INBOUND_PKT_UNENCRYPTED}
SOCKET_SETTINGS_IPSEC_ALLOW_FIRST_INBOUND_PKT_UNENCRYPTED = $4;
{$EXTERNALSYM SOCKET_SETTINGS_IPSEC_PEER_NAME_IS_RAW_FORMAT}
SOCKET_SETTINGS_IPSEC_PEER_NAME_IS_RAW_FORMAT = $8;
{$EXTERNALSYM SOCKET_QUERY_IPSEC2_ABORT_CONNECTION_ON_FIELD_CHANGE}
SOCKET_QUERY_IPSEC2_ABORT_CONNECTION_ON_FIELD_CHANGE = $1;
{$EXTERNALSYM SOCKET_QUERY_IPSEC2_FIELD_MASK_MM_SA_ID}
SOCKET_QUERY_IPSEC2_FIELD_MASK_MM_SA_ID = $1;
{$EXTERNALSYM SOCKET_QUERY_IPSEC2_FIELD_MASK_QM_SA_ID}
SOCKET_QUERY_IPSEC2_FIELD_MASK_QM_SA_ID = $2;
// Flags corresponding to the security query info
{$EXTERNALSYM SOCKET_INFO_CONNECTION_SECURED}
SOCKET_INFO_CONNECTION_SECURED = $1;
{$EXTERNALSYM SOCKET_INFO_CONNECTION_ENCRYPTED}
SOCKET_INFO_CONNECTION_ENCRYPTED = $2;
{$EXTERNALSYM SOCKET_INFO_CONNECTION_IMPERSONATED}
SOCKET_INFO_CONNECTION_IMPERSONATED = $4;
//
// WFP ALE endpoint handle query type definition
//
{$EXTERNALSYM SIO_QUERY_WFP_ALE_ENDPOINT_HANDLE}
SIO_QUERY_WFP_ALE_ENDPOINT_HANDLE = (IOC_OUT or IOC_VENDOR or 205);
//
// Scalability type definitions
//
{$EXTERNALSYM SIO_QUERY_RSS_SCALABILITY_INFO}
SIO_QUERY_RSS_SCALABILITY_INFO = (IOC_OUT or IOC_VENDOR or 210);
// GUID definition for use with Secure Sockets API
// aec2ef9c-3a4d-4d3e-8842-239942e39a47
{$EXTERNALSYM SOCKET_DEFAULT2_QM_POLICY}
SOCKET_DEFAULT2_QM_POLICY : TGuid = (D1:$aec2ef9c;D2:$3a4d;D3:$4d3e;D4:($88,$42,$23,$99,$42,$e3,$9a,$47));
// GUID definition for use with Real Time Notification setting API.
// 6b59819a-5cae-492d-a901-2a3c2c50164f
{$EXTERNALSYM REAL_TIME_NOTIFICATION_CAPABILITY)}
REAL_TIME_NOTIFICATION_CAPABILITY : TGuid = (D1:$6b59819a;D2:$5cae;D3:$492d;D4:($a9, $01, $2a, $3c, $2c, $50, $16, $4f));
//
// Microsoft-specific IPv4 definitions.
//
{$EXTERNALSYM IN4ADDR_ANY}
IN4ADDR_ANY = INADDR_ANY;
{$EXTERNALSYM IN4ADDR_LOOPBACK}
IN4ADDR_LOOPBACK = $0100007f;
{$EXTERNALSYM IN4ADDR_BROADCAST}
IN4ADDR_BROADCAST = INADDR_BROADCAST;
{$EXTERNALSYM IN4ADDR_NONE}
IN4ADDR_NONE = INADDR_NONE;
{$EXTERNALSYM IN4ADDR_ANY_INIT}
function IN4ADDR_ANY_INIT: TInAddr;
{$EXTERNALSYM IN4ADDR_LOOPBACK_INIT}
function IN4ADDR_LOOPBACK_INIT: TInAddr;
{$EXTERNALSYM IN4ADDR_BROADCAST_INIT}
function IN4ADDR_BROADCAST_INIT: TInAddr;
{$EXTERNALSYM IN4ADDR_ALLNODESONLINK_INIT}
function IN4ADDR_ALLNODESONLINK_INIT: TInAddr;
{$EXTERNALSYM IN4ADDR_ALLROUTERSONLINK_INIT}
function IN4ADDR_ALLROUTERSONLINK_INIT: TInAddr;
{$EXTERNALSYM IN4ADDR_ALLIGMPV3ROUTERSONLINK_INIT}
function IN4ADDR_ALLIGMPV3ROUTERSONLINK_INIT: TInAddr;
{$EXTERNALSYM IN4ADDR_ALLTEREDONODESONLINK_INIT}
function IN4ADDR_ALLTEREDONODESONLINK_INIT: TInAddr;
{$EXTERNALSYM IN4ADDR_LINKLOCALPREFIX_INIT}
function IN4ADDR_LINKLOCALPREFIX_INIT: TInAddr;
{$EXTERNALSYM IN4ADDR_MULTICASTPREFIX_INIT}
function IN4ADDR_MULTICASTPREFIX_INIT: TInAddr;
const
{$EXTERNALSYM IN4ADDR_LOOPBACKPREFIX_LENGTH}
IN4ADDR_LOOPBACKPREFIX_LENGTH = 8;
{$EXTERNALSYM IN4ADDR_LINKLOCALPREFIX_LENGTH}
IN4ADDR_LINKLOCALPREFIX_LENGTH = 16;
{$EXTERNALSYM IN4ADDR_MULTICASTPREFIX_LENGTH}
IN4ADDR_MULTICASTPREFIX_LENGTH = 4;
{$EXTERNALSYM IN6ADDR_LINKLOCALPREFIX_LENGTH}
IN6ADDR_LINKLOCALPREFIX_LENGTH = 64;
{$EXTERNALSYM IN6ADDR_SOLICITEDNODEMULTICASTPREFIX_LENGTH}
IN6ADDR_SOLICITEDNODEMULTICASTPREFIX_LENGTH = 104;
{$EXTERNALSYM IN6ADDR_V4MAPPEDPREFIX_LENGTH}
IN6ADDR_V4MAPPEDPREFIX_LENGTH = 96;
{$EXTERNALSYM IN6ADDR_6TO4PREFIX_LENGTH}
IN6ADDR_6TO4PREFIX_LENGTH = 16;
{$EXTERNALSYM IN6ADDR_TEREDOPREFIX_LENGTH}
IN6ADDR_TEREDOPREFIX_LENGTH = 32;
//=============================================================
implementation
//=============================================================
uses
IdResourceStrings
{$IFDEF HAS_AnsiStrings_StrLen}, AnsiStrings{$ENDIF}
;
// (c) March 2001, "Alex Konshin"<alexk@mtgroup.ru>
var
hWinSockDll : THandle = 0; // WS2_32.DLL handle
{$IFNDEF WINCE}
hMSWSockDll : THandle = 0; // MSWSOCK.DLL handle
{$ENDIF}
function WinsockHandle : THandle;
begin
Result := hWinSockDll;
end;
function Winsock2Loaded : Boolean;
begin
Result := hWinSockDll <> 0;
end;
procedure InitializeWinSock;
var
LData: TWSAData;
LError: DWORD;
begin
if hWinSockDll = 0 then begin
hWinSockDll := SafeLoadLibrary(WINSOCK2_DLL);
if hWinSockDll <> 0 then begin
LError := WSAStartup($202, LData);
if LError = 0 then begin
Exit;
end;
Windows.FreeLibrary(hWinSockDll);
hWinSockDll := 0;
end else begin
LError := Windows.GetLastError;
end;
raise EIdWinsockStubError.Build(LError, RSWinsockLoadError, [WINSOCK2_DLL]);
end;
end;
{$IFNDEF WINCE}
procedure LoadMSWSock;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if hMSWSockDll = 0 then begin
hMSWSockDll := SafeLoadLibrary(MSWSOCK_DLL);
if hMSWSockDll = 0 then begin
raise EIdWinsockStubError.Build(Windows.GetLastError, RSWinsockLoadError, [MSWSOCK_DLL]);
end;
end;
end;
{$ENDIF}
procedure UninitializeWinSock;
begin
{$IFNDEF WINCE}
if hMSWSockDll <> 0 then
begin
FreeLibrary(hMSWSockDll);
hMSWSockDll := 0;
end;
{$ENDIF}
if hWinSockDll <> 0 then
begin
WSACleanup;
FreeLibrary(hWinSockDll);
hWinSockDll := 0;
end;
end;
constructor EIdWinsockStubError.Build(AWin32Error: DWORD; const ATitle: String; AArgs: array of const);
begin
FTitle := IndyFormat(ATitle, AArgs);
FWin32Error := AWin32Error;
if AWin32Error = 0 then begin
inherited Create(FTitle);
end else
begin
FWin32ErrorMessage := SysUtils.SysErrorMessage(AWin32Error);
inherited Create(FTitle + ': ' + FWin32ErrorMessage); {Do not Localize}
end;
end;
{ IMPORTANT!!!
WindowsCE only has a Unicode (WideChar) version of GetProcAddress. We could use
a version of GetProcAddress in the FreePascal dynlibs unit but that does a
conversion from ASCII to Unicode which might not be necessary since most calls
pass a constant anyway.
}
function FixupStub(hDll: THandle; const AName:{$IFDEF WINCE}TIdUnicodeString{$ELSE}string{$ENDIF}): Pointer;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if hDll = 0 then begin
raise EIdWinsockStubError.Build(WSANOTINITIALISED, RSWinsockCallError, [AName]);
end;
Result := Windows.GetProcAddress(hDll, {$IFDEF WINCE}PWideChar{$ELSE}PChar{$ENDIF}(AName));
if Result = nil then begin
raise EIdWinsockStubError.Build(WSAEINVAL, RSWinsockCallError, [AName]);
end;
end;
function FixupStubEx(hSocket: TSocket; const AName: string; const AGuid: TGUID): Pointer;
var
LBytesSend: DWORD;
begin
// RLebeau: in XE4+, PDWORD is NOT defined as ^DWORD, so we have to use a type-cast!
if WSAIoctl(hSocket, SIO_GET_EXTENSION_FUNCTION_POINTER, @AGuid, DWORD(SIZE_GUID),
@Result, SIZE_FARPROC, PDWORD(@LBytesSend), nil, nil) <> 0 then
begin
raise EIdWinsockStubError.Build(WSAGetLastError, RSWinsockCallError, [AName]);
end;
end;
function Stub_WSAStartup(const wVersionRequired: word; out WSData: TWSAData): Integer; stdcall;
begin
@WSAStartup := FixupStub(hWinSockDll, 'WSAStartup'); {Do not Localize}
Result := WSAStartup(wVersionRequired, WSData);
end;
function Stub_WSACleanup: Integer; stdcall;
begin
@WSACleanup := FixupStub(hWinSockDll, 'WSACleanup'); {Do not Localize}
Result := WSACleanup;
end;
function Stub_accept(const s: TSocket; AAddr: PSockAddr; addrlen: PInteger): TSocket; stdcall;
begin
@accept := FixupStub(hWinSockDll, 'accept'); {Do not Localize}
Result := accept(s, AAddr, addrlen);
end;
function Stub_bind(const s: TSocket; const name: PSockAddr; const namelen: Integer): Integer; stdcall;
begin
@bind := FixupStub(hWinSockDll, 'bind'); {Do not Localize}
Result := bind(s, name, namelen);
end;
function Stub_closesocket(const s: TSocket): Integer; stdcall;
begin
@closesocket := FixupStub(hWinSockDll, 'closesocket'); {Do not Localize}
Result := closesocket(s);
end;
function Stub_connect(const s: TSocket; const name: PSockAddr; const namelen: Integer): Integer; stdcall;
begin
@connect := FixupStub(hWinSockDll, 'connect'); {Do not Localize}
Result := connect(s, name, namelen);
end;
function Stub_ioctlsocket(const s: TSocket; const cmd: DWORD; var arg: u_long): Integer; stdcall;
begin
@ioctlsocket := FixupStub(hWinSockDll, 'ioctlsocket'); {Do not Localize}
Result := ioctlsocket(s, cmd, arg);
end;
function Stub_getpeername(const s: TSocket; const name: PSockAddr; var namelen: Integer): Integer; stdcall;
begin
@getpeername := FixupStub(hWinSockDll, 'getpeername'); {Do not Localize}
Result := getpeername(s, name, namelen);
end;
function Stub_getsockname(const s: TSocket; const name: PSockAddr; var namelen: Integer): Integer; stdcall;
begin
@getsockname := FixupStub(hWinSockDll, 'getsockname'); {Do not Localize}
Result := getsockname(s, name, namelen);
end;
function Stub_getsockopt(const s: TSocket; const level, optname: Integer; optval: PAnsiChar; var optlen: Integer): Integer; stdcall;
begin
@getsockopt := FixupStub(hWinSockDll, 'getsockopt'); {Do not Localize}
Result := getsockopt(s, level, optname, optval, optlen);
end;
function Stub_htonl(hostlong: u_long): u_long; stdcall;
begin
@htonl := FixupStub(hWinSockDll, 'htonl'); {Do not Localize}
Result := htonl(hostlong);
end;
function Stub_htons(hostshort: u_short): u_short; stdcall;
begin
@htons := FixupStub(hWinSockDll, 'htons'); {Do not Localize}
Result := htons(hostshort);
end;
function Stub_inet_addr(cp: PAnsiChar): u_long; stdcall;
begin
@inet_addr := FixupStub(hWinSockDll, 'inet_addr'); {Do not Localize}
Result := inet_addr(cp);
end;
function Stub_inet_ntoa(inaddr: TInAddr): PAnsiChar; stdcall;
begin
@inet_ntoa := FixupStub(hWinSockDll, 'inet_ntoa'); {Do not Localize}
Result := inet_ntoa(inaddr);
end;
function Stub_listen(const s: TSocket; backlog: Integer): Integer; stdcall;
begin
@listen := FixupStub(hWinSockDll, 'listen'); {Do not Localize}
Result := listen(s, backlog);
end;
function Stub_ntohl(netlong: u_long): u_long; stdcall;
begin
@ntohl := FixupStub(hWinSockDll, 'ntohl'); {Do not Localize}
Result := ntohl(netlong);
end;
function Stub_ntohs(netshort: u_short): u_short; stdcall;
begin
@ntohs := FixupStub(hWinSockDll, 'ntohs'); {Do not Localize}
Result := ntohs(netshort);
end;
function Stub_recv(const s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
begin
@recv := FixupStub(hWinSockDll, 'recv'); {Do not Localize}
Result := recv(s, Buf, len, flags);
end;
function Stub_recvfrom(const s: TSocket; var Buf; len, flags: Integer; from: PSockAddr; fromlen: PInteger): Integer; stdcall;
begin
@recvfrom := FixupStub(hWinSockDll, 'recvfrom'); {Do not Localize}
Result := recvfrom(s, Buf, len, flags, from, fromlen);
end;
function Stub_select(nfds: Integer; readfds, writefds, exceptfds: PFDSet; timeout: PTimeVal): Integer; stdcall;
begin
@select := FixupStub(hWinSockDll, 'select'); {Do not Localize}
Result := select(nfds, readfds, writefds, exceptfds, timeout);
end;
function Stub_send(const s: TSocket; const Buf; len, flags: Integer): Integer; stdcall;
begin
@send := FixupStub(hWinSockDll, 'send'); {Do not Localize}
Result := send(s, Buf, len, flags);
end;
function Stub_sendto(const s: TSocket; const Buf; const len, flags: Integer; const addrto: PSockAddr; const tolen: Integer): Integer; stdcall;
begin
@sendto := FixupStub(hWinSockDll, 'sendto'); {Do not Localize}
Result := sendto(s, Buf, len, flags, addrto, tolen);
end;
function Stub_setsockopt(const s: TSocket; const level, optname: Integer; optval: PAnsiChar; const optlen: Integer): Integer; stdcall;
begin
@setsockopt := FixupStub(hWinSockDll, 'setsockopt'); {Do not Localize}
Result := setsockopt(s, level, optname, optval, optlen);
end;
function Stub_shutdown(const s: TSocket; const how: Integer): Integer; stdcall;
begin
@shutdown := FixupStub(hWinSockDll, 'shutdown'); {Do not Localize}
Result := shutdown(s, how);
end;
function Stub_socket(const af, istruct, protocol: Integer): TSocket; stdcall;
begin
@socket := FixupStub(hWinSockDll, 'socket'); {Do not Localize}
Result := socket(af, istruct, protocol);
end;
function Stub_gethostbyaddr(AAddr: Pointer; const len, addrtype: Integer): PHostEnt; stdcall;
begin
@gethostbyaddr := FixupStub(hWinSockDll, 'gethostbyaddr'); {Do not Localize}
Result := gethostbyaddr(AAddr, len, addrtype);
end;
function Stub_gethostbyname(name: PAnsiChar): PHostEnt; stdcall;
begin
@gethostbyname := FixupStub(hWinSockDll, 'gethostbyname'); {Do not Localize}
Result := gethostbyname(name);
end;
{$IFDEF WINCE}
function Stub_sethostname(pName : PAnsiChar; cName : Integer) : Integer; stdcall;
begin
@sethostname := FixupStub(hWinSockDll, 'sethostname'); {Do not Localize}
Result := sethostname(pName, cName);
end;
{$ENDIF}
function Stub_gethostname(name: PAnsiChar; len: Integer): Integer; stdcall;
begin
@gethostname := FixupStub(hWinSockDll, 'gethostname'); {Do not Localize}
Result := gethostname(name, len);
end;
function Stub_getservbyport(const port: Integer; const proto: PAnsiChar): PServEnt; stdcall;
begin
@getservbyport := FixupStub(hWinSockDll, 'getservbyport'); {Do not Localize}
Result := getservbyport(port, proto);
end;
function Stub_getservbyname(const name, proto: PAnsiChar): PServEnt; stdcall;
begin
@getservbyname := FixupStub(hWinSockDll, 'getservbyname'); {Do not Localize}
Result := getservbyname(name, proto);
end;
function Stub_getprotobynumber(const proto: Integer): PProtoEnt; stdcall;
begin
@getprotobynumber := FixupStub(hWinSockDll, 'getprotobynumber'); {Do not Localize}
Result := getprotobynumber(proto);
end;
function Stub_getprotobyname(const name: PAnsiChar): PProtoEnt; stdcall;
begin
@getprotobyname := FixupStub(hWinSockDll, 'getprotobyname'); {Do not Localize}
Result := getprotobyname(name);
end;
procedure Stub_WSASetLastError(const iError: Integer); stdcall;
begin
@WSASetLastError := FixupStub(hWinSockDll, 'WSASetLastError'); {Do not Localize}
WSASetLastError(iError);
end;
function Stub_WSAGetLastError: Integer; stdcall;
begin
@WSAGetLastError := FixupStub(hWinSockDll, 'WSAGetLastError'); {Do not Localize}
Result := WSAGetLastError;
end;
{$IFNDEF WINCE}
function Stub_WSAIsBlocking: BOOL; stdcall;
begin
@WSAIsBlocking := FixupStub(hWinSockDll, 'WSAIsBlocking'); {Do not Localize}
Result := WSAIsBlocking;
end;
function Stub_WSAUnhookBlockingHook: Integer; stdcall;
begin
@WSAUnhookBlockingHook := FixupStub(hWinSockDll, 'WSAUnhookBlockingHook'); {Do not Localize}
Result := WSAUnhookBlockingHook;
end;
function Stub_WSASetBlockingHook(lpBlockFunc: TFarProc): TFarProc; stdcall;
begin
@WSASetBlockingHook := FixupStub(hWinSockDll, 'WSASetBlockingHook'); {Do not Localize}
Result := WSASetBlockingHook(lpBlockFunc);
end;
function Stub_WSACancelBlockingCall: Integer; stdcall;
begin
@WSACancelBlockingCall := FixupStub(hWinSockDll, 'WSACancelBlockingCall'); {Do not Localize}
Result := WSACancelBlockingCall;
end;
function Stub_WSAAsyncGetServByName(HWindow: HWND; wMsg: u_int; name, proto, buf: PAnsiChar; buflen: Integer): THandle; stdcall;
begin
@WSAAsyncGetServByName := FixupStub(hWinSockDll, 'WSAAsyncGetServByName'); {Do not Localize}
Result := WSAAsyncGetServByName(HWindow, wMsg, name, proto, buf, buflen);
end;
function Stub_WSAAsyncGetServByPort(HWindow: HWND; wMsg, port: u_int; proto, buf: PAnsiChar; buflen: Integer): THandle; stdcall;
begin
@WSAAsyncGetServByPort := FixupStub(hWinSockDll, 'WSAAsyncGetServByPort'); {Do not Localize}
Result := WSAAsyncGetServByPort(HWindow, wMsg, port, proto, buf, buflen);
end;
function Stub_WSAAsyncGetProtoByName(HWindow: HWND; wMsg: u_int; name, buf: PAnsiChar; buflen: Integer): THandle; stdcall;
begin
@WSAAsyncGetProtoByName := FixupStub(hWinSockDll, 'WSAAsyncGetProtoByName'); {Do not Localize}
Result := WSAAsyncGetProtoByName(HWindow, wMsg, name, buf, buflen);
end;
function Stub_WSAAsyncGetProtoByNumber(HWindow: HWND; wMsg: u_int; number: Integer; buf: PAnsiChar; buflen: Integer): THandle; stdcall;
begin
@WSAAsyncGetProtoByNumber := FixupStub(hWinSockDll, 'WSAAsyncGetProtoByNumber'); {Do not Localize}
Result := WSAAsyncGetProtoByNumber(HWindow, wMsg, number, buf, buflen);
end;
function Stub_WSAAsyncGetHostByName(HWindow: HWND; wMsg: u_int; name, buf: PAnsiChar; buflen: Integer): THandle; stdcall;
begin
@WSAAsyncGetHostByName := FixupStub(hWinSockDll, 'WSAAsyncGetHostByName'); {Do not Localize}
Result := WSAAsyncGetHostByName(HWindow, wMsg, name, buf, buflen);
end;
function Stub_WSAAsyncGetHostByAddr(HWindow: HWND; wMsg: u_int; AAddr: PAnsiChar; len, istruct: Integer; buf: PAnsiChar; buflen: Integer): THandle; stdcall;
begin
@WSAAsyncGetHostByAddr := FixupStub(hWinSockDll, 'WSAAsyncGetHostByAddr'); {Do not Localize}
Result := WSAAsyncGetHostByAddr(HWindow, wMsg, AAddr, len, istruct, buf, buflen);
end;
function Stub_WSACancelAsyncRequest(hAsyncTaskHandle: THandle): Integer; stdcall;
begin
@WSACancelAsyncRequest := FixupStub(hWinSockDll, 'WSACancelAsyncRequest'); {Do not Localize}
Result := WSACancelAsyncRequest(hAsyncTaskHandle);
end;
function Stub_WSAAsyncSelect(const s: TSocket; HWindow: HWND; wMsg: u_int; lEvent: Longint): Integer; stdcall;
begin
@WSAAsyncSelect := FixupStub(hWinSockDll, 'WSAAsyncSelect'); {Do not Localize}
Result := WSAAsyncSelect(s, HWindow, wMsg, lEvent);
end;
{$ENDIF}
function Stub___WSAFDIsSet(const s: TSocket; var FDSet: TFDSet): Bool; stdcall;
begin
@__WSAFDIsSet := FixupStub(hWinSockDll, '__WSAFDIsSet'); {Do not Localize}
Result := __WSAFDIsSet(s, FDSet);
end;
function Stub_WSAAccept(const s: TSocket; AAddr: PSockAddr; addrlen: PInteger; lpfnCondition: LPCONDITIONPROC; const dwCallbackData: DWORD): TSocket; stdcall;
begin
@WSAAccept := FixupStub(hWinSockDll, 'WSAAccept'); {Do not Localize}
Result := WSAAccept(s, AAddr, addrlen, lpfnCondition, dwCallbackData);
end;
function Stub_WSACloseEvent(const hEvent: wsaevent): WordBool; stdcall;
begin
@WSACloseEvent := FixupStub(hWinSockDll, 'WSACloseEvent'); {Do not Localize}
Result := WSACloseEvent(hEvent);
end;
function Stub_WSAConnect(const s: TSocket; const name: PSockAddr; const namelen: Integer; lpCallerData, lpCalleeData: LPWSABUF; lpSQOS, lpGQOS: LPQOS): Integer; stdcall;
begin
@WSAConnect := FixupStub(hWinSockDll, 'WSAConnect'); {Do not Localize}
Result := WSAConnect(s, name, namelen, lpCallerData, lpCalleeData, lpSQOS, lpGQOS);
end;
function Stub_WSACreateEvent: wsaevent; stdcall;
begin
@WSACreateEvent := FixupStub(hWinSockDll, 'WSACreateEvent'); {Do not Localize}
Result := WSACreateEvent;
end;
{$IFNDEF WINCE}
function Stub_WSADuplicateSocketA(const s: TSocket; const dwProcessId: DWORD; lpProtocolInfo: LPWSAPROTOCOL_INFOA): Integer; stdcall;
begin
@WSADuplicateSocketA := FixupStub(hWinSockDll, 'WSADuplicateSocketA'); {Do not Localize}
Result := WSADuplicateSocketA(s, dwProcessId, lpProtocolInfo);
end;
function Stub_WSADuplicateSocketW(const s: TSocket; const dwProcessId: DWORD; lpProtocolInfo: LPWSAPROTOCOL_INFOW): Integer; stdcall;
begin
@WSADuplicateSocketW := FixupStub(hWinSockDll, 'WSADuplicateSocketW'); {Do not Localize}
Result := WSADuplicateSocketW(s, dwProcessId, lpProtocolInfo);
end;
function Stub_WSADuplicateSocket(const s: TSocket; const dwProcessId: DWORD; lpProtocolInfo: LPWSAPROTOCOL_INFO): Integer; stdcall;
begin
{$IFDEF UNICODE}
@WSADuplicateSocket := FixupStub(hWinSockDll, 'WSADuplicateSocketW'); {Do not Localize}
{$ELSE}
@WSADuplicateSocket := FixupStub(hWinSockDll, 'WSADuplicateSocketA'); {Do not Localize}
{$ENDIF}
Result := WSADuplicateSocket(s, dwProcessId, lpProtocolInfo);
end;
{$ENDIF}
function Stub_WSAEnumNetworkEvents(const s: TSocket; const hEventObject: WSAEVENT; lpNetworkEvents: LPWSANETWORKEVENTS): Integer; stdcall;
begin
@WSAEnumNetworkEvents := FixupStub(hWinSockDll, 'WSAEnumNetworkEvents'); {Do not Localize}
Result := WSAEnumNetworkEvents(s, hEventObject, lpNetworkEvents);
end;
function Stub_WSAEnumProtocolsA(lpiProtocols: PInteger; lpProtocolBuffer: LPWSAPROTOCOL_INFOA; var lpdwBufferLength: DWORD): Integer; stdcall;
begin
@WSAEnumProtocolsA := FixupStub(hWinSockDll, 'WSAEnumProtocolsA'); {Do not Localize}
Result := WSAEnumProtocolsA(lpiProtocols, lpProtocolBuffer, lpdwBufferLength);
end;
function Stub_WSAEnumProtocolsW(lpiProtocols: PInteger; lpProtocolBuffer: LPWSAPROTOCOL_INFOW; var lpdwBufferLength: DWORD): Integer; stdcall;
begin
@WSAEnumProtocolsW := FixupStub(hWinSockDll, 'WSAEnumProtocolsW'); {Do not Localize}
Result := WSAEnumProtocolsW(lpiProtocols, lpProtocolBuffer, lpdwBufferLength);
end;
function Stub_WSAEnumProtocols(lpiProtocols: PInteger; lpProtocolBuffer: LPWSAPROTOCOL_INFO; var lpdwBufferLength: DWORD): Integer; stdcall;
begin
{$IFDEF UNICODE}
@WSAEnumProtocols := FixupStub(hWinSockDll, 'WSAEnumProtocolsW'); {Do not Localize}
{$ELSE}
@WSAEnumProtocols := FixupStub(hWinSockDll, 'WSAEnumProtocolsA'); {Do not Localize}
{$ENDIF}
Result := WSAEnumProtocols(lpiProtocols, lpProtocolBuffer, lpdwBufferLength);
end;
function Stub_WSAEventSelect(const s: TSocket; const hEventObject: WSAEVENT; lNetworkEvents: LongInt): Integer; stdcall;
begin
@WSAEventSelect := FixupStub(hWinSockDll, 'WSAEventSelect'); {Do not Localize}
Result := WSAEventSelect(s, hEventObject, lNetworkEvents);
end;
function Stub_WSAGetOverlappedResult(const s: TSocket; AOverlapped: Pointer; lpcbTransfer: LPDWORD; fWait: BOOL; var lpdwFlags: DWORD): WordBool; stdcall;
begin
@WSAGetOverlappedResult := FixupStub(hWinSockDll, 'WSAGetOverlappedResult'); {Do not Localize}
Result := WSAGetOverlappedResult(s, AOverlapped, lpcbTransfer, fWait, lpdwFlags);
end;
{$IFNDEF WINCE}
function Stub_WSAGetQOSByName(const s: TSocket; lpQOSName: LPWSABUF; lpQOS: LPQOS): WordBool; stdcall;
begin
@WSAGetQOSByName := FixupStub(hWinSockDll, 'WSAGetQOSByName'); {Do not Localize}
Result := WSAGetQOSByName(s, lpQOSName, lpQOS);
end;
{$ENDIF}
function Stub_WSAHtonl(const s: TSocket; hostlong: u_long; var lpnetlong: DWORD): Integer; stdcall;
begin
@WSAHtonl := FixupStub(hWinSockDll, 'WSAHtonl'); {Do not Localize}
Result := WSAHtonl(s, hostlong, lpnetlong);
end;
function Stub_WSAHtons(const s: TSocket; hostshort: u_short; var lpnetshort: WORD): Integer; stdcall;
begin
@WSAHtons := FixupStub(hWinSockDll, 'WSAHtons'); {Do not Localize}
Result := WSAHtons(s, hostshort, lpnetshort);
end;
function Stub_WSAIoctl(const s: TSocket; dwIoControlCode: DWORD; lpvInBuffer: Pointer; cbInBuffer: DWORD; lpvOutBuffer: Pointer; cbOutBuffer: DWORD; lpcbBytesReturned: LPDWORD; AOverlapped: Pointer; lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
begin
@WSAIoctl := FixupStub(hWinSockDll, 'WSAIoctl'); {Do not Localize}
Result := WSAIoctl(s, dwIoControlCode, lpvInBuffer, cbInBuffer, lpvOutBuffer, cbOutBuffer, lpcbBytesReturned, AOverlapped, lpCompletionRoutine);
end;
function Stub_WSAJoinLeaf(const s: TSocket; name: PSockAddr; namelen: Integer; lpCallerData, lpCalleeData: LPWSABUF; lpSQOS, lpGQOS: LPQOS; dwFlags: DWORD): TSocket; stdcall;
begin
@WSAJoinLeaf := FixupStub(hWinSockDll, 'WSAJoinLeaf'); {Do not Localize}
Result := WSAJoinLeaf(s, name, namelen, lpCallerData, lpCalleeData, lpSQOS, lpGQOS, dwFlags);
end;
function Stub_WSANtohl(const s: TSocket; netlong: u_long; var lphostlong: DWORD): Integer; stdcall;
begin
@WSANtohl := FixupStub(hWinSockDll, 'WSANtohl'); {Do not Localize}
Result := WSANtohl(s, netlong, lphostlong);
end;
function Stub_WSANtohs(const s: TSocket; netshort: u_short; var lphostshort: WORD): Integer; stdcall;
begin
@WSANtohs := FixupStub(hWinSockDll, 'WSANtohs'); {Do not Localize}
Result := WSANtohs(s, netshort, lphostshort);
end;
function Stub_WSARecv(const s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD; var lpNumberOfBytesRecvd: DWORD; var lpFlags: DWORD; AOverlapped: LPWSAOVERLAPPED; lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
begin
@WSARecv := FixupStub(hWinSockDll, 'WSARecv'); {Do not Localize}
Result := WSARecv(s, lpBuffers, dwBufferCount, lpNumberOfBytesRecvd, lpFlags, AOverlapped, lpCompletionRoutine);
end;
function Stub_WSARecvDisconnect(const s: TSocket; lpInboundDisconnectData: LPWSABUF): Integer; stdcall;
begin
@WSARecvDisconnect := FixupStub(hWinSockDll, 'WSARecvDisconnect'); {Do not Localize}
Result := WSARecvDisconnect(s, lpInboundDisconnectData);
end;
function Stub_WSARecvFrom(const s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD; var lpNumberOfBytesRecvd: DWORD; var lpFlags: DWORD; lpFrom: PSockAddr; lpFromlen: PInteger; AOverlapped: Pointer; lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
begin
@WSARecvFrom := FixupStub(hWinSockDll, 'WSARecvFrom'); {Do not Localize}
Result := WSARecvFrom(s, lpBuffers, dwBufferCount, lpNumberOfBytesRecvd, lpFlags, lpFrom, lpFromlen, AOverlapped, lpCompletionRoutine);
end;
function Stub_WSAResetEvent(hEvent: wsaevent): WordBool; stdcall;
begin
@WSAResetEvent := FixupStub(hWinSockDll, 'WSAResetEvent'); {Do not Localize}
Result := WSAResetEvent(hEvent);
end;
function Stub_WSASend(const s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD; var lpNumberOfBytesSent: DWORD; dwFlags: DWORD; AOverlapped: LPWSAOVERLAPPED; lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
begin
@WSASend := FixupStub(hWinSockDll, 'WSASend'); {Do not Localize}
Result := WSASend(s, lpBuffers, dwBufferCount, lpNumberOfBytesSent, dwFlags, AOverlapped, lpCompletionRoutine);
end;
{$IFNDEF WINCE}
function Stub_WSASendDisconnect(const s: TSocket; lpOutboundDisconnectData: LPWSABUF): Integer; stdcall;
begin
@WSASendDisconnect := FixupStub(hWinSockDll, 'WSASendDisconnect'); {Do not Localize}
Result := WSASendDisconnect(s, lpOutboundDisconnectData);
end;
{$ENDIF}
function Stub_WSASendTo(const s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD; var lpNumberOfBytesSent: DWORD; dwFlags: DWORD; lpTo: PSOCKADDR; iTolen: Integer; AOverlapped: LPWSAOVERLAPPED; lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
begin
@WSASendTo := FixupStub(hWinSockDll, 'WSASendTo'); {Do not Localize}
Result := WSASendTo(s, lpBuffers, dwBufferCount, lpNumberOfBytesSent, dwFlags, lpTo, iTolen, AOverlapped, lpCompletionRoutine);
end;
function Stub_WSASetEvent(hEvent: WSAEVENT): WordBool; stdcall;
begin
@WSASetEvent := FixupStub(hWinSockDll, 'WSASetEvent'); {Do not Localize}
Result := WSASetEvent(hEvent);
end;
function Stub_WSASocketA(af, iType, protocol: Integer; lpProtocolInfo: LPWSAPROTOCOL_INFOA; g: GROUP; dwFlags: DWORD): TSocket; stdcall;
begin
@WSASocketA := FixupStub(hWinSockDll, 'WSASocketA'); {Do not Localize}
Result := WSASocketA(af, iType, protocol, lpProtocolInfo, g, dwFlags);
end;
function Stub_WSASocketW(af, iType, protocol: Integer; lpProtocolInfo: LPWSAPROTOCOL_INFOW; g: GROUP; dwFlags: DWORD): TSocket; stdcall;
begin
@WSASocketW := FixupStub(hWinSockDll, 'WSASocketW'); {Do not Localize}
Result := WSASocketW(af, iType, protocol, lpProtocolInfo, g, dwFlags);
end;
function Stub_WSASocket(af, iType, protocol: Integer; lpProtocolInfo: LPWSAPROTOCOL_INFO; g: GROUP; dwFlags: DWORD): TSocket; stdcall;
begin
{$IFDEF UNICODE}
@WSASocket := FixupStub(hWinSockDll, 'WSASocketW'); {Do not Localize}
{$ELSE}
@WSASocket := FixupStub(hWinSockDll, 'WSASocketA'); {Do not Localize}
{$ENDIF}
Result := WSASocket(af, iType, protocol, lpProtocolInfo, g, dwFlags);
end;
function Stub_WSAWaitForMultipleEvents(cEvents: DWORD; lphEvents: Pwsaevent; fWaitAll: LongBool; dwTimeout: DWORD; fAlertable: LongBool): DWORD; stdcall;
begin
@WSAWaitForMultipleEvents := FixupStub(hWinSockDll, 'WSAWaitForMultipleEvents'); {Do not Localize}
Result := WSAWaitForMultipleEvents(cEvents, lphEvents, fWaitAll, dwTimeout, fAlertable);
end;
function Stub_WSAAddressToStringA(lpsaAddress: PSockAddr; const dwAddressLength: DWORD; const lpProtocolInfo: LPWSAPROTOCOL_INFOA; const lpszAddressString: PAnsiChar; var lpdwAddressStringLength: DWORD): Integer; stdcall;
begin
@WSAAddressToStringA := FixupStub(hWinSockDll, 'WSAAddressToStringA'); {Do not Localize}
Result := WSAAddressToStringA(lpsaAddress, dwAddressLength, lpProtocolInfo, lpszAddressString, lpdwAddressStringLength);
end;
function Stub_WSAAddressToStringW(lpsaAddress: PSockAddr; const dwAddressLength: DWORD; const lpProtocolInfo: LPWSAPROTOCOL_INFOW; const lpszAddressString: PWideChar; var lpdwAddressStringLength: DWORD): Integer; stdcall;
begin
@WSAAddressToStringW := FixupStub(hWinSockDll, 'WSAAddressToStringW'); {Do not Localize}
Result := WSAAddressToStringW(lpsaAddress, dwAddressLength, lpProtocolInfo, lpszAddressString, lpdwAddressStringLength);
end;
function Stub_WSAAddressToString(lpsaAddress: PSockAddr; const dwAddressLength: DWORD; const lpProtocolInfo: LPWSAPROTOCOL_INFO;
const lpszAddressString: {$IFDEF UNICODE}PWideChar{$ELSE}PAnsiChar{$ENDIF}; var lpdwAddressStringLength: DWORD): Integer; stdcall;
begin
{$IFDEF UNICODE}
@WSAAddressToString := FixupStub(hWinSockDll, 'WSAAddressToStringW'); {Do not Localize}
{$ELSE}
@WSAAddressToString := FixupStub(hWinSockDll, 'WSAAddressToStringA'); {Do not Localize}
{$ENDIF}
Result := WSAAddressToString(lpsaAddress, dwAddressLength, lpProtocolInfo, lpszAddressString, lpdwAddressStringLength);
end;
function Stub_WSAStringToAddressA(const AddressString: PAnsiChar; const AddressFamily: Integer; const lpProtocolInfo: LPWSAPROTOCOL_INFOA; var lpAddress: TSockAddr; var lpAddressLength: Integer): Integer; stdcall;
begin
@WSAStringToAddressA := FixupStub(hWinSockDll, 'WSAStringToAddressA'); {Do not Localize}
Result := WSAStringToAddressA(AddressString, AddressFamily, lpProtocolInfo, lpAddress, lpAddressLength);
end;
function Stub_WSAStringToAddressW(const AddressString: PWideChar; const AddressFamily: Integer; const lpProtocolInfo: LPWSAPROTOCOL_INFOW; var lpAddress: TSockAddr; var lpAddressLength: Integer): Integer; stdcall;
begin
@WSAStringToAddressW := FixupStub(hWinSockDll, 'WSAStringToAddressW'); {Do not Localize}
Result := WSAStringToAddressW(AddressString, AddressFamily, lpProtocolInfo, lpAddress, lpAddressLength);
end;
function Stub_WSAStringToAddress (const AddressString: {$IFDEF UNICODE}PWideChar{$ELSE}PAnsiChar{$ENDIF};
const AddressFamily: Integer; const lpProtocolInfo: LPWSAProtocol_Info;
var lpAddress: TSockAddr; var lpAddressLength: Integer): Integer; stdcall;
begin
{$IFDEF UNICODE}
@WSAStringToAddress := FixupStub(hWinSockDll, 'WSAStringToAddressW'); {Do not Localize}
{$ELSE}
@WSAStringToAddress := FixupStub(hWinSockDll, 'WSAStringToAddressA'); {Do not Localize}
{$ENDIF}
Result := WSAStringToAddress(AddressString, AddressFamily, lpProtocolInfo, lpAddress, lpAddressLength);
end;
function Stub_WSALookupServiceBeginA(var qsRestrictions: TWSAQuerySetA; const dwControlFlags: DWORD; var hLookup: THandle): Integer; stdcall;
begin
@WSALookupServiceBeginA := FixupStub(hWinSockDll, 'WSALookupServiceBeginA'); {Do not Localize}
Result := WSALookupServiceBeginA(qsRestrictions, dwControlFlags, hLookup);
end;
function Stub_WSALookupServiceBeginW(var qsRestrictions: TWSAQuerySetW; const dwControlFlags: DWORD; var hLookup: THandle): Integer; stdcall;
begin
@WSALookupServiceBeginW := FixupStub(hWinSockDll, 'WSALookupServiceBeginW'); {Do not Localize}
Result := WSALookupServiceBeginW(qsRestrictions, dwControlFlags, hLookup);
end;
function Stub_WSALookupServiceBegin(var qsRestrictions: TWSAQuerySet; const dwControlFlags: DWORD; var hLookup: THandle): Integer; stdcall;
begin
{$IFDEF UNICODE}
@WSALookupServiceBegin := FixupStub(hWinSockDll, 'WSALookupServiceBeginW'); {Do not Localize}
{$ELSE}
@WSALookupServiceBegin := FixupStub(hWinSockDll, 'WSALookupServiceBeginA'); {Do not Localize}
{$ENDIF}
Result := WSALookupServiceBegin(qsRestrictions, dwControlFlags, hLookup);
end;
function Stub_WSALookupServiceNextA(const hLookup: THandle; const dwControlFlags: DWORD; var dwBufferLength: DWORD; lpqsResults: LPWSAQUERYSETA): Integer; stdcall;
begin
@WSALookupServiceNextA := FixupStub(hWinSockDll, 'WSALookupServiceNextA'); {Do not Localize}
Result := WSALookupServiceNextA(hLookup, dwControlFlags, dwBufferLength, lpqsResults);
end;
function Stub_WSALookupServiceNextW(const hLookup: THandle; const dwControlFlags: DWORD; var dwBufferLength: DWORD; lpqsResults: LPWSAQUERYSETW): Integer; stdcall;
begin
@WSALookupServiceNextW := FixupStub(hWinSockDll, 'WSALookupServiceNextW'); {Do not Localize}
Result := WSALookupServiceNextW(hLookup, dwControlFlags, dwBufferLength, lpqsResults);
end;
function Stub_WSALookupServiceNext(const hLookup: THandle; const dwControlFlags: DWORD; var dwBufferLength: DWORD; lpqsResults: LPWSAQUERYSET): Integer; stdcall;
begin
{$IFDEF UNICODE}
@WSALookupServiceNext := FixupStub(hWinSockDll, 'WSALookupServiceNextW'); {Do not Localize}
{$ELSE}
@WSALookupServiceNext := FixupStub(hWinSockDll, 'WSALookupServiceNextA'); {Do not Localize}
{$ENDIF}
Result := WSALookupServiceNext(hLookup, dwControlFlags, dwBufferLength, lpqsResults);
end;
function Stub_WSALookupServiceEnd(const hLookup: THandle): Integer; stdcall;
begin
@WSALookupServiceEnd := FixupStub(hWinSockDll, 'WSALookupServiceEnd'); {Do not Localize}
Result := WSALookupServiceEnd(hLookup);
end;
function Stub_WSANSPIoctl(const hLookup : THANDLE; const dwControlCode : DWORD;
lpvInBuffer : Pointer; var cbInBuffer : DWORD; lpvOutBuffer : Pointer;
var cbOutBuffer : DWORD; var lpcbBytesReturned : DWORD;
lpCompletion : LPWSACOMPLETION) : Integer; stdcall;
begin
@WSANSPIoctl := FixupStub(hWinSockDLL, 'WSANSPIoctl'); {Do not Localize}
Result := WSANSPIoctl(hLookup,dwControlCode,lpvInBuffer,cbInBuffer,lpvOutBuffer,
cbOutBuffer, lpcbBytesReturned,lpCompletion);
end;
function Stub_WSAInstallServiceClassA(const lpServiceClassInfo: LPWSASERVICECLASSINFOA): Integer; stdcall;
begin
@WSAInstallServiceClassA := FixupStub(hWinSockDll, 'WSAInstallServiceClassA'); {Do not Localize}
Result := WSAInstallServiceClassA(lpServiceClassInfo);
end;
function Stub_WSAInstallServiceClassW(const lpServiceClassInfo: LPWSASERVICECLASSINFOW): Integer; stdcall;
begin
@WSAInstallServiceClassW := FixupStub(hWinSockDll, 'WSAInstallServiceClassW'); {Do not Localize}
Result := WSAInstallServiceClassW(lpServiceClassInfo);
end;
function Stub_WSAInstallServiceClass(const lpServiceClassInfo: LPWSASERVICECLASSINFO): Integer; stdcall;
begin
{$IFDEF UNICODE}
@WSAInstallServiceClass := FixupStub(hWinSockDll, 'WSAInstallServiceClassW'); {Do not Localize}
{$ELSE}
@WSAInstallServiceClass := FixupStub(hWinSockDll, 'WSAInstallServiceClassA'); {Do not Localize}
{$ENDIF}
Result := WSAInstallServiceClass(lpServiceClassInfo);
end;
function Stub_WSARemoveServiceClass(const lpServiceClassId: PGUID): Integer; stdcall;
begin
@WSARemoveServiceClass := FixupStub(hWinSockDll, 'WSARemoveServiceClass'); {Do not Localize}
Result := WSARemoveServiceClass(lpServiceClassId);
end;
function Stub_WSAGetServiceClassInfoA(const lpProviderId: PGUID; const lpServiceClassId: PGUID; var lpdwBufSize: DWORD; lpServiceClassInfo: LPWSASERVICECLASSINFOA): Integer; stdcall;
begin
@WSAGetServiceClassInfoA := FixupStub(hWinSockDll, 'WSAGetServiceClassInfoA'); {Do not Localize}
Result := WSAGetServiceClassInfoA(lpProviderId, lpServiceClassId, lpdwBufSize, lpServiceClassInfo);
end;
function Stub_WSAGetServiceClassInfoW(const lpProviderId: PGUID; const lpServiceClassId: PGUID; var lpdwBufSize: DWORD; lpServiceClassInfo: LPWSASERVICECLASSINFOW): Integer; stdcall;
begin
@WSAGetServiceClassInfoW := FixupStub(hWinSockDll, 'WSAGetServiceClassInfoW'); {Do not Localize}
Result := WSAGetServiceClassInfoW(lpProviderId, lpServiceClassId, lpdwBufSize, lpServiceClassInfo);
end;
function Stub_WSAGetServiceClassInfo(const lpProviderId: PGUID; const lpServiceClassId: PGUID; var lpdwBufSize: DWORD; lpServiceClassInfo: LPWSASERVICECLASSINFO): Integer; stdcall;
begin
{$IFDEF UNICODE}
@WSAGetServiceClassInfo := FixupStub(hWinSockDll, 'WSAGetServiceClassInfoW'); {Do not Localize}
{$ELSE}
@WSAGetServiceClassInfo := FixupStub(hWinSockDll, 'WSAGetServiceClassInfoA'); {Do not Localize}
{$ENDIF}
Result := WSAGetServiceClassInfo(lpProviderId, lpServiceClassId, lpdwBufSize, lpServiceClassInfo);
end;
function Stub_WSAEnumNameSpaceProvidersA(var lpdwBufferLength: DWORD; const lpnspBuffer: LPWSANAMESPACE_INFOA): Integer; stdcall;
begin
@WSAEnumNameSpaceProvidersA := FixupStub(hWinSockDll, 'WSAEnumNameSpaceProvidersA'); {Do not Localize}
Result := WSAEnumNameSpaceProvidersA(lpdwBufferLength, lpnspBuffer);
end;
function Stub_WSAEnumNameSpaceProvidersW(var lpdwBufferLength: DWORD; const lpnspBuffer: LPWSANAMESPACE_INFOW): Integer; stdcall;
begin
@WSAEnumNameSpaceProvidersW := FixupStub(hWinSockDll, 'WSAEnumNameSpaceProvidersW'); {Do not Localize}
Result := WSAEnumNameSpaceProvidersW(lpdwBufferLength, lpnspBuffer);
end;
function Stub_WSAEnumNameSpaceProviders(var lpdwBufferLength: DWORD; const lpnspBuffer: LPWSANAMESPACE_INFO): Integer; stdcall;
begin
{$IFDEF UNICODE}
@WSAEnumNameSpaceProviders := FixupStub(hWinSockDll, 'WSAEnumNameSpaceProvidersW'); {Do not Localize}
{$ELSE}
@WSAEnumNameSpaceProviders := FixupStub(hWinSockDll, 'WSAEnumNameSpaceProvidersA'); {Do not Localize}
{$ENDIF}
Result := WSAEnumNameSpaceProviders(lpdwBufferLength, lpnspBuffer);
end;
function Stub_WSAGetServiceClassNameByClassIdA(const lpServiceClassId: PGUID; lpszServiceClassName: PAnsiChar; var lpdwBufferLength: DWORD): Integer; stdcall;
begin
@WSAGetServiceClassNameByClassIdA := FixupStub(hWinSockDll, 'WSAGetServiceClassNameByClassIdA'); {Do not Localize}
Result := WSAGetServiceClassNameByClassIdA(lpServiceClassId, lpszServiceClassName, lpdwBufferLength);
end;
function Stub_WSAGetServiceClassNameByClassIdW(const lpServiceClassId: PGUID; lpszServiceClassName: PWideChar; var lpdwBufferLength: DWORD): Integer; stdcall;
begin
@WSAGetServiceClassNameByClassIdW := FixupStub(hWinSockDll, 'WSAGetServiceClassNameByClassIdW'); {Do not Localize}
Result := WSAGetServiceClassNameByClassIdW(lpServiceClassId, lpszServiceClassName, lpdwBufferLength);
end;
function Stub_WSAGetServiceClassNameByClassId(const lpServiceClassId: PGUID;
lpszServiceClassName: {$IFDEF UNICODE}PWideChar{$ELSE}PAnsiChar{$ENDIF};
var lpdwBufferLength: DWORD): Integer; stdcall;
begin
{$IFDEF UNICODE}
@WSAGetServiceClassNameByClassId := FixupStub(hWinSockDll, 'WSAGetServiceClassNameByClassIdW'); {Do not Localize}
{$ELSE}
@WSAGetServiceClassNameByClassId := FixupStub(hWinSockDll, 'WSAGetServiceClassNameByClassIdA'); {Do not Localize}
{$ENDIF}
Result := WSAGetServiceClassNameByClassId(lpServiceClassId, lpszServiceClassName, lpdwBufferLength);
end;
function Stub_WSASetServiceA(const lpqsRegInfo: LPWSAQUERYSETA; const essoperation: WSAESETSERVICEOP; const dwControlFlags: DWORD): Integer; stdcall;
begin
@WSASetServiceA := FixupStub(hWinSockDll, 'WSASetServiceA'); {Do not Localize}
Result := WSASetServiceA(lpqsRegInfo, essoperation, dwControlFlags);
end;
function Stub_WSASetServiceW(const lpqsRegInfo: LPWSAQUERYSETW; const essoperation: WSAESETSERVICEOP; const dwControlFlags: DWORD): Integer; stdcall;
begin
@WSASetServiceW := FixupStub(hWinSockDll, 'WSASetServiceW'); {Do not Localize}
Result := WSASetServiceW(lpqsRegInfo, essoperation, dwControlFlags);
end;
function Stub_WSASetService(const lpqsRegInfo: LPWSAQUERYSET; const essoperation: WSAESETSERVICEOP; const dwControlFlags: DWORD): Integer; stdcall;
begin
{$IFDEF UNICODE}
@WSASetService := FixupStub(hWinSockDll, 'WSASetServiceW'); {Do not Localize}
{$ELSE}
@WSASetService := FixupStub(hWinSockDll, 'WSASetServiceA'); {Do not Localize}
{$ENDIF}
Result := WSASetService(lpqsRegInfo, essoperation, dwControlFlags);
end;
function Stub_WSAProviderConfigChange(var lpNotificationHandle: THandle; AOverlapped: LPWSAOVERLAPPED; lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
begin
@WSAProviderConfigChange := FixupStub(hWinSockDll, 'WSAProviderConfigChange'); {Do not Localize}
Result := WSAProviderConfigChange(lpNotificationHandle, AOverlapped, lpCompletionRoutine);
end;
function Stub_TransmitFile(hSocket: TSocket; hFile: THandle; nNumberOfBytesToWrite: DWORD;
nNumberOfBytesPerSend: DWORD; lpOverlapped: POverlapped;
lpTransmitBuffers: LPTRANSMIT_FILE_BUFFERS; dwReserved: DWORD): BOOL; stdcall;
begin
@TransmitFile := FixupStubEx(hSocket, 'TransmitFile', WSAID_TRANSMITFILE); {Do not localize}
Result := TransmitFile(hSocket, hFile, nNumberOfBytesToWrite, nNumberOfBytesPerSend, lpOverlapped, lpTransmitBuffers, dwReserved);
end;
{RLebeau 1/26/2006 - loading GetAcceptExSockaddrs() at the same time as AcceptEx().
This is because GetAcceptExSockaddrs() is not passed a SOCKET that can be passed to
WSAIoCtrl() to get the function pointer. Also, GetAcceptExSockaddrs() is needed to
parse AcceptEx()'s return data, so there is no point in calling AcceptEx() unless
its data can be parsed afterwards.}
function Stub_AcceptEx(sListenSocket, sAcceptSocket: TSocket;
lpOutputBuffer: Pointer; dwReceiveDataLength, dwLocalAddressLength,
dwRemoteAddressLength: DWORD; var lpdwBytesReceived: DWORD;
lpOverlapped: POverlapped): BOOL; stdcall;
begin
{RLebeau - loading GetAcceptExSockaddrs() first in case it fails}
@GetAcceptExSockaddrs := FixupStubEx(sListenSocket, 'GetAcceptExSockaddrs', WSAID_GETACCEPTEXSOCKADDRS); {Do not localize}
@AcceptEx := FixupStubEx(sListenSocket, 'AcceptEx', WSAID_ACCEPTEX); {Do not localize}
Result := AcceptEx(sListenSocket, sAcceptSocket, lpOutputBuffer, dwReceiveDataLength,
dwLocalAddressLength, dwRemoteAddressLength, lpdwBytesReceived, lpOverlapped);
end;
{$IFNDEF WINCE}
function Stub_WSARecvEx(s: TSocket; var buf; len: Integer; var flags: Integer): Integer; stdcall;
begin
LoadMSWSock;
@WSARecvEx := FixupStub(hMSWSockDll, 'WSARecvEx'); {Do not localize}
Result := WSARecvEx(s, buf, len, flags);
end;
{$ENDIF}
function Stub_ConnectEx(const s : TSocket; const name: PSockAddr; const namelen: Integer; lpSendBuffer : Pointer;
dwSendDataLength : DWORD; var lpdwBytesSent : DWORD; lpOverlapped : LPWSAOVERLAPPED) : BOOL; stdcall;
begin
@ConnectEx := FixupStubEx(s, 'ConnectEx', WSAID_CONNECTEX); {Do not localize}
Result := ConnectEx(s, name, namelen, lpSendBuffer, dwSendDataLength, lpdwBytesSent, lpOverlapped);
end;
function Stub_DisconnectEx(const s : TSocket; AOverlapped: Pointer; const dwFlags : DWord; const dwReserved : DWORD) : BOOL; stdcall;
begin
@DisconnectEx := FixupStubEx(s, 'DisconnectEx', WSAID_DISCONNECTEX); {Do not localize}
Result := DisconnectEx(s, AOverlapped, dwFlags, dwReserved);
end;
function Stub_WSARecvMsg(const s : TSocket; lpMsg : LPWSAMSG; var lpNumberOfBytesRecvd : DWORD; AOverlapped: Pointer; lpCompletionRoutine : LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
begin
@WSARecvMsg := FixupStubEx(s, 'WSARecvMsg', WSAID_WSARECVMSG); {Do not localize}
Result := WSARecvMsg(s, lpMsg, lpNumberOfBytesRecvd, AOverlapped, lpCompletionRoutine);
end;
function Stub_TransmitPackets(s: TSocket; lpPacketArray: LPTRANSMIT_PACKETS_ELEMENT;
nElementCount: DWORD; nSendSize: DWORD; lpOverlapped: LPWSAOVERLAPPED; dwFlags: DWORD): BOOL; stdcall;
begin
@TransmitPackets := FixupStubEx(s, 'TransmitPackets', WSAID_TRANSMITPACKETS); {Do not localize}
Result := TransmitPackets(s, lpPacketArray, nElementCount, nSendSize, lpOverlapped, dwFlags);
end;
{$IFNDEF WINCE}
function Stub_WSASendMsg(const s : TSocket; lpMsg : LPWSAMSG; const dwFlags : DWORD; var lpNumberOfBytesSent : DWORD; lpOverlapped : LPWSAOVERLAPPED; lpCompletionRoutine : LPWSAOVERLAPPED_COMPLETION_ROUTINE) : Integer; stdcall;
begin
@WSASendMsg := FixupStubEx(s, 'WSASendMsg', WSAID_WSASENDMSG); {Do not localize}
Result := WSASendMsg(s, lpMsg, dwFlags, lpNumberOfBytesSent, lpOverlapped, lpCompletionRoutine);
end;
function Stub_WSAPoll(fdarray : LPWSAPOLLFD; const nfds : u_long; const timeout : Integer) : Integer; stdcall;
begin
@WSAPoll := FixupStubEx(fdarray.fd, 'WSAPoll', WSAID_WSAPOLL); {Do not localize}
Result := WSAPoll(fdarray, nfds, timeout);
end;
{$ENDIF}
procedure InitializeStubs;
{Alphabetize these so we can more easily determine what's available on a platform.
by section in Winsock SDK reference}
begin
accept := Stub_accept;
bind := Stub_bind;
closesocket := Stub_closesocket;
connect := Stub_connect;
ioctlsocket := Stub_ioctlsocket;
getpeername := Stub_getpeername;
getsockname := Stub_getsockname;
getsockopt := Stub_getsockopt;
htonl := Stub_htonl;
htons := Stub_htons;
inet_addr := Stub_inet_addr;
inet_ntoa := Stub_inet_ntoa;
listen := Stub_listen;
ntohl := Stub_ntohl;
ntohs := Stub_ntohs;
recv := Stub_recv;
recvfrom := Stub_recvfrom;
select := Stub_select;
send := Stub_send;
sendto := Stub_sendto;
{$IFDEF WINCE}
sethostname := Stub_sethostname;
{$ENDIF}
setsockopt := Stub_setsockopt;
shutdown := Stub_shutdown;
socket := Stub_socket;
gethostbyaddr := Stub_gethostbyaddr;
gethostbyname := Stub_gethostbyname;
gethostname := Stub_gethostname;
getservbyport := Stub_getservbyport;
getservbyname := Stub_getservbyname;
getprotobynumber := Stub_getprotobynumber;
getprotobyname := Stub_getprotobyname;
//extensions
__WSAFDIsSet := Stub___WSAFDIsSet;
{$IFNDEF WINCE}
AcceptEx := Stub_AcceptEx;
//GetAcceptExSockaddrs is loaded by Stub_AcceptEx
ConnectEx := Stub_ConnectEx;
DisconnectEx := Stub_DisconnectEx;
TransmitFile := Stub_TransmitFile;
TransmitPackets := Stub_TransmitPackets;
{$ENDIF}
WSAAccept := Stub_WSAAccept;
{$IFNDEF WINCE}
WSACancelAsyncRequest := Stub_WSACancelAsyncRequest;
WSAAsyncGetHostByAddr := Stub_WSAAsyncGetHostByAddr;
WSAAsyncGetHostByName := Stub_WSAAsyncGetHostByName;
WSAAsyncGetProtoByName := Stub_WSAAsyncGetProtoByName;
WSAAsyncGetProtoByNumber := Stub_WSAAsyncGetProtoByNumber;
WSAAsyncGetServByName := Stub_WSAAsyncGetServByName;
WSAAsyncGetServByPort := Stub_WSAAsyncGetServByPort;
WSAAsyncSelect := Stub_WSAAsyncSelect;
{$ENDIF}
WSAAddressToStringA := Stub_WSAAddressToStringA;
WSAAddressToStringW := Stub_WSAAddressToStringW;
WSAAddressToString := Stub_WSAAddressToString;
{$IFNDEF WINCE}
WSACancelBlockingCall := Stub_WSACancelBlockingCall;
{$ENDIF}
WSACleanup := Stub_WSACleanup;
WSACloseEvent := Stub_WSACloseEvent;
WSAConnect := Stub_WSAConnect;
WSACreateEvent := Stub_WSACreateEvent;
{$IFNDEF WINCE}
WSADuplicateSocketA := Stub_WSADuplicateSocketA;
WSADuplicateSocketW := Stub_WSADuplicateSocketW;
WSADuplicateSocket := Stub_WSADuplicateSocket;
{$ENDIF}
WSAEnumNameSpaceProvidersA := Stub_WSAEnumNameSpaceProvidersA;
WSAEnumNameSpaceProvidersW := Stub_WSAEnumNameSpaceProvidersW;
WSAEnumNameSpaceProviders := Stub_WSAEnumNameSpaceProviders;
WSAEnumNetworkEvents := Stub_WSAEnumNetworkEvents;
WSAEnumProtocolsA := Stub_WSAEnumProtocolsA;
WSAEnumProtocolsW := Stub_WSAEnumProtocolsW;
WSAEnumProtocols := Stub_WSAEnumProtocols;
WSAEventSelect := Stub_WSAEventSelect;
WSAGetLastError := Stub_WSAGetLastError;
WSAGetOverlappedResult := Stub_WSAGetOverlappedResult;
{$IFNDEF WINCE}
WSAGetQOSByName := Stub_WSAGetQOSByName;
WSAGetServiceClassInfoA := Stub_WSAGetServiceClassInfoA;
WSAGetServiceClassInfoW := Stub_WSAGetServiceClassInfoW;
WSAGetServiceClassInfo := Stub_WSAGetServiceClassInfo;
WSAGetServiceClassNameByClassIdA := Stub_WSAGetServiceClassNameByClassIdA;
WSAGetServiceClassNameByClassIdW := Stub_WSAGetServiceClassNameByClassIdW;
WSAGetServiceClassNameByClassId := Stub_WSAGetServiceClassNameByClassId;
{$ENDIF}
WSAHtonl := Stub_WSAHtonl;
WSAHtons := Stub_WSAHtons;
{$IFNDEF WINCE}
WSAInstallServiceClassA := Stub_WSAInstallServiceClassA;
WSAInstallServiceClassW := Stub_WSAInstallServiceClassW;
WSAInstallServiceClass := Stub_WSAInstallServiceClass;
{$ENDIF}
WSAIoctl := Stub_WSAIoctl;
{$IFNDEF WINCE}
WSAIsBlocking := Stub_WSAIsBlocking;
{$ENDIF}
WSAJoinLeaf := Stub_WSAJoinLeaf;
WSALookupServiceBeginA := Stub_WSALookupServiceBeginA;
WSALookupServiceBeginW := Stub_WSALookupServiceBeginW;
WSALookupServiceBegin := Stub_WSALookupServiceBegin;
WSALookupServiceEnd := Stub_WSALookupServiceEnd;
WSALookupServiceNextA := Stub_WSALookupServiceNextA;
WSALookupServiceNextW := Stub_WSALookupServiceNextW;
WSALookupServiceNext := Stub_WSALookupServiceNext;
// WSANSPIoctl is not supported in WinCE 4.20 but is in later versions.
WSANSPIoctl := Stub_WSANSPIoctl;
WSANtohl := Stub_WSANtohl;
WSANtohs := Stub_WSANtohs;
{$IFNDEF WINCE}
WSAPoll := Stub_WSAPoll;
WSAProviderConfigChange := Stub_WSAProviderConfigChange;
{$ENDIF}
WSARecv := Stub_WSARecv;
{$IFNDEF WINCE}
WSARecvDisconnect := Stub_WSARecvDisconnect;
WSARecvEx := Stub_WSARecvEx;
{$ENDIF}
WSARecvFrom := Stub_WSARecvFrom;
WSARecvMsg := Stub_WSARecvMsg;
WSARemoveServiceClass := Stub_WSARemoveServiceClass;
WSAResetEvent := Stub_WSAResetEvent;
WSASend := Stub_WSASend;
{$IFNDEF WINCE}
WSASendDisconnect := Stub_WSASendDisconnect;
WSASendMsg := Stub_WSASendMsg;
{$ENDIF}
WSASendTo := Stub_WSASendTo;
{$IFNDEF WINCE}
WSASetBlockingHook := Stub_WSASetBlockingHook;
{$ENDIF}
WSASetEvent := Stub_WSASetEvent;
WSASetLastError := Stub_WSASetLastError;
WSASetServiceA := Stub_WSASetServiceA;
WSASetServiceW := Stub_WSASetServiceW;
WSASetService := Stub_WSASetService;
WSASocketA := Stub_WSASocketA;
WSASocketW := Stub_WSASocketW;
WSASocket := Stub_WSASocket;
WSAStartup := Stub_WSAStartup;
WSAStringToAddressA := Stub_WSAStringToAddressA;
WSAStringToAddressW := Stub_WSAStringToAddressW;
WSAStringToAddress := Stub_WSAStringToAddress;
{$IFNDEF WINCE}
WSAUnhookBlockingHook := Stub_WSAUnhookBlockingHook;
{$ENDIF}
WSAWaitForMultipleEvents := Stub_WSAWaitForMultipleEvents;
end;
function WSAMakeSyncReply(Buflen, AError: Word): Longint;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := MakeLong(Buflen, AError);
end;
function WSAMakeSelectReply(Event, AError: Word): Longint;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := MakeLong(Event, AError);
end;
function WSAGetAsyncBuflen(Param: LPARAM): Word;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := LOWORD(Param);
end;
function WSAGetAsyncError(Param: LPARAM): Word;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := HIWORD(Param);
end;
function WSAGetSelectEvent(Param: LPARAM): Word;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := LOWORD(Param);
end;
function WSAGetSelectError(Param: LPARAM): Word;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
WSAGetSelectError := HIWORD(Param);
end;
procedure FD_CLR(ASocket: TSocket; var FDSet: TFDSet);
var
i: u_int;
begin
i := 0;
while i < FDSet.fd_count do
begin
if FDSet.fd_array[i] = ASocket then
begin
while i < FDSet.fd_count - 1 do
begin
FDSet.fd_array[i] := FDSet.fd_array[i+1];
Inc(i);
end;
Dec(FDSet.fd_count);
Break;
end;
Inc(i);
end;
end;
function FD_ISSET(ASocket: TSocket; var FDSet: TFDSet): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := __WSAFDIsSet(ASocket, FDSet);
end;
procedure FD_SET(ASocket: TSocket; var FDSet: TFDSet);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if FDSet.fd_count < fd_setsize then
begin
FDSet.fd_array[FDSet.fd_count] := ASocket;
Inc(FDSet.fd_count);
end;
end;
procedure FD_ZERO(var FDSet: TFDSet);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
FDSet.fd_count := 0;
end;
{$IFNDEF WINCE}
//Posix aliases
// #define CMSGHDR_ALIGN WSA_CMSGHDR_ALIGN
function CMSGHDR_ALIGN(const Alength: SIZE_T): SIZE_T;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := WSA_CMSGHDR_ALIGN(Alength);
end;
// #define CMSGDATA_ALIGN WSA_CMSGDATA_ALIGN
function CMSGDATA_ALIGN(const Alength: PtrUInt): PtrUInt;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := WSA_CMSGDATA_ALIGN(Alength);
end;
//#define CMSG_FIRSTHDR WSA_CMSG_FIRSTHDR
function CMSG_FIRSTHDR(const msg: LPWSAMSG): LPWSACMSGHDR;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := WSA_CMSG_FIRSTHDR(msg);
end;
// #define CMSG_NXTHDR WSA_CMSG_NXTHDR
function CMSG_NXTHDR(const msg: LPWSAMSG; const cmsg: LPWSACMSGHDR): LPWSACMSGHDR;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := WSA_CMSG_NXTHDR(msg, cmsg);
end;
// #define CMSG_SPACE WSA_CMSG_SPACE
function CMSG_SPACE(const Alength: PtrUInt): PtrUInt;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := WSA_CMSG_SPACE(ALength);
end;
// #define CMSG_LEN WSA_CMSG_LEN
function CMSG_LEN(const Alength: SIZE_T): SIZE_T;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := WSA_CMSG_LEN(ALength);
end;
//
function WSA_CMSGHDR_ALIGN(const Alength: SIZE_T): SIZE_T;
type
{$IFDEF WIN32}
{$ALIGN ON}
TempRec = record
x: AnsiChar;
test: WSACMSGHDR;
end;
{$ALIGN OFF}
{$ELSE}
//Win64 and WinCE seem to require alignment for API records
TempRec = record
x: AnsiChar;
test: WSACMSGHDR;
end;
{$ENDIF}
var
Alignment: SIZE_T;
Tmp: ^TempRec;
begin
Tmp := nil;
Alignment := PtrUInt(@(Tmp^.test));
Result := (Alength + (Alignment-1)) and not (Alignment-1);
end;
function WSA_CMSGDATA_ALIGN(const Alength: PtrUInt): PtrUInt;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := (Alength + MAX_NATURAL_ALIGNMENT_SUB_1) and not (MAX_NATURAL_ALIGNMENT_SUB_1);
end;
function WSA_CMSG_FIRSTHDR(const msg: LPWSAMSG): LPWSACMSGHDR;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (msg <> nil) and (msg^.Control.len >= SIZE_WSACMSGHDR) then begin
Result := LPWSACMSGHDR(msg^.Control.buf);
end else begin
Result := nil;
end;
end;
function WSA_CMSG_NXTHDR(const msg: LPWSAMSG; const cmsg: LPWSACMSGHDR): LPWSACMSGHDR;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if cmsg = nil then begin
Result := WSA_CMSG_FIRSTHDR(msg);
end else begin
if (PtrUInt(cmsg) + WSA_CMSGHDR_ALIGN(cmsg^.cmsg_len) + SIZE_WSACMSGHDR) > (PtrUInt(msg^.Control.buf) + msg^.Control.len) then begin
Result := nil;
end else begin
Result := LPWSACMSGHDR(PtrUInt(cmsg) + WSA_CMSGHDR_ALIGN(cmsg^.cmsg_len));
end;
end;
end;
function WSA_CMSG_DATA(const cmsg: LPWSACMSGHDR): PByte;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := PByte(PtrUInt(cmsg) + WSA_CMSGDATA_ALIGN(SIZE_WSACMSGHDR));
end;
function WSA_CMSG_SPACE(const Alength: PtrUInt): PtrUInt;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := WSA_CMSGDATA_ALIGN(PtrUInt(SIZE_WSACMSGHDR + WSA_CMSGHDR_ALIGN(Alength)));
end;
function WSA_CMSG_LEN(const Alength: SIZE_T): SIZE_T;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := (WSA_CMSGDATA_ALIGN(SizeOf(WSACMSGHDR)) + Alength);
end;
function RIO_CMSG_BASE_SIZE : SIZE_T;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := WSA_CMSGHDR_ALIGN(sizeof(RIO_CMSG_BUFFER));
end;
function RIO_CMSG_FIRSTHDR(buffer : PRIO_CMSG_BUFFER) : PWSACMSGHDR;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if ((buffer)^.TotalLength >= RIO_CMSG_BASE_SIZE) then
begin
if (((buffer)^.TotalLength - RIO_CMSG_BASE_SIZE) >= sizeof(WSACMSGHDR)) then begin
Result := PWSACMSGHDR((PAnsiChar(buffer)) + RIO_CMSG_BASE_SIZE);
end else begin
Result := PWSACMSGHDR(nil);
end;
end else begin
Result := PWSACMSGHDR(nil);
end;
end;
function RIO_CMSG_NEXTHDR(buffer : PRIO_CMSG_BUFFER; cmsg : PWSACMSGHDR) : PWSACMSGHDR;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if ((cmsg) = nil) then begin
Result := RIO_CMSG_FIRSTHDR(buffer);
end else begin
if (PAnsiChar(cmsg) + WSA_CMSGHDR_ALIGN((cmsg^.cmsg_len) + sizeof(WSACMSGHDR)) > (PAnsiChar(buffer) + (buffer)^.TotalLength)) then begin
Result := (PWSACMSGHDR(nil));
end else begin
Result :=(PWSACMSGHDR(PAnsiChar(cmsg) + WSA_CMSGHDR_ALIGN(cmsg^.cmsg_len)));
end;
end;
end;
{$ENDIF} // {$IFNDEF WINCE}
function IP_MSFILTER_SIZE(const numsrc: DWORD): PtrUInt;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := SIZE_IP_MSFILTER - SIZE_TINADDR + (numsrc*SIZE_TINADDR);
end;
function SS_PORT(ssp: PSockAddrIn): u_short;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if ssp <> nil then begin
Result := ssp^.sin_port;
end else begin
Result := 0;
end;
end;
//
// Microsoft-specific IPv4 definitions.
//
function IN4_CLASSA(const i : UInt32) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := ((i and $00000080) = 0);
end;
function IN4_CLASSB(const i : UInt32) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := ((i and $000000c0) = $00000080);
end;
function IN4_CLASSC(const i : UInt32) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := ((i and $000000e0) = $000000c0);
end;
function IN4_CLASSD(const i : UInt32) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := ((i and $000000f0) = $000000e0);
end;
function IN4_MULTICAST(const i : UInt32) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := IN4_CLASSD(i);
end;
function IN4_ADDR_EQUAL(const a, b : PInAddr ) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := a^.S_addr = b^.S_addr;
end;
function IN4_UNALIGNED_ADDR_EQUAL(const a, b : PInAddr ) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := a^.S_addr = b^.S_addr
end;
function IN4_IS_ADDR_UNSPECIFIED(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := a^.S_addr = IN4ADDR_ANY;
end;
function IN4_IS_UNALIGNED_ADDR_UNSPECIFIED(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := a^.S_addr = IN4ADDR_ANY;
end;
function IN4_IS_ADDR_LOOPBACK(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := PByte(a)^ = $7f; // 127/8
end;
function IN4_IS_UNALIGNED_ADDR_LOOPBACK(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := PByte(a)^ = $7f; // 127/8
end;
function IN4_IS_ADDR_BROADCAST(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := a^.S_addr = IN4ADDR_BROADCAST;
end;
function IN4_IS_UNALIGNED_ADDR_BROADCAST(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := a^.S_addr = IN4ADDR_BROADCAST;
end;
function IN4_IS_ADDR_MULTICAST(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := IN4_MULTICAST(a^.S_addr);
end;
function IN4_IS_UNALIGNED_ADDR_MULTICAST(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := IN4_MULTICAST(a^.S_addr);
end;
function IN4_IS_ADDR_LINKLOCAL(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := ((a^.s_addr and $ffff) = $fea9); // 169.254/16
end;
function IN4_IS_UNALIGNED_ADDR_LINKLOCAL(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := ((a^.s_addr and $ffff) = $fea9); // 169.254/16
end;
function IN4_IS_ADDR_SITELOCAL(const a :PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
//UNREFERENCED_PARAMETER(a);
//
// For existing scenarios (e.g. ICS) to work as expected, RFC-1918 prefixes
// are deemed to be global scoped. When appropriate, site border routers
// must explicitly filter packets with these addresses.
//
Result := False;
end;
function IN4_IS_UNALIGNED_ADDR_SITELOCAL(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := IN4_IS_ADDR_SITELOCAL(a);
end;
function IN4_IS_ADDR_RFC1918(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := (((a^.s_addr and $00ff) = $0a) or // 10/8
((a^.s_addr and $f0ff) = $10ac) or // 172.16/12
((a^.s_addr and $ffff) = $a8c0)); // 192.168/16
end;
function IN4_IS_UNALIGNED_ADDR_RFC1918(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
var
Ipv4Address : IN_ADDR;
begin
//JPM Notes: Done this way because pointers may not be aligned at all.
Ipv4Address := a^;
Result := IN4_IS_ADDR_RFC1918( @Ipv4Address );
end;
function IN4_IS_ADDR_MC_LINKLOCAL(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := ((a^.s_addr and $ffffff) = $e0); // 224.0.0/24
end;
function IN4_IS_ADDR_MC_ADMINLOCAL(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := ((a^.s_addr and $ffff) = $ffef); // 239.255/16
end;
function IN4_IS_ADDR_MC_SITELOCAL(const a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := ((a^.s_addr and $ff) = $ef) and
(not IN4_IS_ADDR_MC_ADMINLOCAL(a));
end;
function SCOPEID_UNSPECIFIED_INIT: {$IFDEF WINCE}u_long{$ELSE}SCOPE_ID{$ENDIF};
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result{$IFNDEF WINCE}.Value{$ENDIF} := 0;
end;
function IN4ADDR_ANY_INIT: TInAddr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result.S_addr := 0;
end;
function IN4ADDR_LOOPBACK_INIT: TInAddr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result.S_un_b.s_b1 := $7f;
Result.S_un_b.s_b2 := $00;
Result.S_un_b.s_b3 := $00;
Result.S_un_b.s_b4 := $01;
end;
function IN4ADDR_BROADCAST_INIT: TInAddr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result.S_un_b.s_b1 := $ff;
Result.S_un_b.s_b2 := $ff;
Result.S_un_b.s_b3 := $ff;
Result.S_un_b.s_b4 := $ff;
end;
function IN4ADDR_ALLNODESONLINK_INIT: TInAddr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result.S_un_b.s_b1 := $e0;
Result.S_un_b.s_b2 := $00;
Result.S_un_b.s_b3 := $00;
Result.S_un_b.s_b4 := $01;
end;
function IN4ADDR_ALLROUTERSONLINK_INIT: TInAddr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result.S_un_b.s_b1 := $e0;
Result.S_un_b.s_b2 := $00;
Result.S_un_b.s_b3 := $00;
Result.S_un_b.s_b4 := $02;
end;
function IN4ADDR_ALLIGMPV3ROUTERSONLINK_INIT: TInAddr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result.S_un_b.s_b1 := $e0;
Result.S_un_b.s_b2 := $00;
Result.S_un_b.s_b3 := $00;
Result.S_un_b.s_b4 := $16;
end;
function IN4ADDR_ALLTEREDONODESONLINK_INIT: TInAddr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result.S_un_b.s_b1 := $e0;
Result.S_un_b.s_b2 := $00;
Result.S_un_b.s_b3 := $00;
Result.S_un_b.s_b4 := $fd;
end;
function IN4ADDR_LINKLOCALPREFIX_INIT: TInAddr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result.S_un_b.s_b1 := $a9;
Result.S_un_b.s_b2 := $fe;
Result.S_un_b.s_b3 := $00;
Result.S_un_b.s_b4 := $00;
end;
function IN4ADDR_MULTICASTPREFIX_INIT: TInAddr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result.S_un_b.s_b1 := $e0;
Result.S_un_b.s_b2 := $00;
Result.S_un_b.s_b3 := $00;
Result.S_un_b.s_b4 := $00;
end;
procedure IN4ADDR_SETSOCKADDR(a : PSockAddrIn; const addr : PInAddr; const port : USHORT);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
a^.sin_family := AF_INET;
a^.sin_port := port;
a^.sin_addr.S_addr := addr^.S_addr;
FillChar(a^.sin_zero,SizeOf(a^.sin_zero),0);
end;
procedure IN4ADDR_SETANY(a : PSockAddrIn);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
a^.sin_family := AF_INET;
a^.sin_port := 0;
a^.sin_addr.S_addr := IN4ADDR_ANY;
FillChar(a^.sin_zero,SizeOf(a^.sin_zero),0);
end;
procedure IN4ADDR_SETLOOPBACK(a : PSockAddrIn);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
a^.sin_family := AF_INET;
a^.sin_port := 0;
a^.sin_addr.S_addr := IN4ADDR_LOOPBACK;
FillChar(a^.sin_zero,SizeOf(a^.sin_zero),0);
end;
function IN4ADDR_ISANY(const a : PSockAddrIn) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
ASSERT(a^.sin_family = AF_INET);
Result := IN4_IS_ADDR_UNSPECIFIED(@a^.sin_addr );
end;
function IN4ADDR_ISLOOPBACK(const a : PSockAddrIn) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
ASSERT(a^.sin_family = AF_INET);
Result := IN4_IS_ADDR_LOOPBACK(@a^.sin_addr);
end;
function IN4ADDR_SCOPE_ID(const a : PSockAddrIn) : {$IFDEF WINCE}u_long{$ELSE}SCOPE_ID{$ENDIF};
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
//SCOPE_ID UnspecifiedScopeId = {0};
//UNREFERENCED_PARAMETER(a);
//return UnspecifiedScopeId;
Result{$IFNDEF WINCE}.Value{$ENDIF} := 0;
end;
function IN4ADDR_ISEQUAL(a, b : PSockAddrIn) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
ASSERT(a^.sin_family = AF_INET);
Result := (IN4ADDR_SCOPE_ID(a){$IFNDEF WINCE}.Value{$ENDIF} = IN4ADDR_SCOPE_ID(b){$IFNDEF WINCE}.Value{$ENDIF}) and
IN4_ADDR_EQUAL(@a^.sin_addr , @b^.sin_addr);
end;
function IN4ADDR_ISUNSPECIFIED(a : PSockAddrIn) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
ASSERT(a^.sin_family = AF_INET);
Result := (IN4ADDR_SCOPE_ID(a){$IFNDEF WINCE}.Value{$ENDIF} = 0) and
IN4_IS_ADDR_UNSPECIFIED(@a^.sin_addr);
end;
{Important!!! INET_IS_ALIGNED doesn't seem to translate well to
Delphi. The best I could think of is to make a function
for testing with specific types. I wish Pascal had an AlignOf function}
//#define INET_IS_ALIGNED(Pointer, Type) \
// (((ULONG_PTR)Pointer & (__builtin_alignof(Type)-1)) == 0)
function INET_IS_ALIGNED_IN_ADDR(Ptr : Pointer) : Boolean;
type
{$IFDEF WIN32}
{$ALIGN ON}
TempRec = record
test: IN_ADDR;
end;
{$ALIGN OFF}
{$ELSE}
//Win64 and WinCE seem to require alignment for API records
TempRec = record
test: IN_ADDR;
end;
{$ENDIF}
var
Alignment : SIZE_T;
begin
Alignment := SizeOf(TempRec);
Result := ((ULONG_PTR(Ptr) and (Alignment - 1)) = 0);
end;
function INET_IS_ALIGNED_IN6_ADDR(Ptr : Pointer) : Boolean;
type
{$IFDEF WIN32}
{$ALIGN ON}
TempRec = record
test: IN6_ADDR;
end;
{$ALIGN OFF}
{$ELSE}
//Win64 and WinCE seem to require alignment for API records
TempRec = record
test: IN6_ADDR;
end;
{$ENDIF}
var
Alignment : SIZE_T;
begin
Alignment := SizeOf(TempRec);
Result := ((ULONG_PTR(Ptr) and (Alignment - 1)) = 0);
end;
{
Routine Description:
Determines the scope of an IPv4 unicast address.
For existing scenarios (e.g. ICS) to work as expected, RFC-1918 prefixes
are deemed to be global scoped. When appropriate, site border routers
must explicitly filter packets with these addresses.
Arguments:
Address - Supplies the IPv4 unicast address.
Return Value:
Returns the scope level of the address.
Caller IRQL:
May be called at PASSIVE through DISPATCH level.
--*/
}
function Ipv4UnicastAddressScope(const Address : PUChar) : SCOPE_LEVEL;
{$IFDEF USE_INLINE}inline;{$ENDIF}
var
Ipv4Address : IN_ADDR;
AddrPtr: PInAddr;
begin
if not INET_IS_ALIGNED_IN_ADDR(Address) then begin
Ipv4Address := PInAddr(Address)^;
AddrPtr := @Ipv4Address;
end else begin
AddrPtr := PInAddr(Address);
end;
if IN4_IS_ADDR_LINKLOCAL(AddrPtr) or
IN4_IS_ADDR_LOOPBACK(AddrPtr) then
begin
Result := ScopeLevelLink;
end else begin
Result := ScopeLevelGlobal;
end;
end;
{
/*++
Routine Description:
Determines the scope of an IPv4 multicast address.
See RFC 2365.
Arguments:
Address - Supplies the IPv4 multicast address.
Return Value:
Returns the scope level of the multicast address.
Caller IRQL:
May be called at PASSIVE through DISPATCH level.
--*/
}
function Ipv4MulticastAddressScope(const Address : PUCHAR) : SCOPE_LEVEL;
var
Ipv4Address : IN_ADDR;
AddrPtr : PInAddr;
begin
if not INET_IS_ALIGNED_IN_ADDR(Address) then begin
Ipv4Address := PInAddr(Address)^;
AddrPtr := @Ipv4Address;
end else begin
AddrPtr := PInAddr(Address);
end;
if IN4_IS_ADDR_MC_LINKLOCAL(AddrPtr) then begin
Result := ScopeLevelLink;
end
else if IN4_IS_ADDR_MC_ADMINLOCAL(AddrPtr) then begin
Result := ScopeLevelAdmin;
end
else if IN4_IS_ADDR_MC_SITELOCAL(AddrPtr) then begin
Result := ScopeLevelSite;
end else begin
Result := ScopeLevelGlobal;
end;
end;
{
/*++
Routine Description:
Examines an IPv4 address and determines its scope.
Arguments:
Address - Supplies the address to test.
Return Value:
Returns the scope level of the address.
Caller IRQL:
May be called at PASSIVE through DISPATCH level.
--*/
}
function Ipv4AddressScope(Address : PUChar) : SCOPE_LEVEL;
{$IFDEF USE_INLINE}inline;{$ENDIF}
var
Ipv4Address : IN_ADDR;
begin
Ipv4Address := PInAddr(Address)^;
if IN4_IS_ADDR_BROADCAST(@Ipv4Address) then begin
Result := ScopeLevelLink;
end
else if IN4_IS_ADDR_MULTICAST(@Ipv4Address) then begin
Result := Ipv4MulticastAddressScope(PUCHAR(@Ipv4Address));
end else begin
Result := Ipv4UnicastAddressScope(PUCHAR(@Ipv4Address));
end;
end;
function Ipv4AddressType(Address : PUChar) : NL_ADDRESS_TYPE;
{$IFDEF USE_INLINE}inline;{$ENDIF}
var
Ipv4Address : TInAddr;
begin
Ipv4Address := PInAddr(Address)^;
if IN4_IS_ADDR_MULTICAST(@Ipv4Address) then begin
Result := NlatMulticast;
Exit;
end;
if IN4_IS_ADDR_BROADCAST(@Ipv4Address) then begin
Result := NlatBroadcast;
Exit;
end;
if IN4_IS_ADDR_UNSPECIFIED(@Ipv4Address) then begin
Result := NlatUnspecified;
Exit;
end;
//
// Following prefixes are invalid:
// 1. 0.0.0.0/8 (except 0.0.0.0/32).
// 2. 240.0.0.0/4 (except 255.255.255.255/32).
//
if ((Ipv4Address.s_addr and $000000ff) = 0) or
((Ipv4Address.s_addr and $000000f0) = 240) then
begin
Result := NlatInvalid;
Exit;
end;
//
// Loopback and anycast addresses are treated as unicast.
//
Result := NlatUnicast;
end;
{$IFNDEF WINCE}
// SCOPE_ID = record
// union {
// struct {
// ULONG Zone : 28;
// ULONG Level : 4;
// };
// ULONG Value;
// };
// Value : ULONG;
// end;
function SCOPE_ID_GetZone(const ScopeId : SCOPE_ID) : ULONG;
begin
Result := (ScopeId.Value and $FFFFFFF0) shr 4;
end;
procedure SCOPE_ID_SetZone(var ScopeId : SCOPE_ID; Value: ULONG);
begin
ScopeId.Value := ((Value and $0FFFFFFF) shl 4) or (ScopeId.Value and $F);
end;
function SCOPE_ID_GetLevel(const ScopeId : SCOPE_ID) : SCOPE_LEVEL;
begin
Result := SCOPE_LEVEL(ScopeId.Value and $F);
end;
procedure SCOPE_ID_SetLevel(var ScopeId : SCOPE_ID; Value: ULONG);
begin
ScopeId.Value := (ScopeId.Value and $FFFFFFF0) or (Value and $F);
end;
procedure IN4_UNCANONICALIZE_SCOPE_ID(Address : PInAddr; ScopeId : PSCOPE_ID);
{$IFDEF USE_INLINE}inline;{$ENDIF}
var
ScopeLevel : SCOPE_LEVEL;
begin
ScopeLevel := Ipv4AddressScope(PUCHAR(Address));
if IN4_IS_ADDR_LOOPBACK(Address) or (ScopeLevel = ScopeLevelGlobal) then begin
ScopeId^.Value := 0;
end;
if SCOPE_ID_GetLevel(ScopeId^) = ScopeLevel then begin
SCOPE_ID_SetLevel(ScopeId^, 0);
end;
end;
{$ENDIF}
function IN4_IS_ADDR_6TO4ELIGIBLE(a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := (Ipv4AddressType(PUChar(a)) = NlatUnicast) and
(not (IN4_IS_ADDR_LOOPBACK(a) or
IN4_IS_ADDR_LINKLOCAL(a) or
IN4_IS_ADDR_SITELOCAL(a) or
IN4_IS_ADDR_RFC1918(a)));
end;
function IN4_IS_UNALIGNED_ADDR_6TO4ELIGIBLE(a : PInAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
var
Ipv4Address : TInAddr;
begin
Ipv4Address := a^;
Result := IN4_IS_ADDR_6TO4ELIGIBLE(@Ipv4Address);
end;
//
// Microsoft-specific IPv6 definitions.
//
function IN6_PREFIX_EQUAL(const a, b : PIN6_ADDR; const len : UINT8) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
var
Bytes : UINT8;
Bits : UINT8;
Mask : UINT8;
begin
Bytes := len div 8;
Bits := len mod 8;
Mask := $ff shl (8 - Bits);
ASSERT(len <= (SizeOf(IN6_ADDR) * 8));
Result := CompareMem(a,b,len) and ((Bits = 0) or ((a^.s6_bytes[Bytes] or Mask) = (b^.s6_bytes[Bytes] or Mask)));
end;
function IN6_IS_ADDR_ALLNODESONNODE(a : PIN6_ADDR) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := IN6_ADDR_EQUAL(a, @in6addr_allnodesonnode);
end;
function IN6_IS_ADDR_ALLNODESONLINK(a : PIN6_ADDR) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := IN6_ADDR_EQUAL(a, @in6addr_allnodesonlink);
end;
function IN6_IS_ADDR_ALLROUTERSONLINK(a : PIN6_ADDR) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := IN6_ADDR_EQUAL(a, @in6addr_allroutersonlink);
end;
function IN6_IS_ADDR_SOLICITEDNODE(a : PIN6_ADDR) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := IN6_PREFIX_EQUAL(
a,
@in6addr_solicitednodemulticastprefix,
IN6ADDR_SOLICITEDNODEMULTICASTPREFIX_LENGTH);
end;
function IN6_IS_ADDR_ISATAP(a : PIN6_ADDR) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
//
// Disregard the u/g bit and compare the first byte of the interface id.
//
Result := ((a^.s6_words[4] and $fffd) = $0000) and (a^.s6_words[5] = $fe5e);
end;
function IN6_IS_ADDR_6TO4(a : PIN6_ADDR) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
//C_ASSERT(IN6ADDR_6TO4PREFIX_LENGTH = RTL_BITS_OF(USHORT));
Result := (a^.s6_words[0] = in6addr_6to4prefix.s6_words[0]);
end;
function IN6_IS_ADDR_TEREDO(a : PIN6_ADDR) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
//C_ASSERT(IN6ADDR_TEREDOPREFIX_LENGTH == 2 * RTL_BITS_OF(USHORT));
Result := (a^.s6_words[0] = in6addr_teredoprefix.s6_words[0]) and
(a^.s6_words[1] = in6addr_teredoprefix.s6_words[1]);
end;
function IN6ADDR_ISV4MAPPED(a : PSOCKADDR_IN6) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
ASSERT(a^.sin6_family = AF_INET6);
Result := IN6_IS_ADDR_V4MAPPED(@a^.sin6_addr);
end;
function IN6ADDR_ISISATAP(a : PSOCKADDR_IN6) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
ASSERT(a^.sin6_family = AF_INET6);
Result := IN6_IS_ADDR_ISATAP(@a^.sin6_addr);;
end;
function IN6ADDR_IS6TO4(a : PSOCKADDR_IN6) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
ASSERT(a^.sin6_family = AF_INET6);
Result := IN6_IS_ADDR_6TO4(@a^.sin6_addr);
end;
function IN6ADDR_ISTEREDO(a : PSOCKADDR_IN6) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
ASSERT(a^.sin6_family = AF_INET6);
Result := IN6_IS_ADDR_TEREDO(@a^.sin6_addr);
end;
function IN6_GET_ADDR_V4MAPPED(Ipv6Address : PIN6_ADDR) : PUCHAR;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := PUChar(@Ipv6Address^.s6_words[6]);
end;
function IN6_GET_ADDR_V4COMPAT(Ipv6Address : PIN6_ADDR) : PUCHAR;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := PUChar(@Ipv6Address^.s6_words[6]);
end;
function IN6_EXTRACT_V4ADDR_FROM_ISATAP(Ipv6Address : PIN6_ADDR) : PUCHAR;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := PUChar(@Ipv6Address^.s6_words[6]);
end;
function IN6_EXTRACT_V4ADDR_FROM_6TO4(Ipv6Address : PIN6_ADDR) : PUCHAR;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := PUChar(@Ipv6Address^.s6_words[1]);
end;
procedure IN6_SET_ADDR_V4MAPPED(out a6 : IN6_ADDR; a4 : PInAddr );
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
a6 := in6addr_v4mappedprefix;
a6.s6_bytes[12] := a4^.S_un_b.s_b1;
a6.s6_bytes[13] := a4^.S_un_b.s_b2;
a6.s6_bytes[14] := a4^.S_un_b.s_b3;
a6.s6_bytes[15] := a4^.S_un_b.s_b4;
end;
procedure IN6_SET_ADDR_V4COMPAT(out a6 : IN6_ADDR; a4 : PInAddr );
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
a6 := in6addr_any;
a6.s6_bytes[12] := a4^.S_un_b.s_b1;
a6.s6_bytes[13] := a4^.S_un_b.s_b2;
a6.s6_bytes[14] := a4^.S_un_b.s_b3;
a6.s6_bytes[15] := a4^.S_un_b.s_b4;
end;
procedure IN6_SET_ADDR_SOLICITEDNODE(out Multicast : IN6_ADDR; Unicast : PIN6_ADDR);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Multicast := in6addr_solicitednodemulticastprefix;
Multicast.s6_bytes[13] := Unicast^.s6_bytes[13];
Multicast.s6_bytes[14] := Unicast^.s6_bytes[14];
Multicast.s6_bytes[15] := Unicast^.s6_bytes[15];
end;
procedure IN6_SET_ISATAP_IDENTIFIER(Ipv6Address : PIN6_ADDR; Ipv4Address : PInAddr);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if IN4_IS_ADDR_6TO4ELIGIBLE(Ipv4Address) then begin
Ipv6Address^.s6_words[4] := $0002;
end else begin
Ipv6Address^.s6_words[4] := $0000;
end;
//
// 24-bit IANA OUI 00-00-5E and the 8-bit hex value 0xFE.
// See section 6.1 of RFC 4214.
//
Ipv6Address^.s6_words[5] := $FE5E;
PInAddr(@Ipv6Address^.s6_words[6])^ := Ipv4Address^;
end;
procedure IN6_SET_6TO4_PREFIX(Ipv6Address : PIN6_ADDR; Ipv4Address : PInAddr);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Ipv6Address^.s6_words[0] := $0220;
PInAddr(@Ipv6Address^.s6_words[1])^ := Ipv4Address^;
Ipv6Address^.s6_words[3] := $0000;
end;
function Ipv6UnicastAddressScope(const Address : PUChar) : SCOPE_LEVEL;
{$IFDEF USE_INLINE}inline;{$ENDIF}
{*++
Routine Description:
Examines a unicast address and determines its scope.
Note that v4-compatible and 6to4 addresses are deemed to have global scope;
it is not legal to derive them from non IN4_IS_ADDR_6TO4ELIGIBLE addresses
(IPv4 loopback, link-local, site-local, and RFC-1918 addresses).
Arguments:
Address - Supplies an IPv6 unicast address.
Return Value:
Returns the scope level of the address.
Caller IRQL:
May be called at PASSIVE through DISPATCH level.
--*}
var
Ipv6Address : TIn6Addr;
AddrPtr : PIn6Addr;
begin
if not INET_IS_ALIGNED_IN6_ADDR(Address) then begin
Ipv6Address := PIn6Addr(Address)^;
AddrPtr := @Ipv6Address;
end else begin
AddrPtr := PIn6Addr(Address);
end;
if IN6_IS_ADDR_LINKLOCAL(AddrPtr) or
IN6_IS_ADDR_LOOPBACK(AddrPtr) then
begin
Result := ScopeLevelLink;
end
else if IN6_IS_ADDR_SITELOCAL(AddrPtr) then begin
Result := ScopeLevelSite;
end else begin
Result := ScopeLevelGlobal;
end;
end;
function IN6_MULTICAST_SCOPE(Address : PUCHAR ) : SCOPE_LEVEL;
{$IFDEF USE_INLINE}inline;{$ENDIF}
var
Ipv6Address : PIN6_ADDR;
begin
Ipv6Address := PIN6_ADDR(Address);
Result := SCOPE_LEVEL(Ipv6Address^.s6_bytes[1] and $f);
end;
function Ipv6AddressScope(Address : PUCHAR ) : SCOPE_LEVEL;
{$IFDEF USE_INLINE}inline;{$ENDIF}
{*++
Routine Description:
Examines an IPv6 address and determines its scope.
Arguments:
Address - Supplies an IPv6 address.
Return Value:
Returns the scope level of the address.
Caller IRQL:
May be called at PASSIVE through DISPATCH level.
--*}
begin
if IN6_IS_ADDR_MULTICAST(PIn6Addr(Address)) then begin
Result := IN6_MULTICAST_SCOPE(Address);
end else begin
Result := Ipv6UnicastAddressScope(Address);
end;
end;
function Ipv6AddressType( Address : PUCHAR) : NL_ADDRESS_TYPE;
{$IFDEF USE_INLINE}inline;{$ENDIF}
var
Ipv6Address : PIN6_ADDR;
Ipv4Address : PUCHAR;
begin
Ipv6Address := PIN6_ADDR(Address);
if IN6_IS_ADDR_MULTICAST(Ipv6Address) then begin
Result := NlatMulticast;
Exit;
end;
if IN6_IS_ADDR_UNSPECIFIED(Ipv6Address) then begin
Result := NlatUnspecified;
Exit;
end;
//
// Extract embedded IPv4 address, if any.
//
if IN6_IS_ADDR_ISATAP(Ipv6Address) or
IN6_IS_ADDR_V4COMPAT(Ipv6Address) or
IN6_IS_ADDR_V4MAPPED(Ipv6Address) or
IN6_IS_ADDR_V4TRANSLATED(Ipv6Address) then
begin
Ipv4Address := IN6_EXTRACT_V4ADDR_FROM_ISATAP(Ipv6Address);
end
else if IN6_IS_ADDR_6TO4(Ipv6Address) then begin
Ipv4Address := IN6_EXTRACT_V4ADDR_FROM_6TO4(Ipv6Address);
end else begin
//
// Anycast and loopback addresses are treated unicast address.
//
Result := NlatUnicast;
Exit;
end;
//
// Ensure that the embedded IPv4 address is unicast.
//
if Ipv4AddressType(Ipv4Address) <> NlatUnicast then begin
Result := NlatInvalid;
Exit;
end;
Result := NlatUnicast;
end;
{$IFNDEF WINCE}
procedure IN6_UNCANONICALIZE_SCOPE_ID(Address : PIN6_ADDR; ScopeId : PSCOPE_ID);
{$IFDEF USE_INLINE}inline;{$ENDIF}
var
ScopeLevel : SCOPE_LEVEL;
begin
ScopeLevel := Ipv6AddressScope(PUCHAR(Address));
if IN6_IS_ADDR_LOOPBACK(Address) or (ScopeLevel = ScopeLevelGlobal) then begin
ScopeId^.Value := 0;
end;
if (SCOPE_LEVEL(ScopeId^.Value shr 28) = ScopeLevel) then begin
SCOPE_ID_SetLevel(ScopeId^, 0);
end;
end;
{$ENDIF}
procedure IN6ADDR_SETSOCKADDR(a : PSOCKADDR_IN6; addr : PIN6_ADDR;
const scope : {$IFDEF WINCE}u_long{$ELSE}SCOPE_ID{$ENDIF}; const port : USHORT );
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
a^.sin6_family := AF_INET6;
a^.sin6_port := port;
a^.sin6_flowinfo := 0;
a^.sin6_addr := addr^;
{$IFDEF WINCE}
a^.sin6_scope_id := scope;
{$ELSE}
a^.a.sin6_scope_struct := scope;
IN6_UNCANONICALIZE_SCOPE_ID(@a^.sin6_addr, @a^.a.sin6_scope_struct);
{$ENDIF}
end;
procedure IN6ADDR_SETV4MAPPED(a6 : PSOCKADDR_IN6; a4 : PInAddr;
const scope : {$IFDEF WINCE}u_long{$ELSE}SCOPE_ID{$ENDIF}; const port : USHORT );
begin
a6^.sin6_family := AF_INET6;
a6^.sin6_port := port;
a6^.sin6_flowinfo := 0;
IN6_SET_ADDR_V4MAPPED(a6^.sin6_addr, a4);
{$IFDEF WINCE}
a6^.sin6_scope_id := scope;
{$ELSE}
a6^.a.sin6_scope_struct := scope;
IN4_UNCANONICALIZE_SCOPE_ID(a4, @a6^.a.sin6_scope_struct);
{$ENDIF}
end;
//
// Define address-family-independent routines.
//
function INET_ADDR_EQUAL(const af : {$IFDEF WINCE}Int16{$ELSE}ADDRESS_FAMILY{$ENDIF};
const a, b : Pointer) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (af = AF_INET6) then begin
Result := IN6_ADDR_EQUAL(PIN6_ADDR(a), PIN6_ADDR(b));
end else begin
ASSERT(af = AF_INET);
Result := IN4_ADDR_EQUAL(PInAddr(a), PInAddr(b));
end;
end;
function INET_UNALIGNED_ADDR_EQUAL(const af : {$IFDEF WINCE}Int16{$ELSE}ADDRESS_FAMILY{$ENDIF};
const a, b : Pointer ) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (af = AF_INET6) then begin
Result := IN6_ADDR_EQUAL(PIN6_ADDR(a), PIN6_ADDR(b));
end else begin
ASSERT(af = AF_INET);
Result := IN4_UNALIGNED_ADDR_EQUAL(PInAddr(a), PInAddr(b));
end;
end;
function INET_IS_ADDR_UNSPECIFIED(const af : {$IFDEF WINCE}Int16{$ELSE}ADDRESS_FAMILY{$ENDIF};
const a : Pointer) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (af = AF_INET6) then begin
Result := IN6_IS_ADDR_UNSPECIFIED(PIN6_ADDR(a));
end else begin
ASSERT(af = AF_INET);
Result := IN4_IS_ADDR_UNSPECIFIED(PInAddr(a));
end;
end;
function INET_IS_UNALIGNED_ADDR_UNSPECIFIED(const af : {$IFDEF WINCE}Int16{$ELSE}ADDRESS_FAMILY{$ENDIF};
const a : Pointer) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (af = AF_INET6) then begin
Result := IN6_IS_ADDR_LOOPBACK(PIN6_ADDR(a));
end else begin
ASSERT(af = AF_INET);
Result := IN4_IS_ADDR_LOOPBACK(PInAddr(a));
end;
end;
function INET_IS_ADDR_LOOPBACK(const af: {$IFDEF WINCE}Int16{$ELSE}ADDRESS_FAMILY{$ENDIF};
const a: Pointer): Boolean;
begin
if (af = AF_INET6) then begin
Result := IN6_IS_ADDR_LOOPBACK(PIn6Addr(a));
end else begin
ASSERT(af = AF_INET);
Result := IN4_IS_ADDR_LOOPBACK(PInAddr(a));
end;
end;
function INET_IS_ADDR_BROADCAST(const af : {$IFDEF WINCE}Int16{$ELSE}ADDRESS_FAMILY{$ENDIF};
const a : Pointer) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (af = AF_INET6) then begin
Result := False;
end else begin
ASSERT(af = AF_INET);
Result := IN4_IS_ADDR_BROADCAST(PInAddr(a));
end;
end;
function INET_IS_ADDR_MULTICAST(const af : {$IFDEF WINCE}Int16{$ELSE}ADDRESS_FAMILY{$ENDIF};
const a : Pointer) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (af = AF_INET6) then begin
Result := IN6_IS_ADDR_MULTICAST(PIN6_ADDR(a));
end else begin
ASSERT(af = AF_INET);
Result := IN4_IS_ADDR_MULTICAST(PInAddr(a));
end;
end;
function INET_ADDR_UNSPECIFIED(const af : {$IFDEF WINCE}Int16{$ELSE}ADDRESS_FAMILY{$ENDIF}) : PUCHAR;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (af = AF_INET6) then begin
Result := PUCHAR(@in6addr_any);
end else begin
ASSERT(af = AF_INET);
Result := PUCHAR(@_in4addr_any);
end;
end;
procedure INET_SET_ADDRESS( Family : {$IFDEF WINCE}Int16{$ELSE}ADDRESS_FAMILY{$ENDIF};
Address : PUCHAR; Value : PUCHAR);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (Family = AF_INET6) then begin
PIn6Addr(Address)^ := PIn6Addr(Value)^;
end else begin
ASSERT(Family = AF_INET);
PInAddr(Address)^ := PInAddr(Value)^;
end;
end;
function INET_ADDR_LENGTH(const af : {$IFDEF WINCE}Int16{$ELSE}ADDRESS_FAMILY{$ENDIF} ) : Size_t;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (af = AF_INET6) then begin
Result := SizeOf(IN6_ADDR);
end else begin
ASSERT(af = AF_INET);
Result := SizeOf(IN_ADDR);
end;
end;
function INET_SOCKADDR_LENGTH(const af : {$IFDEF WINCE}Int16{$ELSE}ADDRESS_FAMILY{$ENDIF}) : Size_t;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (af = AF_INET6) then begin
Result := SizeOf(SOCKADDR_IN6);
end else begin
ASSERT(af = AF_INET);
Result := SizeOf(SOCKADDR_IN);
end;
end;
//
function IN6ADDR_ANY_INIT: TIn6Addr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
System.FillChar(Result.s6_bytes, SIZE_TIN6ADDR, 0); {Do not Localize}
end;
function IN6ADDR_LOOPBACK_INIT: TIn6Addr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
System.FillChar(Result.s6_bytes, SIZE_TIN6ADDR, 0); {Do not Localize}
Result.s6_bytes[15] := 1;
end;
function IN6ADDR_ALLNODESONNODE_INIT : TIn6Addr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
System.FillChar(Result.s6_bytes, SIZE_TIN6ADDR, 0); {Do not Localize}
Result.s6_bytes[0] := $ff;
Result.s6_bytes[1] := $01;
Result.s6_bytes[15] := $01;
end;
function IN6ADDR_ALLNODESONLINK_INIT : TIn6Addr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
System.FillChar(Result.s6_bytes, SIZE_TIN6ADDR, 0); {Do not Localize}
Result.s6_bytes[0] := $ff;
Result.s6_bytes[1] := $02;
Result.s6_bytes[15] := $01;
end;
function IN6ADDR_ALLROUTERSONLINK_INIT : TIn6Addr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
System.FillChar(Result.s6_bytes, SIZE_TIN6ADDR, 0); {Do not Localize}
Result.s6_bytes[0] := $ff;
Result.s6_bytes[1] := $02;
Result.s6_bytes[15] := $02;
end;
function IN6ADDR_ALLMLDV2ROUTERSONLINK_INIT : TIn6Addr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
System.FillChar(Result.s6_bytes, SIZE_TIN6ADDR, 0); {Do not Localize}
Result.s6_bytes[0] := $ff;
Result.s6_bytes[1] := $02;
Result.s6_bytes[15] := $16;
end;
function IN6ADDR_TEREDOINITIALLINKLOCALADDRESS_INIT : TIn6Addr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
System.FillChar(Result.s6_bytes, SIZE_TIN6ADDR, 0); {Do not Localize}
Result.s6_bytes[0] := $fe;
Result.s6_bytes[1] := $80;
Result.s6_bytes[10] := $ff;
Result.s6_bytes[11] := $ff;
Result.s6_bytes[12] := $ff;
Result.s6_bytes[13] := $ff;
Result.s6_bytes[14] := $ff;
Result.s6_bytes[15] := $fe;
end;
//
// The old link local address for XP-SP2/Win2K3 machines.
//
function IN6ADDR_TEREDOOLDLINKLOCALADDRESSXP_INIT : TIn6Addr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
System.FillChar(Result.s6_bytes, SIZE_TIN6ADDR, 0); {Do not Localize}
Result.s6_bytes[0] := $fe;
Result.s6_bytes[1] := $80;
Result.s6_bytes[10] := Ord('T');
Result.s6_bytes[11] := Ord('E');
Result.s6_bytes[12] := Ord('R');
Result.s6_bytes[13] := Ord('E');
Result.s6_bytes[14] := Ord('D');
Result.s6_bytes[15] := Ord('O');
end;
//
// The old link local address for Vista Beta-2 and earlier machines.
//
function IN6ADDR_TEREDOOLDLINKLOCALADDRESSVISTA_INIT : TIn6Addr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
System.FillChar(Result.s6_bytes, SIZE_TIN6ADDR, 0); {Do not Localize}
Result.s6_bytes[0] := $fe;
Result.s6_bytes[1] := $80;
Result.s6_bytes[10] := $ff;
Result.s6_bytes[11] := $ff;
Result.s6_bytes[12] := $ff;
Result.s6_bytes[13] := $ff;
Result.s6_bytes[14] := $ff;
Result.s6_bytes[15] := $ff;
end;
function IN6ADDR_SOLICITEDNODEMULTICASTPREFIX_INIT : IN6_ADDR;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
System.FillChar(Result.s6_bytes, SIZE_TIN6ADDR, 0); {Do not Localize}
Result.s6_bytes[0] := $FF;
Result.s6_bytes[1] := $02;
Result.s6_bytes[11] := $01;
Result.s6_bytes[12] := $ff;
end;
function IN6ADDR_V4MAPPEDPREFIX_INIT : TIn6Addr;
begin
System.FillChar(Result.s6_bytes, SIZE_TIN6ADDR, 0); {Do not Localize}
Result.s6_bytes[10] := $ff;
Result.s6_bytes[11] := $ff;
end;
function IN6ADDR_6TO4PREFIX_INIT : TIn6Addr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
System.FillChar(Result.s6_bytes, SIZE_TIN6ADDR, 0); {Do not Localize}
Result.s6_bytes[0] := $20;
Result.s6_bytes[1] := $02;
end;
function IN6ADDR_TEREDOPREFIX_INIT : TIn6Addr;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
System.FillChar(Result.s6_bytes, SIZE_TIN6ADDR, 0); {Do not Localize}
Result.s6_bytes[0] := $20;
Result.s6_bytes[0] := $01;
end;
procedure IN6ADDR_SETANY(sa: PSockAddrIn6);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if sa <> nil then begin
sa^.sin6_family := AF_INET6;
sa^.sin6_port := 0;
sa^.sin6_flowinfo := 0;
PULONG(@sa^.sin6_addr.s6_bytes[0])^ := 0;
PULONG(@sa^.sin6_addr.s6_bytes[4])^ := 0;
PULONG(@sa^.sin6_addr.s6_bytes[8])^ := 0;
PULONG(@sa^.sin6_addr.s6_bytes[12])^ := 0;
end;
end;
procedure IN6ADDR_SETLOOPBACK(sa: PSockAddrIn6);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if sa <> nil then begin
sa^.sin6_family := AF_INET6;
sa^.sin6_port := 0;
sa^.sin6_flowinfo := 0;
PULONG(@sa^.sin6_addr.s6_bytes[0])^ := 0;
PULONG(@sa^.sin6_addr.s6_bytes[4])^ := 0;
PULONG(@sa^.sin6_addr.s6_bytes[8])^ := 0;
PULONG(@sa^.sin6_addr.s6_bytes[12])^ := 1;
end;
end;
function IN6ADDR_ISANY(sa: PSockAddrIn6): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if sa <> nil then begin
Result := (sa^.sin6_family = AF_INET6) and
(PULONG(@sa^.sin6_addr.s6_bytes[0])^ = 0) and
(PULONG(@sa^.sin6_addr.s6_bytes[4])^ = 0) and
(PULONG(@sa^.sin6_addr.s6_bytes[8])^ = 0) and
(PULONG(@sa^.sin6_addr.s6_bytes[12])^ = 0);
end else begin
Result := False;
end;
end;
function IN6ADDR_ISLOOPBACK(sa: PSockAddrIn6): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if sa <> nil then begin
Result := (sa^.sin6_family = AF_INET6) and
(PULONG(@sa^.sin6_addr.s6_bytes[0])^ = 0) and
(PULONG(@sa^.sin6_addr.s6_bytes[4])^ = 0) and
(PULONG(@sa^.sin6_addr.s6_bytes[8])^ = 0) and
(PULONG(@sa^.sin6_addr.s6_bytes[12])^ = 1);
end else begin
Result := False;
end;
end;
function IN6_ADDR_EQUAL(const a: PIn6Addr; const b: PIn6Addr): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := SysUtils.CompareMem(a, b, SIZE_TIN6ADDR);
end;
function IN6_IS_ADDR_UNSPECIFIED(const a: PIn6Addr): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := IN6_ADDR_EQUAL(a, @in6addr_any);
end;
function IN6_IS_ADDR_LOOPBACK(const a: PIn6Addr): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := IN6_ADDR_EQUAL(a, @in6addr_loopback);
end;
function IN6_IS_ADDR_MULTICAST(const a: PIn6Addr): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if a <> nil then begin
Result := (a^.s6_bytes[0] = $FF);
end else begin
Result := False;
end;
end;
function IN6_IS_ADDR_EUI64(const a : PIn6Addr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
//
// Format prefixes 001 through 111, except for multicast.
//
begin
if a <> nil then begin
Result := ((a^.s6_bytes[0] and $e0) <> 0 ) and (not IN6_IS_ADDR_MULTICAST(a));
end else begin
Result := False;
end;
end;
function IN6_IS_ADDR_SUBNET_ROUTER_ANYCAST(const a : PIn6Addr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
//
// Is this the subnet router anycast address?
// See RFC 2373.
//
begin
if a <> nil then begin
Result := IN6_IS_ADDR_EUI64(a) and (a^.s6_words[4] = 0) and
(a^.s6_words[5] = 0) and (a^.s6_words[6]=0) and (a^.s6_words[7]=0);
end else begin
Result := False;
end;
end;
function IN6_IS_ADDR_SUBNET_RESERVED_ANYCAST(const a: PIn6Addr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if a <> nil then begin
Result := IN6_IS_ADDR_EUI64(a) and (a^.s6_words[4] = $fffd) and
(a^.s6_words[5] = $ffff) and (a^.s6_words[6] = $ffff) and
((a^.s6_words[7] and $80ff) = $80ff);
end else begin
Result := False;
end;
end;
function IN6_IS_ADDR_ANYCAST(const a: PIn6Addr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if a <> nil then begin
Result := IN6_IS_ADDR_SUBNET_RESERVED_ANYCAST(a) or IN6_IS_ADDR_SUBNET_ROUTER_ANYCAST(a);
end else begin
Result := False;
end;
end;
function IN6_IS_ADDR_LINKLOCAL(const a: PIn6Addr): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if a <> nil then begin
Result := (a^.s6_bytes[0] = $FE) and ((a^.s6_bytes[1] and $C0) = $80);
end else begin
Result := False;
end;
end;
function IN6_IS_ADDR_SITELOCAL(const a: PIn6Addr): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if a <> nil then begin
Result := (a^.s6_bytes[0] = $FE) and ((a^.s6_bytes[1] and $C0) = $C0);
end else begin
Result := False;
end;
end;
function IN6_IS_ADDR_V4MAPPED(const a: PIn6Addr): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if a <> nil then begin
Result := (a^.s6_words[0] = 0) and
(a^.s6_words[1] = 0) and
(a^.s6_words[2] = 0) and
(a^.s6_words[3] = 0) and
(a^.s6_words[4] = 0) and
(a^.s6_words[5] = $FFFF);
end else begin
Result := False;
end;
end;
function IN6_IS_ADDR_V4COMPAT(const a: PIn6Addr): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if a <> nil then begin
Result := (a^.s6_words[0] = 0) and
(a^.s6_words[1] = 0) and
(a^.s6_words[2] = 0) and
(a^.s6_words[3] = 0) and
(a^.s6_words[4] = 0) and
(a^.s6_words[5] = 0) and
not ((a^.s6_words[6] = 0) and (a^.s6_bytes[14] = 0) and
((a^.s6_bytes[15] = 0) or (a^.s6_bytes[15] = 1)));
end else begin
Result := False;
end;
end;
function IN6_IS_ADDR_V4TRANSLATED(const a: PIn6Addr): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := ((a^.s6_words[0] = 0) and
(a^.s6_words[1] = 0) and
(a^.s6_words[2] = 0) and
(a^.s6_words[3] = 0) and
(a^.s6_words[4] = $ffff) and
(a^.s6_words[5] = 0));
end;
procedure INETADDR_SETSOCKADDR(const af : {$IFDEF WINCE}Int16{$ELSE}ADDRESS_FAMILY{$ENDIF};
a : PSOCKADDR; addr : Pointer; const scope : {$IFDEF WINCE}u_long{$ELSE}SCOPE_ID{$ENDIF}; const port : USHORT);
{$IFDEF USE_INLINE}inline;{$ENDIF}
var
addr4 : IN_ADDR;
begin
if (af = AF_INET6) then begin
IN6ADDR_SETSOCKADDR(PSOCKADDR_IN6( a), PIN6_ADDR( addr ), scope, port);
end else begin
addr4 := PInAddr(addr)^;
ASSERT(af = AF_INET);
IN4ADDR_SETSOCKADDR(PSockAddrIn(a),PInAddr( @addr4), port);
end;
end;
procedure INETADDR_SETANY(a : PSOCKADDR);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (a^.sa_family = AF_INET6) then begin
IN6ADDR_SETANY(PSOCKADDR_IN6(a));
end else begin
ASSERT(a^.sa_family = AF_INET);
IN4ADDR_SETANY(PSockAddrIn(a));
end;
end;
procedure INETADDR_SETLOOPBACK(a : PSOCKADDR);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (a^.sa_family = AF_INET6) then begin
IN6ADDR_SETLOOPBACK(PSOCKADDR_IN6(a));
end else begin
ASSERT(a^.sa_family = AF_INET);
IN4ADDR_SETLOOPBACK(PSockAddrIn(a));
end;
end;
function INETADDR_ISANY(const a : PSOCKADDR) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (a^.sa_family = AF_INET6) then begin
Result := IN6ADDR_ISANY(PSOCKADDR_IN6(a));
end else begin
ASSERT(a^.sa_family = AF_INET);
Result := IN4ADDR_ISANY(PSockAddrIn(a));
end;
end;
function INETADDR_ISLOOPBACK(const a : PSockAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (a^.sa_family = AF_INET6) then begin
Result := IN6ADDR_ISLOOPBACK(PSOCKADDR_IN6(a));
end else begin
ASSERT(a^.sa_family = AF_INET);
Result := IN4ADDR_ISLOOPBACK(PSockAddrIn(a));
end;
end;
function INETADDR_ISV4MAPPED(const a : PSockAddr) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (a^.sa_family = AF_INET6) then begin
Result := IN6ADDR_ISV4MAPPED(PSOCKADDR_IN6(a));
end else begin
Result := False;
end;
end;
function NL_ADDR_EQUAL(const af : {$IFDEF WINCE}Int16{$ELSE}ADDRESS_FAMILY{$ENDIF};
const sa : {$IFDEF WINCE}u_long{$ELSE}SCOPE_ID{$ENDIF};
const aa : PUCHAR;
const sb : {$IFDEF WINCE}u_long{$ELSE}SCOPE_ID{$ENDIF};
const ab : PUCHAR) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := ((sa{$IFNDEF WINCE}.Value{$ENDIF} = sb{$IFNDEF WINCE}.Value{$ENDIF}) and
INET_ADDR_EQUAL(af, aa, ab));
end;
function NL_IS_ADDR_UNSPECIFIED(const af : {$IFDEF WINCE}Int16{$ELSE}ADDRESS_FAMILY{$ENDIF};
const s : {$IFDEF WINCE}u_long{$ELSE}SCOPE_ID{$ENDIF};
const a : PUCHAR) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := ((s{$IFNDEF WINCE}.Value{$ENDIF} = 0) and INET_IS_ADDR_UNSPECIFIED(af, a));
end;
function IN6ADDR_ISEQUAL(const a,b : PSOCKADDR_IN6 ) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
ASSERT(a^.sin6_family = AF_INET6);
Result := (a^.{$IFNDEF WINCE}a.{$ENDIF}sin6_scope_id = b^.{$IFNDEF WINCE}a.{$ENDIF}sin6_scope_id) and
IN6_ADDR_EQUAL(@a^.sin6_addr, @b^.sin6_addr);
end;
function INETADDR_ISEQUAL(const a,b : PSOCKADDR) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (a^.sa_family = AF_INET6) then begin
Result := (b^.sa_family = AF_INET6) and
IN6ADDR_ISEQUAL(PSOCKADDR_IN6(a), PSOCKADDR_IN6(b));
end else begin
ASSERT(a^.sa_family = AF_INET);
Result := (b^.sa_family = AF_INET) and
IN4ADDR_ISEQUAL(PSOCKADDR_IN(a), PSOCKADDR_IN(b));
end;
end;
function IN6ADDR_ISUNSPECIFIED(a : PSOCKADDR_IN6) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
ASSERT(a^.sin6_family = AF_INET6);
Result := (a^.{$IFNDEF WINCE}a.{$ENDIF}sin6_scope_id = 0) and
IN6_IS_ADDR_UNSPECIFIED(@a^.sin6_addr);
end;
function INETADDR_ISUNSPECIFIED(const a : PSOCKADDR) : Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (a^.sa_family = AF_INET6) then begin
Result := IN6ADDR_ISUNSPECIFIED( PSOCKADDR_IN6(a));
end else begin
ASSERT(a^.sa_family = AF_INET);
Result := IN4ADDR_ISUNSPECIFIED(PSOCKADDR_IN(a));
end;
end;
function INETADDR_SCOPE_ID(const a : PSOCKADDR) : {$IFDEF WINCE}u_long{$ELSE}SCOPE_ID{$ENDIF};
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (a^.sa_family = AF_INET6) then begin
Result := PSOCKADDR_IN6(a)^.{$IFDEF WINCE}sin6_scope_id{$ELSE}a.sin6_scope_struct{$ENDIF};
end else begin
ASSERT(a^.sa_family = AF_INET);
Result := IN4ADDR_SCOPE_ID(PSOCKADDR_IN(a));
end;
end;
function INETADDR_PORT(const a : PSOCKADDR) : USHORT;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (a^.sa_family = AF_INET6) then begin
Result := PSOCKADDR_IN6(a)^.sin6_port;
end else begin
ASSERT(a^.sa_family = AF_INET);
Result := PSOCKADDR_IN(a)^.sin_port;
end;
end;
function INETADDR_ADDRESS(const a : PSOCKADDR) : PUCHAR;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (a^.sa_family = AF_INET6) then begin
Result := PUCHAR(@(PSOCKADDR_IN6(a))^.sin6_addr);
end else begin
ASSERT(a^.sa_family = AF_INET);
Result := PUCHAR(@(PSOCKADDR_IN(a))^.sin_addr);
end;
end;
procedure INETADDR_SET_PORT(const a : PSOCKADDR; Port : USHORT);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
a^.sin_port := Port;
end;
procedure INETADDR_SET_ADDRESS(const a : PSOCKADDR; Address : PUCHAR);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (a^.sa_family = AF_INET6) then begin
PSOCKADDR_IN6(a)^.sin6_addr := PIN6_ADDR(Address)^;
end else begin
ASSERT(PSOCKADDR_IN(a)^.sa_family = AF_INET);
PSOCKADDR_IN(a)^.sin_addr := PInAddr(Address)^;
end;
end;
{$IFNDEF WINCE}
procedure INET_UNCANONICALIZE_SCOPE_ID( AddressFamily : ADDRESS_FAMILY;
Address : PUCHAR; ScopeId : PSCOPE_ID);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if (AddressFamily = AF_INET6) then begin
IN6_UNCANONICALIZE_SCOPE_ID(PIn6Addr( Address), ScopeId);
end else begin
IN4_UNCANONICALIZE_SCOPE_ID(PInAddr( Address), ScopeId);
end;
end;
{$ENDIF}
function IN6_IS_ADDR_MC_NODELOCAL(const a: PIn6Addr): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if a <> nil then begin
Result := IN6_IS_ADDR_MULTICAST(a) and ((a^.s6_bytes[1] and $F) = 1);
end else begin
Result := False;
end;
end;
function IN6_IS_ADDR_MC_LINKLOCAL(const a: PIn6Addr): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if a <> nil then begin
Result := IN6_IS_ADDR_MULTICAST(a) and ((a^.s6_bytes[1] and $F) = 2);
end else begin
Result := False;
end;
end;
function IN6_IS_ADDR_MC_SITELOCAL(const a: PIn6Addr): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if a <> nil then begin
Result := IN6_IS_ADDR_MULTICAST(a) and ((a^.s6_bytes[1] and $F) = 5);
end else begin
Result := False;
end;
end;
function IN6_IS_ADDR_MC_ORGLOCAL(const a: PIn6Addr): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if a <> nil then begin
Result := IN6_IS_ADDR_MULTICAST(a) and ((a^.s6_bytes[1] and $F) = 8);
end else begin
Result := False;
end;
end;
function IN6_IS_ADDR_MC_GLOBAL(const a: PIn6Addr): Boolean;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
if a <> nil then begin
Result := IN6_IS_ADDR_MULTICAST(a) and ((a^.s6_bytes[1] and $F) = $E);
end else begin
Result := False;
end;
end;
procedure IN6_SET_ADDR_UNSPECIFIED(a : PIN6_ADDR);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
System.FillChar(a^.s6_bytes, SizeOf(IN6_ADDR), 0 );
end;
procedure IN6_SET_ADDR_LOOPBACK(a : PIN6_ADDR);
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
System.FillChar(a^.s6_bytes, SizeOf(IN6_ADDR), 0 );
a^.s6_bytes[15] := 1;
end;
// A macro convenient for setting up NETBIOS SOCKADDRs.
procedure SET_NETBIOS_SOCKADDR(snb : PSockAddrNB; const SnbType : Word; const Name : PAnsiChar; const Port : AnsiChar);
var
len : {$IFDEF FPC}sizeint{$ELSE}DWord{$ENDIF};
begin
if snb <> nil then begin
snb^.snb_family := AF_NETBIOS;
snb^.snb_type := SnbType;
len := {$IFDEF HAS_AnsiStrings_StrLen}AnsiStrings.{$ENDIF}StrLen(Name);
if len >= NETBIOS_NAME_LENGTH-1 then begin
System.Move(Name^, snb^.snb_name, NETBIOS_NAME_LENGTH-1);
end else begin
if len > 0 then begin
System.Move(Name^, snb^.snb_name, LongInt(len));
end;
System.FillChar((PAnsiChar(@snb^.snb_name)+len)^, NETBIOS_NAME_LENGTH-1-len, ' '); {Do not Localize}
end;
snb^.snb_name[NETBIOS_NAME_LENGTH-1] := Port;
end;
end;
function GROUP_FILTER_SIZE(const numsrc : DWord) : PtrUInt;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
Result := (SIZE_GROUP_FILTER - SIZE_SOCKADDR_STORAGE) + (numsrc * SIZE_SOCKADDR_STORAGE);
end;
initialization
scopeid_unspecified := SCOPEID_UNSPECIFIED_INIT;
_in4addr_any := IN4ADDR_ANY_INIT;
_in4addr_loopback := IN4ADDR_LOOPBACK_INIT;
_in4addr_broadcast := IN4ADDR_BROADCAST_INIT;
in4addr_allnodesonlink := IN4ADDR_ALLNODESONLINK_INIT;
in4addr_allroutersonlink := IN4ADDR_ALLROUTERSONLINK_INIT;
in4addr_alligmpv3routersonlink := IN4ADDR_ALLIGMPV3ROUTERSONLINK_INIT;
in4addr_allteredohostsonlink := IN4ADDR_ALLTEREDONODESONLINK_INIT;
in4addr_linklocalprefix := IN4ADDR_LINKLOCALPREFIX_INIT;
in4addr_multicastprefix := IN4ADDR_MULTICASTPREFIX_INIT;
in6addr_any := IN6ADDR_ANY_INIT;
in6addr_loopback := IN6ADDR_LOOPBACK_INIT;
in6addr_allnodesonnode := IN6ADDR_ALLNODESONNODE_INIT;
in6addr_allnodesonlink := IN6ADDR_ALLNODESONLINK_INIT;
in6addr_allroutersonlink := IN6ADDR_ALLROUTERSONLINK_INIT;
in6addr_solicitednodemulticastprefix := IN6ADDR_SOLICITEDNODEMULTICASTPREFIX_INIT;
in6addr_v4mappedprefix := IN6ADDR_V4MAPPEDPREFIX_INIT;
in6addr_6to4prefix := IN6ADDR_6TO4PREFIX_INIT;
in6addr_teredoprefix := IN6ADDR_TEREDOPREFIX_INIT;
InitializeStubs;
end.
Reference in New Issue View Git Blame Copy Permalink