delphi winsock2 网络编程

更新日期：2008-07-02 点击：

{*******************************************************}
{                                                       }
{       Windows Sockets API v. 2.20 Header File         }
{                                                       }
{  Prerelease 16.09.96                                 }
{                                                       }
{       Base:   WinSock2.h from Winsock SDK 1.6 BETA    }
{               Delphi 2 RTL Windows32 API Interface    }
{                                                       }
{       (c) 1996 by Artur Grajek 'AHS'                  }
{ email: c51725ag@juggernaut.eti.pg.gda.pl              }
{                                                       }
{*******************************************************}
{$MINENUMSIZE 4} { Force 4 bytes enumeration size}

unit WinSock2;

interface

uses Windows;

type
u_char = Char;
u_short = Word;
u_int = Integer;
u_long = Longint;
pu_long = ^u_long;
pu_short = ^u_short;

{ The new type to be used in all
instances which refer to sockets. }
TSocket = u_int;

const
FD_SETSIZE = 64;

type
PFDSet = ^TFDSet;
TFDSet = packed record
fd_count: u_int;
fd_array: array[0..FD_SETSIZE-1] of TSocket;
end;

PTimeVal = ^TTimeVal;
TTimeVal = packed record
tv_sec: Longint;
tv_usec: Longint;
end;

const
IOCPARM_MASK = $7f;
IOC_VOID     = $20000000;
IOC_OUT      = $40000000;
IOC_IN       = $80000000;
IOC_INOUT    = (IOC_IN or IOC_OUT);

FIONREAD     = IOC_OUT or { get # bytes to read }
    ((Longint(SizeOf(Longint)) and IOCPARM_MASK) shl 16) or
    (Longint(Byte('f')) shl 8) or 127;
FIONBIO      = IOC_IN or { set/clear non-blocking i/o }
    ((Longint(SizeOf(Longint)) and IOCPARM_MASK) shl 16) or
    (Longint(Byte('f')) shl 8) or 126;
FIOASYNC     = IOC_IN or { set/clear async i/o }
    ((Longint(SizeOf(Longint)) and IOCPARM_MASK) shl 16) or
    (Longint(Byte('f')) shl 8) or 125;

const

{ Protocols }

IPPROTO_IP     =   0;  { Dummy     }
IPPROTO_ICMP   =   1;  { Internet Control Message Protocol }
IPPROTO_IGMP   =   2;  { Internet Group Management Protocol}
IPPROTO_GGP    =   3;  { Gateway                           }
IPPROTO_TCP    =   6;  { TCP              }
IPPROTO_PUP    =   12; { PUP     }
IPPROTO_UDP    =   17; { User Datagram Protocol  }
IPPROTO_IDP    =   22; { XNS IDP    }
IPPROTO_ND     =   77; { UNOFFICIAL Net Disk Protocol }

IPPROTO_RAW = 255;
IPPROTO_MAX = 256;

{ Port/socket numbers: network standard functions}

IPPORT_ECHO    =   7;
IPPORT_DISCARD =   9;
IPPORT_SYSTAT =   11;
IPPORT_DAYTIME =   13;
IPPORT_NETSTAT =   15;
IPPORT_FTP     =   21;
IPPORT_TELNET =   23;
IPPORT_SMTP    =   25;
IPPORT_TIMESERVER = 37;
IPPORT_NAMESERVER = 42;
IPPORT_WHOIS       = 43;
IPPORT_MTP         = 57;

{ Port/socket numbers: host specific functions }

IPPORT_TFTP        = 69;
IPPORT_RJE         = 77;
IPPORT_FINGER      = 79;
IPPORT_TTYLINK     = 87;
IPPORT_SUPDUP      = 95;

{ UNIX TCP sockets }

IPPORT_EXECSERVER = 512;
IPPORT_LOGINSERVER = 513;
IPPORT_CMDSERVER = 514;
IPPORT_EFSSERVER = 520;

{ UNIX UDP sockets }

IPPORT_BIFFUDP = 512;
IPPORT_WHOSERVER = 513;
IPPORT_ROUTESERVER = 520;

{ Ports < IPPORT_RESERVED are reserved for
privileged processes (e.g. root). }

IPPORT_RESERVED = 1024;

{ Link numbers }

IMPLINK_IP = 155;
IMPLINK_LOWEXPER = 156;
IMPLINK_HIGHEXPER = 158;

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;

type
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;

PProtoEnt = ^TProtoEnt;
TProtoEnt = packed record
    p_name: PChar;
    p_aliases: ^Pchar;
    p_proto: Smallint;
end;

const
INADDR_ANY       = $00000000;
INADDR_LOOPBACK = $7F000001;
INADDR_BROADCAST = $FFFFFFFF;
INADDR_NONE      = $FFFFFFFF;

ADDR_ANY   = INADDR_ANY;

const
WSADESCRIPTION_LEN = 256;
WSASYS_STATUS_LEN = 128;

type
PWSAData = ^TWSAData;
TWSAData = packed record
    wVersion: Word;
    wHighVersion: Word;
    szDescription: array[0..WSADESCRIPTION_LEN] of Char;
    szSystemStatus: array[0..WSASYS_STATUS_LEN] of Char;
    iMaxSockets: Word;
    iMaxUdpDg: Word;
    lpVendorInfo: PChar;
end;

PTransmitFileBuffers = ^TTransmitFileBuffers;
TTransmitFileBuffers = packed record
      Head: Pointer;
      HeadLength: DWORD;
      Tail: Pointer;
      TailLength: DWORD;
end;

const

{ Options for use with [gs]etsockopt at the IP level. }

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_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 }

