无忧技术网 - RSS订阅 
无忧技术网

用Winsock编写网络通信程序


作者:[佚名] - 发布:2010-4-22 17:35:38 - 来源:无忧技术网
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、Accept:用于接收连接请求,适用于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

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

责任编辑:liqwei
打印本页】【关闭本页】【返回列表
·上一篇:用VB的WINSOCK控件发送大于8K的BMP
·下一篇:用Winsock创建TCPIP服务器程序
 文章评分
  • current rating
-5 -4 -3 -2 -1 0 +1 +2 +3 +4 +5
 相关文章
·[VB/VBs/VB.net]用Winsock创建TCPIP服务器程序 (2010-04-22)
·[VB/VBs/VB.net]Winsock编程框架 (2010-04-22)
 相关评论
 站点最新文章 更多>> 
·[经典影音]弱点
·[经典影音]萨利机长
·[经典影音]天空之眼
·[管理知识]康奈尔笔记法,提高100%学习效率
·[管理知识]刘强东:我管75000人靠这4张表格
·[管理知识]跟壳牌学HSE管理
·[运营策划]编辑工作内容整理
·[至理名言]奋斗与决定
·[瀚海拾遗]盲人打灯笼之各家论道
·[搞笑段子]中国男足
 站点浏览最多 更多>> 
·[协议规范]http断点续传原理:http头 Range、…
·[JS/CSS/HTML]HTML 空格的表示符号 nbsp / en…
·[NoSQL]Mongo数据库简介
·[协议规范]什么是SPF记录?如何设置、检测SP…
·[协议规范]图解 HTTPS 通信过程
·[PHP]精选国外免费PHP空间推荐
·[程序综合]常用IP地址查询接口
·[程序综合]什么是 DNS Prefetch ?
·[程序综合]获取客户端IP地址的三个HTTP请求…
·[Linux]/usr 目录的由来