Winsock学习笔记2：WSAAsyncSelect模型

    共有五种类型的套接字I/O模型，可让Winsock应用程序对I/O进行管理，它们包括： select（选择）、WSAAsyncSelect（异步选择）、WSAEventSelect（事件选择）、overlapped（重叠）以及 completion port（完成端口）。WSAAsyncSelect（异步选择）是最简单也最好理解的模式，因为用这个模式你都不需要明白多线程的编程知识~ 

 

    话不多说，先上代码（下面的代码不包含异常处理，仅为学习使用）：

//先在单元头部定义消息 const WM_SOCKET = WM_USER + 55; //然后定义处理消息的函数 procedure WMSocket(var Msg: TMessage); message WM_SOCKET; procedure TForm1.FormCreate(Sender: TObject); var WSData: WSAData; ServerSocket: TSocket; LocalAddr: TSockAddrIn; begin //初始化Winsock WSAStartUp($202, WSData); //创建套接字 ServerSocket:= Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP); //设置LocalAddr的参数 LocalAddr.sin_family:= AF_INET; //IPV4族 LocalAddr.sin_addr.S_addr:= Inet_addr('127.0.0.1');//点分字符串格式的IP地址转换为互联网格式 LocalAddr.sin_port:= Htons(1077); //Host To Net Short，主机字节顺序转为网络字节顺序 //绑定本机IP地址、端口，绑定之前先设置好LocalAddr的参数 Bind(ServerSocket, LocalAddr, SizeOf(LocalAddr)); //设置WinSock I/O模式 WSAAsyncSelect(ServerSocket, Handle, WM_SOCKET, FD_ACCEPT or FD_READ); //开始监听，最多同时监听5个连接 Listen(ServerSocket, 5); end; procedure TForm1.WMSocket(var Msg: TMessage); var Buff: array [0 .. 10] of Char; AddrIn: TSockAddrIn; AddrLen: Integer; ClientSocket: TSocket; begin case WSAGetSelectEvent(Msg.LParam) of FD_ACCEPT: //收到连接请求 begin AddrLen := SizeOf(AddrIn); ClientSocket := Accept(Msg.WParam, @AddrIn, @AddrLen); WSAAsyncSelect(ClientSocket, Handle, WM_SOCKET, FD_ACCEPT or FD_READ); end; FD_READ: //有消息从客户端发过来的时候 begin Recv(Msg.WParam, Buff, SizeOf(Buff), 0); Memo1.Lines.Add(Buff); Buff := 'I Received!'; Send(Msg.WParam, Buff, SizeOf(Buff), 0); end; end; end;

 

 

关于WSAAsyncSelect的一些说明：

 

1.如果用这种模式，你的程序必须要有一个Windows窗体；

2.首先你要自己定义一个消息，当连接上有“动作”（看你在WSAAsyncSelect时设置了哪些动作）时，你的窗体就会收到这个消息；

3.Msg.WParam表明了是哪个连接，Msg.LParam表明了是什么“动作”（读、写、关闭、连接等等）；

4.WSAAsyncSelect的第四个参数表明了它可以监视哪些动作，常用的有FD_Accept, FD_Read, FD_Write, FD_Close；