开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
WINSOCK.PAS
资源名称：ftpsrv.zip　[点击查看]
上传用户：xdgkgcw
上传日期：2007-01-04
资源大小：92k
文件大小：25k
源码类别：

Delphi控件源码

开发平台：

WINDOWS

WINSOCK.PAS：源码内容
  1. {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  3. Author:       Fran鏾is PIETTE, C.H.R. Citadelle
  4. EMail:        francois.piette@pophost.eunet.be  http://www.rtfm.be/fpiette
  5.               francois.piette@rtfm.be
  6. Creation:     July 18, 1996
  7. Object:       Windows 16bit API Interface Unit for Delphi 1.x and
  8.               compatible with Borland Delphi 2.x Winsock
  9. Support:      Please ask your question in the following newsgroup:
  10.               news://forums.borland.com/borland.public.delphi.vcl.components.using
  11. Legal issues: Copyright (C) 1996, 1997, 1998 by Fran鏾is PIETTE 
  12.               <francois.piette@pophost.be>
  14.               This software is provided 'as-is', without any express or
  15.          implied warranty.  In no event will the author be held liable
  16.               for any  damages arising from the use of this software.
  18.               Permission is granted to anyone to use this software for any
  19.               purpose, including commercial applications, and to alter it
  20.               and redistribute it freely, subject to the following
  21.               restrictions:
  23.               1. The origin of this software must not be misrepresented,
  24.                  you must not claim that you wrote the original software.
  25.                  If you use this software in a product, an acknowledgment
  26.                  in the product documentation would be appreciated but is
  27.                  not required.
  29.               2. Altered source versions must be plainly marked as such, and
  30.                  must not be misrepresented as being the original software.
  32.               3. This notice may not be removed or altered from any source 
  33.                  distribution.
  35. Updates:
  36. Sep 21, 1997 Added $IFDEF to warn Delphi 2 or 3 user that something is wrong
  37.              if they use this file.
  38. Dec 13, 1997 Changed winsocket form 'WINSOCK.DLL' to 'WINSOCK' because Win 3.x
  39.              like thos have it without extension (don't ask me why !)
  41.  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
  42. unit Winsock;
  44. interface
  46. {$IFNDEF VER80}
  47.   'This file is for use with Delphi 1 only. Use the Borland provided file'
  48.   'with any other Delphi Version. If you use this file with Delphi 2 or 3'
  49.   'this is probably because your library path is wrong or you have not'
  50.   'restored the directory structure when unzipping the file (you must use'
  51.   'pkunzip option -d to restore the files).'
  52. {$ENDIF}
  55. uses WinTypes, WinProcs;
  57. const
  58.   winsocket = 'WINSOCK';
  59.   { If your application can't find winsock.dll on startup, please try to  }
  60.   { change the preceding line to "winsocket = 'winsock.dll';"             }
  61.   { Also, try upper or lower case letters. Win 3.x is very capricious !   }
  63.   { Misc constants }
  64.   FD_SETSIZE               = 64;
  66.   {
  67.     Commands for ioctlsocket(),  taken from the BSD file fcntl.h.
  69.     Ioctl's have the command encoded in the lower word,
  70.     and the size of any in or out parameters in the upper
  71.     word.  The high 2 bits of the upper word are used
  72.     to encode the in/out status of the parameter; for now
  73.     we restrict parameters to at most 128 bytes.
  74.     0x20000000 distinguishes new & old ioctl's
  75.   }
  76.   IOCPARM_MASK             = $7f;         { parameters must be < 128 bytes }
  77.   IOC_VOID                 = $20000000;   { no parameters }
  78.   IOC_OUT                  = $40000000;   { copy out parameters }
  79.   IOC_IN                   = $80000000;   { copy in parameters }
  80.   IOC_INOUT                = (IOC_IN + IOC_OUT);
  82.   FIONREAD                 = $4004667F;   { get # bytes to read }
  83.   FIONBIO                  = $8004667E;   { set/clear non-blocking i/o }
  84.   FIOASYNC                 = $8004667D;   { set/clear async i/o }
  86.   { Socket I/O Controls }
  87.   SIOCSHIWAT               = $80047300;   { set high watermark }
  88.   SIOCGHIWAT               = $40047301;   { set low watermark }
  89.   SIOCSLOWAT               = $80047302;   { set low watermark }
  90.   SIOCGLOWAT               = $40047303;   { get low watermark }
  91.   SIOCATMARK               = $40047307;   { at oob mark? }
  93.   INADDR_ANY               = $00000000;
  94.   INADDR_LOOPBACK          = $7f000001;
  95.   INADDR_BROADCAST         = $ffffffff;
  96.   INADDR_NONE              = $ffffffff;
  98.   WSADESCRIPTION_LEN       = 256;
  99.   WSASYS_STATUS_LEN        = 128;
  101.   { Protocols }
  102.   IPPROTO_IP         =  0;              { dummy for IP }
  103.   IPPROTO_ICMP       =  1;              { control message protocol }
  104.   IPPROTO_GGP        =  2;              { gateway^2 (deprecated) }
  105.   IPPROTO_TCP        =  6;              { tcp }
  106.   IPPROTO_PUP        =  12;             { pup }
  107.   IPPROTO_UDP        =  17;             { user datagram protocol }
  108.   IPPROTO_IDP        =  22;             { xns idp }
  109.   IPPROTO_ND         =  77;             { UNOFFICIAL net disk proto }
  110.   IPPROTO_RAW        = 255;             { raw IP packet }
  111.   IPPROTO_MAX        = 256;
  113.   { Port/socket numbers: network standard functions }
  114.   IPPORT_ANY         =     0;
  115.   IPPORT_ECHO        =     7;
  116.   IPPORT_DISCARD     =     9;
  117.   IPPORT_SYSTAT      =     11;
  118.   IPPORT_DAYTIME     =     13;
  119.   IPPORT_NETSTAT     =     15;
  120.   IPPORT_FTP         =     21;
  121.   IPPORT_TELNET      =     23;
  122.   IPPORT_SMTP        =     25;
  123.   IPPORT_TIMESERVER  =     37;
  124.   IPPORT_NAMESERVER  =     42;
  125.   IPPORT_WHOIS       =     43;
  126.   IPPORT_MTP         =     57;
  128.   { Port/socket numbers: host specific functions }
  129.   IPPORT_TFTP        =     69;
  130.   IPPORT_RJE         =     77;
  131.   IPPORT_FINGER      =     79;
  132.   IPPORT_TTYLINK     =     87;
  133.   IPPORT_SUPDUP      =     95;
  135.   { UNIX TCP sockets }
  136.   IPPORT_EXECSERVER  =     512;
  137.   IPPORT_LOGINSERVER =     513;
  138.   IPPORT_CMDSERVER   =     514;
  139.   IPPORT_EFSSERVER   =     520;
  141.   { UNIX UDP sockets }
  142.   IPPORT_BIFFUDP     =     512;
  143.   IPPORT_WHOSERVER   =     513;
  144.   IPPORT_ROUTESERVER =     520;
  146.   { Ports < IPPORT_RESERVED are reserved for privileged processes (e.g. root) }
  147.   IPPORT_RESERVED    =     1024;
  149.   { Link numbers }
  150.   IMPLINK_IP         =     155;
  151.   IMPLINK_LOWEXPER   =     156;
  152.   IMPLINK_HIGHEXPER  =     158;
  154.   INVALID_SOCKET     =     $ffff;
  155.   SOCKET_ERROR       =     (-1);
  157.   { Types }
  158.   SOCK_STREAM        =  1;              { stream socket }
  159.   SOCK_DGRAM         =  2;              { datagram socket }
  160.   SOCK_RAW           =  3;              { raw-protocol interface }
  161.   SOCK_RDM           =  4;              { reliably-delivered message }
  162.   SOCK_SEQPACKET     =  5;              { sequenced packet stream }
  164.   { Option flags per-socket }
  165.   SO_DEBUG           =  $0001;         { turn on debugging info recording }
  166.   SO_ACCEPTCONN      =  $0002;         { socket has had listen() }
  167.   SO_REUSEADDR       =  $0004;         { allow local address reuse }
  168.   SO_KEEPALIVE       =  $0008;         { keep connections alive }
  169.   SO_DONTROUTE       =  $0010;         { just use interface addresses }
  170.   SO_BROADCAST       =  $0020;         { permit sending of broadcast msgs }
  171.   SO_USELOOPBACK     =  $0040;         { bypass hardware when possible }
  172.   SO_LINGER          =  $0080;         { linger on close if data present }
  173.   SO_OOBINLINE       =  $0100;         { leave received OOB data in line }
  174.   SO_DONTLINGER      = (not SO_LINGER);
  176.  { Additional options }
  177.   SO_SNDBUF          =  $1001;         { send buffer size }
  178.   SO_RCVBUF          =  $1002;         { receive buffer size }
  179.   SO_SNDLOWAT        =  $1003;         { send low-water mark }
  180.   SO_RCVLOWAT        =  $1004;         { receive low-water mark }
  181.   SO_SNDTIMEO        =  $1005;         { send timeout }
  182.   SO_RCVTIMEO        =  $1006;         { receive timeout }
  183.   SO_ERROR           =  $1007;         { get error status and clear }
  184.   SO_TYPE            =  $1008;         { get socket type }
  187.   { TCP options }
  188.   TCP_NODELAY        =  $0001;
  190.   { Address families }
  191.   AF_UNSPEC          =  0;              { unspecified }
  192.   AF_UNIX            =  1;              { local to host (pipes, portals) }
  193.   AF_INET            =  2;              { internetwork: UDP, TCP, etc. }
  194.   AF_IMPLINK         =  3;              { arpanet imp addresses }
  195.   AF_PUP             =  4;              { pup protocols: e.g. BSP }
  196.   AF_CHAOS           =  5;              { mit CHAOS protocols }
  197.   AF_NS              =  6;              { XEROX NS protocols }
  198.   AF_ISO             =  7;              { ISO protocols }
  199.   AF_OSI             =  AF_ISO;         { OSI is ISO }
  200.   AF_ECMA            =  8;              { european computer manufacturers }
  201.   AF_DATAKIT         =  9;              { datakit protocols }
  202.   AF_CCITT           =  10;             { CCITT protocols, X.25 etc }
  203.   AF_SNA             =  11;             { IBM SNA }
  204.   AF_DECnet          =  12;             { DECnet }
  205.   AF_DLI             =  13;             { Direct data link interface }
  206.   AF_LAT             =  14;             { LAT }
  207.   AF_HYLINK          =  15;             { NSC Hyperchannel }
  208.   AF_APPLETALK       =  16;             { AppleTalk }
  209.   AF_NETBIOS         =  17;             { NetBios-style addresses }
  210.   AF_MAX             =  18;
  212.   { Protocol families, same as address families for now }
  213.   PF_UNSPEC          =  AF_UNSPEC;
  214.   PF_UNIX            =  AF_UNIX;
  215.   PF_INET            =  AF_INET;
  216.   PF_IMPLINK         =  AF_IMPLINK;
  217.   PF_PUP             =  AF_PUP;
  218.   PF_CHAOS           =  AF_CHAOS;
  219.   PF_NS              =  AF_NS;
  220.   PF_ISO             =  AF_ISO;
  221.   PF_OSI             =  AF_OSI;
  222.   PF_ECMA            =  AF_ECMA;
  223.   PF_DATAKIT         =  AF_DATAKIT;
  224.   PF_CCITT           =  AF_CCITT;
  225.   PF_SNA             =  AF_SNA;
  226.   PF_DECnet          =  AF_DECnet;
  227.   PF_DLI             =  AF_DLI;
  228.   PF_LAT             =  AF_LAT;
  229.   PF_HYLINK          =  AF_HYLINK;
  230.   PF_APPLETALK       =  AF_APPLETALK;
  231.   PF_MAX             =  AF_MAX;
  233.  { Level number for (get/set)sockopt() to apply to socket itself }
  234.  SOL_SOCKET          =  -1;             { options for socket level }
  236.  { Maximum queue length specifiable by listen }
  237.  SOMAXCONN           =   5;
  239.  MSG_OOB             =   1;             { process out-of-band data }
  240.  MSG_PEEK            =   2;             { peek at incoming message }
  241.  MSG_DONTROUTE       =   4;             { send without using routing tables }
  243.  MSG_MAXIOVLEN       =  16;
  245.  { Define constant based on rfc883, used by gethostbyxxxx() calls }
  246.  MAXGETHOSTSTRUCT    =  1024;
  248.  { Define flags to be used with the WSAAsyncSelect() call }
  249.  FD_READ             =  1;
  250.  FD_WRITE            =  2;
  251.  FD_OOB              =  4;
  252.  FD_ACCEPT           =  8;
  253.  FD_CONNECT          =  16;
  254.  FD_CLOSE            =  32;
  256.  { All Windows Sockets error constants are biased by WSABASEERR fromthe normal }
  257.  WSABASEERR          = 10000;
  259.  { Windows Sockets definitions of regular Microsoft C error constants }
  260.  WSAEINTR            = (WSABASEERR+4);
  261.  WSAEBADF            = (WSABASEERR+9);
  262.  WSAEACCES           = (WSABASEERR+13);
  263.  WSAEFAULT           = (WSABASEERR+14);
  264.  WSAEINVAL           = (WSABASEERR+22);
  265.  WSAEMFILE           = (WSABASEERR+24);
  267.  { Windows Sockets definitions of regular Berkeley error constants }
  268.  WSAEWOULDBLOCK      = (WSABASEERR+35);
  269.  WSAEINPROGRESS      = (WSABASEERR+36);
  270.  WSAEALREADY         = (WSABASEERR+37);
  271.  WSAENOTSOCK         = (WSABASEERR+38);
  272.  WSAEDESTADDRREQ     = (WSABASEERR+39);
  273.  WSAEMSGSIZE         = (WSABASEERR+40);
  274.  WSAEPROTOTYPE       = (WSABASEERR+41);
  275.  WSAENOPROTOOPT      = (WSABASEERR+42);
  276.  WSAEPROTONOSUPPORT  = (WSABASEERR+43);
  277.  WSAESOCKTNOSUPPORT  = (WSABASEERR+44);
  278.  WSAEOPNOTSUPP       = (WSABASEERR+45);
  279.  WSAEPFNOSUPPORT     = (WSABASEERR+46);
  280.  WSAEAFNOSUPPORT     = (WSABASEERR+47);
  281.  WSAEADDRINUSE       = (WSABASEERR+48);
  282.  WSAEADDRNOTAVAIL    = (WSABASEERR+49);
  283.  WSAENETDOWN         = (WSABASEERR+50);
  284.  WSAENETUNREACH      = (WSABASEERR+51);
  285.  WSAENETRESET        = (WSABASEERR+52);
  286.  WSAECONNABORTED     = (WSABASEERR+53);
  287.  WSAECONNRESET       = (WSABASEERR+54);
  288.  WSAENOBUFS          = (WSABASEERR+55);
  289.  WSAEISCONN          = (WSABASEERR+56);
  290.  WSAENOTCONN         = (WSABASEERR+57);
  291.  WSAESHUTDOWN        = (WSABASEERR+58);
  292.  WSAETOOMANYREFS     = (WSABASEERR+59);
  293.  WSAETIMEDOUT        = (WSABASEERR+60);
  294.  WSAECONNREFUSED     = (WSABASEERR+61);
  295.  WSAELOOP            = (WSABASEERR+62);
  296.  WSAENAMETOOLONG     = (WSABASEERR+63);
  297.  WSAEHOSTDOWN        = (WSABASEERR+64);
  298.  WSAEHOSTUNREACH     = (WSABASEERR+65);
  299.  WSAENOTEMPTY        = (WSABASEERR+66);
  300.  WSAEPROCLIM         = (WSABASEERR+67);
  301.  WSAEUSERS           = (WSABASEERR+68);
  302.  WSAEDQUOT           = (WSABASEERR+69);
  303.  WSAESTALE           = (WSABASEERR+70);
  304.  WSAEREMOTE          = (WSABASEERR+71);
  306.  { Extended Windows Sockets error constant definitions }
  307.  WSASYSNOTREADY      = (WSABASEERR+91);
  308.  WSAVERNOTSUPPORTED  = (WSABASEERR+92);
  309.  WSANOTINITIALISED   = (WSABASEERR+93);
  311.  { Authoritative Answer: Host not found }
  312.  WSAHOST_NOT_FOUND   = (WSABASEERR+1001);
  313.  HOST_NOT_FOUND      = WSAHOST_NOT_FOUND;
  315. { Non-Authoritative: Host not found, or SERVERFAIL }
  316.  WSATRY_AGAIN        = (WSABASEERR+1002);
  317.  TRY_AGAIN           = WSATRY_AGAIN;
  319. { Non recoverable errors, FORMERR, REFUSED, NOTIMP }
  320.  WSANO_RECOVERY      = (WSABASEERR+1003);
  321.  NO_RECOVERY         = WSANO_RECOVERY;
  323. { Valid name, no data record of requested type }
  324.  WSANO_DATA          = (WSABASEERR+1004);
  325.  NO_DATA             = WSANO_DATA;
  327. { no address, look for MX record }
  328.  WSANO_ADDRESS       = WSANO_DATA;
  329.  NO_ADDRESS          = WSANO_ADDRESS;
  331. { Windows Sockets errors redefined as regular Berkeley error constants }
  332.  EWOULDBLOCK         = WSAEWOULDBLOCK;
  333.  EINPROGRESS         = WSAEINPROGRESS;
  334.  EALREADY            = WSAEALREADY;
  335.  ENOTSOCK            = WSAENOTSOCK;
  336.  EDESTADDRREQ        = WSAEDESTADDRREQ;
  337.  EMSGSIZE            = WSAEMSGSIZE;
  338.  EPROTOTYPE          = WSAEPROTOTYPE;
  339.  ENOPROTOOPT         = WSAENOPROTOOPT;
  340.  EPROTONOSUPPORT     = WSAEPROTONOSUPPORT;
  341.  ESOCKTNOSUPPORT     = WSAESOCKTNOSUPPORT;
  342.  EOPNOTSUPP          = WSAEOPNOTSUPP;
  343.  EPFNOSUPPORT        = WSAEPFNOSUPPORT;
  344.  EAFNOSUPPORT        = WSAEAFNOSUPPORT;
  345.  EADDRINUSE          = WSAEADDRINUSE;
  346.  EADDRNOTAVAIL       = WSAEADDRNOTAVAIL;
  347.  ENETDOWN            = WSAENETDOWN;
  348.  ENETUNREACH         = WSAENETUNREACH;
  349.  ENETRESET           = WSAENETRESET;
  350.  ECONNABORTED        = WSAECONNABORTED;
  351.  ECONNRESET          = WSAECONNRESET;
  352.  ENOBUFS             = WSAENOBUFS;
  353.  EISCONN             = WSAEISCONN;
  354.  ENOTCONN            = WSAENOTCONN;
  355.  ESHUTDOWN           = WSAESHUTDOWN;
  356.  ETOOMANYREFS        = WSAETOOMANYREFS;
  357.  ETIMEDOUT           = WSAETIMEDOUT;
  358.  ECONNREFUSED        = WSAECONNREFUSED;
  359.  ELOOP               = WSAELOOP;
  360.  ENAMETOOLONG        = WSAENAMETOOLONG;
  361.  EHOSTDOWN           = WSAEHOSTDOWN;
  362.  EHOSTUNREACH        = WSAEHOSTUNREACH;
  363.  ENOTEMPTY           = WSAENOTEMPTY;
  364.  EPROCLIM            = WSAEPROCLIM;
  365.  EUSERS              = WSAEUSERS;
  366.  EDQUOT              = WSAEDQUOT;
  367.  ESTALE              = WSAESTALE;
  368.  EREMOTE             = WSAEREMOTE;
  370. type
  371.   { Basic system type definitions, taken from the BSD file sys/types.h. }
  372.   u_char   = byte;
  373.   u_short  = word;
  374.   u_int    = word;
  375.   u_long   = longint;
  376.   short    = word;
  378.   { low level handle wich refer to sockets }
  379.   TSocket = u_int;
  381.   { Select uses arrays of SOCKETs. }
  382.   TFDSet = packed record
  383.     fd_count : u_short;
  384.     fd_array : array [0..(FD_SETSIZE - 1)] of TSocket;
  385.   end;
  386.   PFDSet = ^TFDSet;
  388.   {  Structure used in select() call, taken from the BSD file sys/time.h. }
  389.   TTimeVal = packed record
  390.     tv_sec  : longint;
  391.     tv_usec : longint;
  392.   end;
  393.   PTimeVal = ^TTimeVal;
  395.   { Structures returned by network data base library, taken from the
  396.     BSD file netdb.h.  All addresses are supplied in host order, and
  397.     returned in network order (suitable for use in system calls). }
  399.   HostEnt = record
  400.     h_name      : PChar;          { official name of host }
  401.     h_aliases   : ^PChar;         { alias list }
  402.     h_addrtype  : short;          { host address type }
  403.     h_length    : short;          { length of address }
  404.     h_addr_list : ^PChar;         { list of addresses }
  405.   end;
  406.   PHostEnt = ^HostEnt;
  408.   NetEnt = record
  409.     n_name     : PChar;           { official name of net }
  410.     n_aliases  : ^PChar;          { alias list }
  411.     n_addrtype : short;           { net address type }
  412.     n_net      : u_long;          {  network # }
  413.   end;
  414.   PNetEnt = ^NetEnt;
  416.   ServEnt = record
  417.     s_name    : PChar;            { official service name }
  418.     s_aliases : ^PChar;           { alias list }
  419.     s_port    : integer;          { port # }
  420.     s_proto   : PChar;            { protocol to use }
  421.   end;
  422.   PServEnt = ^ServEnt;
  424.   Protoent = record
  425.     p_name    : PChar;            { official protocol name }
  426.     p_aliases : ^PChar;           { alias list }
  427.     p_proto   : integer;          { protocol # }
  428.   end;
  429.   Pprotoent = ^protoent;
  431.   {  Internet address (old style... should be updated) }
  432.   SunB = packed record
  433.     s_b1, s_b2, s_b3, s_b4: u_char;
  434.   end;
  436.   SunW = packed record
  437.     s_w1, s_w2: u_short;
  438.   end;
  440.   TInAddr = packed record
  441.     case integer of
  442.       0: (S_un_b: SunB);
  443.       1: (S_un_w: SunW);
  444.       2: (S_addr: u_long);
  445.   end;
  446.   PInAddr = ^TInAddr;
  448.   { Socket address, internet style. }
  449.   TSockAddrIn = packed record
  450.     case integer of
  451.     0: (sin_family : u_short;
  452.         sin_port   : u_short;
  453.         sin_addr   : TInAddr;
  454.         sin_zero   : array[0..7] of char);
  455.     1: (sa_family: u_short;
  456.         sa_data: array [0..13] of char);
  457.   end;
  458.   PSockAddrIn = ^TSockAddrIn;
  459.   TSockAddr   = TSockAddrIn;
  461.   PWSADATA = ^TWSADATA;
  462.   TWSADATA = packed record
  463.     wVersion       : word;
  464.     wHighVersion   : word;
  465.     szDescription  : array [0..WSADESCRIPTION_LEN] of char;
  466.     szSystemStatus : array [0..WSASYS_STATUS_LEN] of char;
  467.     iMaxSockets    : u_short;
  468.     iMaxUdpDg      : u_short;
  469.     lpVendorInfo   : PChar;
  470.   end;
  472.   { Structure used by kernel to pass protocol information in raw sockets. }
  473.   TSockProto = packed record
  474.     sp_family   : u_short;
  475.     sp_protocol : u_short;
  476.   end;
  478.   {  Structure used for manipulating linger option. }
  479.   TLinger = packed record
  480.     l_onoff  : u_short;
  481.     l_linger : u_short;
  482.   end;
  484. { Socket function prototypes }
  486. function accept(s: TSocket; var addr: TSockAddr; var addrlen: Integer): TSocket;
  487. function bind(s: TSocket; var addr: TSockAddr; namelen: Integer): Integer;
  488. function closesocket(s: TSocket): Integer;
  489. function connect(s: TSocket; var name: TSockAddr; namelen: Integer): Integer;
  490. function ioctlsocket(s: TSocket; cmd: Longint; var arg: u_long): Integer;
  491. function getpeername(s: TSocket; var name: TSockAddr; var namelen: Integer): Integer;
  492. function getsockname(s: TSocket; var name: TSockAddr; var namelen: Integer): Integer;
  493. function getsockopt(s: TSocket; level, optname: Integer; optval: PChar; var optlen: Integer): Integer;
  494. function htonl(hostlong: u_long): u_long;
  495. function htons(hostshort: u_short): u_short;
  496. function inet_addr(cp: PChar): u_long;
  497. function inet_ntoa(inaddr: TInAddr): PChar;
  498. function listen(s: TSocket; backlog: Integer): Integer; 
  499. function ntohl(netlong: u_long): u_long; 
  500. function ntohs(netshort: u_short): u_short; 
  501. function recv(s: TSocket; var Buf; len, flags: Integer): Integer;
  502. function recvfrom(s: TSocket; var Buf; len, flags: Integer;
  503.   var from: TSockAddr; var fromlen: Integer): Integer; 
  504. function select(nfds: Integer; readfds, writefds, exceptfds: PFDSet;
  505.   timeout: PTimeVal): Longint;
  506. function send(s: TSocket; var Buf; len, flags: Integer): Integer; 
  507. function sendto(s: TSocket; var Buf; len, flags: Integer; var addrto: TSockAddr;
  508.   tolen: Integer): Integer; 
  509. function setsockopt(s: TSocket; level, optname: Integer; optval: PChar;
  510.   optlen: Integer): Integer; 
  511. function shutdown(s: TSocket; how: Integer): Integer; 
  512. function socket(af, struct, protocol: Integer): TSocket;
  513. function gethostbyaddr(addr: Pointer; len, struct: Integer): PHostEnt;
  514. function gethostbyname(name: PChar): PHostEnt;
  515. function gethostname(name: PChar; len: Integer): Integer;
  516. function getservbyport(port: Integer; proto: PChar): PServEnt;
  517. function getservbyname(name, proto: PChar): PServEnt;
  518. function getprotobynumber(proto: Integer): PProtoEnt;
  519. function getprotobyname(name: PChar): PProtoEnt;
  520. function WSAStartup(wVersionRequired: word; var WSData: TWSAData): Integer; 
  521. function WSACleanup: Integer; 
  522. procedure WSASetLastError(iError: Integer); 
  523. function WSAGetLastError: Integer;
  524. function WSAIsBlocking: BOOL; 
  525. function WSAUnhookBlockingHook: Integer;
  526. function WSASetBlockingHook(lpBlockFunc: TFarProc): TFarProc;
  527. function WSACancelBlockingCall: Integer;
  528. function WSAAsyncGetServByName(HWindow: HWND; wMsg: u_int; 
  529.   name, proto, buf: PChar; buflen: Integer): THandle; 
  530. function WSAAsyncGetServByPort( HWindow: HWND; wMsg, port: u_int;
  531.   proto, buf: PChar; buflen: Integer): THandle; 
  532. function WSAAsyncGetProtoByName(HWindow: HWND; wMsg: u_int;
  533.   name, buf: PChar; buflen: Integer): THandle; 
  534. function WSAAsyncGetProtoByNumber(HWindow: HWND; wMsg: u_int; number: Integer;
  535.   buf: PChar; buflen: Integer): THandle;
  536. function WSAAsyncGetHostByName(HWindow: HWND; wMsg: u_int;
  537.   name, buf: PChar; buflen: Integer): THandle;
  538. function WSAAsyncGetHostByAddr(HWindow: HWND; wMsg: u_int; addr: PChar;
  539.   len, struct: Integer; buf: PChar; buflen: Integer): THandle;
  540. function WSACancelAsyncRequest(hAsyncTaskHandle: THandle): Integer;
  541. function WSAAsyncSelect(s: TSocket; HWindow: HWND; wMsg: u_int; lEvent: Longint): Integer;
  542. function WSARecvEx(s: TSocket; var buf; len: Integer; var flags: Integer): Integer;
  543. function WSAMakeSyncReply(Buflen, Error: Word): Longint;
  544. function WSAMakeSelectReply(Event, Error: Word): Longint;
  545. function WSAGetAsyncBuflen(Param: Longint): Word;
  546. function WSAGetAsyncError(Param: Longint): Word;
  547. function WSAGetSelectEvent(Param: Longint): Word;
  548. function WSAGetSelectError(Param: Longint): Word;
  551. implementation
  553. function WSAMakeSyncReply;
  554. begin
  555.   WSAMakeSyncReply:= MakeLong(Buflen, Error);
  556. end;
  558. function WSAMakeSelectReply;
  559. begin
  560.   WSAMakeSelectReply:= MakeLong(Event, Error);
  561. end;
  563. function WSAGetAsyncBuflen;
  564. begin
  565.   WSAGetAsyncBuflen:= LOWORD(Param);
  566. end;
  568. function WSAGetAsyncError;
  569. begin
  570.   WSAGetAsyncError:= HIWORD(Param);
  571. end;
  573. function WSAGetSelectEvent;
  574. begin
  575.   WSAGetSelectEvent:= LOWORD(Param);
  576. end;
  578. function WSAGetSelectError;
  579. begin
  580.   WSAGetSelectError:= HIWORD(Param);
  581. end;
  583. function accept;            external    winsocket name 'accept';
  584. function bind;              external    winsocket name 'bind';
  585. function closesocket;       external    winsocket name 'closesocket';
  586. function connect;           external    winsocket name 'connect';
  587. function getpeername;       external    winsocket name 'getpeername';
  588. function getsockname;       external    winsocket name 'getsockname';
  589. function getsockopt;        external    winsocket name 'getsockopt';
  590. function htonl;             external    winsocket name 'htonl';
  591. function htons;             external    winsocket name 'htons';
  592. function inet_addr;         external    winsocket name 'inet_addr';
  593. function inet_ntoa;         external    winsocket name 'inet_ntoa';
  594. function ioctlsocket;       external    winsocket name 'ioctlsocket';
  595. function listen;            external    winsocket name 'listen';
  596. function ntohl;             external    winsocket name 'ntohl';
  597. function ntohs;             external    winsocket name 'ntohs';
  598. function recv;              external    winsocket name 'recv';
  599. function recvfrom;          external    winsocket name 'recvfrom';
  600. function select;            external    winsocket name 'select';
  601. function send;              external    winsocket name 'send';
  602. function sendto;            external    winsocket name 'sendto';
  603. function setsockopt;        external    winsocket name 'setsockopt';
  604. function shutdown;          external    winsocket name 'shutdown';
  605. function socket;            external    winsocket name 'socket';
  607. function gethostbyaddr;     external    winsocket name 'gethostbyaddr';
  608. function gethostbyname;     external    winsocket name 'gethostbyname';
  609. function getprotobyname;    external    winsocket name 'getprotobyname';
  610. function getprotobynumber;  external    winsocket name 'getprotobynumber';
  611. function getservbyname;     external    winsocket name 'getservbyname';
  612. function getservbyport;     external    winsocket name 'getservbyport';
  613. function gethostname;       external    winsocket name 'gethostname';
  615. function WSAAsyncSelect;        external winsocket name 'WSAAsyncSelect';
  616. function WSARecvEx;             external winsocket name 'WSARecvEx';
  617. function WSAAsyncGetHostByAddr; external winsocket name 'WSAAsyncGetHostByAddr';
  618. function WSAAsyncGetHostByName; external winsocket name 'WSAAsyncGetHostByName';
  619. function WSAAsyncGetProtoByNumber; external winsocket name 'WSAAsyncGetProtoByNumber';
  620. function WSAAsyncGetprotoByName; external winsocket name 'WSAAsyncGetprotoByName';
  621. function WSAAsyncGetServByPort; external winsocket name 'WSAAsyncGetServByPort';
  622. function WSAAsyncGetServByName; external winsocket name 'WSAAsyncGetServByName';
  623. function WSACancelAsyncRequest; external winsocket name 'WSACancelAsyncRequest';
  624. function WSASetBlockingHook;    external winsocket name 'WSASetBlockingHook';
  625. function WSAUnhookBlockingHook; external winsocket name 'WSAUnhookBlockingHook';
  626. function WSAGetLastError;       external winsocket name 'WSAGetLastError';
  627. procedure WSASetLastError;      external winsocket name 'WSASetLastError';
  628. function WSACancelBlockingCall; external winsocket name 'WSACancelBlockingCall';
  629. function WSAIsBlocking;         external winsocket name 'WSAIsBlocking';
  630. function WSAStartup;            external winsocket name 'WSAStartup';
  631. function WSACleanup;            external winsocket name 'WSACleanup';
  633. end.