程序博客网 > 欧文17常规赛数据

Socket Select

来源：互联网 发布：欧文17常规赛数据 编辑：程序博客网 时间：2024/05/16 10:58

老陈有一个在外地工作的女儿，不能经常回来，老陈和她通过信件联系。他们的信会被邮递员投递到他们的信箱里。

　　这和Socket模型非常类似。下面我就以老陈接收信件为例讲解Socket I/O模型。

　　一：select模型

　　老陈非常想看到女儿的信。以至于他每隔10分钟就下楼检查信箱，看是否有女儿的信，在这种情况下，“下楼检查信箱”然后回到楼上耽误了老陈太多的时间，以至于老陈无法做其他工作。

　　select模型和老陈的这种情况非常相似：周而复始地去检查......如果有数据......接收/发送.......

　　使用线程来select应该是通用的做法：

view plainprint?
  1. procedure TListenThread.Execute;  
  2. var  
  3. 　addr : TSockAddrIn;  
  4. 　fd_read : TFDSet;  
  5. 　timeout : TTimeVal;  
  6. 　ASock,  
  7. 　MainSock : TSocket;  
  8. 　len, i : Integer;  
  9. begin  
  10. 　MainSock := socket( AF_INET, SOCK_STREAM, IPPROTO_TCP );  
  11. 　addr.sin_family := AF_INET;  
  12. 　addr.sin_port := htons(5678);  
  13. 　addr.sin_addr.S_addr := htonl(INADDR_ANY);  
  14. 　bind( MainSock, @addr, sizeof(addr) );  
  15. 　listen( MainSock, 5 );  
  16.   
  17. 　while (not Terminated) do  
  18. 　begin  
  19. 　　FD_ZERO( fd_read );  
  20. 　　FD_SET( MainSock, fd_read );  
  21. 　　timeout.tv_sec := 0;  
  22. 　　timeout.tv_usec := 500;  
  23. 　　if select( 0, @fd_read, nil, nil, @timeout ) > 0 then //至少有1个等待Accept的connection  
  24. 　　begin  
  25. 　　　if FD_ISSET( MainSock, fd_read ) then  
  26. 　　　begin  
  27. 　　　for i:=0 to fd_read.fd_count-1 do //注意，fd_count <= 64，也就是说select只能同时管理最多64个连接  
  28. 　　　begin  
  29. 　　　　len := sizeof(addr);  
  30. 　　　　ASock := accept( MainSock, addr, len );  
  31. 　　　　if ASock <> INVALID_SOCKET then  
  32. 　　　　　....//为ASock创建一个新的线程，在新的线程中再不停地select  
  33. 　　　　end;   
  34. 　　　end; 　　  
  35. 　　end;   
  36. 　end; //while (not self.Terminated)  
  37.   
  38. 　shutdown( MainSock, SD_BOTH );  
  39. 　closesocket( MainSock );  
  40. end;   


　　二：WSAAsyncSelect模型

　　后来，老陈使用了微软公司的新式信箱。这种信箱非常先进，一旦信箱里有新的信件，盖茨就会给老陈打电话：喂，大爷，你有新的信件了！从此，老陈再也不必频繁上下楼检查信箱了，牙也不疼了，你瞅准了，蓝天......不是，微软......

　　微软提供的WSAAsyncSelect模型就是这个意思。

　　WSAAsyncSelect模型是Windows下最简单易用的一种Socket I/O模型。使用这种模型时，Windows会把网络事件以消息的形势通知应用程序。

　　首先定义一个消息标示常量：

view plainprint?
  1. const WM_SOCKET = WM_USER + 55;   


　　再在主Form的private域添加一个处理此消息的函数声明：

