Winsock怎么发送大文件-CSDN社区

svch0st 2011-08-07

打赏
举报

一个字节一个一个的发送嘛，只不过麻烦点

abc612008 2011-06-06

打赏
举报

ding

神马被哪个妞占用了呢 2011-06-05

打赏
举报

高度怀疑（帖子飞计划？）

abc612008 2011-06-05

打赏
举报

[Quote=引用 23 楼 myjian 的回复:]
UDP那不更简单么?
[/Quote]
帮个忙，我是新手

abc612008 2011-06-05

打赏
举报

[Quote=引用 26 楼 yiguangqiang88 的回复:]
高度怀疑（帖子飞计划？）
[/Quote]
....

abc612008 2011-06-04

打赏
举报

[Quote=引用 21 楼 myjian 的回复:]
真服了,我17楼不是连整套方案都给出了么?你那啥文件啊,还传不了??
[/Quote]
我是UDP......

嗷嗷叫的老马 2011-06-04

打赏
举报

真服了,我17楼不是连整套方案都给出了么?你那啥文件啊,还传不了??

abc612008 2011-06-04

打赏
举报

[Quote=引用 19 楼 bestbadgod 的回复:]
socket发送文件时，跟文件的大小没有半毛钱的关系，只跟接收端有关。接收端需要判断这次（下次）接收到的数据是否还是该文件的数据，来确定是否写入文件。
[/Quote]
怎么弄?

zx092z 2011-06-04

打赏
举报

嗷嗷叫的老马 2011-06-04

打赏
举报

UDP那不更简单么?

倒大霉的上帝 2011-06-03

打赏
举报

socket发送文件时，跟文件的大小没有半毛钱的关系，只跟接收端有关。接收端需要判断这次（下次）接收到的数据是否还是该文件的数据，来确定是否写入文件。

abc612008 2011-06-02

打赏
举报

最大3M

嗷嗷叫的老马 2011-06-02

打赏
举报

http://www.m5home.com/blog/article.asp?id=169

简单的例子.

大于100M时,需要用别的办法了.

abc612008 2011-06-02

打赏
举报

dd = 1
FileName = pas
lngFile = FileLen(FileName) \ 8192 '取得文件长度
For Ia = 0 To lngFile
ReDim myfile(8191) As Byte '初始化数组
Open FileName For Binary As #1 '打开文件
Get #1, Ia * 8192 + 1, myfile '将文件写入数组
Close #1 '关闭文件
Winsock1.SendData myfile '发送
DoEvents
Next Ia

'''''''''''''''''''''''''''''''''''''''''''''''''''

Kill Path & "pic.bmp"

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim myfile As String
Winsock1.GetData myfile
Open Path & "123a.jpg" For Binary As #1 '新建文件
MyLong = FileLen(Path & "123a.jpg")
Put #1, MyLong + 1, myfile '将收到的数据写入新文件中
Close #1

End Sub
就是这个代码

abc612010 2011-06-02

打赏
举报

dd = 1
FileName = pas
lngFile = FileLen(FileName) \ 8192 '取得文件长度
For Ia = 0 To lngFile
ReDim myfile(8191) As Byte '初始化数组
Open FileName For Binary As #1 '打开文件
Get #1, Ia * 8192 + 1, myfile '将文件写入数组
Close #1 '关闭文件
Winsock1.SendData myfile '发送
DoEvents
Next Ia

'''''''''''''''''''''''''''''''''''''''''''''''''''

Kill Path & "pic.bmp"

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim myfile As String
Winsock1.GetData myfile
Open Path & "123a.jpg" For Binary As #1 '新建文件
MyLong = FileLen(Path & "123a.jpg")
Put #1, MyLong + 1, myfile '将收到的数据写入新文件中
Close #1

End Sub

神马被哪个妞占用了呢 2011-06-02