在VB的Winsock编程框架(2)

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

　　 Microsoft Visual C＋＋实现过程与前述的VB实现类同。具体实例可见Microsoft Visual C＋＋ Samples中的chatsrv与chater程序。

　　 随着Internet的逐步兴起，Sockets编程必将成为流行的网络编程接口之一。也许您会发问：ISO的OSI模型又是何等地位呢？笔者的观点是：ISO的OSI模型必将成为网络应用的统一界面，Sockets接口的广泛应用则为OSI模型开拓了更广泛的应用前景！