mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-23 07:48:50 -05:00
1599 lines
53 KiB
ObjectPascal
1599 lines
53 KiB
ObjectPascal
{==============================================================================|
|
|
| Project : Ararat Synapse | 002.002.003 |
|
|
|==============================================================================|
|
|
| Content: Socket Independent Platform Layer - Win32 definition include |
|
|
|==============================================================================|
|
|
| Copyright (c)1999-2010, Lukas Gebauer |
|
|
| All rights reserved. |
|
|
| |
|
|
| Redistribution and use in source and binary forms, with or without |
|
|
| modification, are permitted provided that the following conditions are met: |
|
|
| |
|
|
| Redistributions of source code must retain the above copyright notice, this |
|
|
| list of conditions and the following disclaimer. |
|
|
| |
|
|
| Redistributions in binary form must reproduce the above copyright notice, |
|
|
| this list of conditions and the following disclaimer in the documentation |
|
|
| and/or other materials provided with the distribution. |
|
|
| |
|
|
| Neither the name of Lukas Gebauer nor the names of its contributors may |
|
|
| be used to endorse or promote products derived from this software without |
|
|
| specific prior written permission. |
|
|
| |
|
|
| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" |
|
|
| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
|
|
| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
|
|
| ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR |
|
|
| ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
|
|
| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR |
|
|
| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER |
|
|
| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
|
|
| LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
|
|
| OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH |
|
|
| DAMAGE. |
|
|
|==============================================================================|
|
|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
|
|
| Portions created by Lukas Gebauer are Copyright (c)2003-2010. |
|
|
| All Rights Reserved. |
|
|
|==============================================================================|
|
|
| Contributor(s): |
|
|
|==============================================================================|
|
|
| History: see HISTORY.HTM from distribution package |
|
|
| (Found at URL: http://www.ararat.cz/synapse/) |
|
|
|==============================================================================}
|
|
|
|
{:@exclude}
|
|
|
|
//{$DEFINE WINSOCK1}
|
|
{Note about define WINSOCK1:
|
|
If you activate this compiler directive, then socket interface level 1.1 is
|
|
used instead default level 2.2. Level 2.2 is not available on old W95, however
|
|
you can install update.
|
|
}
|
|
|
|
//{$DEFINE FORCEOLDAPI}
|
|
{Note about define FORCEOLDAPI:
|
|
If you activate this compiler directive, then is allways used old socket API
|
|
for name resolution. If you leave this directive inactive, then the new API
|
|
is used, when running system allows it.
|
|
|
|
For IPv6 support you must have new API!
|
|
}
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE DELPHI}
|
|
{$ENDIF}
|
|
{$H+}
|
|
{$IFDEF VER125}
|
|
{$DEFINE BCB}
|
|
{$ENDIF}
|
|
{$IFDEF BCB}
|
|
{$ObjExportAll On}
|
|
(*$HPPEMIT '/* EDE 2003-02-19 */' *)
|
|
(*$HPPEMIT 'namespace Synsock { using System::Shortint; }' *)
|
|
(*$HPPEMIT '#undef h_addr' *)
|
|
(*$HPPEMIT '#undef IOCPARM_MASK' *)
|
|
(*$HPPEMIT '#undef FD_SETSIZE' *)
|
|
(*$HPPEMIT '#undef IOC_VOID' *)
|
|
(*$HPPEMIT '#undef IOC_OUT' *)
|
|
(*$HPPEMIT '#undef IOC_IN' *)
|
|
(*$HPPEMIT '#undef IOC_INOUT' *)
|
|
(*$HPPEMIT '#undef FIONREAD' *)
|
|
(*$HPPEMIT '#undef FIONBIO' *)
|
|
(*$HPPEMIT '#undef FIOASYNC' *)
|
|
(*$HPPEMIT '#undef IPPROTO_IP' *)
|
|
(*$HPPEMIT '#undef IPPROTO_ICMP' *)
|
|
(*$HPPEMIT '#undef IPPROTO_IGMP' *)
|
|
(*$HPPEMIT '#undef IPPROTO_TCP' *)
|
|
(*$HPPEMIT '#undef IPPROTO_UDP' *)
|
|
(*$HPPEMIT '#undef IPPROTO_RAW' *)
|
|
(*$HPPEMIT '#undef IPPROTO_MAX' *)
|
|
(*$HPPEMIT '#undef INADDR_ANY' *)
|
|
(*$HPPEMIT '#undef INADDR_LOOPBACK' *)
|
|
(*$HPPEMIT '#undef INADDR_BROADCAST' *)
|
|
(*$HPPEMIT '#undef INADDR_NONE' *)
|
|
(*$HPPEMIT '#undef INVALID_SOCKET' *)
|
|
(*$HPPEMIT '#undef SOCKET_ERROR' *)
|
|
(*$HPPEMIT '#undef WSADESCRIPTION_LEN' *)
|
|
(*$HPPEMIT '#undef WSASYS_STATUS_LEN' *)
|
|
(*$HPPEMIT '#undef IP_OPTIONS' *)
|
|
(*$HPPEMIT '#undef IP_TOS' *)
|
|
(*$HPPEMIT '#undef IP_TTL' *)
|
|
(*$HPPEMIT '#undef IP_MULTICAST_IF' *)
|
|
(*$HPPEMIT '#undef IP_MULTICAST_TTL' *)
|
|
(*$HPPEMIT '#undef IP_MULTICAST_LOOP' *)
|
|
(*$HPPEMIT '#undef IP_ADD_MEMBERSHIP' *)
|
|
(*$HPPEMIT '#undef IP_DROP_MEMBERSHIP' *)
|
|
(*$HPPEMIT '#undef IP_DONTFRAGMENT' *)
|
|
(*$HPPEMIT '#undef IP_DEFAULT_MULTICAST_TTL' *)
|
|
(*$HPPEMIT '#undef IP_DEFAULT_MULTICAST_LOOP' *)
|
|
(*$HPPEMIT '#undef IP_MAX_MEMBERSHIPS' *)
|
|
(*$HPPEMIT '#undef SOL_SOCKET' *)
|
|
(*$HPPEMIT '#undef SO_DEBUG' *)
|
|
(*$HPPEMIT '#undef SO_ACCEPTCONN' *)
|
|
(*$HPPEMIT '#undef SO_REUSEADDR' *)
|
|
(*$HPPEMIT '#undef SO_KEEPALIVE' *)
|
|
(*$HPPEMIT '#undef SO_DONTROUTE' *)
|
|
(*$HPPEMIT '#undef SO_BROADCAST' *)
|
|
(*$HPPEMIT '#undef SO_USELOOPBACK' *)
|
|
(*$HPPEMIT '#undef SO_LINGER' *)
|
|
(*$HPPEMIT '#undef SO_OOBINLINE' *)
|
|
(*$HPPEMIT '#undef SO_DONTLINGER' *)
|
|
(*$HPPEMIT '#undef SO_SNDBUF' *)
|
|
(*$HPPEMIT '#undef SO_RCVBUF' *)
|
|
(*$HPPEMIT '#undef SO_SNDLOWAT' *)
|
|
(*$HPPEMIT '#undef SO_RCVLOWAT' *)
|
|
(*$HPPEMIT '#undef SO_SNDTIMEO' *)
|
|
(*$HPPEMIT '#undef SO_RCVTIMEO' *)
|
|
(*$HPPEMIT '#undef SO_ERROR' *)
|
|
(*$HPPEMIT '#undef SO_OPENTYPE' *)
|
|
(*$HPPEMIT '#undef SO_SYNCHRONOUS_ALERT' *)
|
|
(*$HPPEMIT '#undef SO_SYNCHRONOUS_NONALERT' *)
|
|
(*$HPPEMIT '#undef SO_MAXDG' *)
|
|
(*$HPPEMIT '#undef SO_MAXPATHDG' *)
|
|
(*$HPPEMIT '#undef SO_UPDATE_ACCEPT_CONTEXT' *)
|
|
(*$HPPEMIT '#undef SO_CONNECT_TIME' *)
|
|
(*$HPPEMIT '#undef SO_TYPE' *)
|
|
(*$HPPEMIT '#undef SOCK_STREAM' *)
|
|
(*$HPPEMIT '#undef SOCK_DGRAM' *)
|
|
(*$HPPEMIT '#undef SOCK_RAW' *)
|
|
(*$HPPEMIT '#undef SOCK_RDM' *)
|
|
(*$HPPEMIT '#undef SOCK_SEQPACKET' *)
|
|
(*$HPPEMIT '#undef TCP_NODELAY' *)
|
|
(*$HPPEMIT '#undef AF_UNSPEC' *)
|
|
(*$HPPEMIT '#undef SOMAXCONN' *)
|
|
(*$HPPEMIT '#undef AF_INET' *)
|
|
(*$HPPEMIT '#undef AF_MAX' *)
|
|
(*$HPPEMIT '#undef PF_UNSPEC' *)
|
|
(*$HPPEMIT '#undef PF_INET' *)
|
|
(*$HPPEMIT '#undef PF_MAX' *)
|
|
(*$HPPEMIT '#undef MSG_OOB' *)
|
|
(*$HPPEMIT '#undef MSG_PEEK' *)
|
|
(*$HPPEMIT '#undef WSABASEERR' *)
|
|
(*$HPPEMIT '#undef WSAEINTR' *)
|
|
(*$HPPEMIT '#undef WSAEBADF' *)
|
|
(*$HPPEMIT '#undef WSAEACCES' *)
|
|
(*$HPPEMIT '#undef WSAEFAULT' *)
|
|
(*$HPPEMIT '#undef WSAEINVAL' *)
|
|
(*$HPPEMIT '#undef WSAEMFILE' *)
|
|
(*$HPPEMIT '#undef WSAEWOULDBLOCK' *)
|
|
(*$HPPEMIT '#undef WSAEINPROGRESS' *)
|
|
(*$HPPEMIT '#undef WSAEALREADY' *)
|
|
(*$HPPEMIT '#undef WSAENOTSOCK' *)
|
|
(*$HPPEMIT '#undef WSAEDESTADDRREQ' *)
|
|
(*$HPPEMIT '#undef WSAEMSGSIZE' *)
|
|
(*$HPPEMIT '#undef WSAEPROTOTYPE' *)
|
|
(*$HPPEMIT '#undef WSAENOPROTOOPT' *)
|
|
(*$HPPEMIT '#undef WSAEPROTONOSUPPORT' *)
|
|
(*$HPPEMIT '#undef WSAESOCKTNOSUPPORT' *)
|
|
(*$HPPEMIT '#undef WSAEOPNOTSUPP' *)
|
|
(*$HPPEMIT '#undef WSAEPFNOSUPPORT' *)
|
|
(*$HPPEMIT '#undef WSAEAFNOSUPPORT' *)
|
|
(*$HPPEMIT '#undef WSAEADDRINUSE' *)
|
|
(*$HPPEMIT '#undef WSAEADDRNOTAVAIL' *)
|
|
(*$HPPEMIT '#undef WSAENETDOWN' *)
|
|
(*$HPPEMIT '#undef WSAENETUNREACH' *)
|
|
(*$HPPEMIT '#undef WSAENETRESET' *)
|
|
(*$HPPEMIT '#undef WSAECONNABORTED' *)
|
|
(*$HPPEMIT '#undef WSAECONNRESET' *)
|
|
(*$HPPEMIT '#undef WSAENOBUFS' *)
|
|
(*$HPPEMIT '#undef WSAEISCONN' *)
|
|
(*$HPPEMIT '#undef WSAENOTCONN' *)
|
|
(*$HPPEMIT '#undef WSAESHUTDOWN' *)
|
|
(*$HPPEMIT '#undef WSAETOOMANYREFS' *)
|
|
(*$HPPEMIT '#undef WSAETIMEDOUT' *)
|
|
(*$HPPEMIT '#undef WSAECONNREFUSED' *)
|
|
(*$HPPEMIT '#undef WSAELOOP' *)
|
|
(*$HPPEMIT '#undef WSAENAMETOOLONG' *)
|
|
(*$HPPEMIT '#undef WSAEHOSTDOWN' *)
|
|
(*$HPPEMIT '#undef WSAEHOSTUNREACH' *)
|
|
(*$HPPEMIT '#undef WSAENOTEMPTY' *)
|
|
(*$HPPEMIT '#undef WSAEPROCLIM' *)
|
|
(*$HPPEMIT '#undef WSAEUSERS' *)
|
|
(*$HPPEMIT '#undef WSAEDQUOT' *)
|
|
(*$HPPEMIT '#undef WSAESTALE' *)
|
|
(*$HPPEMIT '#undef WSAEREMOTE' *)
|
|
(*$HPPEMIT '#undef WSASYSNOTREADY' *)
|
|
(*$HPPEMIT '#undef WSAVERNOTSUPPORTED' *)
|
|
(*$HPPEMIT '#undef WSANOTINITIALISED' *)
|
|
(*$HPPEMIT '#undef WSAEDISCON' *)
|
|
(*$HPPEMIT '#undef WSAENOMORE' *)
|
|
(*$HPPEMIT '#undef WSAECANCELLED' *)
|
|
(*$HPPEMIT '#undef WSAEEINVALIDPROCTABLE' *)
|
|
(*$HPPEMIT '#undef WSAEINVALIDPROVIDER' *)
|
|
(*$HPPEMIT '#undef WSAEPROVIDERFAILEDINIT' *)
|
|
(*$HPPEMIT '#undef WSASYSCALLFAILURE' *)
|
|
(*$HPPEMIT '#undef WSASERVICE_NOT_FOUND' *)
|
|
(*$HPPEMIT '#undef WSATYPE_NOT_FOUND' *)
|
|
(*$HPPEMIT '#undef WSA_E_NO_MORE' *)
|
|
(*$HPPEMIT '#undef WSA_E_CANCELLED' *)
|
|
(*$HPPEMIT '#undef WSAEREFUSED' *)
|
|
(*$HPPEMIT '#undef WSAHOST_NOT_FOUND' *)
|
|
(*$HPPEMIT '#undef HOST_NOT_FOUND' *)
|
|
(*$HPPEMIT '#undef WSATRY_AGAIN' *)
|
|
(*$HPPEMIT '#undef TRY_AGAIN' *)
|
|
(*$HPPEMIT '#undef WSANO_RECOVERY' *)
|
|
(*$HPPEMIT '#undef NO_RECOVERY' *)
|
|
(*$HPPEMIT '#undef WSANO_DATA' *)
|
|
(*$HPPEMIT '#undef NO_DATA' *)
|
|
(*$HPPEMIT '#undef WSANO_ADDRESS' *)
|
|
(*$HPPEMIT '#undef ENAMETOOLONG' *)
|
|
(*$HPPEMIT '#undef ENOTEMPTY' *)
|
|
(*$HPPEMIT '#undef FD_CLR' *)
|
|
(*$HPPEMIT '#undef FD_ISSET' *)
|
|
(*$HPPEMIT '#undef FD_SET' *)
|
|
(*$HPPEMIT '#undef FD_ZERO' *)
|
|
(*$HPPEMIT '#undef NO_ADDRESS' *)
|
|
(*$HPPEMIT '#undef ADDR_ANY' *)
|
|
(*$HPPEMIT '#undef SO_GROUP_ID' *)
|
|
(*$HPPEMIT '#undef SO_GROUP_PRIORITY' *)
|
|
(*$HPPEMIT '#undef SO_MAX_MSG_SIZE' *)
|
|
(*$HPPEMIT '#undef SO_PROTOCOL_INFOA' *)
|
|
(*$HPPEMIT '#undef SO_PROTOCOL_INFOW' *)
|
|
(*$HPPEMIT '#undef SO_PROTOCOL_INFO' *)
|
|
(*$HPPEMIT '#undef PVD_CONFIG' *)
|
|
(*$HPPEMIT '#undef AF_INET6' *)
|
|
(*$HPPEMIT '#undef PF_INET6' *)
|
|
{$ENDIF}
|
|
|
|
interface
|
|
|
|
uses
|
|
SyncObjs, SysUtils, Classes,
|
|
Windows;
|
|
|
|
function InitSocketInterface(stack: String): Boolean;
|
|
function DestroySocketInterface: Boolean;
|
|
|
|
const
|
|
{$IFDEF WINSOCK1}
|
|
WinsockLevel = $0101;
|
|
{$ELSE}
|
|
WinsockLevel = $0202;
|
|
{$ENDIF}
|
|
|
|
type
|
|
u_short = Word;
|
|
u_int = Integer;
|
|
u_long = Longint;
|
|
pu_long = ^u_long;
|
|
pu_short = ^u_short;
|
|
{$IFDEF FPC}
|
|
TSocket = ptruint;
|
|
{$ELSE}
|
|
TSocket = u_int;
|
|
{$ENDIF}
|
|
TAddrFamily = integer;
|
|
|
|
TMemory = pointer;
|
|
|
|
const
|
|
{$IFDEF WINSOCK1}
|
|
DLLStackName = 'wsock32.dll';
|
|
{$ELSE}
|
|
DLLStackName = 'ws2_32.dll';
|
|
{$ENDIF}
|
|
DLLwship6 = 'wship6.dll';
|
|
|
|
cLocalhost = '127.0.0.1';
|
|
cAnyHost = '0.0.0.0';
|
|
cBroadcast = '255.255.255.255';
|
|
c6Localhost = '::1';
|
|
c6AnyHost = '::0';
|
|
c6Broadcast = 'ffff::1';
|
|
cAnyPort = '0';
|
|
|
|
|
|
const
|
|
FD_SETSIZE = 64;
|
|
type
|
|
PFDSet = ^TFDSet;
|
|
TFDSet = record
|
|
fd_count: u_int;
|
|
fd_array: array[0..FD_SETSIZE-1] of TSocket;
|
|
end;
|
|
|
|
const
|
|
FIONREAD = $4004667f;
|
|
FIONBIO = $8004667e;
|
|
FIOASYNC = $8004667d;
|
|
|
|
type
|
|
PTimeVal = ^TTimeVal;
|
|
TTimeVal = record
|
|
tv_sec: Longint;
|
|
tv_usec: Longint;
|
|
end;
|
|
|
|
const
|
|
IPPROTO_IP = 0; { Dummy }
|
|
IPPROTO_ICMP = 1; { Internet Control Message Protocol }
|
|
IPPROTO_IGMP = 2; { Internet Group Management Protocol}
|
|
IPPROTO_TCP = 6; { TCP }
|
|
IPPROTO_UDP = 17; { User Datagram Protocol }
|
|
IPPROTO_IPV6 = 41;
|
|
IPPROTO_ICMPV6 = 58;
|
|
IPPROTO_RM = 113;
|
|
|
|
IPPROTO_RAW = 255;
|
|
IPPROTO_MAX = 256;
|
|
|
|
type
|
|
|
|
PInAddr = ^TInAddr;
|
|
TInAddr = record
|
|
case integer of
|
|
0: (S_bytes: packed array [0..3] of byte);
|
|
1: (S_addr: u_long);
|
|
end;
|
|
|
|
PSockAddrIn = ^TSockAddrIn;
|
|
TSockAddrIn = record
|
|
case Integer of
|
|
0: (sin_family: u_short;
|
|
sin_port: u_short;
|
|
sin_addr: TInAddr;
|
|
sin_zero: array[0..7] of byte);
|
|
1: (sa_family: u_short;
|
|
sa_data: array[0..13] of byte)
|
|
end;
|
|
|
|
TIP_mreq = record
|
|
imr_multiaddr: TInAddr; { IP multicast address of group }
|
|
imr_interface: TInAddr; { local IP address of interface }
|
|
end;
|
|
|
|
PInAddr6 = ^TInAddr6;
|
|
TInAddr6 = record
|
|
case integer of
|
|
0: (S6_addr: packed array [0..15] of byte);
|
|
1: (u6_addr8: packed array [0..15] of byte);
|
|
2: (u6_addr16: packed array [0..7] of word);
|
|
3: (u6_addr32: packed array [0..3] of integer);
|
|
end;
|
|
|
|
PSockAddrIn6 = ^TSockAddrIn6;
|
|
TSockAddrIn6 = record
|
|
sin6_family: u_short; // AF_INET6
|
|
sin6_port: u_short; // Transport level port number
|
|
sin6_flowinfo: u_long; // IPv6 flow information
|
|
sin6_addr: TInAddr6; // IPv6 address
|
|
sin6_scope_id: u_long; // Scope Id: IF number for link-local
|
|
// SITE id for site-local
|
|
end;
|
|
|
|
TIPv6_mreq = record
|
|
ipv6mr_multiaddr: TInAddr6; // IPv6 multicast address.
|
|
ipv6mr_interface: integer; // Interface index.
|
|
padding: integer;
|
|
end;
|
|
|
|
PHostEnt = ^THostEnt;
|
|
THostEnt = record
|
|
h_name: PAnsiChar;
|
|
h_aliases: ^PAnsiChar;
|
|
h_addrtype: Smallint;
|
|
h_length: Smallint;
|
|
case integer of
|
|
0: (h_addr_list: ^PAnsiChar);
|
|
1: (h_addr: ^PInAddr);
|
|
end;
|
|
|
|
PNetEnt = ^TNetEnt;
|
|
TNetEnt = record
|
|
n_name: PAnsiChar;
|
|
n_aliases: ^PAnsiChar;
|
|
n_addrtype: Smallint;
|
|
n_net: u_long;
|
|
end;
|
|
|
|
PServEnt = ^TServEnt;
|
|
TServEnt = record
|
|
s_name: PAnsiChar;
|
|
s_aliases: ^PAnsiChar;
|
|
{$ifdef WIN64}
|
|
s_proto: PAnsiChar;
|
|
s_port: Smallint;
|
|
{$else}
|
|
s_port: Smallint;
|
|
s_proto: PAnsiChar;
|
|
{$endif}
|
|
end;
|
|
|
|
PProtoEnt = ^TProtoEnt;
|
|
TProtoEnt = record
|
|
p_name: PAnsiChar;
|
|
p_aliases: ^PAnsichar;
|
|
p_proto: Smallint;
|
|
end;
|
|
|
|
const
|
|
INADDR_ANY = $00000000;
|
|
INADDR_LOOPBACK = $7F000001;
|
|
INADDR_BROADCAST = $FFFFFFFF;
|
|
INADDR_NONE = $FFFFFFFF;
|
|
ADDR_ANY = INADDR_ANY;
|
|
INVALID_SOCKET = TSocket(NOT(0));
|
|
SOCKET_ERROR = -1;
|
|
|
|
Const
|
|
{$IFDEF WINSOCK1}
|
|
IP_OPTIONS = 1;
|
|
IP_MULTICAST_IF = 2; { set/get IP multicast interface }
|
|
IP_MULTICAST_TTL = 3; { set/get IP multicast timetolive }
|
|
IP_MULTICAST_LOOP = 4; { set/get IP multicast loopback }
|
|
IP_ADD_MEMBERSHIP = 5; { add an IP group membership }
|
|
IP_DROP_MEMBERSHIP = 6; { drop an IP group membership }
|
|
IP_TTL = 7; { set/get IP Time To Live }
|
|
IP_TOS = 8; { set/get IP Type Of Service }
|
|
IP_DONTFRAGMENT = 9; { set/get IP Don't Fragment flag }
|
|
{$ELSE}
|
|
IP_OPTIONS = 1;
|
|
IP_HDRINCL = 2;
|
|
IP_TOS = 3; { set/get IP Type Of Service }
|
|
IP_TTL = 4; { set/get IP Time To Live }
|
|
IP_MULTICAST_IF = 9; { set/get IP multicast interface }
|
|
IP_MULTICAST_TTL = 10; { set/get IP multicast timetolive }
|
|
IP_MULTICAST_LOOP = 11; { set/get IP multicast loopback }
|
|
IP_ADD_MEMBERSHIP = 12; { add an IP group membership }
|
|
IP_DROP_MEMBERSHIP = 13; { drop an IP group membership }
|
|
IP_DONTFRAGMENT = 14; { set/get IP Don't Fragment flag }
|
|
{$ENDIF}
|
|
|
|
IP_DEFAULT_MULTICAST_TTL = 1; { normally limit m'casts to 1 hop }
|
|
IP_DEFAULT_MULTICAST_LOOP = 1; { normally hear sends if a member }
|
|
IP_MAX_MEMBERSHIPS = 20; { per socket; must fit in one mbuf }
|
|
|
|
SOL_SOCKET = $ffff; {options for socket level }
|
|
{ Option flags per-socket. }
|
|
SO_DEBUG = $0001; { turn on debugging info recording }
|
|
SO_ACCEPTCONN = $0002; { socket has had listen() }
|
|
SO_REUSEADDR = $0004; { allow local address reuse }
|
|
SO_KEEPALIVE = $0008; { keep connections alive }
|
|
SO_DONTROUTE = $0010; { just use interface addresses }
|
|
SO_BROADCAST = $0020; { permit sending of broadcast msgs }
|
|
SO_USELOOPBACK = $0040; { bypass hardware when possible }
|
|
SO_LINGER = $0080; { linger on close if data present }
|
|
SO_OOBINLINE = $0100; { leave received OOB data in line }
|
|
SO_DONTLINGER = $ff7f;
|
|
{ Additional options. }
|
|
SO_SNDBUF = $1001; { send buffer size }
|
|
SO_RCVBUF = $1002; { receive buffer size }
|
|
SO_SNDLOWAT = $1003; { send low-water mark }
|
|
SO_RCVLOWAT = $1004; { receive low-water mark }
|
|
SO_SNDTIMEO = $1005; { send timeout }
|
|
SO_RCVTIMEO = $1006; { receive timeout }
|
|
SO_ERROR = $1007; { get error status and clear }
|
|
SO_TYPE = $1008; { get socket type }
|
|
{ WinSock 2 extension -- new options }
|
|
SO_GROUP_ID = $2001; { ID of a socket group}
|
|
SO_GROUP_PRIORITY = $2002; { the relative priority within a group}
|
|
SO_MAX_MSG_SIZE = $2003; { maximum message size }
|
|
SO_PROTOCOL_INFOA = $2004; { WSAPROTOCOL_INFOA structure }
|
|
SO_PROTOCOL_INFOW = $2005; { WSAPROTOCOL_INFOW structure }
|
|
SO_PROTOCOL_INFO = SO_PROTOCOL_INFOA;
|
|
PVD_CONFIG = $3001; {configuration info for service provider }
|
|
{ Option for opening sockets for synchronous access. }
|
|
SO_OPENTYPE = $7008;
|
|
SO_SYNCHRONOUS_ALERT = $10;
|
|
SO_SYNCHRONOUS_NONALERT = $20;
|
|
{ Other NT-specific options. }
|
|
SO_MAXDG = $7009;
|
|
SO_MAXPATHDG = $700A;
|
|
SO_UPDATE_ACCEPT_CONTEXT = $700B;
|
|
SO_CONNECT_TIME = $700C;
|
|
|
|
SOMAXCONN = $7fffffff;
|
|
|
|
IPV6_UNICAST_HOPS = 8; // ???
|
|
IPV6_MULTICAST_IF = 9; // set/get IP multicast i/f
|
|
IPV6_MULTICAST_HOPS = 10; // set/get IP multicast ttl
|
|
IPV6_MULTICAST_LOOP = 11; // set/get IP multicast loopback
|
|
IPV6_JOIN_GROUP = 12; // add an IP group membership
|
|
IPV6_LEAVE_GROUP = 13; // drop an IP group membership
|
|
|
|
MSG_NOSIGNAL = 0;
|
|
|
|
// getnameinfo constants
|
|
NI_MAXHOST = 1025;
|
|
NI_MAXSERV = 32;
|
|
NI_NOFQDN = $1;
|
|
NI_NUMERICHOST = $2;
|
|
NI_NAMEREQD = $4;
|
|
NI_NUMERICSERV = $8;
|
|
NI_DGRAM = $10;
|
|
|
|
|
|
const
|
|
SOCK_STREAM = 1; { stream socket }
|
|
SOCK_DGRAM = 2; { datagram socket }
|
|
SOCK_RAW = 3; { raw-protocol interface }
|
|
SOCK_RDM = 4; { reliably-delivered message }
|
|
SOCK_SEQPACKET = 5; { sequenced packet stream }
|
|
|
|
{ TCP options. }
|
|
TCP_NODELAY = $0001;
|
|
|
|
{ Address families. }
|
|
|
|
AF_UNSPEC = 0; { unspecified }
|
|
AF_INET = 2; { internetwork: UDP, TCP, etc. }
|
|
AF_INET6 = 23; { Internetwork Version 6 }
|
|
AF_MAX = 24;
|
|
|
|
{ Protocol families, same as address families for now. }
|
|
PF_UNSPEC = AF_UNSPEC;
|
|
PF_INET = AF_INET;
|
|
PF_INET6 = AF_INET6;
|
|
PF_MAX = AF_MAX;
|
|
|
|
type
|
|
{ Structure used by kernel to store most addresses. }
|
|
PSockAddr = ^TSockAddr;
|
|
TSockAddr = TSockAddrIn;
|
|
|
|
{ Structure used by kernel to pass protocol information in raw sockets. }
|
|
PSockProto = ^TSockProto;
|
|
TSockProto = record
|
|
sp_family: u_short;
|
|
sp_protocol: u_short;
|
|
end;
|
|
|
|
type
|
|
PAddrInfo = ^TAddrInfo;
|
|
TAddrInfo = 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: u_int; // 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;
|
|
|
|
const
|
|
// Flags used in "hints" argument to getaddrinfo().
|
|
AI_PASSIVE = $1; // Socket address will be used in bind() call.
|
|
AI_CANONNAME = $2; // Return canonical name in first ai_canonname.
|
|
AI_NUMERICHOST = $4; // Nodename must be a numeric address string.
|
|
|
|
type
|
|
{ Structure used for manipulating linger option. }
|
|
PLinger = ^TLinger;
|
|
TLinger = record
|
|
l_onoff: u_short;
|
|
l_linger: u_short;
|
|
end;
|
|
|
|
const
|
|
|
|
MSG_OOB = $01; // Process out-of-band data.
|
|
MSG_PEEK = $02; // Peek at incoming messages.
|
|
|
|
const
|
|
|
|
{ All Windows Sockets error constants are biased by WSABASEERR from the "normal" }
|
|
WSABASEERR = 10000;
|
|
|
|
{ Windows Sockets definitions of regular Microsoft C error constants }
|
|
|
|
WSAEINTR = (WSABASEERR+4);
|
|
WSAEBADF = (WSABASEERR+9);
|
|
WSAEACCES = (WSABASEERR+13);
|
|
WSAEFAULT = (WSABASEERR+14);
|
|
WSAEINVAL = (WSABASEERR+22);
|
|
WSAEMFILE = (WSABASEERR+24);
|
|
|
|
{ Windows Sockets definitions of regular Berkeley error constants }
|
|
|
|
WSAEWOULDBLOCK = (WSABASEERR+35);
|
|
WSAEINPROGRESS = (WSABASEERR+36);
|
|
WSAEALREADY = (WSABASEERR+37);
|
|
WSAENOTSOCK = (WSABASEERR+38);
|
|
WSAEDESTADDRREQ = (WSABASEERR+39);
|
|
WSAEMSGSIZE = (WSABASEERR+40);
|
|
WSAEPROTOTYPE = (WSABASEERR+41);
|
|
WSAENOPROTOOPT = (WSABASEERR+42);
|
|
WSAEPROTONOSUPPORT = (WSABASEERR+43);
|
|
WSAESOCKTNOSUPPORT = (WSABASEERR+44);
|
|
WSAEOPNOTSUPP = (WSABASEERR+45);
|
|
WSAEPFNOSUPPORT = (WSABASEERR+46);
|
|
WSAEAFNOSUPPORT = (WSABASEERR+47);
|
|
WSAEADDRINUSE = (WSABASEERR+48);
|
|
WSAEADDRNOTAVAIL = (WSABASEERR+49);
|
|
WSAENETDOWN = (WSABASEERR+50);
|
|
WSAENETUNREACH = (WSABASEERR+51);
|
|
WSAENETRESET = (WSABASEERR+52);
|
|
WSAECONNABORTED = (WSABASEERR+53);
|
|
WSAECONNRESET = (WSABASEERR+54);
|
|
WSAENOBUFS = (WSABASEERR+55);
|
|
WSAEISCONN = (WSABASEERR+56);
|
|
WSAENOTCONN = (WSABASEERR+57);
|
|
WSAESHUTDOWN = (WSABASEERR+58);
|
|
WSAETOOMANYREFS = (WSABASEERR+59);
|
|
WSAETIMEDOUT = (WSABASEERR+60);
|
|
WSAECONNREFUSED = (WSABASEERR+61);
|
|
WSAELOOP = (WSABASEERR+62);
|
|
WSAENAMETOOLONG = (WSABASEERR+63);
|
|
WSAEHOSTDOWN = (WSABASEERR+64);
|
|
WSAEHOSTUNREACH = (WSABASEERR+65);
|
|
WSAENOTEMPTY = (WSABASEERR+66);
|
|
WSAEPROCLIM = (WSABASEERR+67);
|
|
WSAEUSERS = (WSABASEERR+68);
|
|
WSAEDQUOT = (WSABASEERR+69);
|
|
WSAESTALE = (WSABASEERR+70);
|
|
WSAEREMOTE = (WSABASEERR+71);
|
|
|
|
{ Extended Windows Sockets error constant definitions }
|
|
|
|
WSASYSNOTREADY = (WSABASEERR+91);
|
|
WSAVERNOTSUPPORTED = (WSABASEERR+92);
|
|
WSANOTINITIALISED = (WSABASEERR+93);
|
|
WSAEDISCON = (WSABASEERR+101);
|
|
WSAENOMORE = (WSABASEERR+102);
|
|
WSAECANCELLED = (WSABASEERR+103);
|
|
WSAEEINVALIDPROCTABLE = (WSABASEERR+104);
|
|
WSAEINVALIDPROVIDER = (WSABASEERR+105);
|
|
WSAEPROVIDERFAILEDINIT = (WSABASEERR+106);
|
|
WSASYSCALLFAILURE = (WSABASEERR+107);
|
|
WSASERVICE_NOT_FOUND = (WSABASEERR+108);
|
|
WSATYPE_NOT_FOUND = (WSABASEERR+109);
|
|
WSA_E_NO_MORE = (WSABASEERR+110);
|
|
WSA_E_CANCELLED = (WSABASEERR+111);
|
|
WSAEREFUSED = (WSABASEERR+112);
|
|
|
|
{ Error return codes from gethostbyname() and gethostbyaddr()
|
|
(when using the resolver). Note that these errors are
|
|
retrieved via WSAGetLastError() and must therefore follow
|
|
the rules for avoiding clashes with error numbers from
|
|
specific implementations or language run-time systems.
|
|
For this reason the codes are based at WSABASEERR+1001.
|
|
Note also that [WSA]NO_ADDRESS is defined only for
|
|
compatibility purposes. }
|
|
|
|
{ Authoritative Answer: Host not found }
|
|
WSAHOST_NOT_FOUND = (WSABASEERR+1001);
|
|
HOST_NOT_FOUND = WSAHOST_NOT_FOUND;
|
|
{ Non-Authoritative: Host not found, or SERVERFAIL }
|
|
WSATRY_AGAIN = (WSABASEERR+1002);
|
|
TRY_AGAIN = WSATRY_AGAIN;
|
|
{ Non recoverable errors, FORMERR, REFUSED, NOTIMP }
|
|
WSANO_RECOVERY = (WSABASEERR+1003);
|
|
NO_RECOVERY = WSANO_RECOVERY;
|
|
{ Valid name, no data record of requested type }
|
|
WSANO_DATA = (WSABASEERR+1004);
|
|
NO_DATA = WSANO_DATA;
|
|
{ no address, look for MX record }
|
|
WSANO_ADDRESS = WSANO_DATA;
|
|
NO_ADDRESS = WSANO_ADDRESS;
|
|
|
|
EWOULDBLOCK = WSAEWOULDBLOCK;
|
|
EINPROGRESS = WSAEINPROGRESS;
|
|
EALREADY = WSAEALREADY;
|
|
ENOTSOCK = WSAENOTSOCK;
|
|
EDESTADDRREQ = WSAEDESTADDRREQ;
|
|
EMSGSIZE = WSAEMSGSIZE;
|
|
EPROTOTYPE = WSAEPROTOTYPE;
|
|
ENOPROTOOPT = WSAENOPROTOOPT;
|
|
EPROTONOSUPPORT = WSAEPROTONOSUPPORT;
|
|
ESOCKTNOSUPPORT = WSAESOCKTNOSUPPORT;
|
|
EOPNOTSUPP = WSAEOPNOTSUPP;
|
|
EPFNOSUPPORT = WSAEPFNOSUPPORT;
|
|
EAFNOSUPPORT = WSAEAFNOSUPPORT;
|
|
EADDRINUSE = WSAEADDRINUSE;
|
|
EADDRNOTAVAIL = WSAEADDRNOTAVAIL;
|
|
ENETDOWN = WSAENETDOWN;
|
|
ENETUNREACH = WSAENETUNREACH;
|
|
ENETRESET = WSAENETRESET;
|
|
ECONNABORTED = WSAECONNABORTED;
|
|
ECONNRESET = WSAECONNRESET;
|
|
ENOBUFS = WSAENOBUFS;
|
|
EISCONN = WSAEISCONN;
|
|
ENOTCONN = WSAENOTCONN;
|
|
ESHUTDOWN = WSAESHUTDOWN;
|
|
ETOOMANYREFS = WSAETOOMANYREFS;
|
|
ETIMEDOUT = WSAETIMEDOUT;
|
|
ECONNREFUSED = WSAECONNREFUSED;
|
|
ELOOP = WSAELOOP;
|
|
ENAMETOOLONG = WSAENAMETOOLONG;
|
|
EHOSTDOWN = WSAEHOSTDOWN;
|
|
EHOSTUNREACH = WSAEHOSTUNREACH;
|
|
ENOTEMPTY = WSAENOTEMPTY;
|
|
EPROCLIM = WSAEPROCLIM;
|
|
EUSERS = WSAEUSERS;
|
|
EDQUOT = WSAEDQUOT;
|
|
ESTALE = WSAESTALE;
|
|
EREMOTE = WSAEREMOTE;
|
|
|
|
EAI_ADDRFAMILY = 1; // Address family for nodename not supported.
|
|
EAI_AGAIN = 2; // Temporary failure in name resolution.
|
|
EAI_BADFLAGS = 3; // Invalid value for ai_flags.
|
|
EAI_FAIL = 4; // Non-recoverable failure in name resolution.
|
|
EAI_FAMILY = 5; // Address family ai_family not supported.
|
|
EAI_MEMORY = 6; // Memory allocation failure.
|
|
EAI_NODATA = 7; // No address associated with nodename.
|
|
EAI_NONAME = 8; // Nodename nor servname provided, or not known.
|
|
EAI_SERVICE = 9; // Servname not supported for ai_socktype.
|
|
EAI_SOCKTYPE = 10; // Socket type ai_socktype not supported.
|
|
EAI_SYSTEM = 11; // System error returned in errno.
|
|
|
|
const
|
|
WSADESCRIPTION_LEN = 256;
|
|
WSASYS_STATUS_LEN = 128;
|
|
type
|
|
PWSAData = ^TWSAData;
|
|
TWSAData = 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;
|
|
|
|
function IN6_IS_ADDR_UNSPECIFIED(const a: PInAddr6): boolean;
|
|
function IN6_IS_ADDR_LOOPBACK(const a: PInAddr6): boolean;
|
|
function IN6_IS_ADDR_LINKLOCAL(const a: PInAddr6): boolean;
|
|
function IN6_IS_ADDR_SITELOCAL(const a: PInAddr6): boolean;
|
|
function IN6_IS_ADDR_MULTICAST(const a: PInAddr6): boolean;
|
|
function IN6_ADDR_EQUAL(const a: PInAddr6; const b: PInAddr6):boolean;
|
|
procedure SET_IN6_IF_ADDR_ANY (const a: PInAddr6);
|
|
procedure SET_LOOPBACK_ADDR6 (const a: PInAddr6);
|
|
var
|
|
in6addr_any, in6addr_loopback : TInAddr6;
|
|
|
|
procedure FD_CLR(Socket: TSocket; var FDSet: TFDSet);
|
|
function FD_ISSET(Socket: TSocket; var FDSet: TFDSet): Boolean;
|
|
procedure FD_SET(Socket: TSocket; var FDSet: TFDSet);
|
|
procedure FD_ZERO(var FDSet: TFDSet);
|
|
|
|
{=============================================================================}
|
|
|
|
type
|
|
TWSAStartup = function(wVersionRequired: Word; var WSData: TWSAData): Integer;
|
|
stdcall;
|
|
TWSACleanup = function: Integer;
|
|
stdcall;
|
|
TWSAGetLastError = function: Integer;
|
|
stdcall;
|
|
TGetServByName = function(name, proto: PAnsiChar): PServEnt;
|
|
stdcall;
|
|
TGetServByPort = function(port: Integer; proto: PAnsiChar): PServEnt;
|
|
stdcall;
|
|
TGetProtoByName = function(name: PAnsiChar): PProtoEnt;
|
|
stdcall;
|
|
TGetProtoByNumber = function(proto: Integer): PProtoEnt;
|
|
stdcall;
|
|
TGetHostByName = function(name: PAnsiChar): PHostEnt;
|
|
stdcall;
|
|
TGetHostByAddr = function(addr: Pointer; len, Struc: Integer): PHostEnt;
|
|
stdcall;
|
|
TGetHostName = function(name: PAnsiChar; len: Integer): Integer;
|
|
stdcall;
|
|
TShutdown = function(s: TSocket; how: Integer): Integer;
|
|
stdcall;
|
|
TSetSockOpt = function(s: TSocket; level, optname: Integer; optval: PAnsiChar;
|
|
optlen: Integer): Integer;
|
|
stdcall;
|
|
TGetSockOpt = function(s: TSocket; level, optname: Integer; optval: PAnsiChar;
|
|
var optlen: Integer): Integer;
|
|
stdcall;
|
|
TSendTo = function(s: TSocket; const Buf; len, flags: Integer; addrto: PSockAddr;
|
|
tolen: Integer): Integer;
|
|
stdcall;
|
|
TSend = function(s: TSocket; const Buf; len, flags: Integer): Integer;
|
|
stdcall;
|
|
TRecv = function(s: TSocket; var Buf; len, flags: Integer): Integer;
|
|
stdcall;
|
|
TRecvFrom = function(s: TSocket; var Buf; len, flags: Integer; from: PSockAddr;
|
|
var fromlen: Integer): Integer;
|
|
stdcall;
|
|
Tntohs = function(netshort: u_short): u_short;
|
|
stdcall;
|
|
Tntohl = function(netlong: u_long): u_long;
|
|
stdcall;
|
|
TListen = function(s: TSocket; backlog: Integer): Integer;
|
|
stdcall;
|
|
TIoctlSocket = function(s: TSocket; cmd: DWORD; var arg: Integer): Integer;
|
|
stdcall;
|
|
TInet_ntoa = function(inaddr: TInAddr): PAnsiChar;
|
|
stdcall;
|
|
TInet_addr = function(cp: PAnsiChar): u_long;
|
|
stdcall;
|
|
Thtons = function(hostshort: u_short): u_short;
|
|
stdcall;
|
|
Thtonl = function(hostlong: u_long): u_long;
|
|
stdcall;
|
|
TGetSockName = function(s: TSocket; name: PSockAddr; var namelen: Integer): Integer;
|
|
stdcall;
|
|
TGetPeerName = function(s: TSocket; name: PSockAddr; var namelen: Integer): Integer;
|
|
stdcall;
|
|
TConnect = function(s: TSocket; name: PSockAddr; namelen: Integer): Integer;
|
|
stdcall;
|
|
TCloseSocket = function(s: TSocket): Integer;
|
|
stdcall;
|
|
TBind = function(s: TSocket; addr: PSockAddr; namelen: Integer): Integer;
|
|
stdcall;
|
|
TAccept = function(s: TSocket; addr: PSockAddr; var addrlen: Integer): TSocket;
|
|
stdcall;
|
|
TTSocket = function(af, Struc, Protocol: Integer): TSocket;
|
|
stdcall;
|
|
TSelect = function(nfds: Integer; readfds, writefds, exceptfds: PFDSet;
|
|
timeout: PTimeVal): Longint;
|
|
stdcall;
|
|
|
|
TGetAddrInfo = function(NodeName: PAnsiChar; ServName: PAnsiChar; Hints: PAddrInfo;
|
|
var Addrinfo: PAddrInfo): integer;
|
|
stdcall;
|
|
TFreeAddrInfo = procedure(ai: PAddrInfo);
|
|
stdcall;
|
|
TGetNameInfo = function( addr: PSockAddr; namelen: Integer; host: PAnsiChar;
|
|
hostlen: DWORD; serv: PAnsiChar; servlen: DWORD; flags: integer): integer;
|
|
stdcall;
|
|
|
|
T__WSAFDIsSet = function (s: TSocket; var FDSet: TFDSet): Bool;
|
|
stdcall;
|
|
|
|
TWSAIoctl = function (s: TSocket; dwIoControlCode: DWORD; lpvInBuffer: Pointer;
|
|
cbInBuffer: DWORD; lpvOutBuffer: Pointer; cbOutBuffer: DWORD;
|
|
lpcbBytesReturned: PDWORD; lpOverlapped: Pointer;
|
|
lpCompletionRoutine: pointer): u_int;
|
|
stdcall;
|
|
|
|
var
|
|
WSAStartup: TWSAStartup = nil;
|
|
WSACleanup: TWSACleanup = nil;
|
|
WSAGetLastError: TWSAGetLastError = nil;
|
|
GetServByName: TGetServByName = nil;
|
|
GetServByPort: TGetServByPort = nil;
|
|
GetProtoByName: TGetProtoByName = nil;
|
|
GetProtoByNumber: TGetProtoByNumber = nil;
|
|
GetHostByName: TGetHostByName = nil;
|
|
GetHostByAddr: TGetHostByAddr = nil;
|
|
ssGetHostName: TGetHostName = nil;
|
|
Shutdown: TShutdown = nil;
|
|
SetSockOpt: TSetSockOpt = nil;
|
|
GetSockOpt: TGetSockOpt = nil;
|
|
ssSendTo: TSendTo = nil;
|
|
ssSend: TSend = nil;
|
|
ssRecv: TRecv = nil;
|
|
ssRecvFrom: TRecvFrom = nil;
|
|
ntohs: Tntohs = nil;
|
|
ntohl: Tntohl = nil;
|
|
Listen: TListen = nil;
|
|
IoctlSocket: TIoctlSocket = nil;
|
|
Inet_ntoa: TInet_ntoa = nil;
|
|
Inet_addr: TInet_addr = nil;
|
|
htons: Thtons = nil;
|
|
htonl: Thtonl = nil;
|
|
ssGetSockName: TGetSockName = nil;
|
|
ssGetPeerName: TGetPeerName = nil;
|
|
ssConnect: TConnect = nil;
|
|
CloseSocket: TCloseSocket = nil;
|
|
ssBind: TBind = nil;
|
|
ssAccept: TAccept = nil;
|
|
Socket: TTSocket = nil;
|
|
Select: TSelect = nil;
|
|
|
|
GetAddrInfo: TGetAddrInfo = nil;
|
|
FreeAddrInfo: TFreeAddrInfo = nil;
|
|
GetNameInfo: TGetNameInfo = nil;
|
|
|
|
__WSAFDIsSet: T__WSAFDIsSet = nil;
|
|
|
|
WSAIoctl: TWSAIoctl = nil;
|
|
|
|
var
|
|
SynSockCS: SyncObjs.TCriticalSection;
|
|
SockEnhancedApi: Boolean;
|
|
SockWship6Api: Boolean;
|
|
|
|
type
|
|
TVarSin = packed record
|
|
case integer of
|
|
0: (AddressFamily: u_short);
|
|
1: (
|
|
case sin_family: u_short of
|
|
AF_INET: (sin_port: u_short;
|
|
sin_addr: TInAddr;
|
|
sin_zero: array[0..7] of byte);
|
|
AF_INET6: (sin6_port: u_short;
|
|
sin6_flowinfo: u_long;
|
|
sin6_addr: TInAddr6;
|
|
sin6_scope_id: u_long);
|
|
);
|
|
end;
|
|
|
|
function SizeOfVarSin(sin: TVarSin): integer;
|
|
|
|
function Bind(s: TSocket; const addr: TVarSin): Integer;
|
|
function Connect(s: TSocket; const name: TVarSin): Integer;
|
|
function GetSockName(s: TSocket; var name: TVarSin): Integer;
|
|
function GetPeerName(s: TSocket; var name: TVarSin): Integer;
|
|
function GetHostName: AnsiString;
|
|
function Send(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
|
|
function Recv(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
|
|
function SendTo(s: TSocket; Buf: TMemory; len, flags: Integer; addrto: TVarSin): Integer;
|
|
function RecvFrom(s: TSocket; Buf: TMemory; len, flags: Integer; var from: TVarSin): Integer;
|
|
function Accept(s: TSocket; var addr: TVarSin): TSocket;
|
|
|
|
function IsNewApi(Family: integer): Boolean;
|
|
function SetVarSin(var Sin: TVarSin; IP, Port: AnsiString; Family, SockProtocol, SockType: integer; PreferIP4: Boolean): integer;
|
|
function GetSinIP(Sin: TVarSin): AnsiString;
|
|
function GetSinPort(Sin: TVarSin): Integer;
|
|
procedure ResolveNameToIP(Name: AnsiString; Family, SockProtocol, SockType: integer; const IPList: TStrings);
|
|
function ResolveIPToName(IP: AnsiString; Family, SockProtocol, SockType: integer): AnsiString;
|
|
function ResolvePort(Port: AnsiString; Family, SockProtocol, SockType: integer): Word;
|
|
|
|
{==============================================================================}
|
|
implementation
|
|
|
|
var
|
|
SynSockCount: Integer = 0;
|
|
LibHandle: THandle = 0;
|
|
Libwship6Handle: THandle = 0;
|
|
|
|
function IN6_IS_ADDR_UNSPECIFIED(const a: PInAddr6): boolean;
|
|
begin
|
|
Result := ((a^.u6_addr32[0] = 0) and (a^.u6_addr32[1] = 0) and
|
|
(a^.u6_addr32[2] = 0) and (a^.u6_addr32[3] = 0));
|
|
end;
|
|
|
|
function IN6_IS_ADDR_LOOPBACK(const a: PInAddr6): boolean;
|
|
begin
|
|
Result := ((a^.u6_addr32[0] = 0) and (a^.u6_addr32[1] = 0) and
|
|
(a^.u6_addr32[2] = 0) and
|
|
(a^.u6_addr8[12] = 0) and (a^.u6_addr8[13] = 0) and
|
|
(a^.u6_addr8[14] = 0) and (a^.u6_addr8[15] = 1));
|
|
end;
|
|
|
|
function IN6_IS_ADDR_LINKLOCAL(const a: PInAddr6): boolean;
|
|
begin
|
|
Result := ((a^.u6_addr8[0] = $FE) and (a^.u6_addr8[1] = $80));
|
|
end;
|
|
|
|
function IN6_IS_ADDR_SITELOCAL(const a: PInAddr6): boolean;
|
|
begin
|
|
Result := ((a^.u6_addr8[0] = $FE) and (a^.u6_addr8[1] = $C0));
|
|
end;
|
|
|
|
function IN6_IS_ADDR_MULTICAST(const a: PInAddr6): boolean;
|
|
begin
|
|
Result := (a^.u6_addr8[0] = $FF);
|
|
end;
|
|
|
|
function IN6_ADDR_EQUAL(const a: PInAddr6; const b: PInAddr6): boolean;
|
|
begin
|
|
Result := (CompareMem( a, b, sizeof(TInAddr6)));
|
|
end;
|
|
|
|
procedure SET_IN6_IF_ADDR_ANY (const a: PInAddr6);
|
|
begin
|
|
FillChar(a^, sizeof(TInAddr6), 0);
|
|
end;
|
|
|
|
procedure SET_LOOPBACK_ADDR6 (const a: PInAddr6);
|
|
begin
|
|
FillChar(a^, sizeof(TInAddr6), 0);
|
|
a^.u6_addr8[15] := 1;
|
|
end;
|
|
|
|
{=============================================================================}
|
|
procedure FD_CLR(Socket: TSocket; var FDSet: TFDSet);
|
|
var
|
|
I: Integer;
|
|
begin
|
|
I := 0;
|
|
while I < FDSet.fd_count do
|
|
begin
|
|
if FDSet.fd_array[I] = Socket 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(Socket: TSocket; var FDSet: TFDSet): Boolean;
|
|
begin
|
|
Result := __WSAFDIsSet(Socket, FDSet);
|
|
end;
|
|
|
|
procedure FD_SET(Socket: TSocket; var FDSet: TFDSet);
|
|
begin
|
|
if FDSet.fd_count < FD_SETSIZE then
|
|
begin
|
|
FDSet.fd_array[FDSet.fd_count] := Socket;
|
|
Inc(FDSet.fd_count);
|
|
end;
|
|
end;
|
|
|
|
procedure FD_ZERO(var FDSet: TFDSet);
|
|
begin
|
|
FDSet.fd_count := 0;
|
|
end;
|
|
|
|
{=============================================================================}
|
|
|
|
function SizeOfVarSin(sin: TVarSin): integer;
|
|
begin
|
|
case sin.sin_family of
|
|
AF_INET:
|
|
Result := SizeOf(TSockAddrIn);
|
|
AF_INET6:
|
|
Result := SizeOf(TSockAddrIn6);
|
|
else
|
|
Result := 0;
|
|
end;
|
|
end;
|
|
|
|
{=============================================================================}
|
|
|
|
function Bind(s: TSocket; const addr: TVarSin): Integer;
|
|
begin
|
|
Result := ssBind(s, @addr, SizeOfVarSin(addr));
|
|
end;
|
|
|
|
function Connect(s: TSocket; const name: TVarSin): Integer;
|
|
begin
|
|
Result := ssConnect(s, @name, SizeOfVarSin(name));
|
|
end;
|
|
|
|
function GetSockName(s: TSocket; var name: TVarSin): Integer;
|
|
var
|
|
len: integer;
|
|
begin
|
|
len := SizeOf(name);
|
|
FillChar(name, len, 0);
|
|
Result := ssGetSockName(s, @name, Len);
|
|
end;
|
|
|
|
function GetPeerName(s: TSocket; var name: TVarSin): Integer;
|
|
var
|
|
len: integer;
|
|
begin
|
|
len := SizeOf(name);
|
|
FillChar(name, len, 0);
|
|
Result := ssGetPeerName(s, @name, Len);
|
|
end;
|
|
|
|
function GetHostName: AnsiString;
|
|
var
|
|
s: AnsiString;
|
|
begin
|
|
Result := '';
|
|
setlength(s, 255);
|
|
ssGetHostName(pAnsichar(s), Length(s) - 1);
|
|
Result := PAnsichar(s);
|
|
end;
|
|
|
|
function Send(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
|
|
begin
|
|
Result := ssSend(s, Buf^, len, flags);
|
|
end;
|
|
|
|
function Recv(s: TSocket; Buf: TMemory; len, flags: Integer): Integer;
|
|
begin
|
|
Result := ssRecv(s, Buf^, len, flags);
|
|
end;
|
|
|
|
function SendTo(s: TSocket; Buf: TMemory; len, flags: Integer; addrto: TVarSin): Integer;
|
|
begin
|
|
Result := ssSendTo(s, Buf^, len, flags, @addrto, SizeOfVarSin(addrto));
|
|
end;
|
|
|
|
function RecvFrom(s: TSocket; Buf: TMemory; len, flags: Integer; var from: TVarSin): Integer;
|
|
var
|
|
x: integer;
|
|
begin
|
|
x := SizeOf(from);
|
|
Result := ssRecvFrom(s, Buf^, len, flags, @from, x);
|
|
end;
|
|
|
|
function Accept(s: TSocket; var addr: TVarSin): TSocket;
|
|
var
|
|
x: integer;
|
|
begin
|
|
x := SizeOf(addr);
|
|
Result := ssAccept(s, @addr, x);
|
|
end;
|
|
|
|
{=============================================================================}
|
|
function IsNewApi(Family: integer): Boolean;
|
|
begin
|
|
Result := SockEnhancedApi;
|
|
if not Result then
|
|
Result := (Family = AF_INET6) and SockWship6Api;
|
|
end;
|
|
|
|
function SetVarSin(var Sin: TVarSin; IP, Port: AnsiString; Family, SockProtocol, SockType: integer; PreferIP4: Boolean): integer;
|
|
type
|
|
pu_long = ^u_long;
|
|
var
|
|
ProtoEnt: PProtoEnt;
|
|
ServEnt: PServEnt;
|
|
HostEnt: PHostEnt;
|
|
r: integer;
|
|
Hints1, Hints2: TAddrInfo;
|
|
Sin1, Sin2: TVarSin;
|
|
TwoPass: boolean;
|
|
|
|
function GetAddr(const IP, port: AnsiString; Hints: TAddrInfo; var Sin: TVarSin): integer;
|
|
var
|
|
Addr: PAddrInfo;
|
|
begin
|
|
Addr := nil;
|
|
try
|
|
FillChar(Sin, Sizeof(Sin), 0);
|
|
if Hints.ai_socktype = SOCK_RAW then
|
|
begin
|
|
Hints.ai_socktype := 0;
|
|
Hints.ai_protocol := 0;
|
|
Result := synsock.GetAddrInfo(PAnsiChar(IP), nil, @Hints, Addr);
|
|
end
|
|
else
|
|
begin
|
|
if (IP = cAnyHost) or (IP = c6AnyHost) then
|
|
begin
|
|
Hints.ai_flags := AI_PASSIVE;
|
|
Result := synsock.GetAddrInfo(nil, PAnsiChar(Port), @Hints, Addr);
|
|
end
|
|
else
|
|
if (IP = cLocalhost) or (IP = c6Localhost) then
|
|
begin
|
|
Result := synsock.GetAddrInfo(nil, PAnsiChar(Port), @Hints, Addr);
|
|
end
|
|
else
|
|
begin
|
|
Result := synsock.GetAddrInfo(PAnsiChar(IP), PAnsiChar(Port), @Hints, Addr);
|
|
end;
|
|
end;
|
|
if Result = 0 then
|
|
if (Addr <> nil) then
|
|
Move(Addr^.ai_addr^, Sin, Addr^.ai_addrlen);
|
|
finally
|
|
if Assigned(Addr) then
|
|
synsock.FreeAddrInfo(Addr);
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
Result := 0;
|
|
FillChar(Sin, Sizeof(Sin), 0);
|
|
if not IsNewApi(family) then
|
|
begin
|
|
SynSockCS.Enter;
|
|
try
|
|
Sin.sin_family := AF_INET;
|
|
ProtoEnt := synsock.GetProtoByNumber(SockProtocol);
|
|
ServEnt := nil;
|
|
if (ProtoEnt <> nil) and (StrToIntDef(string(Port),-1) =-1) then
|
|
ServEnt := synsock.GetServByName(PAnsiChar(Port), ProtoEnt^.p_name);
|
|
if ServEnt = nil then
|
|
Sin.sin_port := synsock.htons(StrToIntDef(string(Port), 0))
|
|
else
|
|
Sin.sin_port := ServEnt^.s_port;
|
|
if IP = cBroadcast then
|
|
Sin.sin_addr.s_addr := u_long(INADDR_BROADCAST)
|
|
else
|
|
begin
|
|
Sin.sin_addr.s_addr := synsock.inet_addr(PAnsiChar(IP));
|
|
if Sin.sin_addr.s_addr = u_long(INADDR_NONE) then
|
|
begin
|
|
HostEnt := synsock.GetHostByName(PAnsiChar(IP));
|
|
Result := synsock.WSAGetLastError;
|
|
if HostEnt <> nil then
|
|
Sin.sin_addr.S_addr := u_long(Pu_long(HostEnt^.h_addr_list^)^);
|
|
end;
|
|
end;
|
|
finally
|
|
SynSockCS.Leave;
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
FillChar(Hints1, Sizeof(Hints1), 0);
|
|
FillChar(Hints2, Sizeof(Hints2), 0);
|
|
TwoPass := False;
|
|
if Family = AF_UNSPEC then
|
|
begin
|
|
if PreferIP4 then
|
|
begin
|
|
Hints1.ai_family := AF_INET;
|
|
Hints2.ai_family := AF_INET6;
|
|
TwoPass := True;
|
|
end
|
|
else
|
|
begin
|
|
Hints2.ai_family := AF_INET;
|
|
Hints1.ai_family := AF_INET6;
|
|
TwoPass := True;
|
|
end;
|
|
end
|
|
else
|
|
Hints1.ai_family := Family;
|
|
|
|
Hints1.ai_socktype := SockType;
|
|
Hints1.ai_protocol := SockProtocol;
|
|
Hints2.ai_socktype := Hints1.ai_socktype;
|
|
Hints2.ai_protocol := Hints1.ai_protocol;
|
|
|
|
r := GetAddr(IP, Port, Hints1, Sin1);
|
|
Result := r;
|
|
sin := sin1;
|
|
if r <> 0 then
|
|
if TwoPass then
|
|
begin
|
|
r := GetAddr(IP, Port, Hints2, Sin2);
|
|
Result := r;
|
|
if r = 0 then
|
|
sin := sin2;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function GetSinIP(Sin: TVarSin): AnsiString;
|
|
var
|
|
p: PAnsiChar;
|
|
host, serv: AnsiString;
|
|
hostlen, servlen: integer;
|
|
r: integer;
|
|
begin
|
|
Result := '';
|
|
if not IsNewApi(Sin.AddressFamily) then
|
|
begin
|
|
p := synsock.inet_ntoa(Sin.sin_addr);
|
|
if p <> nil then
|
|
Result := p;
|
|
end
|
|
else
|
|
begin
|
|
hostlen := NI_MAXHOST;
|
|
servlen := NI_MAXSERV;
|
|
setlength(host, hostlen);
|
|
setlength(serv, servlen);
|
|
r := getnameinfo(@sin, SizeOfVarSin(sin), PAnsiChar(host), hostlen,
|
|
PAnsiChar(serv), servlen, NI_NUMERICHOST + NI_NUMERICSERV);
|
|
if r = 0 then
|
|
Result := PAnsiChar(host);
|
|
end;
|
|
end;
|
|
|
|
function GetSinPort(Sin: TVarSin): Integer;
|
|
begin
|
|
if (Sin.sin_family = AF_INET6) then
|
|
Result := synsock.ntohs(Sin.sin6_port)
|
|
else
|
|
Result := synsock.ntohs(Sin.sin_port);
|
|
end;
|
|
|
|
procedure ResolveNameToIP(Name: AnsiString; Family, SockProtocol, SockType: integer; const IPList: TStrings);
|
|
type
|
|
TaPInAddr = array[0..250] of PInAddr;
|
|
PaPInAddr = ^TaPInAddr;
|
|
var
|
|
Hints: TAddrInfo;
|
|
Addr: PAddrInfo;
|
|
AddrNext: PAddrInfo;
|
|
r: integer;
|
|
host, serv: AnsiString;
|
|
hostlen, servlen: integer;
|
|
RemoteHost: PHostEnt;
|
|
IP: u_long;
|
|
PAdrPtr: PaPInAddr;
|
|
i: Integer;
|
|
s: String;
|
|
InAddr: TInAddr;
|
|
begin
|
|
IPList.Clear;
|
|
if not IsNewApi(Family) then
|
|
begin
|
|
IP := synsock.inet_addr(PAnsiChar(Name));
|
|
if IP = u_long(INADDR_NONE) then
|
|
begin
|
|
SynSockCS.Enter;
|
|
try
|
|
RemoteHost := synsock.GetHostByName(PAnsiChar(Name));
|
|
if RemoteHost <> nil then
|
|
begin
|
|
PAdrPtr := PAPInAddr(RemoteHost^.h_addr_list);
|
|
i := 0;
|
|
while PAdrPtr^[i] <> nil do
|
|
begin
|
|
InAddr := PAdrPtr^[i]^;
|
|
s := Format('%d.%d.%d.%d', [InAddr.S_bytes[0], InAddr.S_bytes[1],
|
|
InAddr.S_bytes[2], InAddr.S_bytes[3]]);
|
|
IPList.Add(s);
|
|
Inc(i);
|
|
end;
|
|
end;
|
|
finally
|
|
SynSockCS.Leave;
|
|
end;
|
|
end
|
|
else
|
|
IPList.Add(string(Name));
|
|
end
|
|
else
|
|
begin
|
|
Addr := nil;
|
|
try
|
|
FillChar(Hints, Sizeof(Hints), 0);
|
|
Hints.ai_family := AF_UNSPEC;
|
|
Hints.ai_socktype := SockType;
|
|
Hints.ai_protocol := SockProtocol;
|
|
Hints.ai_flags := 0;
|
|
r := synsock.GetAddrInfo(PAnsiChar(Name), nil, @Hints, Addr);
|
|
if r = 0 then
|
|
begin
|
|
AddrNext := Addr;
|
|
while not(AddrNext = nil) do
|
|
begin
|
|
if not(((Family = AF_INET6) and (AddrNext^.ai_family = AF_INET))
|
|
or ((Family = AF_INET) and (AddrNext^.ai_family = AF_INET6))) then
|
|
begin
|
|
hostlen := NI_MAXHOST;
|
|
servlen := NI_MAXSERV;
|
|
setlength(host, hostlen);
|
|
setlength(serv, servlen);
|
|
r := getnameinfo(AddrNext^.ai_addr, AddrNext^.ai_addrlen,
|
|
PAnsiChar(host), hostlen, PAnsiChar(serv), servlen,
|
|
NI_NUMERICHOST + NI_NUMERICSERV);
|
|
if r = 0 then
|
|
begin
|
|
host := PAnsiChar(host);
|
|
IPList.Add(string(host));
|
|
end;
|
|
end;
|
|
AddrNext := AddrNext^.ai_next;
|
|
end;
|
|
end;
|
|
finally
|
|
if Assigned(Addr) then
|
|
synsock.FreeAddrInfo(Addr);
|
|
end;
|
|
end;
|
|
if IPList.Count = 0 then
|
|
IPList.Add(cAnyHost);
|
|
end;
|
|
|
|
function ResolvePort(Port: AnsiString; Family, SockProtocol, SockType: integer): Word;
|
|
var
|
|
ProtoEnt: PProtoEnt;
|
|
ServEnt: PServEnt;
|
|
Hints: TAddrInfo;
|
|
Addr: PAddrInfo;
|
|
r: integer;
|
|
begin
|
|
Result := 0;
|
|
if not IsNewApi(Family) then
|
|
begin
|
|
SynSockCS.Enter;
|
|
try
|
|
ProtoEnt := synsock.GetProtoByNumber(SockProtocol);
|
|
ServEnt := nil;
|
|
if ProtoEnt <> nil then
|
|
ServEnt := synsock.GetServByName(PAnsiChar(Port), ProtoEnt^.p_name);
|
|
if ServEnt = nil then
|
|
Result := StrToIntDef(string(Port), 0)
|
|
else
|
|
Result := synsock.htons(ServEnt^.s_port);
|
|
finally
|
|
SynSockCS.Leave;
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
Addr := nil;
|
|
try
|
|
FillChar(Hints, Sizeof(Hints), 0);
|
|
Hints.ai_family := AF_UNSPEC;
|
|
Hints.ai_socktype := SockType;
|
|
Hints.ai_protocol := Sockprotocol;
|
|
Hints.ai_flags := AI_PASSIVE;
|
|
r := synsock.GetAddrInfo(nil, PAnsiChar(Port), @Hints, Addr);
|
|
if (r = 0) and Assigned(Addr) then
|
|
begin
|
|
if Addr^.ai_family = AF_INET then
|
|
Result := synsock.htons(Addr^.ai_addr^.sin_port);
|
|
if Addr^.ai_family = AF_INET6 then
|
|
Result := synsock.htons(PSockAddrIn6(Addr^.ai_addr)^.sin6_port);
|
|
end;
|
|
finally
|
|
if Assigned(Addr) then
|
|
synsock.FreeAddrInfo(Addr);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function ResolveIPToName(IP: AnsiString; Family, SockProtocol, SockType: integer): AnsiString;
|
|
var
|
|
Hints: TAddrInfo;
|
|
Addr: PAddrInfo;
|
|
r: integer;
|
|
host, serv: AnsiString;
|
|
hostlen, servlen: integer;
|
|
RemoteHost: PHostEnt;
|
|
IPn: u_long;
|
|
begin
|
|
Result := IP;
|
|
if not IsNewApi(Family) then
|
|
begin
|
|
IPn := synsock.inet_addr(PAnsiChar(IP));
|
|
if IPn <> u_long(INADDR_NONE) then
|
|
begin
|
|
SynSockCS.Enter;
|
|
try
|
|
RemoteHost := GetHostByAddr(@IPn, SizeOf(IPn), AF_INET);
|
|
if RemoteHost <> nil then
|
|
Result := RemoteHost^.h_name;
|
|
finally
|
|
SynSockCS.Leave;
|
|
end;
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
Addr := nil;
|
|
try
|
|
FillChar(Hints, Sizeof(Hints), 0);
|
|
Hints.ai_family := AF_UNSPEC;
|
|
Hints.ai_socktype := SockType;
|
|
Hints.ai_protocol := SockProtocol;
|
|
Hints.ai_flags := 0;
|
|
r := synsock.GetAddrInfo(PAnsiChar(IP), nil, @Hints, Addr);
|
|
if (r = 0) and Assigned(Addr)then
|
|
begin
|
|
hostlen := NI_MAXHOST;
|
|
servlen := NI_MAXSERV;
|
|
setlength(host, hostlen);
|
|
setlength(serv, servlen);
|
|
r := getnameinfo(Addr^.ai_addr, Addr^.ai_addrlen,
|
|
PAnsiChar(host), hostlen, PAnsiChar(serv), servlen,
|
|
NI_NUMERICSERV);
|
|
if r = 0 then
|
|
Result := PAnsiChar(host);
|
|
end;
|
|
finally
|
|
if Assigned(Addr) then
|
|
synsock.FreeAddrInfo(Addr);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
{=============================================================================}
|
|
|
|
function InitSocketInterface(stack: String): Boolean;
|
|
begin
|
|
Result := False;
|
|
SockEnhancedApi := False;
|
|
if stack = '' then
|
|
stack := DLLStackName;
|
|
SynSockCS.Enter;
|
|
try
|
|
if SynSockCount = 0 then
|
|
begin
|
|
SockEnhancedApi := False;
|
|
SockWship6Api := False;
|
|
LibHandle := LoadLibrary(PChar(Stack));
|
|
if LibHandle <> 0 then
|
|
begin
|
|
WSAIoctl := GetProcAddress(LibHandle, PAnsiChar(AnsiString('WSAIoctl')));
|
|
__WSAFDIsSet := GetProcAddress(LibHandle, PAnsiChar(AnsiString('__WSAFDIsSet')));
|
|
CloseSocket := GetProcAddress(LibHandle, PAnsiChar(AnsiString('closesocket')));
|
|
IoctlSocket := GetProcAddress(LibHandle, PAnsiChar(AnsiString('ioctlsocket')));
|
|
WSAGetLastError := GetProcAddress(LibHandle, PAnsiChar(AnsiString('WSAGetLastError')));
|
|
WSAStartup := GetProcAddress(LibHandle, PAnsiChar(AnsiString('WSAStartup')));
|
|
WSACleanup := GetProcAddress(LibHandle, PAnsiChar(AnsiString('WSACleanup')));
|
|
ssAccept := GetProcAddress(LibHandle, PAnsiChar(AnsiString('accept')));
|
|
ssBind := GetProcAddress(LibHandle, PAnsiChar(AnsiString('bind')));
|
|
ssConnect := GetProcAddress(LibHandle, PAnsiChar(AnsiString('connect')));
|
|
ssGetPeerName := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getpeername')));
|
|
ssGetSockName := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getsockname')));
|
|
GetSockOpt := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getsockopt')));
|
|
Htonl := GetProcAddress(LibHandle, PAnsiChar(AnsiString('htonl')));
|
|
Htons := GetProcAddress(LibHandle, PAnsiChar(AnsiString('htons')));
|
|
Inet_Addr := GetProcAddress(LibHandle, PAnsiChar(AnsiString('inet_addr')));
|
|
Inet_Ntoa := GetProcAddress(LibHandle, PAnsiChar(AnsiString('inet_ntoa')));
|
|
Listen := GetProcAddress(LibHandle, PAnsiChar(AnsiString('listen')));
|
|
Ntohl := GetProcAddress(LibHandle, PAnsiChar(AnsiString('ntohl')));
|
|
Ntohs := GetProcAddress(LibHandle, PAnsiChar(AnsiString('ntohs')));
|
|
ssRecv := GetProcAddress(LibHandle, PAnsiChar(AnsiString('recv')));
|
|
ssRecvFrom := GetProcAddress(LibHandle, PAnsiChar(AnsiString('recvfrom')));
|
|
Select := GetProcAddress(LibHandle, PAnsiChar(AnsiString('select')));
|
|
ssSend := GetProcAddress(LibHandle, PAnsiChar(AnsiString('send')));
|
|
ssSendTo := GetProcAddress(LibHandle, PAnsiChar(AnsiString('sendto')));
|
|
SetSockOpt := GetProcAddress(LibHandle, PAnsiChar(AnsiString('setsockopt')));
|
|
ShutDown := GetProcAddress(LibHandle, PAnsiChar(AnsiString('shutdown')));
|
|
Socket := GetProcAddress(LibHandle, PAnsiChar(AnsiString('socket')));
|
|
GetHostByAddr := GetProcAddress(LibHandle, PAnsiChar(AnsiString('gethostbyaddr')));
|
|
GetHostByName := GetProcAddress(LibHandle, PAnsiChar(AnsiString('gethostbyname')));
|
|
GetProtoByName := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getprotobyname')));
|
|
GetProtoByNumber := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getprotobynumber')));
|
|
GetServByName := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getservbyname')));
|
|
GetServByPort := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getservbyport')));
|
|
ssGetHostName := GetProcAddress(LibHandle, PAnsiChar(AnsiString('gethostname')));
|
|
|
|
{$IFNDEF FORCEOLDAPI}
|
|
GetAddrInfo := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getaddrinfo')));
|
|
FreeAddrInfo := GetProcAddress(LibHandle, PAnsiChar(AnsiString('freeaddrinfo')));
|
|
GetNameInfo := GetProcAddress(LibHandle, PAnsiChar(AnsiString('getnameinfo')));
|
|
SockEnhancedApi := Assigned(GetAddrInfo) and Assigned(FreeAddrInfo)
|
|
and Assigned(GetNameInfo);
|
|
if not SockEnhancedApi then
|
|
begin
|
|
LibWship6Handle := LoadLibrary(PChar(DLLWship6));
|
|
if LibWship6Handle <> 0 then
|
|
begin
|
|
GetAddrInfo := GetProcAddress(LibWship6Handle, PAnsiChar(AnsiString('getaddrinfo')));
|
|
FreeAddrInfo := GetProcAddress(LibWship6Handle, PAnsiChar(AnsiString('freeaddrinfo')));
|
|
GetNameInfo := GetProcAddress(LibWship6Handle, PAnsiChar(AnsiString('getnameinfo')));
|
|
SockWship6Api := Assigned(GetAddrInfo) and Assigned(FreeAddrInfo)
|
|
and Assigned(GetNameInfo);
|
|
end;
|
|
end;
|
|
{$ENDIF}
|
|
Result := True;
|
|
end;
|
|
end
|
|
else Result := True;
|
|
if Result then
|
|
Inc(SynSockCount);
|
|
finally
|
|
SynSockCS.Leave;
|
|
end;
|
|
end;
|
|
|
|
function DestroySocketInterface: Boolean;
|
|
begin
|
|
SynSockCS.Enter;
|
|
try
|
|
Dec(SynSockCount);
|
|
if SynSockCount < 0 then
|
|
SynSockCount := 0;
|
|
if SynSockCount = 0 then
|
|
begin
|
|
if LibHandle <> 0 then
|
|
begin
|
|
FreeLibrary(libHandle);
|
|
LibHandle := 0;
|
|
end;
|
|
if LibWship6Handle <> 0 then
|
|
begin
|
|
FreeLibrary(LibWship6Handle);
|
|
LibWship6Handle := 0;
|
|
end;
|
|
end;
|
|
finally
|
|
SynSockCS.Leave;
|
|
end;
|
|
Result := True;
|
|
end;
|
|
|
|
initialization
|
|
begin
|
|
SynSockCS := SyncObjs.TCriticalSection.Create;
|
|
SET_IN6_IF_ADDR_ANY (@in6addr_any);
|
|
SET_LOOPBACK_ADDR6 (@in6addr_loopback);
|
|
end;
|
|
|
|
finalization
|
|
begin
|
|
SynSockCS.Free;
|
|
end; |