分享到新浪微博 分享到QQ空间 打印

转贴顺便排版。他网站上太乱了也。[VB中基于TCP/IP协议的点对点文件传输]

转贴顺便排版。他网站上太乱了也。[VB中基于TCP/IP协议的点对点文件传输]

VB中基于TCP/IP协议的点对点文件传输


葛斌


摘 要  随着网络的普及,网络编程显得尤其重要。本文使用Winsock控件实现两台计算机间的文件传输,描述了Winsock控件的使用方法及有关文件传输的算法。
关键词 TCP/IP协议,Winsock控件,网络编程,文件传输,断点续传。

    随着计算机网络的迅速发展,人们的生活越来越离不开网络,如今网络编程已成为计算机发展的热点,而在众多的网络通信中,又以TCP/IP协议最为流行。本文讨论的Winsock控件,提供了访问TCP/IP网络的捷径,使用它可以不必了解TCP/IP的细节和调用Winsock API,只要设置好相应的属性和触发事件后的处理,就可以实现计算机之间的数据通信。
一、Winsock控件
    Winsock即Windows Sockets规范的简称,是目前最流行的网络通信应用程序接口之一。所谓Socket,通常也称作"套接字",用于描述IP地址和端口,是一个通信链的句柄。应用程序通常通过“套接字”向网络发出请求或者应答网络请求。Socket是网络上运行的两个程序间双向通讯的一端,它既可以接受请求,也可以发送请求,利用它可以较为方便的编写网络上数据的传递。Winsock控件工作在传输层上,在这一层上,目前主要流行的协议包括TCP和UDP两种:TCP协议适用于那些对于数据的可靠性要求比较高的情况,目前大多数的网络应用层协议都是基于TCP协议的(例如常用的HTTP、FTP、SMTP、POP3等协议);UDP协议适用于对数据可靠性要求不高而对速度要求较高的情况,这里主要包括一些需要大流量的(例如Real公司的RTSP协议,腾讯公司的QQ协议等)。
二、Winsock控件通信的工作原理
    Winsock控件是基于Socket规范创建的,所以其通信的实质是对Socket接口进行数据的读写操作。如果两个应用程序需要通信,它们可以通过使用Socket类来建立套接字连接,可以将这个过程想象为一次电话呼叫过程:呼叫者通过拨号与被呼叫者连接,当电话接通时,双方都可以自由通话了,只不过这里的呼叫者被称为“客户”,被呼叫者则称为“服务器”,而号码则为“IP地址+端口”,但在建立连接之前,必须由“客户”发出呼叫,且此时的“服务器”正在监听。因此,基于TCP/IP协议的通信,需要分别建立客户端应用程序和服务器端应用程序。其大致流程如图1所示:



                                  图1 Winsock工作原理
    端口号被规定在0~65535范围内的某一个整数,其中0~1023被预先定义的服务器通信所占用(如telnet占用23,http占用端口80),所以最好使用1024~65535这些端口中的某一个,以免发生端口冲突。
三、基本方法
    客户端要与服务器端进行通信,首先,必须知道服务器端的域名或IP地址(RemoteHost属性),就像要和某人打电话前,必须知道对方的电话号码;其次,还必须和服务器端约定相同的端口(RemotePort属性),用于数据的输入和输出;最后,调用Connect方法与服务器端建立连接。
    服务器端应设置一个监听端口(LocalPort属性),端口应与客户端的端口相同,同时调用Listen方法时刻监听客户端的连接请求(ConnectionRequest事件);当接收到客户端的连接请求时,可调用ConnectionRequest事件的Accept方法,这样与客户端的连接就建立了。
    客户端和服务器端成功建立连接后,任何一方都可以自由的发送数据(SendData方法)和接收数据(GetData方法),这些方法都在DataArrival事件中。
四、案例实现
    这里笔者通过一个实际应用,来说明如何使用Winsock控件进行网络通信。实例中有两台计算机,一台作为服务器端,一台作为客户端,实现的功能是将服务器端的某一文件传送到客户端,服务器端和客户端进行点对点的文件传输。
    1.实现原理
    本文将实现的文件传输只有一个发送方和一个接收方,这是最基本的文件传输方式,运用的原理也比较简单:发送方先获取待传输文件的基本信息,主要是文件名及文件长度(用于创建数据缓冲区);然后,将其发送给接收方;接着,建立和文件一样大小的数据缓冲区,并将文件读入;最后,将数据缓冲区中的数据发送给接收方。与此同时,当接收方接收到文件名和文件长度之后,就为其创建新的文件和数据缓冲区;然后,接收传输的文件数据,并将其放在数据缓冲区中;最后,依次将数据缓冲区的数据写入新创建的文件中。这样便完成了不同计算机之间的文件传输。
    2.服务器端主程序代码
    “通用”中声明如下:
