VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1530|回复: 0

[求助] WINSOCK不能响应???

[复制链接]
发表于 2015-9-27 01:16:52 | 显示全部楼层 |阅读模式

本人利用WINSOCK写了一个TCP接收程序,接收CAN总线转以太网的报文。
已经使用了Activex EXE多进程技术。

但发现一个问题,如果CAN总线发过来的速度快了或者报文长了。比如 周期50ms每次发50*13=650字节.
WINSOCK工作一小会就停止响应了。如果这时候CAN总线停止发送 WINSOCK只会接收最后一段报文。
中间的都丢失了!!!这怎么办???


'---------------------放入Activex EXE中-------------------------
Option Explicit

Dim AllbytesTotal As Long
Dim Section_Count As Long
Dim strDATA() As Byte

Public Event Progress(theIndex() As Byte, ByVal bytesTotal As Long, ByVal AllbytesTotal As Long, ByVal Section_Count As Long)

Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
    'On Error Resume Next
   
   
    tcpClient.GetData strDATA, vbArray + vbByte
   
   
    debug.print Section_Count ,now()
    Section_Count = Section_Count + 1
    AllbytesTotal = AllbytesTotal + bytesTotal
   
    RaiseEvent Progress(strDATA, bytesTotal, AllbytesTotal, Section_Count)
   
   
End Sub

点评

。。。请勿重复发帖  发表于 2015-10-1 14:07
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-5 11:16

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表