传送文件对于网络编程来说是基本
功能
比如远程控制软件Software
在编制
个软件Software时我从网上下了很多传文件
这些提供传文件功能根本就不能用传文本还可以传 2进制文件根本就不行因此作为个基本功能模块有必要单独介绍下首先
在VB中要传送
串你可以这样写:Dim strData As String
strData = \"Test\"
Winsock1.SendData strData
但是如果你传送
2进制文件你还能用String变量来存放吗？从理论上分析是不行我也做了实验确实是不行文件虽然可以传但是接受文件和发送不样原因可能是 2进制文件里可以有任何\"\"但是不是所有都可以放在String变量里除了String类型
变量VB中其他类型变量都只有几个字节长难道次只能发几个字节吗？那样岂不是要累死机器了！其实情况没有那么悲观我们完全可以使用
来解决这个问题就是使用
把要传送文件都读到里然后发送出去如下:
FileName 为要传送
文件名WinS为发送文件WinSockControl控件这是个发送端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
sTotal As Long)Dim bytData
As ByteDim f
f = FreeFile
Open strFileName For Binary As #f
ReDim bytData(1 To
sTotal)Winsock1.GetData bytData
Put #f, i, bytData
i = i +
sTotal \'保证每次写都是在文件末尾, i是个全局变量Close #f
End Sub
这里有两个需要注意
地方ReDim Preserve bytData(1 To LenFile)下标是从1开始如果你写成ReDim bytData( LenFile)下标就是从0开始了就有LenFile+1长了LenFile = LOF(FreeFile)中LOF是获得文件长度
是VB里带个人所见过很多例子用API或者循环读直到末尾来获取文件长度这样都是很麻烦使用LOF就可以了这样
即可以传送文本文件也可以传送 2进制文件但是你有没有发现这个问题呢？如果我要传送个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 \'打开文件
DoEvents
LenFile = LOF(FreeF) \'获得文件长度
If LenFile <= iMax Then \'如果要发送
文件小于数据块大小直接发送ReDim bytData(1 To LenFile) \'根据文件长度重新定义
大小Get #FreeF, , bytData \'把文件读入到
里Close #FreeF \'关闭文件
WinS.SendData bytData \'发送数据
Exit Sub
End If
\'文件大于数据块大小
进行分块发送Do Until (iPos >= (LenFile - iMax)) \'发送整块数据
循环ReDim bytData(1 To iMax)
Get #FreeF, iPos + 1, bytData
WinS.SendData bytData
iPos = iPos + iMax \'移动iPos
使它指向下来要读数据Loop
\'这里要注意
是必须检查文件有没有剩下数据如果文件大小正好等于数据块大小\' 整数倍
那么就没有剩下数据了ReDim bytData(1 To LenFile - iPos) \'发送剩下
不够个数据块数据Get #FreeF, iPos + 1, bytData
WinS.SendData bytData
Close #FreeF
下面是接收端
:Private Sub Winsock1_DataArrival(ByVal
sTotal As Long)Dim bytData
As Byte[Page]Dim lLenFile As Long
Dim f
f = FreeFile
Open strFileName For Binary As #f \'strFileName是文件名
lLenFile = LOF(f)
ReDim bytData(1 To
sTotal)Winsock1.GetData bytData
If lLenFile = 0 Then \'lLenFile=0表示是第
次打开文件这里有个问题就是\'如果如果该文件存在话就会出错应该在打开前检查文件是否存在(这里我省略了)Put #f, 1, bytData
Else
Put #f, lLenFile + 1, bytData
End If
Close #f
End Sub
最新评论