{ This is used instead of -1, since the
TSocket type is unsigned.}

INVALID_SOCKET = TSocket(NOT(0));
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.
}

FROM_PROTOCOL_INFO = -1;

{ Types }

SOCK_STREAM     = 1;               { stream socket }
SOCK_DGRAM      = 2;               { datagram socket }
SOCK_RAW        = 3;               { raw-protocol interface }
SOCK_RDM        = 4;               { reliably-delivered message }
SOCK_SEQPACKET = 5;               { sequenced packet stream }

{ Option flags per-socket. }

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 }

{ Options for connect and disconnect data and options. Used only by
non-TCP/IP transports such as DECNet, OSI TP4, etc. }

SO_CONNDATA     = $7000;
SO_CONNOPT      = $7001;
SO_DISCDATA     = $7002;
SO_DISCOPT      = $7003;
SO_CONNDATALEN = $7004;
SO_CONNOPTLEN   = $7005;
SO_DISCDATALEN = $7006;
SO_DISCOPTLEN   = $7007;

{ 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 }

{$IFDEF UNICODE }
SO_PROTOCOL_INFO = SO_PROTOCOL_INFOW;
{$ELSE }
SO_PROTOCOL_INFO = SO_PROTOCOL_INFOA;
{$ENDIF UNICODE }
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;

{ TCP options. }

TCP_NODELAY = $0001;
TCP_BSDURGENT = $7000;

{ Address families. }

AF_UNSPEC       = 0;               { unspecified }
AF_UNIX         = 1;               { local to host (pipes, portals) }
AF_INET         = 2;               { internetwork: UDP, TCP, etc. }
AF_IMPLINK      = 3;               { arpanet imp addresses }
AF_PUP          = 4;               { pup protocols: e.g. BSP }
AF_CHAOS        = 5;               { mit CHAOS protocols }
AF_IPX          = 6;               { IPX and SPX }
AF_NS           = 6;               { XEROX NS protocols }
AF_ISO          = 7;               { ISO protocols }
AF_OSI          = AF_ISO;          { OSI is ISO }
AF_ECMA         = 8;               { european computer manufacturers }
AF_DATAKIT      = 9;               { datakit protocols }
AF_CCITT        = 10;              { CCITT protocols, X.25 etc }
AF_SNA          = 11;              { IBM SNA }
AF_DECnet       = 12;              { DECnet }
AF_DLI          = 13;              { Direct data link interface }
AF_LAT          = 14;              { LAT }
AF_HYLINK       = 15;              { NSC Hyperchannel }
AF_APPLETALK    = 16;              { AppleTalk }
AF_NETBIOS      = 17;              { NetBios-style addresses }
AF_VOICEVIEW    = 18;              { VoiceView }
AF_FIREFOX      = 19;              { FireFox }
AF_UNKNOWN1     = 20;              { Somebody is using this! }
AF_BAN          = 21;              { Banyan }
AF_ATM          = 22;              { Native ATM Services }
AF_INET6        = 23;              { Internetwork Version 6 }

