谁知道怎样用winsock的senddata方法发送文件

[lhxiangbird]

我想用winsock发送文件,但他的senddata方法不知怎么用,请帮助我.谢谢
e-mail:lhxiangbird2sina.com.

[Un1]

dim sdata as string
sdata = "sdfsfsdfsdfsd"

'send
dim bt() as byte
bt = sdata

winsock1.senddata bt


'rec
private sub winsock1_dataarr...()
dim bt() as byte
winsock1.getdata bt

dim s as string
s = bt

end sub

[coman]

我试过用WINSOCK传送过文件，senddata和getdata 方法每次只能传送8192个字节.
大于8K的文件要用分解开来传送。

[subzero]

不必分解
open file for binary
read file to a byte array
send the length of the file and the filename
send the byte array with senddata

in sub dataarrival
get file length and filename first
if bytestotal>=file length
getdata to a byte array
save the byte array to a file
end if