如何用MSComm Control传Binary Data

[behappy]

请问各位高手，如何用MSComm Control传Binary Data呢，最好能有个实例，在线等待，先到先得，有了标准答案后马上结帐！！！！谢谢

[mldnking]

有一个属性，改以下就行了

[winnerwang]

以下是一个实例和说明，希望能帮到你！

以下是读取Binary Data

Dim 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传送出去就好了，
所以重点变成如何将想传的资料放入ByteArray

Dim Buffer(5)

Buffer(0) = 210
Buffer(1) = 150
Buffer(2) = 68
Buffer(3) = 56

MSComm1.Output = Buffer

see it?