AF_MAX = 24;

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 = packed record
sp_family: u_short;
sp_protocol: u_short;
end;

const
{ Protocol families, same as address families for now. }

PF_UNSPEC       = AF_UNSPEC;
PF_UNIX         = AF_UNIX;
PF_INET         = AF_INET;
PF_IMPLINK      = AF_IMPLINK;
PF_PUP          = AF_PUP;
PF_CHAOS        = AF_CHAOS;
PF_NS           = AF_NS;
PF_IPX          = AF_IPX;
PF_ISO          = AF_ISO;
PF_OSI          = AF_OSI;
PF_ECMA         = AF_ECMA;
PF_DATAKIT      = AF_DATAKIT;
PF_CCITT        = AF_CCITT;
PF_SNA          = AF_SNA;
PF_DECnet       = AF_DECnet;
PF_DLI          = AF_DLI;
PF_LAT          = AF_LAT;
PF_HYLINK       = AF_HYLINK;
PF_APPLETALK    = AF_APPLETALK;
PF_VOICEVIEW    = AF_VOICEVIEW;
PF_FIREFOX      = AF_FIREFOX;
PF_UNKNOWN1     = AF_UNKNOWN1;
PF_BAN          = AF_BAN;
PF_ATM          = AF_ATM;
PF_INET6        = AF_INET6;

PF_MAX = AF_MAX;

