Socket函数原型.doc

Socket function prototypes $EXTERNALSYM acceptfunction accept(s: TSocket; addr: PSockAddr; addrlen: PInteger): TSocket; stdcall;$EXTERNALSYM bindfunction bind(s: TSocket; var addr: TSockAddr; namelen: Integer): Integer; stdcall;$EXTERNALSYM closesocketfunction closesocket(s: TSocket): Integer; stdcall;$EXTERNALSYM connectfunction connect(s: TSocket; var name: TSockAddr; namelen: Integer): Integer; stdcall;$EXTERNALSYM ioctlsocketfunction ioctlsocket(s: TSocket; cmd: DWORD; var arg: u_long): Integer; stdcall;$EXTERNALSYM getpeernamefunction getpeername(s: TSocket; var name: TSockAddr; var namelen: Integer): Integer; stdcall;$EXTERNALSYM getsocknamefunction getsockname(s: TSocket; var name: TSockAddr; var namelen: Integer): Integer; stdcall;$EXTERNALSYM getsockoptfunction getsockopt(s: TSocket; level, optname: Integer; optval: PChar; var optlen: Integer): Integer; stdcall;$EXTERNALSYM htonlfunction htonl(hostlong: u_long): u_long; stdcall;$EXTERNALSYM htonsfunction htons(hostshort: u_short): u_short; stdcall;$EXTERNALSYM inet_addrfunction inet_addr(cp: PChar): u_long; stdcall; PInAddr; TInAddr $EXTERNALSYM inet_ntoafunction inet_ntoa(inaddr: TInAddr): PChar; stdcall;$EXTERNALSYM listenfunction listen(s: TSocket; backlog: Integer): Integer; stdcall;$EXTERNALSYM ntohlfunction ntohl(netlong: u_long): u_long; stdcall;$EXTERNALSYM ntohsfunction ntohs(netshort: u_short): u_short; stdcall;$EXTERNALSYM recvfunction recv(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;$EXTERNALSYM recvfromfunction recvfrom(s: TSocket; var Buf; len, flags: Integer; var from: TSockAddr; var fromlen: Integer): Integer; stdcall;$EXTERNALSYM selectfunction select(nfds: Integer; readfds, writefds, exceptfds: PFDSet; timeout: PTimeVal): Longint; stdcall;$EXTERNALSYM sendfunction send(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;$EXTERNALSYM sendtofunction sendto(s: TSocket; var Buf; len, flags: Integer; var addrto: TSockAddr; tolen: Integer): Integer; stdcall;$EXTERNALSYM setsockoptfunction setsockopt(s: TSocket; level, optname: Integer; optval: PChar; optlen: Integer): Integer; stdcall;$EXTERNALSYM shutdownfunction shutdown(s: TSocket; how: Integer): Integer; stdcall;$EXTERNALSYM socketfunction socket(af, Struct, protocol: Integer): TSocket; stdcall;$EXTERNALSYM gethostbyaddrfunction gethostbyaddr(addr: Pointer; len, Struct: Integer): PHostEnt; stdcall;$EXTERNALSYM gethostbynamefunction gethostbyname(name: PChar): PHostEnt; stdcall;$EXTERNALSYM gethostnamefunction gethostname(name: PChar; len: Integer): Integer; stdcall;$EXTERNALSYM getservbyportfunction getservbyport(port: Integer; proto: PChar): PServEnt; stdcall;$EXTERNALSYM getservbynamefunction getservbyname(name, proto: PChar): PServEnt; stdcall;$EXTERNALSYM getprotobynumberfunction getprotobynumber(proto: Integer): PProtoEnt; stdcall;$EXTERNALSYM getprotobynamefunction getprotobyname(name: PChar): PProtoEnt; stdcall;$EXTERNALSYM WSAStartupfunction WSAStartup(wVersionRequired: word; var WSData: TWSAData): Integer; stdcall;$EXTERNALSYM WSACleanupfunction WSACleanup: Integer; stdcall;$EXTERNALSYM WSASetLastErrorprocedure WSASetLastError(iError: Integer); stdcall;$EXTERNALSYM WSAGetLastErrorfunction WSAGetLastError: Integer; stdcall;$EXTERNALSYM WSAIsBlockingfunction WSAIsBlocking: BOOL; stdcall;$EXTERNALSYM WSAUnhookBlockingHookfunction WSAUnhookBlockingHook: Integer; stdcall;$EXTERNALSYM WSASetBlockingHookfunction WSASetBlockingHook(lpBlockFunc: TFarProc): TFarProc; stdcall;$EXTERNALSYM WSACancelBlockingCallfunction WSACancelBlockingCall: Integer; stdcall;$EXTERNALSYM WSAAsyncGetServByNamefunction WSAAsyncGetServByName(HWindow: HWND; wMsg: u_int; name, proto, buf: PChar; buflen: Integer): THandle; stdcall;$EXTERNALSYM WSAAsyncGetServByPortfunction WSAAsyncGetServByPort( HWindow: HWND; wMsg, port: u_int; proto, buf: PChar; buflen: Integer): THandle; stdcall;$EXTERNALSYM WSAAsyncGetProtoByNamefunction WSAAsyncGetProtoByName(HWindow: HWND; wMsg: u_int; name, buf: PChar; buflen: Integer): THandle; stdcall;$EXTERNALSYM WSAAsyncGetProtoByNumberfunction WSAAsyncGetProtoByNumber(HWindow: HWND; wMsg: u_int; number: Integer; buf: PChar; buflen: Integer): THandle; stdcall;$EXTERNALSYM WSAAsyncGetHostByNamefunction WSAAsyncGetHostByName(HWindow: HWND; wMsg: u_int; name, buf: PChar; buflen: Integer): THandle; stdcall;$EXTERNALSYM WSAAsyncGetHostByAddrfunction WSAAsyncGetHostByAddr(HWindow: HWND; wMsg: u_int; addr: PChar; len, Struct: Integer; buf: PChar; buflen: Integer): THandle; stdcall;$EXTERNALSYM WSACancelAsyncRequestfunction WSACancelAsyncRequest(hAsyncTaskHandle: THandle): Integer; stdcall;$EXTERNALSYM WSAAsyncSelectfunction WSAAsyncSelect(s: TSocket; HWindow: HWND; wMsg: u_int; lEvent: Longint): Integer; stdcall;$EXTERNALSYM WSARecvExfunction WSARecvEx(s: TSocket; var buf; len: Integer; var flags: Integer): Integer; stdcall;$EXTERNALSYM _WSAFDIsSetfunction _WSAFDIsSet(s: TSocket; var FDSet: TFDSet): Bool; stdcall;$EXTERNALSYM TransmitFilefunction TransmitFile(hSocket: TSocket; hFile: THandle; nNumberOfBytesToWrite: DWORD; nNumberOfBytesPerSend: DWORD; lpOverlapped: POverlapped; lpTransmitBuffers: PTransmitFileBuffers; dwReserved: DWORD): BOOL; stdcall;$EXTERNALSYM AcceptExfunction AcceptEx(sListenSocket, sAcceptSocket: TSocket; lpOutputBuffer: Pointer; dwReceiveDataLength, dwLocalAddressLength, dwRemoteAddressLength: DWORD; var lpdwBytesReceived: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;$EXTERNALSYM GetAcceptExSockaddrsprocedure GetAcceptExSockaddrs(lpOutputBuffer: Pointer; dwReceiveDataLength, dwLocalAddressLength, dwRemoteAddressLength: DWORD; var LocalSockaddr: TSockAddr; var LocalSockaddrLength: Integer; var RemoteSockaddr: TSockAddr; var RemoteSockaddrLength: Integer); stdcall;$EXTERNALSYM WSAMakeSyncReplyfunction WSAMakeSyncReply(Buflen, Error: Word): Longint;$EXTERNALSYM WSAMakeSelectReplyfunction WSAMakeSelectReply(Event, Error: Word): Longint;$EXTERNALSYM WSAGetAsyncBuflenfunction WSAGetAsyncBuflen(Param: Longint): Word;$EXTERNALSYM WSAGetAsyncErrorfunction WSAGetAsyncError(Param: Longint): Word;$EXTERNALSYM WSAGetSelectEventfunction WSAGetSelectEvent(Param: Longint): Word;$EXTERNALSYM WSAGetSelectErrorfunction WSAGetSelectError(Param: Longint): Word;$EXTERNALSYM FD_CLRprocedure FD_CLR(Socket: TSocket; var FDSet: TFDSet);$EXTERNALSYM FD_ISSETfunction FD_ISSET(Socket: TSocket; var FDSet: TFDSet): Boolean;$EXTERNALSYM FD_SETprocedure FD_SET(Socket: TSocket; var FDSet: TFDSet); / renamed due to conflict with fd_set (above)$EXTERNALSYM FD_ZEROprocedure FD_ZERO(var FDSet: TFDSet);implementationconst winsocket = wsock32.dll;function WSAMakeSyncReply;begin WSAMakeSyncReply:= MakeLong(Buflen, Error);end;function WSAMakeSelectReply;begin WSAMakeSelectReply:= MakeLong(Event, Error);end;function WSAGetAsyncBuflen;begin WSAGetAsyncBuflen:= LOWORD(Param);end;function WSAGetAsyncError;begin WSAGetAsyncError:= HIWORD(Param);end;function WSAGetSelectEvent;begin WSAGetSelectEvent:= LOWORD(Param);end;function WSAGetSelectError;begin WSAGetSelectError:= HIWORD(Param);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_arrayI = Socket then begin while I FDSet.fd_count - 1 do begin FDSet.fd_arrayI := FDSet.fd_arrayI + 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_arrayFDSet.fd_count := Socket; Inc(FDSet.fd_count); end;end;procedure FD_ZERO(var FDSet: TFDSet);begin FDSet.fd_count := 0;end;function accept; external winsocket name accept;function bind; external winsocket name bind;function closesocket; external winsocket name closesocket;function connect; external winsocket name connect;function getpeername; external winsocket name getpeername;function getsockname; external winsocket name getsockname;function getsockopt; external winsocket name getsockopt;function htonl; external winsocket name htonl;function htons; external winsocket name htons;function inet_addr; external winsocket name inet_addr;function inet_ntoa; external winsocket name inet_ntoa;function ioctlsocket; external winsocket name ioctlsocket;function listen; external winsocket name listen;function ntohl; external winsocket name ntohl;function ntohs; external winsocket name ntohs;function recv; external winsocket name recv;function recvfrom; external winsocket name recvfrom;function select; external winsocket name select;function send; external winsocket name send;function sendto; external winsocket name sendto;function setsockopt; external winsocket name setsockopt;function shutdown; external winsocket name shutdown;function socket; external winsocket name socket;function gethostbyaddr; external winsocket name gethostbyaddr;function gethostbyname; external winsocket name gethostbyname;function getprotobyname; external winsocket name getprotobyname;function getprotobynumber; external winsocket name getprotobynumber;function getservbyname; external winsocket name getservbyname;function getservbyport; external winsocket name getservbyport;function gethostname; external winsocket name gethostname;function WSAAsyncSelect; external winsocket name WSAAsyncSelect;function WSARecvEx; external winsocket name WSARecvEx;function WSAAsyncGetHostByAddr; external winsocket name WSAAsyncGetHostByAddr;function WSAAsyncGetHostByName; external winsocket name WSAAsyncGetHostByName;function WSAAsyncGetProtoByNumber; external winsocket name WSAAsyncGetProtoByNumber;function WSAAsyncGetProtoB