学习笔记：delphi实现网络通信之select模型

说明：所有的winsock的定义用的是jwawinsock2。(整个包的下载：http://blog.delphi-jedi.net/home/)

主要函数：select

目的：允许那些想要避免在套接字调用上阻塞的应用程序有能力管理多个套接字。

函数定义：select(nfds:integer;readfds:Pfd_set;writefds:Pfd_set;exceptfds:Pfd_set;timeout:Ptimeval)

套接集合：FD_SET结构

PFD_SET=^Fd_set

Fd_set=record

    fd_count:integer;

   fd_array:array[0..FD_SETSIZE-1] of Tsocket;

end;{FD_SETSIZE系统默认为64.也就是系统默认管理64个套接字。实际可以定义到1000。}

关于FD_SET集合操作函数。

FD_ZERO(SET:PFD_SET)  初始化set为空集合。集合在使用前应该总是清空。

FD_CLR(s:TSOCKET;set:PFD_SET) 从set移除套接字。

FD_ISSETs(S:TSOCKET;SET:PFD_SET) 检查s是不是set的成员，如果是返回TRUE。

FD_SET(S:TSOCKET;set:PFD_SET)添加套接字到集合。

delphi代码：

program Proserver;
//控制台程序。
{$APPTYPE CONSOLE}

uses
  JwaWinsock2,Windows,SysUtils;

var
  nPort:UINT;
  sListen,sNew:TSocket;
  socket_in,addrRemote:sockaddr_in;
  fdSocket,fdRead:fd_set;
  i,nAddrLen:integer;
  szText:array[0..255] of AnsiChar;
procedure initsock;
     var
       v_wsadata:WSAData;
       sockversion:Cardinal;
      begin
         sockversion:=MAKEWORD(2,2);
         try
          if  WSAStartup(sockversion,v_wsadata)<>0 then
            Exit;

         except
           Exit;
         end;
      end;
procedure cleansock;
      begin
        WSACleanup();
      end;
begin
   initsock;
   nport:=4567;
   sListen:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
   socket_in.sin_family:=AF_INET;
   socket_in.sin_port:=htons(nPort);
   socket_in.sin_addr.S_addr:=INADDR_ANY;

   //进行SOCKET绑定到本地机器
   if bind(sListen,psockaddr(@socket_in),SizeOf(socket_in))=socket_error then
     begin
       writeln('Failed bind()');
       Exit;
     end
   else
     begin
       Writeln('SOCKET绑定成功。');
     end;

   //进入监听模式
   Writeln('程序进入监听状态......');
   listen(sListen,5);

   //select模型处理过程
   //1、初始化一个套接字集合fdsocket，添加监听套接字句柄到这个集合。
   FD_ZERO(fdSocket);
   _FD_SET(sListen,fdSocket);

   //进行等待状态中。。。。。。
   Writeln('进入无限循环状态。。。。。');
   while True do
   begin
     // 2、将FDSOCKET集合的一个拷贝FDREAD传递给SELECT函数。
     fdRead:=fdSocket;
     if select(0,@fdread,nil,nil,nil)>0 then
       begin
         for i:=0 to fdSocket.fd_count-1 do
          begin
            if FD_ISSET(fdSocket.fd_array[i],fdRead) then
             begin
               if fdSocket.fd_array[i]=sListen then
                 begin
                   if fdSocket.fd_count<FD_SETSIZE then
                     begin
                       nAddrLen:=SizeOf(addrRemote);
                       sNew:=accept(sListen,psockaddr(@addrRemote),@nAddrlen);
                       _FD_SET(sNew,fdSocket);
                       Writeln('接收到连接：'+strpas(inet_ntoa(addrRemote.sin_addr)));
                     end
                   else
                     begin
                      Writeln('连接太多，超出系统要求。');
                      Continue;
                     end;
                 end
               else
                 begin
                   if recv(fdSocket.fd_array[i],szText,SizeOf(szText),0)>0 then
                     begin
                       Writeln('接收的数据是：'+strpas(sztext));
                     end
                   else
                     begin
                       closesocket(fdSocket.fd_array[i]);
                       FD_CLR(fdSocket.fd_array[i],fdSocket);
                       Writeln('当前连接已判断。');
                     end;
                 end;
             end;
          end;
       end
     else
      begin
        Writeln('Failed select().');
        Break;
      end;
   end;
  cleansock;
end.

查看更多关于【delphi文章/教程】的文章