Winsock学习笔记2:WSAAsyncSelect模型
共有五种类型的套接字I/O模型,可让Winsock应用程序对I/O进行管理,它们包括: select(选择)、WSAAsyncSelect(异步选择)、WSAEventSelect(事件选择)、overlapped(重叠)以及 completion port(完成端口)。WSAAsyncSelect(异步选择)是最简单也最好理解的模式,因为用这个模式你都不需要明白多线程的编程知识~
话不多说,先上代码(下面的代码不包含异常处理,仅为学习使用):
//
先在单元头部定义消息
const
WM_SOCKET = WM_USER + 55 ;
// 然后定义处理消息的函数
procedure WMSocket(var Msg: TMessage); message WM_SOCKET;
procedure TForm1.FormCreate(Sender: TObject);
var
WSData: WSAData;
ServerSocket: TSocket;
LocalAddr: TSockAddrIn;
begin
// 初始化Winsock
WSAStartUp($ 202 , WSData);
// 创建套接字
ServerSocket: = Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
// 设置LocalAddr的参数
LocalAddr.sin_family: = AF_INET; // IPV4族
LocalAddr.sin_addr.S_addr: = Inet_addr( ' 127.0.0.1 ' ); // 点分字符串格式的IP地址转换为互联网格式
LocalAddr.sin_port: = Htons( 1077 ); // Host To Net Short,主机字节顺序转为网络字节顺序
// 绑定本机IP地址、端口,绑定之前先设置好LocalAddr的参数
Bind(ServerSocket, LocalAddr, SizeOf(LocalAddr));
// 设置WinSock I/O模式
WSAAsyncSelect(ServerSocket, Handle, WM_SOCKET, FD_ACCEPT or FD_READ);
// 开始监听,最多同时监听5个连接
Listen(ServerSocket, 5 );
end;
procedure TForm1.WMSocket(var Msg: TMessage);
var
Buff: array [ 0 .. 10 ] of Char;
AddrIn: TSockAddrIn;
AddrLen: Integer;
ClientSocket: TSocket;
begin
case WSAGetSelectEvent(Msg.LParam) of
FD_ACCEPT: // 收到连接请求
begin
AddrLen : = SizeOf(AddrIn);
ClientSocket : = Accept(Msg.WParam, @AddrIn, @AddrLen);
WSAAsyncSelect(ClientSocket, Handle, WM_SOCKET, FD_ACCEPT or FD_READ);
end;
FD_READ: // 有消息从客户端发过来的时候
begin
Recv(Msg.WParam, Buff, SizeOf(Buff), 0 );
Memo1.Lines.Add(Buff);
Buff : = ' I Received! ' ;
Send(Msg.WParam, Buff, SizeOf(Buff), 0 );
end;
end;
end;
const
WM_SOCKET = WM_USER + 55 ;
// 然后定义处理消息的函数
procedure WMSocket(var Msg: TMessage); message WM_SOCKET;
procedure TForm1.FormCreate(Sender: TObject);
var
WSData: WSAData;
ServerSocket: TSocket;
LocalAddr: TSockAddrIn;
begin
// 初始化Winsock
WSAStartUp($ 202 , WSData);
// 创建套接字
ServerSocket: = Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
// 设置LocalAddr的参数
LocalAddr.sin_family: = AF_INET; // IPV4族
LocalAddr.sin_addr.S_addr: = Inet_addr( ' 127.0.0.1 ' ); // 点分字符串格式的IP地址转换为互联网格式
LocalAddr.sin_port: = Htons( 1077 ); // Host To Net Short,主机字节顺序转为网络字节顺序
// 绑定本机IP地址、端口,绑定之前先设置好LocalAddr的参数
Bind(ServerSocket, LocalAddr, SizeOf(LocalAddr));
// 设置WinSock I/O模式
WSAAsyncSelect(ServerSocket, Handle, WM_SOCKET, FD_ACCEPT or FD_READ);
// 开始监听,最多同时监听5个连接
Listen(ServerSocket, 5 );
end;
procedure TForm1.WMSocket(var Msg: TMessage);
var
Buff: array [ 0 .. 10 ] of Char;
AddrIn: TSockAddrIn;
AddrLen: Integer;
ClientSocket: TSocket;
begin
case WSAGetSelectEvent(Msg.LParam) of
FD_ACCEPT: // 收到连接请求
begin
AddrLen : = SizeOf(AddrIn);
ClientSocket : = Accept(Msg.WParam, @AddrIn, @AddrLen);
WSAAsyncSelect(ClientSocket, Handle, WM_SOCKET, FD_ACCEPT or FD_READ);
end;
FD_READ: // 有消息从客户端发过来的时候
begin
Recv(Msg.WParam, Buff, SizeOf(Buff), 0 );
Memo1.Lines.Add(Buff);
Buff : = ' I Received! ' ;
Send(Msg.WParam, Buff, SizeOf(Buff), 0 );
end;
end;
end;
关于WSAAsyncSelect的一些说明:
1.如果用这种模式,你的程序必须要有一个Windows窗体;
2.首先你要自己定义一个消息,当连接上有“动作”(看你在WSAAsyncSelect时设置了哪些动作)时,你的窗体就会收到这个消息;
3.Msg.WParam表明了是哪个连接,Msg.LParam表明了是什么“动作”(读、写、关闭、连接等等);
4.WSAAsyncSelect的第四个参数表明了它可以监视哪些动作,常用的有FD_Accept, FD_Read, FD_Write, FD_Close;
原文: http://blog.youkuaiyun.com/dropme/archive/2009/09/08/4532308.aspx