PWSAPROTOCOL_INFOW = ^TWSAPROTOCOL_INFOW;
TWSAPROTOCOL_INFOW = packed record
dwServiceFlags1           : DWORD;
dwServiceFlags2           : DWORD;
dwServiceFlags3           : DWORD;
dwServiceFlags4           : DWORD;
dwProviderFlags           : DWORD;
ProviderId                : TGUID;
dwCatalogEntryId          : DWORD;
ProtocolChain             : TWSAPROTOCOLCHAIN;
iVersion                  : u_int;
iAddressFamily            : u_int;
iMaxSockAddr              : u_int;
iMinSockAddr              : u_int;
iSocketType               : u_int;
iProtocol                 : u_int;
iProtocolMaxOffset        : u_int;
iNetworkByteOrder         : u_int;
iSecurityScheme           : u_int;
dwMessageSize            : DWORD;
dwProviderReserved       : DWORD;
szProtocol               : array [0..WSAPROTOCOL_LEN+1-1] of WCHAR;
end;
{$ifdef UNICODE}
TWSAPROTOCOL_INFO   = TWSAPROTOCOL_INFOW ;
PWSAPROTOCOL_INFO = PWSAPROTOCOL_INFOW ;
{$else}
TWSAPROTOCOL_INFO   = TWSAPROTOCOL_INFOA ;
PWSAPROTOCOL_INFO = PWSAPROTOCOL_INFOA ;
{$endif UNICODE}
const
{ Flag bit definitions for dwProviderFlags }
PFL_MULTIPLE_PROTO_ENTRIES          =$00000001;
PFL_RECOMMENDED_PROTO_ENTRY         =$00000002;
PFL_HIDDEN                          =$00000004;
PFL_MATCHES_PROTOCOL_ZERO           =$00000008;
{ Flag bit definitions for dwServiceFlags1 }
XP1_CONNECTIONLESS                  =$00000001;
XP1_GUARANTEED_DELIVERY             =$00000002;
XP1_GUARANTEED_ORDER                =$00000004;
XP1_MESSAGE_ORIENTED                =$00000008;
XP1_PSEUDO_STREAM                   =$00000010;
XP1_GRACEFUL_CLOSE                  =$00000020;
XP1_EXPEDITED_DATA                  =$00000040;
XP1_CONNECT_DATA                    =$00000080;
XP1_DISCONNECT_DATA                 =$00000100;
XP1_SUPPORT_BROADCAST               =$00000200;
XP1_SUPPORT_MULTIPOINT              =$00000400;
XP1_MULTIPOINT_CONTROL_PLANE        =$00000800;
XP1_MULTIPOINT_DATA_PLANE           =$00001000;
XP1_QOS_SUPPORTED                   =$00002000;
XP1_INTERRUPT                       =$00004000;
XP1_UNI_SEND                        =$00008000;
XP1_UNI_RECV                        =$00010000;
XP1_IFS_HANDLES                     =$00020000;
XP1_PARTIAL_MESSAGE                 =$00040000;
BIGENDIAN                           =$0000;
LITTLEENDIAN                        =$0001;
SECURITY_PROTOCOL_NONE              =$0000;
{ WinSock 2 extension -- manifest constants for WSAJoinLeaf() }
JL_SENDER_ONLY    =$01;
JL_RECEIVER_ONLY =$02;
JL_BOTH           =$04;
{ WinSock 2 extension -- manifest constants for WSASocket() }
WSA_FLAG_OVERLAPPED           =$01;
WSA_FLAG_MULTIPOINT_C_ROOT    =$02;
WSA_FLAG_MULTIPOINT_C_LEAF    =$04;
WSA_FLAG_MULTIPOINT_D_ROOT    =$08;
WSA_FLAG_MULTIPOINT_D_LEAF    =$10;
{ WinSock 2 extension -- manifest constants for WSAIoctl() }
IOC_UNIX                      =$00000000;
IOC_WS2                       =$08000000;
IOC_PROTOCOL                  =$10000000;
IOC_VENDOR                    =$18000000;
SIO_ASSOCIATE_HANDLE           = IOC_IN or IOC_WS2 or 1;
SIO_ENABLE_CIRCULAR_QUEUEING   = IOC_VOID or IOC_WS2 or 2;
SIO_FIND_ROUTE                 = IOC_OUT or IOC_WS2 or 3;
SIO_FLUSH                      = IOC_VOID or IOC_WS2 or 4;
SIO_GET_BROADCAST_ADDRESS      = IOC_OUT or IOC_WS2 or 5;
SIO_GET_EXTENSION_FUNCTION_POINTER = IOC_INOUT or IOC_WS2 or 6;
SIO_GET_QOS                    = IOC_INOUT or IOC_WS2 or 7;
SIO_GET_GROUP_QOS              = IOC_INOUT or IOC_WS2 or 8;
SIO_MULTIPOINT_LOOPBACK        = IOC_IN or IOC_WS2 or 9;
SIO_MULTICAST_SCOPE            = IOC_IN or IOC_WS2 or 10;
SIO_SET_QOS                    = IOC_IN or IOC_WS2 or 11;
SIO_SET_GROUP_QOS              = IOC_IN or IOC_WS2 or 12;
SIO_TRANSLATE_HANDLE           = IOC_INOUT or IOC_WS2 or 13;
{ WinSock 2 extension -- manifest constants for SIO_TRANSLATE_HANDLE ioctl }
TH_NETDEV        = $00000001;
TH_TAPI          = $00000002;
{ Microsoft Windows Extended data types required for the functions to
   convert   back and forth between binary and string forms of
   addresses. }
type
SOCKADDR     = TSockAddr; { AHS ?}
{ PSOCKADDR    = PSockaddr;}
LPSOCKADDR   = PSockaddr;
{ Manifest constants and type definitions related to name resolution and
registration (RNR) API }
PBLOB = ^TBLOB;
TBLOB = packed record
    cbSize    :ULONG;
    pBlobData :^byte;