Option Base 1

复制内容到剪贴板
代码:
Dim data() As Byte, send As Long  '声明数据缓冲区和已传输的数据
Dim filepath As String, filename As String, filelength As Long  '存储文件信息
'发送文件名和文件长度代码:
Winsock1.SendData filename
Winsock1.SendData filelength
"发送文件"按钮事件的代码:
Private Sub sendfile_Click()
'状态栏显示提示文字
StatusBar1.SimpleText = "向客户端发送数据..."
Open filepath For Binary As #1
'设置数据缓冲区
ReDim data(filelength)
'读取数据
For j = 1 To filelength
Get #1, j, data(j)
Next
'更新发送的数据
send = filelength
'发送数据
Winsock1.SendData data
Close #1
End Sub
"开启"按钮事件的代码:
复制内容到剪贴板
代码:
Private Sub start_Click()
Winsock1.Protocol = sckTCPProtocol '以TCP方式进行通信
'设置服务器通信程序的端口号,这里笔者使用的端口是8080
Winsock1.LocalPort = Val(portText.Text)
Winsock1.Listen '等待客户端连接请求
'状态栏显示提示文字
StatusBar1.SimpleText = "服务器已工作,准备接受请求…"
End Sub
"客户端请求连接"事件代码:
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'如果当前连接是打开的,则关闭
If Winsock1.State <> 0 Then
Winsock1.Close
End If
Winsock1.Accept requestID '接受客户请求
StatusBar1.SimpleText = "有客户请求,建立连接。"
End Sub
运行结果如图2所示:



图2 服务器端运行效果
    3.客户端主程序代码
    “通用”中声明如下:
Option Base 1

复制内容到剪贴板
代码:
Dim flag As Boolean  '设置开关
Dim filename As String, filelength As Long  '存储文件信息
Dim data() As Byte, received As Long   '声明数据缓冲区和已接收的数据
'初始化开关
Private Sub Form_Load()
flag = True
End Sub
"连接"按钮事件的代码:
复制内容到剪贴板
代码:
Private Sub connect_Click()
Winsock1.Protocol = sckTCPProtocol  '以TCP方式进行通信
'设置远程服务器IP地址,为方便调试笔者使用的是自身的IP地址
Winsock1.RemoteHost = hostText.Text
'设置远程服务器通信程序端口号,与服务器端相同
Winsock1.RemotePort = Val(portText.Text)
Winsock1.connect  '与服务器端建立连接
End Sub
"数据到达"事件的代码:
复制内容到剪贴板
代码:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'状态栏显示提示文字
StatusBar1.SimpleText = "正在接收服务器发送的数据..."
'先接收文件名和文件的长度
If flag = True Then
Winsock1.GetData filename, vbString, bytesTotal - 4
Winsock1.GetData filelength, vbLong
'建立文件
Open filename For Binary As #1
flag = False
Else
'设置缓冲区
ReDim data(bytesTotal)
'接收数据并写入文件
Winsock1.GetData data, vbArray + vbByte
For j = received + 1 To received + bytesTotal
Put #1, j, data(j - received - 1)
Next
'更新接收到的数据
received = received + bytesTotal
ProgressBar1.Value = Int((received / filelength) * 100)
If ProgressBar1.Value >= 100 Then Close #1
End If
End Sub
运行结果如图3所示:



                          图3  客户端运行效果
    从以上的实例中,基本了解了有关Winsock 控件的使用方法和文件传输的过程。然而,当需要传送的数据比较大时,就不能像以上介绍的那样,直接将整个文件放入数据缓冲区中了,我们的内存是无法忍受用一个几百MB甚至上GB的空间去存储那些临时数据的。显然,这种做法已远不能满足我们的需求,这时可以将文件按照一定的大小,分成若干个数据包(远小于内存的容量)。首先,设置数据包的大小(如64K),根据文件的基本信息(主要文件的长度),计算出总共需要的数据包数;然后,依次读取同数据包一样大小的数据到数据缓冲区中;接着,将数据缓冲区中的数据,发送到指定的计算机上;同时在另一端,建立一个数据缓冲区,缓冲区的大小要根据接收到的数据来确定,依次接收客户端传输过来的数据包,并将数据缓冲区的数据写入相应的文件中,这样就很容易实现大文件的传输了。
    但还有些时候,当我们在传输文件的过程中,突然被意外中断,导致网络连接中断。这时,我们又不得不再次将文件重新传输一次,显然这浪费了不少的时间,那怎样解决这类问题呢?这就涉及到"断点续传"了,即我们可以接着上次未传输完的地方,继续传输文件。
    "断点续传"的方法有多种,比较常见的一种是通过设置一个临时文件,记录已经传输的文件信息,当传输文件中断时,可以通过临时文件的数据来推算出未传输的数据;然后,在每次进行文件传输前,都先查找文件是否有临时文件,并将此信息传输给服务器端,于是服务器端可据此再接着进行传输剩余的数据,当文件全部传输完毕时,删除临时文件,这样就实现了"断点续传"。
