怎么解决ｗｉｎｓｏｃｋ不能传送大文件的问题？（其实文件也不大的）(

Question

Dim i As Integer
do while (LOF(filehandle) - MyLocation > 4000)
ReDim mybyte(0 To 4000)
Get #filehandle, , mybyte
MyLocation = Loc(filehandle)
Winsockfile.SendData mybyte
loop
ReDim mybyte(0 To LOF(filehandle) - MyLocation - 1)
Get #filehandle, , mybyte
Winsockfile.SendData mybyte
End If

Answer 1

在这个基础上改一改就行了。。
这里把文件分成<=4000字节一份
dim mylocation as long
dim mybyte() as byte
dim filehandle as long
filehandle=freefile
open -------............. binary .....do while (LOF(filehandle) - MyLocation > 4000)
ReDim mybyte(0 To 4000)
Get #filehandle, , mybyte
MyLocation = Loc(filehandle)
Winsock1.SendData mybyte
loop
ReDim mybyte(0 To LOF(filehandle) - MyLocation - 1)
Get #filehandle, , mybyte
Winsock1.SendData mybyte
End If

Answer 2

wo ye xiang yao,hehe  
[email protected],duoxie

Answer 3

那给我也一份吧,
[email protected]

Answer 4

分块传送，在Windows最大限制好象是1024*8

Answer 5

如果可以的话请也发给我一分！谢
[email protected]

Answer 6

I need a Copy, thanks
[email protected]

Answer 7

谢谢gameboy999(活着就是幸运)！