end;
{ Service Install Flags }
const
SERVICE_MULTIPLE       =$00000001;
{ Name Spaces }
NS_ALL                      = 0;
NS_SAP                      = 1;
NS_NDS                      = 2;
NS_PEER_BROWSE              = 3;
NS_TCPIP_LOCAL              = 10;
NS_TCPIP_HOSTS              = 11;
NS_DNS                      = 12;
NS_NETBT                    = 13;
NS_WINS                     = 14;
NS_NBP                      = 20;
NS_MS                       = 30;
NS_STDA                     = 31;
NS_NTDS                     = 32;
NS_X500                     = 40;
NS_NIS                      = 41;
NS_NISPLUS                  = 42;
NS_WRQ                      = 50;

{ Resolution flags for WSAGetAddressByName().
   Note these are also used by the 1.1 API GetAddressByName, so
   leave them around. }
RES_UNUSED_1                =$00000001;
RES_FLUSH_CACHE             =$00000002;
RES_SERVICE                 =$00000004;

{ Well known value names for Service Types }
SERVICE_TYPE_VALUE_IPXPORTA     ='IpxSocket';
SERVICE_TYPE_VALUE_IPXPORTW     = 'IpxSocket';
SERVICE_TYPE_VALUE_SAPIDA       = 'SapId';
SERVICE_TYPE_VALUE_SAPIDW       ='SapId';
SERVICE_TYPE_VALUE_TCPPORTA     = 'TcpPort';
SERVICE_TYPE_VALUE_TCPPORTW     ='TcpPort';
SERVICE_TYPE_VALUE_UDPPORTA     = 'UdpPort';
SERVICE_TYPE_VALUE_UDPPORTW     ='UdpPort';
SERVICE_TYPE_VALUE_OBJECTIDA    = 'ObjectId';
SERVICE_TYPE_VALUE_OBJECTIDW    ='ObjectId';
{$ifdef UNICODE}
SERVICE_TYPE_VALUE_SAPID        =SERVICE_TYPE_VALUE_SAPIDW;
SERVICE_TYPE_VALUE_TCPPORT      =SERVICE_TYPE_VALUE_TCPPORTW;
SERVICE_TYPE_VALUE_UDPPORT      =SERVICE_TYPE_VALUE_UDPPORTW;
SERVICE_TYPE_VALUE_OBJECTID     =SERVICE_TYPE_VALUE_OBJECTIDW;
{$else} { not UNICODE }
SERVICE_TYPE_VALUE_SAPID        =SERVICE_TYPE_VALUE_SAPIDA;
SERVICE_TYPE_VALUE_TCPPORT      =SERVICE_TYPE_VALUE_TCPPORTA;
SERVICE_TYPE_VALUE_UDPPORT      =SERVICE_TYPE_VALUE_UDPPORTA;
SERVICE_TYPE_VALUE_OBJECTID     =SERVICE_TYPE_VALUE_OBJECTIDA;
{$endif}
{ SockAddr Information }
type
PSOCKET_ADDRESS = ^TSOCKET_ADDRESS;
TSOCKET_ADDRESS = packed record
    lpSockaddr        : PSOCKADDR ;
    iSockaddrLength   : u_int;
end;
{ CSAddr Information }
PCSADDR_INFO = ^TCSADDR_INFO;
TCSADDR_INFO = packed record
    LocalAddr         :TSOCKET_ADDRESS;
    RemoteAddr        :TSOCKET_ADDRESS;
    iSocketType       :u_int;
    iProtocol         :u_int;
end;

{ Address Family/Protocol Tuples }
PAFPROTOCOLS = ^TAFPROTOCOLS;
TAFPROTOCOLS = packed record
iAddressFamily      :u_int;
iProtocol           :u_int;
end;
{ Client Query API Typedefs }
{ The comparators }
PWSAEcomparator = ^TWSAEcomparator;
TWSAEcomparator = (
    COMP_EQUAL,
    COMP_NOTLESS
);
PWSAVersion = ^TWSAVersion;
TWSAVersion = packed record
    dwVersion        : Dword;
    ecHow            : TWSAEComparator;