view plainprint?
  1. private  
  2. procedure WMSocket(var Msg: TMessage); message WM_SOCKET;   
  3.   
  4. 　　//然后就可以使用WSAAsyncSelect了：  
  5.   
  6. var  
  7. 　addr : TSockAddr;  
  8. 　sock : TSocket;  
  9.   
  10. 　sock := socket( AF_INET, SOCK_STREAM, IPPROTO_TCP );  
  11. 　addr.sin_family := AF_INET;  
  12. 　addr.sin_port := htons(5678);  
  13. 　addr.sin_addr.S_addr := htonl(INADDR_ANY);  
  14. 　bind( m_sock, @addr, sizeof(SOCKADDR) );  
  15.   
  16. 　WSAAsyncSelect( m_sock, Handle, WM_SOCKET, FD_ACCEPT or FD_CLOSE );  
  17.   
  18. 　listen( m_sock, 5 );  
  19. 　....   
  20.   
  21. 　　//应用程序可以对收到WM_SOCKET消息进行分析，判断是哪一个socket产生了网络事件以及事件类型：  
  22.   
  23. procedure TfmMain.WMSocket(var Msg: TMessage);  
  24. var  
  25. 　sock : TSocket;  
  26. 　addr : TSockAddrIn;  
  27. 　addrlen : Integer;  
  28. 　buf : Array [0..4095] of Char;  
  29. begin  
  30. 　//Msg的WParam是产生了网络事件的socket句柄，LParam则包含了事件类型  
  31. 　case WSAGetSelectEvent( Msg.LParam ) of  
  32. 　FD_ACCEPT :  
  33. 　　begin  
  34. 　　　addrlen := sizeof(addr);  
  35. 　　　sock := accept( Msg.WParam, addr, addrlen );  
  36. 　　　if sock <> INVALID_SOCKET then  
  37. 　　　　WSAAsyncSelect( sock, Handle, WM_SOCKET, FD_READ or FD_WRITE or FD_CLOSE );  
  38. 　　end;  
  39.   
  40. 　　FD_CLOSE : closesocket( Msg.WParam );  
  41. 　　FD_READ : recv( Msg.WParam, buf[0], 4096, 0 );  
  42. 　　FD_WRITE : ;  
  43. 　end;   
  44. end;   



三：WSAEventSelect模型

　　后来，微软的信箱非常畅销，购买微软信箱的人以百万计数......以至于盖茨每天24小时给客户打电话，累得腰酸背痛，喝蚁力神都不好使。微软改进了他们的信箱：在客户的家中添加一个附加装置，这个装置会监视客户的信箱，每当新的信件来临，此装置会发出“新信件到达”声，提醒老陈去收信。盖茨终于可以睡觉了。

　　同样要使用线程：

view plainprint?
  1. procedure TListenThread.Execute;  
  2. var  
  3. 　hEvent : WSAEvent;  
  4. 　ret : Integer;  
  5. 　ne : TWSANetworkEvents;  
  6. 　sock : TSocket;  
  7. 　adr : TSockAddrIn;  
  8. 　sMsg : String;  
  9. 　Index,  
  10. 　EventTotal : DWORD;  
  11. 　EventArray : Array [0..WSA_MAXIMUM_WAIT_EVENTS-1] of WSAEVENT;  
  12. begin  
  13. 　...socket...bind...  
  14. 　hEvent := WSACreateEvent();  
  15. 　WSAEventSelect( ListenSock, hEvent, FD_ACCEPT or FD_CLOSE );  
  16. 　...listen...  
  17.   
  18. 　while ( not Terminated ) do  
  19. 　begin  
  20. 　　Index := WSAWaitForMultipleEvents( EventTotal, @EventArray[0], FALSE, WSA_INFINITE, FALSE );  
  21. 　　FillChar( ne, sizeof(ne), 0 );  
  22. 　　WSAEnumNetworkEvents( SockArray[Index-WSA_WAIT_EVENT_0], EventArray[Index-WSA_WAIT_EVENT_0], @ne );  
  23.   
  24. 　　if ( ne.lNetworkEvents and FD_ACCEPT ) > 0 then  
  25. 　　begin  
  26. 　　　if ne.iErrorCode[FD_ACCEPT_BIT] <> 0 then  
  27. 　　　　continue;  
  28.   
  29. 　　　ret := sizeof(adr);  
  30. 　　　sock := accept( SockArray[Index-WSA_WAIT_EVENT_0], adr, ret );  
  31. 　　　if EventTotal > WSA_MAXIMUM_WAIT_EVENTS-1 then//这里WSA_MAXIMUM_WAIT_EVENTS同样是64  
  32. 　　　begin  
  33. 　　　　closesocket( sock );  
  34. 　　　　continue;  
  35. 　　　end;  
  36.   
  37. 　　　hEvent := WSACreateEvent();  
  38. 　　　WSAEventSelect( sock, hEvent, FD_READ or FD_WRITE or FD_CLOSE );  
  39. 　　　SockArray[EventTotal] := sock;  
  40. 　　　EventArray[EventTotal] := hEvent;  
  41. 　　　Inc( EventTotal );  
  42. 　　end;  
  43.   
  44. 　　if ( ne.lNetworkEvents and FD_READ ) > 0 then  
  45. 　　begin  
  46. 　　　if ne.iErrorCode[FD_READ_BIT] <> 0 then  
  47. 　　　　continue;  
  48. 　　　　FillChar( RecvBuf[0], PACK_SIZE_RECEIVE, 0 );  
  49. 　　　　ret := recv( SockArray[Index-WSA_WAIT_EVENT_0], RecvBuf[0], PACK_SIZE_RECEIVE, 0 );  
  50. 　　　　......  
  51. 　　　end;  
  52. 　　end;  
  53. end;   


