用Winsock编写网络通信程序

　　文/徐大华

　　Winsock是Microsoft Windows提供的网络编程接口，它提供了基于TCP/IP协议的接口实现方法。用户不必了解TCP，通过设置Winsock控件的属性并调用它的方法，就可以与一台远程计算机相连，从而实现数据传输。

　　TCP/IP协议提供了两种同其他计算机进行通信的方式：TCP和UDP方式。具体采用哪种方式，要视以下三种情况而定：


　　1、如果应用程序在收发数据时需要得到客户端或服务器端的确认或应答，则使用TCP方式；

　　2、如果需要发送的数据量特别大则使用TCP方式；

　　3、数据发送是间歇的，或是在一个会话内？如果发送通知一类的短信息，UDP方式是最适合的。

　　关于Winsock控件

　　Winsock控件在使用前需先在工具箱面板中单击鼠标右键，从弹出的菜单中选择“部件”菜单，从“部件”对话框中选择Microsoft Winsock Controls 6.0，将它添加到工具箱中。在使用Winsock控件前必须先了解它的基本属性和方法：

　　1、Protocol：用于设置和返回Winsock控件所使用的协议；

　　2、LocalPort：设置或返回本地通信程序端；

　　3、RemotePort：设置或返回要连接的远程计算机通信程序的端口号；

　　4、RemoteHost：设置或返回远程计算机名，并向它发送数据或从那里接收数据；

　　5、State：返回控件的当前状态。通过它的值决定控件的下一步处理状态；

　　6、Listen：用于服务器程序，等待客户访问。仅适用于TCP方式；

　　7、Aclearcase/" target="_blank" >ccept：用于接收连接请求，适用于TCP服务器应用程序，当有连接请求时用此方法接受请求以建立连接；

　　8、SendData：用于将数据发送给远程计算机。可在TCP/UDP两种方式下使用；

　　9、GetData：用来取得接收到的数据，并将数据存储在变体类型的变量中，然后清除接收缓冲区；

　　10、Close：对客户机和服务器应用程序关闭TCP连接。

　　实例制作

　　本例是通过Winsock控件的远程通讯功能，采用TCP协议来设计一师生聊天程序。

　　1、教师机即服务器

　　在这里需要两个Label控件和一个Winsock控件。

　　对于Winsock的端口号(LocalPort)，通常选择大于100的整数，以避免同其他通信程序产生冲突。该程序通过Text1的Change事件，向客户端的Text2发送数据。

　　程序代码如下：

　　Private Sub Form_Load()

　　Winsock1.LocalPort = 1001 '设置本地计算机通信程序端口

　　Winsock1.Listen '等待客户机访问

　　Form2.Show '显示客户机界面

　　End Sub

　　Private Sub Text1_Change()

　　Winsock1.SendData Text1.Text '将数据传输给客户机

　　End Sub

　　Private Sub Winsock1_ConnectionRequ-

　　est(ByVal requestID As Long)

　　If Winsock1.State＜＞sckClosed Then

　　Winsock1.Close

　　Winsock1.Accept requested '用于接收连接请求

　　End If

　　End Sub

　　Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

　　Dim aa As String

　　Winsock1.GetData aa '接收客户机传输过来的数据

　　Text2.Text = aa '将客户机传输过来的数据显示在Text2中

　　End Sub

　　2、学生机即客户机

　　在这里需要的两个Label控件、两个Command控件以及一个Winsock控件。

　　程序代码如下：

　　Private Sub Command1_Click()

　　Form2.Winsock1.Connect '同远程计算机建立连接

　　End Sub

　　Private Sub Command3_Click()

　　End '结束程序运行

　　End Sub

　　Private Sub Form_Load()

　　Winsock1.RemoteHost = "远程计算机名"

　　'获取远程计算机名

　　Winsock1.RemotePort = 1001 '获取远程计算机通信程序的端口

　　End Sub

　　Private Sub Text1_Change()

　　Winsock1.SendData Text1.Text '向服务器发送数据

　　End Sub

　　Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

　　Dim aa As String

　　Winsock1.GetData aa '接收服务器传输入过来的数据

　　Text2.Text = aa '将接收的数据在Text2中显示出来

　　End Sub

　　运行服务器程序，再运行客户端程序，最后单击客户端窗全上的“连接”按钮，这时就可实现两个计算机间的通信了。

原文转自：http://www.ltesting.net