end;
PWSAQuerySetA = ^TWSAQuerySetA;
TWSAQuerySetA = packed record
    dwSize                  : DWord;
    lpszServiceInstanceName : PChar;
    lpServiceClassId        : PGUID;
    lpVersion               : PWSAVERSION;
    lpszComment             : PChar;
    dwNameSpace             : DWord;
    lpNSProviderId          : PGUID;
    lpszContext             : PChar;
    dwNumberOfProtocols     : DWORD;
    lpafpProtocols          : PAFPROTOCOLS;
    lpszQueryString         : PChar;
    dwNumberOfCsAddrs       : Dword;
    lpcsaBuffer             : PCSADDR_INFO;
    dwOutputFlags           : DWord;
    lpBlob                  : PBLOB;
end;
PWSAQuerySetW = ^TWSAQuerySetW;
TWSAQuerySetW = packed record
    dwSize                  : DWord;
    lpszServiceInstanceName : PWideChar;                        //MIO, antes WideChar
    lpServiceClassId        : PGUID;
    lpVersion               : PWSAVERSION;
    lpszComment             : PWideChar;                         //MIO, antes WideChar
    dwNameSpace             : DWord;
    lpNSProviderId          : PGUID;
    lpszContext             : PWideChar;                         //MIO, antes WideChar
    dwNumberOfProtocols     : DWORD;
    lpafpProtocols          : PAFPROTOCOLS;
    lpszQueryString         : PWideChar;                        //MIO, antes WideChar
    dwNumberOfCsAddrs       : Dword;
    lpcsaBuffer             : PCSADDR_INFO;
    dwOutputFlags           : DWord;
    lpBlob                  : PBLOB;
end;

{$ifdef UNICODE}

WSAQUERYSET              = TWSAQUERYSETW;
PWSAQUERYSET             = PWSAQUERYSETW;

{$else}

WSAQUERYSET              = TWSAQUERYSETA;
PWSAQUERYSET             = PWSAQUERYSETA;

{$endif }

const

LUP_DEEP                = $0001;
LUP_CONTAINERS          = $0002;
LUP_NOCONTAINERS        = $0004;
LUP_NEAREST             = $0008;
LUP_RETURN_NAME         = $0010;
LUP_RETURN_TYPE         = $0020;
LUP_RETURN_VERSION      = $0040;
LUP_RETURN_COMMENT      = $0080;
LUP_RETURN_ADDR         = $0100;
LUP_RETURN_BLOB         = $0200;
LUP_RETURN_ALIASES      = $0400;
LUP_RETURN_QUERY_STRING = $0800;
LUP_RETURN_ALL          = $0FF0;
LUP_RES_SERVICE         = $8000;

LUP_FLUSHCACHE       = $1000;
LUP_FLUSHPREVIOUS    = $2000;

{ Return flags }

RESULT_IS_ALIAS      = $0001;

{ Service Address Registration and Deregistration Data Types. }

type

PWSAESETSERVICEOP = ^TWSAESETSERVICEOP;
TWSAESETSERVICEOP = (
    RNRSERVICE_REGISTER,
    RNRSERVICE_DEREGISTER,
    RNRSERVICE_DELETE
);

{ Service Installation/Removal Data Types. }

PWSANSClassInfoA = ^TWSANSClassInfoA;
TWSANSClassInfoA = packed record
lpszName         : PChar;
dwNameSpace      : Dword;
dwValueType      : Dword;
dwValueSize      : Dword;
lpValue          : Pointer;
end;

PWSANSClassInfoW = ^TWSANSClassInfoW;
TWSANSClassInfoW = packed record
lpszName         : WideChar;
dwNameSpace      : Dword;
dwValueType      : Dword;
dwValueSize      : Dword;
lpValue          : Pointer;
end;

{$ifdef UNICODE }

