Difference between revisions of "Unit Winsock"

procedure WSInit;

function WSStart:Boolean;

function WSStop:Boolean;

procedure WSAsyncStart(Data:Pointer);

function accept(s: TSocket; addr: PSockAddr; addrlen : ptOS_INT) : TSocket;

function accept(s: TSocket; addr: PSockAddr; var addrlen : tOS_INT) : TSocket;

function bind(s: TSocket; addr: PSockaddr; namelen:tOS_INT):tOS_INT;

function bind(s: TSocket; var addr: TSockaddr; namelen:tOS_INT):tOS_INT;

function closesocket(s: TSocket):tOS_INT;

function connect(s: TSocket; addr:PSockAddr; namelen:tOS_INT):tOS_INT;

function connect(s: TSocket; var name:TSockAddr; namelen:tOS_INT):tOS_INT;

function ioctlsocket(s: TSocket; cmd:longint; var arg:u_long):tOS_INT;

function ioctlsocket(s: TSocket; cmd:longint; var arg:longint):tOS_INT;

function ioctlsocket(s: TSocket; cmd:longint; argp:pu_long):tOS_INT;

function getpeername(s: TSocket; var name:TSockAddr; var namelen:tOS_INT):tOS_INT;

function getsockname(s: TSocket; var name:TSockAddr; var namelen:tOS_INT):tOS_INT;

function getsockopt(s: TSocket; level:tOS_INT; optname:tOS_INT; optval:pchar; var optlen:tOS_INT):tOS_INT;

function getsockopt(s: TSocket; level:tOS_INT; optname:tOS_INT; optval:pointer; var optlen:tOS_INT):tOS_INT;

function getsockopt(s: TSocket; level:tOS_INT; optname:tOS_INT; var optval; var optlen:tOS_INT):tOS_INT;

function htonl(hostlong: u_long): u_long;

function htons(hostshort: u_short): u_short;

function inet_addr(cp: PChar): u_long;

function inet_ntoa(inaddr: TInAddr): PChar;

function listen(s: TSocket; backlog:tOS_INT):tOS_INT;

function ntohl(netlong: u_long): u_long;

function ntohs(netshort: u_short): u_short;

function recv(s: TSocket; buf:pchar; len:tOS_INT; flags:tOS_INT):tOS_INT;

function recv(s: TSocket; buf:pointer; len:tOS_INT; flags:tOS_INT):tOS_INT;

function recv(s: TSocket; var buf; len:tOS_INT; flags:tOS_INT):tOS_INT;

function recvfrom(s: TSocket; buf:pchar; len:tOS_INT; flags:tOS_INT; from:PSockAddr; fromlen:ptOS_INT):tOS_INT;

function recvfrom(s: TSocket; buf:pointer; len:tOS_INT; flags:tOS_INT; from:PSockAddr; fromlen:ptOS_INT):tOS_INT;

function recvfrom(s: TSocket; var buf; len:tOS_INT; flags:tOS_INT; var from:TSockAddr; var fromlen:tOS_INT):tOS_INT;

function select(nfds:tOS_INT; readfds,writefds,exceptfds : PFDSet;timeout: PTimeVal):tOS_INT;

function send(s: TSocket;var buf; len:tOS_INT; flags:tOS_INT):tOS_INT;

function send(s: TSocket; buf:pchar; len:tOS_INT; flags:tOS_INT):tOS_INT;

function send(s: TSocket;buf:pointer; len:tOS_INT; flags:tOS_INT):tOS_INT;

function sendto(s: TSocket; buf:pchar; len:tOS_INT; flags:tOS_INT; toaddr:PSockAddr; tolen:tOS_INT):tOS_INT;

function sendto(s: TSocket; buf:pointer; len:tOS_INT; flags:tOS_INT; toaddr:PSockAddr; tolen:tOS_INT):tOS_INT;

function sendto(s: TSocket; var buf; len:tOS_INT; flags:tOS_INT; var toaddr:TSockAddr; tolen:tOS_INT):tOS_INT;

function setsockopt(s: TSocket; level:tOS_INT; optname:tOS_INT; optval:pchar; optlen:tOS_INT):tOS_INT;

function setsockopt(s: TSocket; level:tOS_INT; optname:tOS_INT; optval:pointer; optlen:tOS_INT):tOS_INT;

function setsockopt(s: TSocket; level:tOS_INT; optname:tOS_INT; var optval; optlen:tOS_INT):tOS_INT;

function shutdown(s: TSocket; how:tOS_INT):tOS_INT;

function socket(af:tOS_INT; struct:tOS_INT; protocol:tOS_INT):TSocket;