　　四：Overlapped I/O 事件通知模型

　　后来，微软通过调查发现，老陈不喜欢上下楼收发信件，因为上下楼其实很浪费时间。于是微软再次改进他们的信箱。新式的信箱采用了更为先进的技术，只要用户告诉微软自己的家在几楼几号，新式信箱会把信件直接传送到用户的家中，然后告诉用户，你的信件已经放到你的家中了！老陈很高兴，因为他不必再亲自收发信件了！

　　Overlapped I/O事件通知模型和WSAEventSelect模型在实现上非常相似，主要区别在“Overlapped”，Overlapped模型是让应用程序使用重叠数据结构(WSAOVERLAPPED)，一次投递一个或多个WinsockI/O请求。这些提交的请求完成后，应用程序会收到通知。什么意思呢？就是说，如果你想从socket上接收数据，只需要告诉系统，由系统为你接收数据，而你需要做的只是为系统提供一个缓冲区~~~~~
Listen线程和WSAEventSelect模型一模一样，Recv/Send线程则完全不同：

view plainprint?
  1. procedure TOverlapThread.Execute;  
  2. var  
  3. 　dwTemp : DWORD;  
  4. 　ret : Integer;  
  5. 　Index : DWORD;  
  6. begin  
  7. 　......  
  8.   
  9. 　while ( not Terminated ) do  
  10. 　begin  
  11. 　　Index := WSAWaitForMultipleEvents( FLinks.Count, @FLinks.Events[0], FALSE, RECV_TIME_OUT, FALSE );  
  12. 　　Dec( Index, WSA_WAIT_EVENT_0 );  
  13. 　　if Index > WSA_MAXIMUM_WAIT_EVENTS-1 then //超时或者其他错误  
  14. 　　　continue;  
  15.   
  16. 　　WSAResetEvent( FLinks.Events[Index] );  
  17. 　　WSAGetOverlappedResult( FLinks.Sockets[Index], FLinks.pOverlaps[Index], @dwTemp, FALSE,FLinks.pdwFlags[Index]^ );  
  18.   
  19. 　　if dwTemp = 0 then //连接已经关闭  
  20. 　　begin  
  21. 　　　......  
  22. 　　　continue;  
  23. 　　end else  
  24. 　begin  
  25. 　　fmMain.ListBox1.Items.Add( FLinks.pBufs[Index]^.buf );  
  26. 　end;  
  27.   
  28. 　//初始化缓冲区  
  29. 　FLinks.pdwFlags[Index]^ := 0;  
  30. 　FillChar( FLinks.pOverlaps[Index]^, sizeof(WSAOVERLAPPED), 0 );  
  31. 　FLinks.pOverlaps[Index]^.hEvent := FLinks.Events[Index];  
  32. 　FillChar( FLinks.pBufs[Index]^.buf^, BUFFER_SIZE, 0 );  
  33.   
  34. 　//递一个接收数据请求  
  35. 　WSARecv( FLinks.Sockets[Index], FLinks.pBufs[Index], 1, FLinks.pdwRecvd[Index]^, FLinks.pdwFlags[Index]^, FLinks.pOverlaps[Index], nil );  
  36. end;  
  37. end;   





