WINSOCK可以模拟成MSCOMM串口那样设置从接受缓存区读取的字符数吗
MSCOMM控件中属性Inputlen可以直接设置或返回INPUT属性从接受缓存区中读取的字符数
有什么方法能使WINSOCK.GETDATA也能达到这种效果?
请高手指点下
MSCOMM控件中属性Inputlen可以直接设置或返回INPUT属性从接受缓存区中读取的字符数
有什么方法能使WINSOCK.GETDATA也能达到这种效果?
请高手指点下
解决方案 »
- vb+sql问题1!!急!在线等1!
- 递归问题,下面的代码可以读取,目录中的所有文件夹,哪位帮我改成,用treeview(用目录树)显示文件夹.谢谢!!!!!!!!!!!!
- 简单问题,如何调用 Form_Unload 在线等待
- 初学者的两个语法问题!
- ◆下载的源码,调试时出现错误invalid picture
- 求购完整的超市POS管理软件源代码
- 关于引用Microsoft Excel 11.0 Object Library,与toolbar发生冲突!
- VB程序,执行某项操作很费时,于是我做了一个frm提示用户等待,但是这个frm却常只显示一个白框,还有....
- 实际内存地址
- 那位知道用vb如何调节图片的亮度对比度等?(只有这点分了)
- adopenkeyset , adlockoptmistic时find 的应用
- 请问如何实现对当前窗口中控件的获取?
winsock.getdata 存放数据的变量名称,数据类型,读取的数据大小
下列代码是串口读取数据的:
Private Sub Msrec_OnComm()
On Error GoTo SendfastSelect Case Msrec.CommEvent
Case comEvReceive '只要收到一个字节就触发此事件
DC = 0'''''''''第一次数据判断'''''''''
If (IDf = False) And (IDbg = 0) Then
Inst = Msrec.Input '读入一个字节到临时变量
Ins(0) = Inst(0) '转存为字节型变量
InsD = Ins(0)
If InsD = 2 Then '判断是否为起始符号
''''读入数据量大小'''''
Do While Msrec.InBufferCount = 0
Loop
Inst = Msrec.Input
Ins(1) = Inst(0)
InsD = Ins(1)
IDsum = InsD
IDsum = IDsum - 3
IDsid = 0
'''''读入报文标识''''
Do While Msrec.InBufferCount = 0
Loop
Inst = Msrec.Input '读入下一字节
Ins(2) = Inst(0)
串口从接收缓存区中读取一个数据的方法为Inst=Msrec.Input(属性Inputlen的值为1)
换成WINSOCK从接收缓存区中读取一个数据:
WINSOCK.getdata str1,vbbyte,1
Inst=str1
是不是象这样就可以了?