如用MSCOMM控件就很简单,为什么不用?

解决方案 »

  1.   

    不用API就可以的
    使用mscomm控件,呵呵
      

  2.   

    如何用MSComm Control传Binary Data以下是读取Binary DataDim Buffer as Variant
    Dim Arr() as Byte' 设定并开启连接埠
    MSComm1.CommPort = 1
    ' 连线速度 9600 baud、无同位检查、资料位元 8、停止位元 1
    MSComm1.Settings = "9600,N,8,1"
    告诉控制项当使用 Input 时,读取整个暂存区
    MSComm1.InputLen = 0

    MSComm1.PortOpen = True
    ' 设定 InputMode 以读取二进位资料
    MSComm1.InputMode = comInputModeBinary
    ' 等待直到输入暂存区有 10 个位元组
    Do Until MSComm1.InBufferCount < 10
        DoEvents
    Loop
    ' 往暂存区存二进位资料
    Buffer = MSComm1.Input
    ' 指定给位元组阵列以便处理
    Arr = Buffer
    MSComm1.PortOpen = False
    而送出Binary的资料则没有像InputMode的属性,在VB5.0中
    Output属性是接Varant所以直接将ByteArray传送出去就好了,
    所以重点变成如何将想传的资料放入ByteArrayDim Buffer(5)Buffer(0) = 210
    Buffer(1) = 150
    Buffer(2) = 68
    Buffer(3) = 56MSComm1.Output = Buffer以上是我找到的