怎樣用winsock控件發(fā)文件.

1、怎樣用win sock控件發(fā)文件客戶端：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:(發(fā)送端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 如果小于標準長度直接發(fā)送整個文件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 發(fā)送文件除SIZE整數(shù)倍后剩下的數(shù)據(jù)Get #5, zhizhen + 1, B(WckXiaZai.Se ndData B(End If程序2(接收端放在DataArrival事件里Dim a( As ByteWin