高手里面请

Question

那位能帮忙看一下源码？图片和文字都显示不出来，全是二进制。'发送端：
Private Sub cmdSend_Click()
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer
Const ChunkSize As Integer = 16384
FileName = App.Path & "\test.rtf"
DataFile = 1
Open FileName For Binary Access Read As DataFile
Fl = LOF(DataFile)    
If Fl = 0 Then Close DataFile: Exit Sub
Chunks = Fl \ ChunkSize
Fragment = Fl Mod ChunkSize
ReDim Chunk(Fragment)
Get DataFile, , Chunk()
Winsock1.SendData Chunk()
ReDim Chunk(ChunkSize)
For i = 1 To Chunks
   Get DataFile, , Chunk()
   Winsock1.SendData Chunk()
Next i
Close DataFile
MsgBox "文件发送完毕"
End Sub'接收端
Dim DataFile As Integer, Fl As Long, Chunks As Integer, FileName As String
Dim Fragment As Integer, Chunk() As Byte, iCount As Integer
Const ChunkSize As Integer = 16384Private Sub cmdSave_Click()
DataFile = 1
Open "test.rtf" For Binary Access Write As DataFile
For i = 0 To UBound(Chunk)
   Put DataFile, , Chunk()
Next i
Close DataFile
MsgBox "文件生成完毕", vbInformation, "系统"
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Chunk(), vbByte + vbArray
End Sub

Answer 1

winsock一次最大接受8192个字节,你应该把写文件放在Winsock1_DataArrival这个事件中