五：Overlapped I/O 完成例程模型

　　老陈接收到新的信件后，一般的程序是：打开信封----掏出信纸----阅读信件----回复信件......为了进一步减轻用户负担，微软又开发了一种新的技术：用户只要告诉微软对信件的操作步骤，微软信箱将按照这些步骤去处理信件，不再需要用户亲自拆信/阅读/回复了！老陈终于过上了小资生活！

　　Overlapped I/O 完成例程要求用户提供一个回调函数，发生新的网络事件的时候系统将执行这个函数：

view plainprint?
  1. procedure WorkerRoutine( const dwError, cbTransferred : DWORD;   
  2. const  
  3. lpOverlapped : LPWSAOVERLAPPED; const dwFlags : DWORD ); stdcall;   
  4.   
  5. 　　//然后告诉系统用WorkerRoutine函数处理接收到的数据：  
  6.   
  7. WSARecv( m_socket, @FBuf, 1, dwTemp, dwFlag, @m_overlap, WorkerRoutine );   
  8.   
  9. 　　//然后......没有什么然后了，系统什么都给你做了！微软真实体贴！  
  10.   
  11. while ( not Terminated ) do//这就是一个Recv/Send线程要做的事情......什么都不用做啊！！！  
  12. begin  
  13. 　if SleepEx( RECV_TIME_OUT, True ) = WAIT_IO_COMPLETION then //  
  14. 　begin  
  15. 　　;  
  16. 　end else  
  17. 　begin  
  18. 　　continue;  
  19. 　end;  
  20. end;   


　　六：IOCP模型

　　微软信箱似乎很完美，老陈也很满意。但是在一些大公司情况却完全不同！这些大公司有数以万计的信箱，每秒钟都有数以百计的信件需要处理，以至于微软信箱经常因超负荷运转而崩溃！需要重新启动！微软不得不使出杀手锏......

　　微软给每个大公司派了一名名叫“Completion Port”的超级机器人，让这个机器人去处理那些信件！

　　“WindowsNT小组注意到这些应用程序的性能没有预料的那么高。特别的，处理很多同时的客户请求意味着很多线程并发地运行在系统中。因为所有这些线程都是可运行的[没有被挂起和等待发生什么事]，Microsoft意识到NT内核花费了太多的时间来转换运行线程的上下文[Context]，线程就没有得到很多CPU时间来做它们的工作。大家可能也都感觉到并行模型的瓶颈在于它为每一个客户请求都创建了一个新线程。创建线程比起创建进程开销要小，但也远不是没有开销的。我们不妨设想一下：如果事先开好N个线程，让它们在那hold[堵塞]，然后可以将所有用户的请求都投递到一个消息队列中去。然后那N个线程逐一从消息队列中去取出消息并加以处理。就可以避免针对每一个用户请求都开线程。不仅减少了线程的资源，也提高了线程的利用率。理论上很不错，你想我等泛泛之辈都能想出来的问题，Microsoft又怎会没有考虑到呢?”-----摘自nonocast的《理解I/O Completion Port》

　　先看一下IOCP模型的实现：

