BLOB lb_data
STRING ls_dipstr
LONG ll_datalens
INTEGER i
choose case object.commevent
case 380
messagebox('','无效属性值 comInvalidPropertyValue')
case 383
messagebox('','属性为只读 comSetNotSupported')
case 394
messagebox('','属性为只读 comGetNotSupported ')
case 8000
messagebox('','端口打开时操作不合法 comPortOpen')
case 8001
messagebox('','超时值必须大于 0 ')
case 8002
messagebox('','无效端口号 comPortInvalid')
case 8003
messagebox('','属性只在运行时有效 ')
case 8004
messagebox('','属性在运行时为只读 ')
case 8005
messagebox('','端口已经打开 comPortAlreadyOpen')
case 8006
messagebox('','设备标识符无效或不支持该标识符 ')
case 8007
messagebox('','不支持设备的波特率 ')
case 8008
messagebox('','指定的字节大小无效 ')
case 8009
messagebox('','缺省参数错误 ')
case 8010
messagebox('','硬件不可用(被其它设备锁定) ')
case 8011
messagebox('','函数不能分配队列 ')
case 8012
messagebox('','设备没有打开 comNoOpen ')
case 8013
messagebox('','设备已经打开 ')
case 8014
messagebox('','不能使用 comm 通知 ')
case 8015
messagebox('','不能设置 comm 状态 comSetCommStateFailed')
case 8016
messagebox('','不能设置 comm 事件屏蔽 ')
case 8018
messagebox('','仅当端口打开时操作才有效 comPortNotOpen ')
case 8019
messagebox('','设备忙 ')
case 8020
messagebox('','读 comm 设备错误 comReadError')
case 8021
messagebox('','为该端口检索设备控制块时的内部错误 comDCBError ')
case 1
messagebox('','发送事件。 ')
case 2
ole_1.object.RThreshold = 0
IF ole_1.object.InBufferCount <> 0 THEN
//二进制数据
lb_data = ole_1.object.input
FOR i = 1 To Len(lb_data)
ls_dipstr = String(BlobMid(lb_data, i, 1))
//按位转换成ASCII后转换成16进制,f_inttohex--10进制转16进制
mle_js.text += f_inttohex(ASC(ls_dipstr)) + ":"
NEXT
END IF
case 3
messagebox('','clear-to-send 线变化。 ')
case 4
messagebox('','data-set ready 线变化。 ')
case 5
messagebox('','carrier detect 线变化。 ')
case 6
messagebox('','振铃检测。 ')
case 7
messagebox('','文件结束。 ')