基于Delphi的Socket I/O模型全接触

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

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

　　一：select模型

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

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

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

　　procedure TListenThread.Execute;
var
　addr : TSockAddrIn;
　fd_read : TFDSet;
　timeout : TTimeVal;
　ASock,
　MainSock : TSocket;
　len, i : Integer;
begin
　MainSock := socket( AF_INET, SOCK_STREAM, IPPROTO_TCP );
　addr.sin_family := AF_INET;
　addr.sin_port := htons(5678);
　addr.sin_addr.S_addr := htonl(INADDR_ANY);
　bind( MainSock, @addr, sizeof(addr) );
　listen( MainSock, 5 );
　while (not Terminated) do
　begin
　　FD_ZERO( fd_read );
　　FD_SET( MainSock, fd_read );
　　timeout.tv_sec := 0;
　　timeout.tv_usec := 500;
　　if select( 0, @fd_read, nil, nil, @timeout ) > 0 then //至少有1个等待Accept的connection
　　begin
　　　if FD_ISSET( MainSock, fd_read ) then
　　　begin
　　　for i:=0 to fd_read.fd_count-1 do //注意，fd_count <= 64，也就是说select只能同时管理最多64个连接
　　　begin
　　　　len := sizeof(addr);
　　　　ASock := accept( MainSock, addr, len );
　　　　if ASock <> INVALID_SOCKET then
　　　　　....//为ASock创建一个新的线程，在新的线程中再不停地select
　　　　end;
　　　end; 　　
　　end;
　end; //while (not self.Terminated)
　shutdown( MainSock, SD_BOTH );
　closesocket( MainSock );
end;