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应用的基本框架加以扩展使用。

评论