winsock发送和接收数据的问题

wanguanquan 2003-05-15 11:21:26
就是我用winsock发送图片时,报错说:"数据文报太大,不能装入缓冲区
并被截断" 我是用字节数组传的,源代码如下:(UDP协议)
Private Sub Form_Load()
With udpPeerA
.RemoteHost = "202.38.204.36" '要连接到的计算机名"
.RemotePort = 80 '要连接到的端口号
.LocalPort = 80 '该Winsock控制将要使用的本地端口号,便于其它端与该Winsock通讯
.Bind 80 '将该Winsock控制绑定到该本地端口
End With
End Sub
发送数据:
Private Sub Command1_Click()
Dim filelength As Long
filelength = FileLen("F:\huangjinfeng\kx50模板.xls")
ReDim bytt(filelength) As Byte
Dim l As Long
l = FreeFile
Open "F:\huangjinfeng\kx50模板.xls" For Binary Access Read As #l
Get #l, , bytt
Close #l
udpPeerA.SendData bytt
ReDim bytt(0)
End Sub
接收数据:
Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
Dim lenx As Long
lenx = FileLen("F:\huangjinfeng\kx50模板.xls")
ReDim bytx(lenx) As Byte
If bytesTotal >= lenx Then
udpPeerA.PeekData bytx, vbArray + vbByte, lenx
Dim l As Long
l = FreeFile
Open "d:\kx50模板.xls" For Binary Access Write As #l
Put #1, , bytx
Close #l
'MsgBox "收到文件 C:\Excl.xls"
ReDim bytx(0)
End If
End Sub
请大家看看,或给个源代码(可以发送图片或exe,rpt等文件类型的).谢谢!
...全文
33 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