1 var 2 WSData: WSAData; 3 ServerSocket: TSocket; 4 ClientSocket: TSocket; 5 LocalAddr: TSockAddrIn; 6 ClientSocketAddr: TSockAddrIn; 7 ClientSocketAddrLen: Integer; 8 SocketMode: Integer; 9 begin 10 //初始化Winsock 11 WSAStartUp($202, WSData); 12 13 //创建套接字 14 ServerSocket:= Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP); 15 16 //设置LocalAddr的参数 17 LocalAddr.sin_family:= AF_INET; //IPV4族 18 LocalAddr.sin_addr.S_addr:= Inet_addr('127.0.0.1');//点分字符串格式的IP地址转换为互联网格式 19 LocalAddr.sin_port:= Htons(1077); //Host To Net Short，主机字节顺序转为网络字节顺序 20 //绑定本机IP地址、端口，绑定之前先设置好LocalAddr的参数 21 Bind(ServerSocket, LocalAddr, SizeOf(LocalAddr)); 22 23 //设置Socket模式为非阻塞模式，0为阻塞，非0为非阻塞 24 SocketMode:= 1; 25 IoCtlSocket(ServerSocket, FIONBIO, SocketMode); 26 27 //开始监听，最多同时监听5个连接 28 Listen(ServerSocket, 5); 29 30 //接受连接，可以从ClientSocketAddr中获得客户端连接的一些信息，比如IP地址和端口 31 ClientSocketAddrLen:= SizeOf(TSockAddrIn); 32 ClientSocket:= Accept(ServerSocket, @ClientSocketAddr, @ClientSocketAddrLen); 33 34 ****************************************************************************** 35 //发送函数 36 var 37 Buf: array [0..10] of Char; 38 SendLen: Integer; 39 begin 40 StrCopy(Buf, PChar(Edit1.Text)); 41 SendLen:= Send(ClientSocket, Buf, SizeOf(Buf), 0); 42 end; 43 44 //接收函数 45 46 var 47 Buff: array [0..10] of Char; 48 RecvLen: Integer; 49 begin 50 RecvLen:= Recv(AcceptSocket, Buff, SizeOf(Buff), 0); 51 end;
1.上面的代码表示了服务端的基本流程和Winsock常用函数的用法，为了让代码看起来简单，没有处理异常的代码。
2.上面的代码不涉及Winsock I/O模式，起笔记作用而已，各种函数原型可查MSDN或者其它帮助文件。