function gethostbyaddr(addr:pchar; len:tOS_INT; family:tOS_INT): PHostEnt;

function gethostbyname(name: PChar): PHostEnt;

function gethostname(name: PChar; namelen:tOS_INT):tOS_INT;

function getservbyport(port:tOS_INT; proto: PChar):PServEnt;

function getservbyname(name, proto: PChar): PServEnt;

function getprotobynumber(proto:tOS_INT):PProtoEnt;

function getprotobyname(name: PChar): PProtoEnt;

function WSAStartup(wVersionRequired:word; var WSAData:TWSADATA):tOS_INT;

function WSACleanup:tOS_INT;

procedure WSASetLastError(iError:tOS_INT);

function WSAGetLastError:tOS_INT;

function WSAIsBlocking: BOOL;

function WSAUnhookBlockingHook:tOS_INT;

function WSASetBlockingHook(lpBlockFunc: TFarProc): TFarProc;

function WSACancelBlockingCall:tOS_INT;

function WSAAsyncGetServByName(hWnd:HWND; wMsg:u_int; name:pchar; proto:pchar; buf:pchar; buflen:tOS_INT):THandle;

function WSAAsyncGetServByPort(hWnd:HWND; wMsg:u_int; port:tOS_INT; proto:pchar; buf:pchar; buflen:tOS_INT):THandle;

function WSAAsyncGetProtoByName(hWnd:HWND; wMsg:u_int; name:pchar; buf:pchar; buflen:tOS_INT):THandle;

function WSAAsyncGetProtoByNumber(hWnd:HWND; wMsg:u_int; number:tOS_INT; buf:pchar; buflen:tOS_INT):THandle;

function WSAAsyncGetHostByName(hWnd:HWND; wMsg:u_int; name:pchar; buf:pchar; buflen:tOS_INT):THandle;

function WSAAsyncGetHostByAddr(hWnd:HWND; wMsg:u_int; addr:pchar; len:tOS_INT; family:tOS_INT; buf:pchar; buflen:tOS_INT):THandle;

function WSACancelAsyncRequest(hAsyncTaskHandle:THandle):tOS_INT;

function WSAAsyncSelect(s: TSocket; hWnd:HWND; wMsg:u_int; lEvent:longint):tOS_INT;

function WSARecvEx(s: TSocket;var buf; len:tOS_INT; flags:ptOS_INT):tOS_INT;

function __WSAFDIsSet(s: TSocket; var FDSet:TFDSet):Bool;

function __WSAFDIsSet_(s: TSocket; var FDSet:TFDSet):tOS_INT;

function TransmitFile(hSocket: TSocket; hFile: THandle; nNumberOfBytesToWrite: DWORD; nNumberOfBytesPerSend: DWORD; lpOverlapped: POverlapped; lpTransmitBuffers: PTransmitFileBuffers; dwReserved: DWORD): BOOL;

function AcceptEx(sListenSocket, sAcceptSocket: TSocket; lpOutputBuffer: Pointer; dwReceiveDataLength, dwLocalAddressLength, dwRemoteAddressLength: DWORD; var lpdwBytesReceived: DWORD; lpOverlapped: POverlapped): BOOL;

procedure GetAcceptExSockaddrs(lpOutputBuffer: Pointer; dwReceiveDataLength, dwLocalAddressLength, dwRemoteAddressLength: DWORD; var LocalSockaddr: TSockAddr; var LocalSockaddrLength: Integer; var RemoteSockaddr: TSockAddr; var RemoteSockaddrLength: Integer);

function WSAMakeSyncReply(Buflen,Error:Word):dword;

function WSAMakeSelectReply(Event,Error:Word):dword;

function WSAGetAsyncBuflen(Param:dword):Word;

function WSAGetAsyncError(Param:dword):Word;

function WSAGetSelectEvent(Param:dword):Word;

function WSAGetSelectError(Param:dword):Word;

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

function WsControl(Proto:DWORD; Action:DWORD; pRequestInfo:Pointer; var pcbRequestInfoLen:DWORD; pResponseInfo:Pointer; var pcbResponseInfoLen:DWORD):Integer;

function getnetbyaddr(addr: Pointer; len, Struct: Integer): PNetEnt;

function getnetbyname(name: PChar): PNetEnt;

function WsControlEx(Proto:DWORD; Action:DWORD; pRequestInfo:Pointer; var pcbRequestInfoLen:DWORD; pResponseInfo:Pointer; var pcbResponseInfoLen:DWORD):Integer;

function WinsockErrorToString(AError:LongInt):String;