UC知道VB 会网络编程的请进
来源：百度知道 编辑：UC知道 时间：2024/05/21 09:01:27
怎么不能发文件
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Fnum As Long
Dim s() As Byte
Static k As Long
If k = 0 Then k = 1
Winsock1.GetData s, vbByte + vbArray
Fnum = FreeFile
Open FileName For Binary Access Write As #Fnum
Put #Fnum, k, s
k = Seek(Fnum)
Close #Fnum
End Sub
文本可以成功发送
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Fnum As Long
Dim s() As Byte
Static k As Long
If k = 0 Then k = 1
Winsock1.GetData s, vbByte + vbArray
Fnum = FreeFile
Open FileName For Binary Access Write As #Fnum
Put #Fnum, k, s
k = Seek(Fnum)
Close #Fnum
End Sub
文本可以成功发送
你先不要发送二进制文件，先发一个文本文件跟一下各个变量的值不就看出来了？！
把文本文件调通了二进制文件不就通了！！
人品决定一切
bytesTotal FileName 这些参数都有值吗?