TWSANSCLASSINFO   = TWSANSCLASSINFOW;
PWSANSCLASSINFO = PWSANSCLASSINFOW;

{$else}

TWSANSCLASSINFO   = TWSANSCLASSINFOA;
PWSANSCLASSINFO = PWSANSCLASSINFOA;

{$endif UNICODE}

PWSAServiceClassInfoA = ^TWSAServiceClassInfoA;
TWSAServiceClassInfoA = packed record
    lpServiceClassId      : PGUID;
    lpszServiceClassName : PChar;
    dwCount               : DWord;
    lpClassInfos          : PWSANSCLASSINFOA;
end;

PWSAServiceClassInfoW = ^TWSAServiceClassInfoW;
TWSAServiceClassInfoW = packed record
    lpServiceClassId      : PGUID;
    lpszServiceClassName : WideChar;
    dwCount               : DWord;
    lpClassInfos          : PWSANSCLASSINFOW;
end;

{$ifdef UNICODE}

TWSASERVICECLASSINFO         = TWSASERVICECLASSINFOW;
PWSASERVICECLASSINFO        = PWSASERVICECLASSINFOW;

{$else}

TWSASERVICECLASSINFO         = TWSASERVICECLASSINFOA;
PWSASERVICECLASSINFO        = PWSASERVICECLASSINFOA;

{$endif UNICODE}

PWSANAMESPACE_INFOA = ^TWSANAMESPACE_INFOA;
TWSANAMESPACE_INFOA = packed record
    NSProviderId      : TGUID;
    dwNameSpace       : DWord;
    fActive           : BOOL;
    dwVersion         : DWord;
    lpszIdentifier    : PChar;
end;

PWSANAMESPACE_INFOW = ^TWSANAMESPACE_INFOW;
TWSANAMESPACE_INFOW = packed record
    NSProviderId      : TGUID;
    dwNameSpace       : DWord;
    fActive           : BOOL;
    dwVersion         : DWord;
    lpszIdentifier    : WideChar;
end;

{$ifdef UNICODE}

TWSANAMESPACE_INFO     = TWSANAMESPACE_INFOW;
PWSANAMESPACE_INFO     = PWSANAMESPACE_INFOW;

{$else}

TWSANAMESPACE_INFO     = TWSANAMESPACE_INFOA;
PWSANAMESPACE_INFO     = PWSANAMESPACE_INFOA;

{$endif UNICODE}

{ AHS END }

procedure FD_ZERO(var FDSet: TFDSet);
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);

{ Socket function prototypes }

