在VB中使用WinSock控件传送文件传送文件对于网络编程来说是基本的功能，比如远程控制软件。在编制一个软件时，我从网上下了很多传文件的程序，这些程序提供的传文件功能根本就不能用。传文本还可以，传二进制文件根本就不行。因此，作为一个基本的功能模块，有必要单独介绍一下。    首先，在VB中要传送字符串，你可以这样写：Dim strData As StringstrData = "Test"Winsock1.SendData strData    但是如果你传送的二进制文件，你还能用String变量来存放吗？从理论上分析是不行的，我也做了实验，确实是不行的。文件虽然可以传，但是接受的文件和发送的不一样，原因可能是二进制文件里可以有任何"字符"，但是不是所有的字符都可以放在String变量里。    除了String类型的变量，VB中其他类型的变量都只有几个字节长，难道一次只能发几个字节吗？那样岂不是要累死机器了！其实，情况没有那么悲观，我们完全可以使用数组来解决这个问题，就是使用byte数组。把要传送的文件都读到数组里，然后发送出去。程序如下：FileName 为要传送的文件名，WinS为发送文件的WinSock控件。这是一个发送端的程序。Public Sub SendFile(FileName As String, WinS As Winsock)Dim FreeF As Integer '空闲的文件号Dim LenFile As Long '文件的长度Dim bytData() As Byte '存放数据的数组FreeF = FreeFile '获得空闲的文件号Open FileName For Binary As #FreeFile '打开文件 DoEvents LenFile = LOF(FreeFile) '获得文件长度ReDim bytData(1 To LenFile) '根据文件长度重新定义数组大小Get #FreeFile, , bytData '把文件读入到数组里Close #FreeFile '关闭文件WinS.SendData bytData '发送数据End Sub    接受端的程序如下：Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim bytData() As ByteDim ff = FreeFileOpen strFileName For Binary As #fReDim bytData(1 To bytesTotal)Winsock1.GetData bytDataPut #f, i, bytDatai = i + bytesTotal '保证每次写都是在文件的末尾, i是个全局变量Close #fEnd Sub    这里有两个需要注意的地方，ReDim Preserve bytData(1 To LenFile)，下标是从1开始的，如果你写成ReDim bytData( LenFile)，下标就是从0开始了，数组就有LenFile+1长了。LenFile = LOF(FreeFile)中的LOF是获得文件长度的函数，是VB里带的，我见过很多例子用API，或者循环的读直到末尾来获取文件长度，这样都是很麻烦的，使用LOF函数就可以了。    这样的程序，即可以传送文本文件，也可以传送二进制文件。但是你有没有发现这个程序的问题呢？如果我要传送一个50M的文件呢？系统可以为bytData分配50M的内存空间吗？    于是笔者拿一个50M的文件做实验吧，接收到的文件和原来的文件不一样，比原来的大。问题出在那呢？    首先，根据文件大小重新定义bytData数组的大小本身就有问题，系统是不可能无限制的给数组分配空间的，即使可以，也会造成系统响应变慢。在传50M文件的时候，系统就跟死机了一样。那么怎么解决这个问题呢，一个自然的想法就是把数据分段传送。程序如下：    发送程序, iPos是个全局变量,初始值为0。这个变量保存着当前数据的位置。Const iMax = 65535是每个数据块的大小。Dim FreeF As Integer '空闲的文件号Dim LenFile As Long '文件的长度Dim bytData() As Byte '存放数据的数组FreeF = FreeFile '获得空闲的文件号Open FileName For Binary As #FreeF '打开文件DoEventsLenFile = LOF(FreeF) '获得文件长度If LenFile <= iMax Then '如果要发送的文件小于数据块大小，直接发送ReDim bytData(1 To LenFile) '根据文件长度重新定义数组大小Get #FreeF, , bytData '把文件读入到数组里Close #FreeF '关闭文件WinS.SendData bytData '发送数据Exit SubEnd If'文件大于数据块大小，进行分块发送Do Until (iPos >= (LenFile - iMax)) '发送整块数据的循环ReDim bytData(1 To iMax)Get #FreeF, iPos + 1, bytDataWinS.SendData bytDataiPos = iPos + iMax '移动iPos，使它指向下来要读的数据Loop'这里要注意的是，必须检查文件有没有剩下的数据，如果文件大小正好等于数据块大小的' 整数倍，那么就没有剩下的数据了ReDim bytData(1 To LenFile - iPos) '发送剩下的不够一个数据块的数据Get #FreeF, iPos + 1, bytDataWinS.SendData bytDataClose #FreeF下面是接收端的程序：Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim bytData() As ByteDim lLenFile As LongDim ff = FreeFileOpen strFileName For Binary As #f 'strFileName是文件名lLenFile = LOF(f)ReDim bytData(1 To bytesTotal)Winsock1.GetData bytDataIf lLenFile = 0 Then 'lLenFile=0表示是第一次打开文件，这里有个问题，就是'如果如果该文件存在的话，就会出错，应该在打开前检查文件是否存在。（这里我省略了）Put #f, 1, bytDataElsePut #f, lLenFile + 1, bytDataEnd IfClose #fEnd Sub    这次，用这个改过的程序再次传输那个50M的文件，结果正确了终于正确了。于是很好的解决了在VB中传送文件的问题。    整个程序在VB6+WIN98下调试通过。

评论