VBSOCKET实现文件传输精编版Word文档格式.docx
- 文档编号:21449895
- 上传时间:2023-01-30
- 格式:DOCX
- 页数:11
- 大小:17.96KB
VBSOCKET实现文件传输精编版Word文档格式.docx
《VBSOCKET实现文件传输精编版Word文档格式.docx》由会员分享,可在线阅读,更多相关《VBSOCKET实现文件传输精编版Word文档格式.docx(11页珍藏版)》请在冰豆网上搜索。
存放数据的数组
FreeF=FreeFile'
获得空闲的文件号
OpenFileNameForBinaryAs#FreeFile'
打开文件
DoEvents
LenFile=LOF(FreeF)'
获得文件长度
ReDimbytData(1ToLenFile)'
根据文件长度重新定义数组大小
Get#FreeF,,bytData'
把文件读入到数组里
Close#FreeF'
关闭文件
'
发送数据
EndSub
接受端的程序如下:
PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)
DimbytData()AsByte
Dimf
f=FreeFile
OpenstrFileNameForBinaryAs#f
ReDimbytData(1TobytesTotal)
Put#f,i,bytData
i=i+bytesTotal'
保证每次写都是在文件的末尾,i是个全局变量
Close#f
这里有两个需要注意的地方,ReDimPreservebytData(1ToLenFile),下标是从1开始的,如果你写成ReDimbytData(LenFile),下标就是从0开始了,数组就有LenFile+1长了。
LenFile=LOF(FreeFile)中的LOF是获得文件长度的函数,是VB里带的,我见过很多例子用API,或者循环的读直到末尾来获取文件长度,这样都是很麻烦的,使用LOF函数就可以了。
这样的程序,即可以传送文本文件,也可以传送二进制文件。
但是你有没有发现这个程序的问题呢?
如果我要传送一个50M的文件呢?
系统可以为bytData分配50M的内存空间吗?
于是笔者拿一个50M的文件做实验吧,接收到的文件和原来的文件不一样,比原来的大。
问题出在那呢?
首先,根据文件大小重新定义bytData数组的大小本身就有问题,系统是不可能无限制的给数组分配空间的,即使可以,也会造成系统响应变慢。
在传50M文件的时候,系统就跟死机了一样。
那么怎么解决这个问题呢,一个自然的想法就是把数据分段传送。
发送程序,iPos是个全局变量,初始值为0。
这个变量保存着当前数据的位置。
ConstiMax=65535是每个数据块的大小。
dimiposaslong
ConstiMax=65535
OpenFileNameForBinaryAs#FreeF'
IfLenFile<
=iMaxThen'
如果要发送的文件小于数据块大小,直接发送
ExitSub
EndIf
文件大于数据块大小,进行分块发送
DoUntil(iPos>
=(LenFile-iMax))'
发送整块数据的循环
ReDimbytData(1ToiMax)
Get#FreeF,iPos+1,bytData
iPos=iPos+iMax'
移动iPos,使它指向下来要读的数据
Loop
这里要注意的是,必须检查文件有没有剩下的数据,如果文件大小正好等于数据块大小的
整数倍,那么就没有剩下的数据了
ReDimbytData(1ToLenFile-iPos)'
发送剩下的不够一个数据块的数据
Close#FreeF
下面是接收端的程序:
DimlLenFileAsLong
OpenstrFileNameForBinaryAs#f'
strFileName是文件名
lLenFile=LOF(f)
IflLenFile=0Then'
lLenFile=0表示是第一次打开文件,这里有个问题,就是'
如果如果该文件存在的话,就会出错,应该在打开前检查文件是否存在。
(这里我省略了)
Put#f,1,bytData
Else
Put#f,lLenFile+1,bytData
VBSOCKET实现文件传输支持断点续传
OptionExplicit
ConstPACKSIZEAsLong=65536'
每包大小为64K
PrivatefilepathAsString
PrivatefilenameAsString
PrivatefilelengthAsLong'
存储文件信息
Privatedata()AsByte
PrivatepackAsLong
PrivatesendedDataAsLong'
数据缓冲区,文件包数,已传输的数据
PrivatealreadySendAsBoolean
PrivatecmsStrAsString
ConstfileDAsString="
D:
\NMSPlugin\source\"
PrivateSubcmdConnectClient_Click()
=sckTCPProtocol
=
=8080
连接客户端
PrivateSubcmdSendFile_Click()
OpenfileDForBinaryAs#3
filename="
"
filelength=LOF(3)
Close#3
("
NMSP_AYUREADY"
)
PrivateSubWinsockSend_Connect()
="
已与客户端建立连接。
发送文件"
按钮事件代码:
PrivateSubsendFile()
DimiAsInteger
DimjAsLong
DimmAsLong
filepath=fileD
向客户端传送文件:
&
filename&
大小为:
filelength
计算需要传输文件的包数
pack=(filelength-sendedData)\PACKSIZE
If((filelength-sendedData)ModPACKSIZE)<
>
0Then
pack=pack+1
Ifpack=0Then
传输文件
OpenfilepathForBinaryAs#1
Fori=1Topack
如果只有一包
Ifpack=1Then
|filelength="
filelength&
|send="
sendedData
ReDimdata(filelength-sendedData)
读取数据
Forj=sendedData+1Tofilelength
Get#1,j,data(j-sendedData)
Next
更新已传输文件的数据
sendedData=filelength
发送文件数据
如果是最后一包
ElseIfi+1=packThen
读取最后一包的数据
Forj=1Tofilelength-sendedData
Get#1,sendedData+j,data(j)
ExitFor
将文件数据放到数据缓冲区
ReDimdata(PACKSIZE)
Form=1ToPACKSIZE
Get#1,sendedData+m,data(j)
sendedData=sendedData+PACKSIZE
=Int((sendedData/filelength)*100)
Close#1
alreadySend=False
客户端反馈
PrivateSubWinsockSend_DataArrival(ByValbytesTotalAsLong)
DimcmdStrAsString
vbString
IfMid(cmdStr,1,13)="
NMSP_IAMREADY"
Then'
客户端已准备好接收时,要求客户端报告已经接收的文件大小
NMSP_RPTCURLE"
filename
ElseIfMid(cmdStr,1,13)="
NMSP_REQFILEN"
客户端要求发送文件名称
NMSP_FILENAME="
NMSP_REQFILES"
客户端要求发送文件大小
NMSP_FILESIZE="
filelength'
vbLong
NMSP_RECEIVED"
收到客户端已经接收到的文件大小报告
客户端已经接收了"
Mid(cmdStr,14,Len(cmdStr))
sendedData=Mid(cmdStr,15,Len(cmdStr))
Iffilelength=sendedDataThen
NMSP_SENDDONE"
初始化文件名,大小,已接收大小,遍历是否还需要向别的客户端发送
Letfilename="
Letfilelength=0
LetsendedData=0
文件发送完毕!
CallsendFile
==========================================================客户端======================================================
DimflagAsBoolean'
设置是否继续接收文件的开关标识
PrivatereadyReceiveAsBoolean
PrivatetempfileAsString
PrivaterealfileAsString
PrivatereveivePathAsString
Privatedata()AsByte,receivedAsLong'
声明数据缓冲区和已接收的数据
PrivateSubForm_Load()
reveivePath=&
\received\"
CallinitReceiveState
PrivateSubWinsockReceive_Connect()
已经连接到服务器"
PrivateSubWinsockReceive_ConnectionRequest(ByValrequestIDAsLong)
<
已接受连接请求。
PrivateSubWinsockReceive_DataArrival(ByValbytesTotalAsLong)
分别接收传输文件的文件名、文件长度
vbString,bytesTotal-4
判断指令类型
IfreadyReceive=FalseThen
询问是否准备好接收文件
Iffilename="
Then
ElseIffilelength=0Then
NMSP_FILENAME"
文件名
filename=Mid(cmdStr,15,Len(cmdStr))
NMSP_FILESIZE"
文件大小
filelength=Mid(cmdStr,15,Len(cmdStr))
If(filelength<
0)Then
服务器端要求提供已经接收的文件大小
为传输文件设置临时文件
realfile=reveivePath&
tempfile=reveivePath&
.td"
返回已接收的数据
OpenrealfileForBinaryAs#1
OpentempfileForBinaryAs#2
IfLOF
(2)>
Input#2,received
received="
received
Close#2
NMSP_RECEIVED="
readyReceive=True
准备接收文件:
ElseIfMid(cmdStr,1,14)="
NMSP_SENDDONE="
服务器发送文件完毕执行安装操作
正在接收文件:
保存到:
realfile
建立数据缓冲区
ReDimdata(bytesTotal)
接收服务器端传输的数据
vbArray+vbByte
将接收的数据写入文件
Forj=received+1Toreceived+bytesTotal
Put#1,j,data(j-received-1)
Put#2,j,data(j-received-1)
更新已接收的数据
received=received+bytesTotal
更新临时文件
Write#2,received
=Int((received/filelength)*100)
传输完毕
=100Then
数据传输完毕!
删除临时文件
Kill(tempfile)
PrivateSubinitReceiveState()
readyReceive=False
received=0
filelength=0
监听中"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBSOCKET 实现 文件传输 精编