这里笔者依然通过上面的那个实例,来说明如何在VB中使用Winsock控件实现文件的分块传输和断点续传。
    4.服务器端主程序如下
    “通用”中声明如下:
Option Base 1

复制内容到剪贴板
代码:
Const PACKSIZE As Long = 65536  '每包大小为64K
Dim filepath As String, filename As String, filelength As Long '存储文件信息
Dim data() As Byte, pack As Long, send As Long '数据缓冲区,文件包数,已传输的数据
“发送文件”按钮事件代码:
Private Sub sendfile_Click()
StatusBar1.SimpleText = "向客户端发送数据…"
'计算需要传输文件的包数
pack = (filelength - send) \ PACKSIZE
If ((filelength - send) Mod PACKSIZE) <> 0 Then pack = pack + 1
If pack = 0 Then pack = pack + 1
'传输文件
Open filepath For Binary As #1
For i = 1 To pack
'如果只有一包
If pack = 1 Then
ReDim data(filelength - send)
'读取数据
For j = send + 1 To filelength
Get #1, j, data(j - send)
Next
'更新已传输文件的数据
send = filelength
'发送文件数据
Winsock1.SendData data
'如果是最后一包
ElseIf i + 1 = pack Then
'读取最后一包的数据
ReDim data(filelength - send)
For j = 1 To filelength - send
Get #1, send + j, data(j)
Next
'发送文件数据
Winsock1.SendData data
'更新已传输文件的数据
send = filelength
Exit For
Else
'将文件数据放到数据缓冲区
ReDim data(PACKSIZE)
For j = 1 To PACKSIZE
Get #1, send + j, data(j)
Next
'发送文件数据
Winsock1.SendData data
'更新已传输文件的数据
send = send + PACKSIZE
End If
ProgressBar1.Value = Int((send / filelength) * 100)
Next
ProgressBar1.Value = Int((send / filelength) * 100)
Close #1
End Sub
'返回客户端已接收文件的数据
复制内容到剪贴板
代码:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData send, vbLong
End Sub
运行效果如图4所示:



                            图4  服务器端断点续传的运行效果
    5.客户端主程序如下
    "数据到达"事件的代码:

复制内容到剪贴板
代码:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
StatusBar1.SimpleText = "正在接收服务器的数据..."
If sign = True Then
'分别接收传输文件的文件名、文件长度
Winsock1.GetData filename, vbString, bytesTotal - 4
Winsock1.GetData filelength, vbLong
'为传输文件设置临时文件
tempfile = filename + ".td"
'返回已接收的数据
Open filename For Binary As #1
Open tempfile For Binary As #2
If LOF(2) > 0 Then
Input #2, received
Winsock1.SendData received
End If
Close #2
sign = False
Else
Open tempfile For Output As #2
'建立数据缓冲区
ReDim data(bytesTotal)
'接收服务器端传输的数据
Winsock1.GetData data, vbArray + vbByte
'将接收的数据写入文件
For j = received + 1 To received + bytesTotal
Put #1, j, data(j - received - 1)
Next
'更新已接收的数据
received = received + bytesTotal
'更新临时文件
Write #2, received
ProgressBar1.Value = Int((received / filelength) * 100)
'传输完毕
If ProgressBar1.Value >= 100 Then
StatusBar1.SimpleText = "数据传输完毕!"
Close #2
'删除临时文件
Kill (tempfile)
Close #1
End If
Close #2
End If
End Sub
运行效果如图5所示:



                          图5  客户端断点续传的效果
五、结语
   本文通过在VB中使用Winsock控件,实现网络之间的文件传输,更进一步理解了其工作原理。此外,笔者还介绍了在网络传输文件是要注意的问题,并对怎样处理传输文件比较大时的情况进行了详细的分析,并通过实际的方法实现了文件的“断点续传”,可以满足实际中的要求,其设计的思想也具有普遍的通用性。



[ 本帖最后由 最美我中文 于 2010-2-20 21:09 编辑 ]
谁不怀念苏联,谁就没有良心;谁想回到苏联,谁就没有头脑.

Woodu.ME--从零开始的博客生活

TOP

代码的缩进建议调整一下
网络编程……圈圈……

TOP

排版太累了……回头有空吧
在看某个视频
谁不怀念苏联,谁就没有良心;谁想回到苏联,谁就没有头脑.

Woodu.ME--从零开始的博客生活

TOP