📄 sswin32.pas
字号:
{==============================================================================|
| Project : Ararat Synapse | 002.000.001 |
|==============================================================================|
| Content: Socket Independent Platform Layer - Win32 definition include |
|==============================================================================|
| Copyright (c)1999-2003, 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. |
| All Rights Reserved. |
|==============================================================================|
| Contributor(s): |
|==============================================================================|
| History: see HISTORY.HTM from distribution package |
| (Found at URL: http://www.ararat.cz/synapse/) |
|==============================================================================}
{:@exclude}
{$IFDEF WIN32}
//{$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,
Windows;
function InitSocketInterface(stack: string): Boolean;
function DestroySocketInterface: Boolean;
const
{$IFDEF WINSOCK1}
WinsockLevel = $0101;
{$ELSE}
WinsockLevel = $0202;
{$ENDIF}
type
u_char = Char;
u_short = Word;
u_int = Integer;
u_long = Longint;
pu_long = ^u_long;
pu_short = ^u_short;
TSocket = u_int;
TMemory = pointer;
const
{$IFDEF WINSOCK1}
DLLStackName = 'wsock32.dll';
{$ELSE}
DLLStackName = 'ws2_32.dll';
{$ENDIF}
DLLwship6 = 'wship6.dll';
const
FD_SETSIZE = 64;
type
PFDSet = ^TFDSet;
TFDSet = packed 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 = packed 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_RAW = 255;
IPPROTO_MAX = 256;
type
SunB = packed record
s_b1, s_b2, s_b3, s_b4: u_char;
end;
SunW = packed record
s_w1, s_w2: u_short;
end;
PInAddr = ^TInAddr;
TInAddr = packed record
case integer of
0: (S_un_b: SunB);
1: (S_un_w: SunW);
2: (S_addr: u_long);
end;
PSockAddrIn = ^TSockAddrIn;
TSockAddrIn = packed record
case Integer of
0: (sin_family: u_short;
sin_port: u_short;
sin_addr: TInAddr;
sin_zero: array[0..7] of Char);
1: (sa_family: u_short;
sa_data: array[0..13] of Char)
end;
TIP_mreq = record
imr_multiaddr: TInAddr; { IP multicast address of group }
imr_interface: TInAddr; { local IP address of interface }
end;
SunB6 = packed record
s_b1, s_b2, s_b3, s_b4,
s_b5, s_b6, s_b7, s_b8,
s_b9, s_b10, s_b11, s_b12,
s_b13, s_b14, s_b15, s_b16: u_char;
end;
SunW6 = packed record
s_w1, s_w2, s_w3, s_w4,
s_w5, s_w6, s_w7, s_w8: u_short;
end;
SunDW6 = packed record
s_dw1, s_dw2, s_dw3, s_dw4: longint;
end;
S6_Bytes = SunB6;
S6_Words = SunW6;
S6_DWords = SunDW6;
S6_Addr = SunB6;
PInAddr6 = ^TInAddr6;
TInAddr6 = packed record
case integer of
0: (S_un_b: SunB6);
1: (S_un_w: SunW6);
2: (S_un_dw: SunDW6);
end;
PSockAddrIn6 = ^TSockAddrIn6;
TSockAddrIn6 = packed 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: u_long; // Interface index.
padding: u_long;
end;
PHostEnt = ^THostEnt;
THostEnt = packed record
h_name: PChar;
h_aliases: ^PChar;
h_addrtype: Smallint;
h_length: Smallint;
case integer of
0: (h_addr_list: ^PChar);
1: (h_addr: ^PInAddr);
end;
PNetEnt = ^TNetEnt;
TNetEnt = packed record
n_name: PChar;
n_aliases: ^PChar;
n_addrtype: Smallint;
n_net: u_long;
end;
PServEnt = ^TServEnt;
TServEnt = packed record
s_name: PChar;
s_aliases: ^PChar;
s_port: Smallint;
s_proto: PChar;
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -