WinSock编程Word文件下载.docx
- 文档编号:5743273
- 上传时间:2023-05-05
- 格式:DOCX
- 页数:17
- 大小:170.68KB
WinSock编程Word文件下载.docx
《WinSock编程Word文件下载.docx》由会员分享,可在线阅读,更多相关《WinSock编程Word文件下载.docx(17页珍藏版)》请在冰点文库上搜索。
Winsock提供了一种可为指定传输协议打开、计算和关闭会话的能力。
在Windows下,TCP/IP上层模型在很大程度上与用户的Winsock应用有关;
换言之,用户的Winsock应用控制了会话的方方面面,必要时,还会根据程序的需要格式化数据。
套接口有三种类型:
流式套接口、数据报套接口及原始套接口。
流式套接口定义了一种可靠的面向连接的服务(利用TCP协议),实现了无差错无重复的顺序数据传输。
数据报套接口定义了一种无连接的服务(UDP协议),数据通过相互独立的报文进行传输,是无序的,并且不保证可靠和无差错。
原始套接口允许对低层协议如IP或ICMP直接访问,主要用于新的网络协议实现的测试等。
面向连接服务器处理的请求往往比较复杂,不是一来一去的请求应答所能解决的,而且往往是并发服务器。
使用面向连接的套接口编程,可以通过图1.1来表示。
图1.1
无连接服务器一般都是面向事务处理的,一个请求、一个应答就完成了客户程序与服务程序之间的相互作用。
若使用无连接的套接口编程,程序的流程可以用图7.2表示。
套接口工作过程如下:
服务器首先启动,通过调用socket()建立一个套接口,然后调用bind()将该套接口和本地网络地址联系在一起,再调用listen()使套接口做好侦听的准备,并规定它的请求队列的长度,之后,调用accept()来接收连接。
客户在建立套接口后就可调用connect()和服务器建立连接。
连接一旦建立,客户机和服务器之间就可以通过调用read()和write()来发送和接收数据。
最后,待数据传送结束后,双方调用close()关闭套接口。
在网络编程中,掌握端口的概念十分重要。
端口:
基于TCP/IP协议的网络中,计算机都分配有一个IP地址,用一个32位二进制数来表示,正式的称呼是“Ipv4地址”。
客户机需要通过TCP或UDP和服务器通信时,必须指定服务器的IP地址和服务端口号。
另外,服务器打算侦听接入客户机请求时,也必须指定一个IP地址和一个端口号。
图7.2
在选择端口时,应特别小心,因为有些可用端口号是为“已知的”(即固定的)服务保留的,如文件传输协议和超文本传输协议,即FTP(21号端口)和HTTP(一般为8080端口)。
“已知的协议”,即固定协议,采用的端口由“互联网编号分配认证(IANA)”控制和分配,RFC1700中说明的编号。
从本质上说,端口号可分成3类:
“已知”端口、已注册端口、动态和(或)私用端口。
⑴“已知”端口0~1023,由IANA控制,是在UNIX中为固定服务保留的。
⑵已注册的端口1024~49151,由IANA列出来的,供普通用户的普通用户进程或程序使用。
⑶动态和(或)私用端口49152~65535。
普通用户应用应选择1024~49151之间的已注册端口,从而避免端口号已被另一个应用或系统服务所用。
此外,49152~65535间的端口可自由使用,因为IANA这些端口上没有注册服务。
到1992年为止,人们所熟知的端口号介于1~255,而256~1023的端口号通常由Unix系统占用,以提供一些特定的Unix服务。
现在IANA管理1~1023之间所有的端口号。
客户端通常对它所使用的端口号并不关心,只需保证该端口号在本机上是惟一的就可以了。
客户端口号又被称作临时端口号(即存在时间很短暂)。
这是因为它通常只是在用户运行该客户程序时才存在,而服务器则只要主机开着,其服务就运行。
大多数TCP/IP实现给临时端口分配1024~5000之间的端口号。
大于5000的端口号是为其他服务器预留的(Internet上并不常用的服务)。
(2)用VB环境中的WINSOCK控件控件
1.WinSock控件的主要属性
LocalHostName属性本地机器名
LocalIP属性本地机器IP地址
LocalPort属性本地机器通信程序的端口(0<
端口<
65536)
RemoteHost属性远程机器名
RemotePort属性远程机器的通信程序端口
Protocol属性通过Protocol属性可以设置WinSock控件连接远程计算机使用的协议。
可选的协议是TCP和UDP对应的VB的常量分别是sckTCPProtocol和sckUDPProtocol,Winsock控件默认协议是TCP。
注意:
虽然可以在运行时设置协议,但必须在连接未建立或断开连接后。
SocketHandle属性返回当前socket连接的句柄,这是只读属性。
RemoteHostIP属性返回远程计算机的IP地址。
在客户端,当使用了控件的Connect方法后,远程计算机的IP地址就赋给了RemoteHostIP属性,而在服务器端,当ConnectRequest事件后,远程计算机(客户端)的IP地址就赋给了这个属性。
如果使用的是UDP协议那么当DataArrival事件后,发送UDP报文的计算机的IP才赋给了这个属性。
ByteReceived属性返回当前接收缓冲区中的字节数
State属性返回WinSock控件当前的状态
2Winsock主要方法
Listen方法用于服务器程序,等待客户访问。
格式:
Winsock对象.listen
Connect方法用于向远程主机发出连接请求。
Winsock对象.connect[远程主机IP,远程端口]
Accept方法用于接受一个连接请求。
Winsock对象.acceptRequestID
Senddata方法用于发送数据。
Winsock对象.senddata数据
Getdata方法用来取得接收到的数据。
Winsock对象.getdata变量[,数据类型[,最大长度]]
Close方法关闭当前连接。
Winsock对象.close
Bind方法用Bind方法可以把一个端口号固定为本控件使用,使得别的应用程序不能再使用这个端口。
Listen方法只在使用TCP协议时有用。
它将应用程序置于监听检测状态。
Connect方法当本地计算机希望和远程计算机建立连接时,就可以调用Connect方法。
Connect方法调用的规范为:
ConnectRemoteHost,RemotePort
Accept方法当服务器接收到客户端的连接请求后,服务器有权决定是否接受客户端的请求。
SendData方法当连接建立后,要发送数据就可以调用SendData方法,该方法只有一个参数,就是要发送的数据。
GetData方法当本地计算机接收到远程计算机的数据时,数据存放在缓冲区中,要从缓冲区中取出数据,可以使用GetData方法。
GetData方法调用规范如下:
GetDatadata,[type,][maxLen]它从缓冲区中取得最长为maxLen的数据,并以type类型存放在data中,GetData取得数据后,就把相应的缓冲区清空。
PeekData方法和GetData方法类似,但PeekData在取得数据后并不把缓冲区清空。
3Winsock控件主要事件
Close事件远程机器关闭连接时触发
Connect事件连接建立好,可以进行通信时触发(客户端)
ConnectRequest事件当本地计算机接收到远程计算机发送的连接请求时,控件的ConnectRequest事件将会被触发。
SendProgress事件当一端的计算机正在向另一端的计算机发送数据时,SendProgress事件将被触发。
SendProgress事件记录了当前状态下已发送的字节数和剩余字节数。
SendComplete事件当所有数据发送完成时,被触发。
DataArrival事件当建立连接后,接受到了新数据就会触发这个事件。
如果在接受到新数据前,缓冲区中非空,就不会触发这个事件。
Error事件当在工作中发生任何错误都会触发这个事件。
4、实验内容
1.两人一组,完成两台计算机之间的通信。
2.根据分组,依据WinSock原理分别完成服务器端和客户端的程序设计、代码编写与调试
5、实验步骤
1两人一组,分别负责服务器端和客户机端。
2根据个人的任务,进行责服务器端和客户机端的程序设计、代码编写与调试。
3运行设计的程序,实现两台计算机之间的通信。
6、算法流程图
服务器客户机
数据传送
图6.1UDP的流程图
图6.2TCP的流程图
七、实验结果
实验三WinSocket通信编程
实验截图
图7.1(udp)登录界面
图7.2(udp)好友列表
图7.3(udp)聊天界面
图7.4(udp)聊天记录
图7.5(tcp)客户机界面
图7.6(tcp(客户机的聊天界面
附件
1.UDP
Form1
PrivateSubCommand1_Click()
IfText1.Text="
1001"
AndText2.Text="
Then
Form1.Hide
Form4.Hide
Form3.Hide
Form2.Show
Else
MsgBox"
请输入正确的端口号和密码"
48,"
"
Text1.Text="
Text2.Text="
Text1.SetFocus
EndIf
EndSub
PrivateSubForm_Load()
Form1.Show
Form2.Hide
Form3.Hide
Form4.Hide
Text1.SetFocus
Form2
PrivateSubOption2_Click()
Form3.Show
PrivateSubOption3_Click()
MsgBox"
此好友不在线"
PrivateSubOption4_Click()
Form3
Winsock1.SendData(Text2.Text)
Text1.Text=Text1.Text+vbCrLf+"
我:
+t+vbCrLf+Text2.Text+vbCrLf
Text2.Text="
Text2.SetFocus
PrivateSubCommand2_Click()
Form1.Hide
Form4.Show
Winsock1.Bind(1001)
PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)
DimddAsString
DimtAsString
t=Time
Winsock1.GetDatadd
对方:
+t+vbCrLf+dd+vbCrLf
sm=Text1.Text
Form4
Text1.Text="
PrivateSubForm_Activate()
Text1.Text=sm
模块
PublicsmAsString
2.Tcp
DimtAsString,tmAsString
tm=Text4.Text+"
"
+t+vbCrLf+Text2.Text
Winsock1.SendDatatm
Text1.Text=Text1.Text+Text4.Text+t+vbCrLf+Text2.Text+vbCrLf
Text3.Visible=True
Label4.Visible=True
Command3.Visible=True
Form1.Width=11055
Text3.Text=Text1.Text
PrivateSubCommand3_Click()
Form1.Width=7320
Text3.Visible=False
Label4.Visible=False
Command3.Value=False
Winsock1.LocalPort=1001
Winsock1.Listen
Form2.Show
Label1.Caption=Label1.Caption+CStr(Winsock1.LocalIP)
Label2.Caption=Label2.Caption+CStr(Winsock1.LocalPort)
PrivateSubWinsock1_ConnectionRequest(ByValrequestIDAsLong)
IfWinsock1.State<
>
sckClosedThen
Winsock1.Close
EndIf
Winsock1.AcceptrequestID
DimsAsString
Winsock1.GetDatas
Text1.Text=Text1.Text+s+vbCrLf
Winsock1.RemoteHost=Text1.Text
Winsock1.RemotePort=Val(Text2.Text)
IfWinsock1.State=sckClosedThen
Winsock1.Connect
tm=Text6.Text+"
+t+vbCrLf+Text4.Text
Text3.Text=Text3.Text+Text6.Text+t+vbCrLf+Text4.Text+vbCrLf
Text4.Text="
Text4.SetFocus
Text5.Visible=True
Command4.Visible=True
Form2.Width=11685
Text5.Text=Text3.Text
PrivateSubCommand4_Click()
Form2.Width=7860
Text5.Visible=False
Command4.Value=False
Text3.Text=Text3.Text+s+vbCrLf
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- WinSock 编程