// Using "var addr:TSockAddr" in accept makes impossible to compile for IPv6
function accept(s: TSocket; addr: PSockAddr; var addrlen: Integer): TSocket; stdcall;
// Using "var addr:TSockAddr" in bind makes impossible to compile for IPv6
function bind(s: TSocket; addr: PSockAddr; namelen: Integer): Integer; stdcall;
function closesocket(s: TSocket): Integer; stdcall;
// Using "var addr:TSockAddr" in connect makes impossible to compile for IPv6
function connect(s: TSocket; name: PSockAddr; namelen: Integer): Integer; stdcall;
function ioctlsocket(s: TSocket; cmd: Longint; var arg: u_long): Integer; stdcall;
function getpeername(s: TSocket; var name: TSockAddr; var namelen: Integer): Integer; stdcall;
// Using "var addr:TSockAddr" in getsockname makes impossible to compile for IPv6
function getsockname(s: TSocket; name: PSockAddr; var namelen: Integer): Integer; stdcall;
function getsockopt(s: TSocket; level, optname: Integer; optval: PChar; var optlen: Integer): Integer; stdcall;
function htonl(hostlong: u_long): u_long; stdcall;
function htons(hostshort: u_short): u_short; stdcall;
function inet_addr(cp: PChar): u_long; stdcall; {PInAddr;} { TInAddr }
function inet_ntoa(inaddr: TInAddr): PChar; stdcall;
function listen(s: TSocket; backlog: Integer): Integer; stdcall;
function ntohl(netlong: u_long): u_long; stdcall;
function ntohs(netshort: u_short): u_short; stdcall;
function recv(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
// Using "var from: TSockAddr" in recvfrom makes impossible to compile for IPv6
function recvfrom(s: TSocket; var Buf; len, flags: Integer;
from: PSockAddr; var fromlen: Integer): Integer; stdcall;
function select(nfds: Integer; readfds, writefds, exceptfds: PFDSet;
timeout: PTimeVal): Longint; stdcall;
function send(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
// Using "var addrto: TSockAddr" in sendto makes impossible to compile for IPv6
function sendto(s: TSocket; var Buf; len, flags: Integer; addrto: PSockAddr;
tolen: Integer): Integer; stdcall;
function setsockopt(s: TSocket; level, optname: Integer; optval: PChar;
optlen: Integer): Integer; stdcall;
function shutdown(s: TSocket; how: Integer): Integer; stdcall;
function socket(af, struct, protocol: Integer): TSocket; stdcall;
function gethostbyaddr(addr: Pointer; len, struct: Integer): PHostEnt; stdcall;
function gethostbyname(name: PChar): PHostEnt; stdcall;
function gethostname(name: PChar; len: Integer): Integer; stdcall;
function getservbyport(port: Integer; proto: PChar): PServEnt; stdcall;
function getservbyname(name, proto: PChar): PServEnt; stdcall;
function getprotobynumber(proto: Integer): PProtoEnt; stdcall;
function getprotobyname(name: PChar): PProtoEnt; stdcall;
function WSAStartup(wVersionRequired: word; var WSData: TWSAData): Integer; stdcall;
function WSACleanup: Integer; stdcall;
procedure WSASetLastError(iError: Integer); stdcall;
function WSAGetLastError: Integer; stdcall;
function WSAIsBlocking: BOOL; stdcall;
function WSAUnhookBlockingHook: Integer; stdcall;
function WSASetBlockingHook(lpBlockFunc: TFarProc): TFarProc; stdcall;
function WSACancelBlockingCall: Integer; stdcall;
function WSAAsyncGetServByName(HWindow: HWND; wMsg: u_int;
name, proto, buf: PChar; buflen: Integer): THandle; stdcall;
function WSAAsyncGetServByPort( HWindow: HWND; wMsg, port: u_int;
proto, buf: PChar; buflen: Integer): THandle; stdcall;
function WSAAsyncGetProtoByName(HWindow: HWND; wMsg: u_int;
name, buf: PChar; buflen: Integer): THandle; stdcall;
function WSAAsyncGetProtoByNumber(HWindow: HWND; wMsg: u_int; number: Integer;
buf: PChar; buflen: Integer): THandle; stdcall;
function WSAAsyncGetHostByName(HWindow: HWND; wMsg: u_int;
name, buf: PChar; buflen: Integer): THandle; stdcall;
function WSAAsyncGetHostByAddr(HWindow: HWND; wMsg: u_int; addr: PChar;
len, struct: Integer; buf: PChar; buflen: Integer): THandle; stdcall;
function WSACancelAsyncRequest(hAsyncTaskHandle: THandle): Integer; stdcall;
function WSAAsyncSelect(s: TSocket; HWindow: HWND; wMsg: u_int; lEvent: Longint): Integer; stdcall;

{ WinSock 2 extensions -- data types for the condition function in
WSAAccept() and overlapped I/O completion routine. }

type

PCONDITIONPROC = function ( lpCallerId:PWSABUF; lpCallerData:PWSABUF;
    lpSQOS:PQOS; lpGQOS:PQOS; lpCalleeId:PWSABUF;lpCalleeData:PWSABUF;
    g:PGroup; dwCallbackData:DWord) :u_int; stdcall;

上一篇：一个高手写的PING的类下一篇：用Delphi在局域网中实现网上影院

[点击复制本页地址发送给 QQ/MSN 好友] [

举报][

相关内容

热门TOP10

推荐内容

delphi winsock2 网络编程

评论列表