怎样用winsock控件发文件.

1、怎样用win sock控件发文件客户端：Private Sub Form_Load(Win sock1 .L ocalPort = 1001Win sock1. Liste nEnd SubDim a( As BytePrivate Sub Comma nd1_Click(Win sock1.Co nn ectEnd SubPrivate Sub Comma nd2_Click(Win sock1.Se ndData aEnd SubPrivate Sub Form_Load(Form2.ShowWin sock1 .R emoteHost = C3Y0V3Win sock1. RemoteP

2、ort = 1001Ope n d:B.DAT For Bin ary As #1Do While Not EOF(1I = I + 1ReDim Preserve a(1 To IGet #1, , a(ILoopResetDebug.Pri nt IEnd Sub服务器端：如何才能接收全呢？?？Private Sub Form_Load(Win sock1 .L ocalPort = 1001Win sock1. Liste nEnd SubPrivate Sub Win sock1_Co nn ectio nRequest(ByVal requestID As Lo ng IfWin s

3、ock1.State sckClosed The n Win sock1.Close Win sock1.Accept requestIDEnd SubPrivate Sub Win sock1_DataArrival(ByVal bytesTotal As Lo ng Dim B( As ByteReDim Preserve B(1 To bytesTotalOpe n C:WINDOWSDESKTOPC.DAT For Bi nary As #2 Win sockl.GetData B, vbByte + vbArrayFor I = 1 To bytesTotal - 1 Put #2,

4、 , B(INextResetEnd Sub方法二 已连接的情况下：程序1:(发送端Dim zhizhe n As Long, size As Long, B( As Bytesize = 154800定义标准长度Ope n d:1.rar For Binary As #5 文件路径随便改好了If LOF(5 = size Then 如果小于标准长度直接发送整个文件ReDim B(1 To LOF(5 As ByteGet #5, 1, B(WckXiaZai.Se ndData B(Elsezhizhe n = 0ReDim B(1 To size As ByteWhile zhizhen + size = LOF(5判断是否小于加上个 SIZE的长度DoEve ntsGet #5, zhizhen + 1, B( +1 为指针加 1WckXiaZai.Se ndData B(zhizhe n = zhizhe n + sizeWendReDim B(1 To LOF(5 - zhizhen As Byte 发送文件除SIZE整数倍后剩下的数据Get #5, zhizhen + 1, B(WckXiaZai.Se ndData B(End If程序2(接收端放在DataArrival事件里Dim a( As ByteWin