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等文件类型的).谢谢!
...全文
11 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-15 11:21
社区公告
暂无公告