两个手机使用快传软件进行传输大文件,速度基本稳定在2MB/S多,而ESP8266只能稳定在1MB/S多.
基本就是这样一个速度,但是要是想到达这样一个速度闹基庆,还得看软件是怎么写的
sendbuffer或者是sendstream
大文袭陪此乱贺件分割成拍迅小文件再传
读取用readbuffer
或者readstream
cli发送文件端Dim B() As Byte
Dim I As Long
Open "E:\a.bmp" For Binary As #1 '以二进制方式打开文件
I = LOF(#1) '获取文件长度’该大小以字节为单位
ReDim B(I - 1) '用于为动态数组变量重新分配存储空间。
Get #1, , B '将一个已打开的磁盘文件读入一个源镇变量之中。
Close #1
cli.SendData B ', vbByte'发送整个文件,字节方式
ser 接收文件端 每次只能接收8000多字节,要分多次接收
Private Sub ser_DataArrival(ByVal bytesTotal As Long)
dim Bf() as byte
ser.GetData bf(), vbByte + vbArray ' 接收文件
Dim l As Long
Open App.Path &"\a.bmp" For Binary As #1 '写收接收的文件'在写文件这前要删除文件 kill App.Path &"\a.bmp"
l = LOF(#1)'并液获取已接收文件的长度
If l>0 Then Seek 1, l+ 1 '如果没有接收就重写,已接收有,就接着文件写入 'seek 在 Open 语句打开的文件中指定当前的读/写位置雹蔽粗。
Put #1, , bf'接着写入文件
Close #1
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)