view plainprint?
  1. //创建一个完成端口  
  2. FCompletPort := CreateIoCompletionPort( INVALID_HANDLE_VALUE, 0,0,0 );  
  3.   
  4. //接受远程连接，并把这个连接的socket句柄绑定到刚才创建的IOCP上  
  5. AConnect := accept( FListenSock, addr, len);  
  6. CreateIoCompletionPort( AConnect, FCompletPort, nil, 0 );  
  7.   
  8. //创建CPU数*2 + 2个线程   
  9. for i:=1 to si.dwNumberOfProcessors*2+2 do  
  10. begin  
  11. 　AThread := TRecvSendThread.Create( false );  
  12. 　AThread.CompletPort := FCompletPort;//告诉这个线程，你要去这个IOCP去访问数据  
  13. end;   
  14.   
  15. 　　//就这么简单，我们要做的就是建立一个IOCP，把远程连接的socket句柄绑定到刚才创建的IOCP上，最后创建n个线程，并告诉这n个线程到这个IOCP上去访问数据就可以了。  
  16.   
  17. 　　//再看一下TRecvSendThread线程都干些什么：  
  18.   
  19. procedure TRecvSendThread.Execute;  
  20. var  
  21. 　......  
  22. begin  
  23. 　while (not self.Terminated) do  
  24. 　begin  
  25. 　　//查询IOCP状态（数据读写操作是否完成）   
  26. 　　GetQueuedCompletionStatus( CompletPort, BytesTransd, CompletKey, POVERLAPPED(pPerIoDat), TIME_OUT );  
  27.   
  28. 　　if BytesTransd <> 0 then  
  29. 　　　....;//数据读写操作完成  
  30. 　　  
  31. 　　　//再投递一个读数据请求  
  32. 　　　WSARecv( CompletKey, @(pPerIoDat^.BufData), 1, BytesRecv, Flags, @(pPerIoDat^.Overlap), nil );  
  33. 　　end;  
  34. end;   


　　读写线程只是简单地检查IOCP是否完成了我们投递的读写操作，如果完成了则再投递一个新的读写请求。

　　应该注意到，我们创建的所有TRecvSendThread都在访问同一个IOCP（因为我们只创建了一个IOCP），并且我们没有使用临界区！难道不会产生冲突吗？不用考虑同步问题吗？

　　这正是IOCP的奥妙所在。IOCP不是一个普通的对象，不需要考虑线程安全问题。它会自动调配访问它的线程：如果某个socket上有一个线程A正在访问，那么线程B的访问请求会被分配到另外一个socket。这一切都是由系统自动调配的，我们无需过问.

欧文17常规赛数据 欧文17常规赛数据
原创粉丝点击
热门IT博客
数据库常用select语句数据库常用select语句
网络文献参考文献格式网络文献参考文献格式
软件授权使用协议书
淘宝去哪个平台刷单好
mac如何缩小照片kb
vb picturebox 保存为
python 爬虫 抓取文字
js正则表达式判断密码
sql中%
ios看电视直播软件
mysql emoji utf8mb4
ubuntu path 环境变量
cda数据分析师报名条件
可乐vicky软件 写真
js随机生成名字
comicstudio素材包 mac
淘宝上下架时间的技巧
mac byhost文件夹
新闻网站数据采集系统
java高并发
热门问题 老师的惩罚 人脸识别 我在镇武司摸鱼那些年 重生之率土为王 我在大康的咸鱼生活 盘龙之生命进化 天生仙种 凡人之先天五行 春回大明朝 姑娘不必设防，我是瞎子 手绘墙图片 装修公司形象墙 企业形象墙设计制作 校园文化墙彩绘 形象墙的设计 大厅形象墙 北京形象墙制作 公司形象墙设计图片 设计形象墙 公司形象墙设计图 文化浮雕墙 logo墙制作 大门形象墙 店铺形象墙 形象墙设计欣赏 公司形象墙效果 厂门口形象墙 设计师形象墙 公司形象墙装修效果图 公司的形象墙 照片形象墙 企业文化墙效果图 瓷砖形象墙 logo墙制作公司 成都形象墙制作 背景墙设计效果图 前台形象墙 现代形象墙 艺术墙设计 办公室背景墙 门店形象墙 北京logo墙制作 形象墙墙 企业形象墙设计方案 酒店形象墙设计 形象墙logo制作 做形象墙 中式形象墙设计 学校形象墙 展会形象墙 文化墙设计价格

程序博客网，程序员的互联网技术博客家园。csdn论坛精品 msdn技术资料都在这里