基于WSAEventSelect模型的通信程序设计.doc

集美大学计算机工程学院实验报告课程名称：TCP/IP协议与通信程序设计班级：网络实验成绩：实验项目名称：基于WSAEventSelect模型的通信程序设计学号：上机实践日期：2016-05-19实验项目编号：09组号：1上机实践时间： 2学时一、 实验目的 了解基于WSAEventSelect模型通信程序的编写，编译和执行二、 实验内容与设计思想编写Win32程序模拟实现基于WSAEventSelect模型的两台计算机之间的通信，要求编程实现服务器端与客户端之间双向数据传递。客户端向服务器端发送“请输出从1到1000内所有的水仙花数”，服务器回应客户端给出结果。（水仙花数是一个三位数，它等于各位数字的立方和，例如153）三、 实验使用环境操作系统： Microsoft Windows XP SP2编程环境：Visual C+ 6.0四、实验步骤和调试过程源代码：服务器：#include #include #pragma comment(lib, WS2_32)/ 链接到WS2_32.lib#include#define WM_SOCKET WM_USER + 101/ 自定义消息class CInitSockpublic:CInitSock(BYTE minorVer = 2, BYTE majorVer = 2)/ 初始化WS2_32.dllWSADATA wsaData;WORD sockVersion = MAKEWORD(minorVer, majorVer);if(:WSAStartup(sockVersion, &wsaData) != 0) return;CInitSock():WSACleanup();/ 初始化Winsock库CInitSock theSock;bool isnarcissus(int n)/判断n是否为水仙花数 int i,j,k; /将3位数的个，十，百位分别提取出来 i=n/100; j=(n%100)/10; k=(n%100)%10;if(i*100+j*10+k)=(i*i*i)+(j*j*j)+(k*k*k)return true;return false; ;char * getallnarcissus(int n) /将n以内的所有水仙花数放在同一字符串中char sznarcissus4096 = 水仙化数： ;int len=strlen(sznarcissus)+strlen(,);if(n=1000)/因为水仙花数是一个三位数，若大于三位数将其置为999n=999;for(int i=100 ; i = n ; i+ )if(isnarcissus(i) char sznum5;itoa(i,sznum,10);/因为接收发送数据只处理字符串数组类型，使用itoa转换int型为字符数组类型char * sztemp=strcat(sznarcissus,sznum);/将每次判断的水仙花数添加到字符串数组中len+=strlen(sznum);sznarcissuslen-1=,;len+=strlen(,); return sznarcissus;int main()/ 事件句柄和套节字句柄表WSAEVENTeventArrayWSA_MAXIMUM_WAIT_EVENTS;SOCKETsockArrayWSA_MAXIMUM_WAIT_EVENTS;int nEventTotal = 0;USHORT nPort = 4567;/ 此服务器监听的端口号/ 创建监听套节字SOCKET sListen = :socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);sockaddr_in sin;sin.sin_family = AF_INET;sin.sin_port = htons(nPort);sin.sin_addr.S_un.S_addr = INADDR_ANY;if(:bind(sListen, (sockaddr*)&sin, sizeof(sin) = SOCKET_ERROR)printf( Failed bind() n);return -1;:listen(sListen, 5);/ 创建事件对象，并关联到新的套节字WSAEVENT event = :WSACreateEvent();:WSAEventSelect(sListen, event, FD_ACCEPT|FD_CLOSE);/ 添加到表中eventArraynEventTotal = event;sockArraynEventTotal = sListen;nEventTotal+;/ 处理网络事件while(TRUE)/ 在所有事件对象上等待int nIndex = :WSAWaitForMultipleEvents(nEventTotal, eventArray, FALSE, WSA_INFINITE, FALSE);/ 对每个事件调用WSAWaitForMultipleEvents函数，以便确定它的状态nIndex = nIndex - WSA_WAIT_EVENT_0;for(int i=nIndex; i WSA_MAXIMUM_WAIT_EVENTS)printf( Too many connections! n);continue;SOCKET sNew = :accept(sockArrayi, NULL, NULL);WSAEVENT event = :WSACreateEvent();:WSAEventSelect(sNew, event, FD_READ|FD_CLOSE|FD_WRITE);/ 添加到表中eventArraynEventTotal = event;sockArraynEventTotal = sNew;nEventTotal+;else if(event.lNetworkEvents & FD_READ)/ 处理FD_READ通知消息if(event.iErrorCodeFD_READ_BIT = 0)char szText256;int nRecv = :recv(sockArrayi, szText, strlen(szText), 0);/接收客户端发送的数据if(nRecv 0)szTextnRecv = 0;printf(接收到数据：%s n, szText);char * szReply=getallnarcissus(1000); /得到1到1000内所有的水仙花数:send(sockArrayi, szReply, strlen(szReply), 0); /发送数据到客户端else if(event.lNetworkEvents & FD_CLOSE)/ 处理FD_CLOSE通知消息if(event.iErrorCodeFD_CLOSE_BIT = 0):closesocket(sockArrayi);for(int j=i; jnEventTotal-1; j+)sockArrayj = sockArrayj+1;sockArrayj = sockArrayj+1;nEventTotal-;else if(event.lNetworkEvents & FD_WRITE)/ 处理FD_WRITE通知消息return 0;客户端：#include #include #pragma comment(lib, WS2_32)/ 链接到WS2_32.libclass CInitSockpublic:CInitSock(BYTE minorVer = 2, BYTE majorVer = 2)/ 初始化WS2_32.dllWSADATA wsaData;WORD sockVersion = MAKEWORD(minorVer, majorVer);if(:WSAStartup(sockVersion, &wsaData) != 0) return;CInitSock():WSACleanup();CInitSock theSock; /加载套接字库int main()/ 创建套节字SOCKET s = :socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);if(s = INVALID_SOCKET)printf( Failed socket() n);return 0;/ 也可以在这里调用bind函数绑定一个本地地址，无则系统将会自动安排/ 填写远程地址信息sockaddr_in servAddr; servAddr.sin_family = AF_INET;servAddr.sin_port = htons(4567);/要连接的服务器地址servAddr.sin_addr.S_un.S_addr = inet_addr(219.228.247.127);if(:connect(s, (sockaddr*)&servAddr, sizeof(servAddr) = -1)printf( Failed connect() n);return 0;/发送数据char buf = 请输出从1到1000内所有的水仙花数;printf(发送数据：%sn,buf);send(s, buf, strlen(buf), 0);Sleep(6);/ 接收数据char buff3000;int nRecv = :recv(s, buff, 3000, 0);if(nRecv 0)buffnRecv = 0;printf(接收到数据：n%sn, buff);/ 关闭套节字:closesocket(s);return 0;执行结果：五、实验小结1.执行结果出现将1-1000所有的数均发送即