vb中的 winsock如何实现监听功能和连接功能

通信程序通常都是采用Client/Server形式。这就要求作为服务器的主机可以同时处理多个客户的请求。因此在编写服务器程序时要添加多个Winsock控件。在开始我们先加入两个Winsock控件。其中一个用来侦听网上请求信号,取名为Listener;另外一个为初始的连接口,取名叫Sock(0)。注意,后一个控件要设为动态数组的形式,以后当客户增多时,可在这个控件基础上动态增加。由于受资源限制,我们在本例中设定最多可以同时接纳15个客户。客户机一般只与一个主机相连,因此程序只须一个Winsock进行连接就足够了。这个程序要用到的控件较少,除了Winsock和Form控件外,只须再添加Commmand控件即可。下面是具体程序和详细注释。

******************************
服务器程序
******************************

 

  Option   Explicit  
' 定义常量 
Const  BUSY  As   Boolean   =   False  
Const  FREE  As   Boolean   =   True  

' 定义连接状态 
Dim  ConnectState()  As   Boolean  

Private   Sub  Form_Load() 
ReDim  Preserve ConnectState( 0   To   1
On   Error   Resume   Next  
ConnectState(
0 =  FREE 
ConnectState(
1 =  FREE 
’指定网络端口号 
Listener.LocalPort 
=   1011  
‘开始侦听 
Listener.Listen 
End Sub  
Private   Sub  Listener_ConnectionRequest(ByVal requestID  As   Long
Dim  SockIndex  As   Integer  
Dim  SockNum  As   Integer  
On   Error   Resume   Next  
Form1.Print requestID 
&   " 连接请求 "  
' 查找连接的用户数 
SockNum  =   UBound (ConnectState) 
If  SockNum  >   14   Then  
Form1.Print SockIndex 
&   ""  
Exit   Sub  
End   If  
' 查找空闲的sock 
SockIndex  =  FindFreeSocket() 
’如果已有的sock都忙,而且sock数不超过15个,动态添加sock 
If  SockIndex  >  SockNum  Then  
Load Sock(SockIndex) 
End   If  
ConnectState(SockIndex) 
=  BUSY 
Sock(SockIndex).Tag 
=  SockIndex 
' 接受请求 
Sock(SockIndex).Accept (requestID) 
Form1.Print SockIndex 
&   " 接受请求 "  
End Sub  

' 客户断开,关闭相应的sock 
Private   Sub  Sock_Close(Index  As   Integer
If  Sock(Index).State  <>  sckClosed  Then  
Sock(Index).Close 
End   If  
ConnectState(Index) 
=  FREE 
Form1.Print Index 
&   " close "  
End Sub  

' 接收数据 
Private   Sub  Sock_DataArrival(Index  As   Integer , ByVal bytesTotal  As   Long
Dim  dx  As   Double  
Form1.Print 
" 数据来自 "   &  Index 
Sock(Index).GetData dx, vbDouble 
Form1.Print 
" dx= "   &  dx 
End Sub  

' 寻找空闲的sock 
Public   Function  FindFreeSocket() 
Dim  SockCount, i  As   Integer  
SockCount 
=   UBound (ConnectState) 
For  i  =   0   To  SockCount 
If  ConnectState(i)  =  FREE  Then  
FindFreeSocket 
=  i 
Exit   Function  
End  Ifs 
Next  i 
ReDim  Preserve ConnectState( 0   To  SockCount  +   1
FindFreeSocket 
=   UBound (ConnectState) 
End Function  

 

***************************
客户程序
***************************

Option   Explicit  
' 发送数据 
Private   Sub  command1_Click() 
Dim  dx  As   Double  
dx 
=   23.9  
sock.SendData dx 
MsgBox  ( " data sended "
End Sub  

Private   Sub  Form_Load() 
' 远程主机名 
sock.RemoteHost  =   " media2 "  
' 网络端口 
sock.RemotePort  =   1011  
' 发出连接命令 
sock.Connect 
Command1.Enabled 
=   False  
End Sub  

' 服务器关闭 
Private   Sub  sock_Close() 
MsgBox  ( " socket closed "
End Sub  

' 连接成功 
Private   Sub  sock_Connect() 
MsgBox  ( " socket connected "
Command1.Enabled 
=   True  
End Sub
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页