winsock api编程

 

　　一：select模型
　　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;

　　二：WSAAsyncSelect模型

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

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

const WM_SOCKET = WM_USER + 55;

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

private
procedure WMSocket(var Msg: TMessage); message WM_SOCKET;

　　然后就可以使用WSAAsyncSelect了：

var
　addr : TSockAddr;
　sock : TSocket;

　sock := 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( m_sock, @addr, sizeof(SOCKADDR) );

　WSAAsyncSelect( m_sock, Handle, WM_SOCKET, FD_ACCEPT or FD_CLOSE );

　listen( m_sock, 5 );
　....

　　应用程序可以对收到WM_SOCKET消息进行分析，判断是哪一个socket产生了网络事件以及事件类型：

procedure TfmMain.WMSocket(var Msg: TMessage);
var
　sock : TSocket;
　addr : TSockAddrIn;
　addrlen : Integer;
　buf : Array [0..4095] of Char;
begin
　//Msg的WParam是产生了网络事件的socket句柄，LParam则包含了事件类型
　case WSAGetSelectEvent( Msg.LParam ) of
　FD_ACCEPT :
　　begin
　　　addrlen := sizeof(addr);
　　　sock := accept( Msg.WParam, addr, addrlen );
　　　if sock <> INVALID_SOCKET then
　　　　WSAAsyncSelect( sock, Handle, WM_SOCKET, FD_READ or FD_WRITE or FD_CLOSE );
　　end;

　　FD_CLOSE : closesocket( Msg.WParam );
　　FD_READ : recv( Msg.WParam, buf[0], 4096, 0 );
　　FD_WRITE : ;
　end;
end;