03实验三 WinSock实现网络通信必开.docx
《03实验三 WinSock实现网络通信必开.docx》由会员分享,可在线阅读,更多相关《03实验三 WinSock实现网络通信必开.docx(9页珍藏版)》请在冰豆网上搜索。
03实验三WinSock实现网络通信必开
实验三WinSock实现网络通信
一、实验目的
掌握利用WinSock控件实现网络通信的方法。
二、实验任务与要求
1.使用VisualBasic建立通信界面。
2.利用WinSock控件编程实现点对点(点对多点)通信。
三、实验背景
Sockets是在Unix系统上提出来的,一开始主要是用于本地通讯,但很快就应用到C/S体系上。
MicroSoft公司在此基础上创建了WinSock控件,专门用于Windows接口,与Sockets完全兼容。
Winsock控件对用户来说是不可见的,它提供了访问TCP和UDP网络服务的方便途径。
MicrosoftAccess、VisualBasic、VisualC++或VisualFoxPro的开发人员都可使用它。
为编写客户或服务器应用程序,不必了解TCP的细节或调用低级的WinsockAPIs。
通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去,并且还可双向交换数据。
先来看网络通信协议的基础和选择:
1.TCP(数据传输协议)基础
数据传输协议允许创建和维护与远程计算机的连接。
连接两台计算机就可彼此进行数据传输。
如果创建客户应用程序,就必须知道服务器计算机名或者IP地址(RemoteHost属性),还要知道进行“侦听”的端口(RemotePort属性),然后调用Connect方法。
如果创建服务器应用程序,就应设置一个收听端口(LocalPort属性)并调用Listen方法。
当客户计算机需要连接时就会发生ConnectionRequest事件。
为了完成连接,可调用ConnectionRequest事件内的Accept方法。
建立连接后,任何一方计算机都可以收发数据。
为了发送数据,可调用SendData方法。
当接收数据时会发生DataArrival事件。
调用DataArrival事件内的GetData方法就可获取数据。
2.UDP(用户数据文报协议)基础
用户数据文报协议(UDP)是一个无连接协议。
跟TCP的操作不同,计算机并不建立连接。
另外UDP应用程序可以是客户机,也可以是服务器。
为了传输数据,首先要设置客户计算机的LocalPort属性。
然后,服务器计算机只需将RemoteHost设置为客户计算机的Internet地址,并将RemotePort属性设置为跟客户计算机的LocalPort属性相同的端口,并调用SendData方法来着手发送信息。
于是,客户计算机使用DataArrival事件内的GetData方法来获取已发送的信息。
3.选择通讯协议
在使用WinSock控件时,首先需要考虑使用什么协议。
可以使用的协议包括TCP和UDP。
两种协议之间的重要区别在于它们的连接状态:
TCP协议是有连接的协议,可以将它同电话系统相比。
在开始数据传输之前,用户必须先建立连接。
UDP协议是一种无连接协议,两台计算机之间的传输类似于传递邮件:
消息从一台计算机发送到另一台计算机,但是两者之间没有明确的连接。
另外,单次传输的最大数据量取决于具体的网络。
到底选择哪一种协议通常是由需要创建的应用程序决定的。
下面的几个问题将有助于选择适宜的协议:
(1)在收发数据的时候,应用程序是否需要得到客户端或者服务器的确认信息?
如果需要,使用TCP协议,在收发数据之前先建立明确的连接。
(2)数据量是否特别大(例如图像与声音文件)?
在连接建立之后,TCP协议将维护连接并确保数据的完整性。
不过,这种连接需要更多的计算资源,因而是比较“昂贵”的。
(3)数据发送是间歇的,还是在一个会话内?
例如,如果应用程序在某个任务完成的时候需要通知某个计算机,UDP协议是更适宜的。
UDP协议适合发送少量的数据。
通讯协议的选择是通过设置WinSock的Protocol属性来实现的。
Winsock控件是VB5.0的新增功能,它解决了以往应用VB编程时网络中应用程序之间无法实现点对点通信的难题。
Winsock使用的TCP协议和UDP协议允许建立并保持一个到远程计算机上的连接,且可以在连接结束之前实时地进行数据交换。
用户仅通过设置属性并借助事件处理就能够轻而易举地连接到一个远程的计算机上,而且只用两个命令就可以实现数据交换。
使用TCP协议时,如果需要创建一个客户应用程序,就必须识别服务器的名称或IP地址。
应用程序的通信端口随时都将仔细监测对方发出的消息,这是系统进行可靠连接的保证。
一旦连接发生,任何一方都可以通过SendData发送和接收数据,并借助GetData把自己的数据分离出来。
传送数据时,需要先设定客户机的LocalPort属性,服务器则只需要把RemoteHost属性设定为客户机以太网的地址,并设定与客户机LocalPort属性相同的端口地址,借助SendData方法开始发送消息。
客户机则在GetData事件中通过DataArrival事件分离出发送的信息。
一个Winsock控件可以让本地计算机连接到远程的计算机上,同时使用UDP或TCP协议,两个协议都能创建客户机和服务器应用。
使用Winsock控件时,通信的双方需要选定相同的协议。
TCP协议适用于传送大容量、需要安全性保证的数据文件;而UDP协议适用于需要分别与很多下属通信,或者建立的连接比较多且为时变的情况,特别是在数据量很小的时候。
设定时可以使用Winsock1.Protocol=sckTCPProtocol方法,首先要找到你的计算机的名称,并把它添入Winsock的LocalHost属性中。
创建一个应用程序时,首先要确定你建立的是客户方应用还是服务器服务,只有建立的服务器应用开始工作,并进入监听状态时,客户应用程序才开始建立连接,进入正常的通信状态。
使用UDP协议建立对等通信和通过TCP建立客户/服务器通信的方法略有不同,它不需要建立客户和服务器,而是建立对等通信。
UDP和TCP协议在使用中各有特点,如果灵活使用,可以得到很好的效果。
令人欣慰的是,VB5.0中Winsock给我们提供了一种简便的数据传送方法,使我们得以轻松地实现网络点对点通信!
四、实验步骤
(1)选择网络通信协议
选择TCP通讯协议来编写网上聊天程序。
(2)确定计算机的名字和IP地址
确定计算机的名字:
1)在计算机的桌面上,右键单击“网上邻居”。
2)选择“属性”。
3)单击“标识”选项卡。
4)在“计算机名称”框中可以找到计算机的名称。
确定计算机的IP地址:
1)单击“任务条”上的“启动”。
2)选择“运行”。
3)若服务器端操作系统为win95则在“打开”中填入“winipcfg”,若服务器端操作系统为winnt则在“打开”中填入“ipconfig”。
4)按下“确定”键。
上面找到的计算机名称或IP地址可以作为WinSock的RemoteHost属性的值。
(3)用VisualBasic6.0建立通信界面
需要实现:
输入所连接的计算机(或服务器)的IP地址,如202.117.206.221,并在发送窗口添加待发送的内容,点击发送,完成数据的发送。
当对方发来数据时,在接受窗口自动显示。
最重要的一点是,需要在界面上添加WinSock控件,winsock控件的State属性如下:
state属性的设置值是:
常数
值描述
sckclosed0缺省的。
关闭
sckopen1打开
scklistening2侦听
sckconnectionpending3连接挂起
sckresolvinghost4识别主机
sckhostresolved5已识别主机
sckconnecting6正在连接
sckconnected7已连接
sckclosing8同级人员正在关闭连接
sckerror9错误
下面主要要用到sckClosed和sckConnected两个State属性的值。
(4)编制程序实现网络通信
以下程序仅供参考:
客户端的程序
1)在客户端创建一个新的工程将其命名为“ClientPrj”
2)将缺省窗体命名为frmClient。
3)将窗体的标题改为“Client”。
4)在窗体中添加一个WinSock控件,并将其命名为tcpClient。
5)在frmClient中添加一个ListBox控件。
将其命名为lstReceive。
6)在frmClient中添加一个TextBox控件。
将其命名为txtSend。
7)在窗体上放两个CommandButton控件,并将其命名为cmdConnect和cmdSent。
8)将cmdConnect控件的标题改为Connect,将cmdSent控件的标题改为Sent。
9)在窗体中添加如下的代码。
PrivateSubcmdConnect_Click()
OnErrorGoToErrorPro
sckClient.Connect
ExitSub
ErrorPro:
MsgBox"服务器未开或网络出错!
"
End
EndSub
PrivateSubcmdSent_Click()
sckClient.SendDatatxtSent.Text
EndSub
PrivateSubForm_Load()
'RemoteComputerName为服务器端的计算机名或IP地址。
sckClient.RemoteHost="RemoteComputerName"
sckClient.RemotePort=1000
EndSub
PrivateSubsckClient_Close()
MsgBox"服务器通道已关闭!
"
End
EndSub
PrivateSubsckClient_Connect()
MsgBox"连接成功!
"
cmdConnect.Enabled=False
EndSub
PrivateSubsckClient_DataArrival(ByValbytesTotalAsLong)
DimsAsString
sckClient.GetDatas
lstReceive.AddItems
EndSub
PrivateSubsckClient_Error(ByValNumberAsInteger,DescriptionAsString,ByValScodeAsLong,_ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,CancelDisplayAsBoolean)
sckClient.Close
cmdConnect.Enabled=True
EndSub
服务器端的程序
1)在服务器端创建一个新的工程将其命名为“ServerPrj”。
2)将缺省窗体命名为“frmServer”。
3)在窗体中添加一个ListBox控件,将其命名为“lstReceive”。
4)在窗体中添加三个WinSock控件,将其分别命名为“sckListen”,sckBusy和“sckServer”并将“sckServer”的“Index”属性设置为0。
5)在窗体中添加如下代码。
'最大通道数
PrivateMaxChanAsInteger
PrivateSubForm_Load()
DimiAsInteger
MaxChan=10
Fori=1ToMaxChan-1
LoadsckServer(i)
Nexti
sckListen.LocalPort=1000
sckListen.Listen
EndSub
PrivateSubsckBusy_Close()
sckBusy.Close
EndSub
PrivateSubsckBusy_DataArrival(ByValbytesTotalAsLong)
sckBusy.SendData"服务器忙,请稍后再连接!
"
DoEvents
EndSub
PrivateSubsckListen_ConnectionRequest(ByValrequestIDAsLong)
DimiAsInteger
'决定由哪一Winsock接受请求
Fori=0ToMaxChan-1
IfsckServer(i).State=0Then
ExitFor
EndIf
Nexti
IfsckServer(i).State=0Then
sckServer(i).AcceptrequestID
ExitSub
EndIf
'如果所有Winsock都用完则由专门的“忙”Winsock接受请求,以免用户要求得不到响应
sckBusy.Close
sckBusy.AcceptrequestID
EndSub
PrivateSubsckListen_Error(ByValNumberAsInteger,DescriptionAsString,ByValScodeAsLong,_ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,CancelDisplayAsBoolean)
sckListen.Close
sckListen.LocalPort=1000
sckListen.Listen
EndSub
PrivateSubsckServer_Close(IndexAsInteger)
sckServer(Index).Close
EndSub
PrivateSubsckServer_DataArrival(IndexAsInteger,ByValbytesTotalAsLong)
DimsAsString
DimiAsInteger
sckServer(Index).GetDatas
IfUCase(Left(Trim(s),2))="PT"Then'判断是否为悄悄话,点对点方式
IfIsNumeric(Mid(Trim(s),3,1))Then
i=Mid(Trim(s),3,1)
sckServer(i).SendData"Channel"&Index&""&Right(Trim(s),Len(Trim(s))-3)
DoEvents
EndIf
Else'广播方式
Fori=0ToMaxChan-1
'利用winsock的State属性给所有连接在服务器上的客户发消息
IfsckServer(i).State=7Then
sckServer(i).SendData"Channel"&Index&""&Trim(s)
DoEvents
EndIf
Nexti
EndIf
lstReceive.AddItem"Channel"&Index&""&Trim(s)
EndSub
PrivateSubsckServer_Error(IndexAsInteger,ByValNumberAsInteger,DescriptionAsString,_
ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAs_
Long,CancelDisplayAsBoolean)
sckServer(Index).Close
EndSub
从程序中可以看到:
第一,程序中限制了通道数(10路)。
第二,通过判断WinSock控件的State属性是否为0(关闭状态),来重新使用已关闭的WinSock控件。
第三,通过给WinSock控件传递的信息加上包头,来对信息进行不同的处理(程序中若信息前加上了“PT"(PrivateTalk)+"通道数”的包头,由此就知道客户想要同拥有此“通道数”的另一客户进行点对点通信,否则就以广播方式将信息发给所有客户)。
五、实验报告要求
按照实验步骤,记录编制程序实现网络通信的整个过程。