|
|
Winsock编程框架
在TCP应用中，为了建立一个网络连接实例（Instance）的服务器端，只需设置本地服
务端口号，然后服务器调用方法Listen进入阻塞状态，等待来自客户的连接请求。与此对
应的客户端不但要将Winsock的属性RemoteHost置为服务器的名称（IP地址或网络代号），
还应设置服务器所监听的相应服务的端口号（RemotePort），如FTP服务在21号端口，HTTP
在81号端口等。然后调用方法Winsock.Connect向服务器发出请求。服务器接收到客户请
求时，事件ConnectionRequest将被触发。如服务器愿意提供服务，则可调用Accept方法
接受连接。
一旦连接建立，两端均可使用SendData或GetData进行数据的发送或接收。事件
DataArrival将在另一端数据准备就绪时被触发。
UDP协议的实现与TCP不同的是,调用Sockets的两端无需建立连接便可进行数据的传
输。因此，一个UDP应用可以同时担任服务器或客户的角色。
以下程序代码为Visual Basic Windows Sockets编程的基本框架。
注释：服务器方
Private Sub Command1.Click()
注释：设置本地服务端口号
Winsock1.localport=2048
注释：服务器进入监听状态
Winsock1.listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
注释：收到客户连接请求
注释：检查Socket状态
If Winsock1.State <> sckClosed Then Winsock1.Close
注释：接受客户请求
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
注释：对方数据已准备好
注释：可用GetData()/SendData()接收/发送数据
注释：处理客户数据
……
End Sub
Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub
注释：客户方
Private Sub Command1.Click()
注释：设置服务器网络名
Winsock1.RemoteHost=“193.168.1.40”
注释：设置服务器相应服务端口号
Winsock1.RemotePort=2048
注释：向服务器发出连接请求
Winsock1.Connect
End Sub
Private Sub Winsock1_Connect()
注释：服务器响应连接
注释：可以进行GetData()/SendData()进行数据传输
……
End Sub
Private Sub Form1.Unload()
Winsock1.Close
End Sub
该段程序演示了用Visual Basic建立TCP连接的基本过程。因本文重在讲解Sockets
编程，故文中未涉及VB自己封装的故障处理函数Winsock1.Erroe(),读者可自行编制。以
上程序段可作为一般TCP应用的基本框架加以扩展使用。
|
|
