mscomm无法在中文windows 95下传递二进制数据.txt

VB技巧问答10000例 VB技巧问答10000例

这 是 VB的 问 题 。 VB的 MSComm在 中 文 Windows下 (确 切 地 说 是 在 所 有 DBCS系 统 下 )无 法 传 递 二 进 制 数 据 。 你 可 以 参 考 微 软 的 Knowledge Base的 文 章：“ Transmitting and Receiving Binary Data with MSComm Control” ， 它 解 释 了 原 因 。 在 QA000051 “VB 5提示错误："输入超出文件尾"”中 ， 我 也 解 释 了 VB在 中 文 Windows下 是 怎 么 处 理 字 符 串 的 。 
    一 种 办 法 是 将 >128 位 的 数 据 放 入 声 明 为 Byte数 组 里 发 送 , 接 受 端 再 取 出 来 。 如 ： 
    接 收 ： 
    Dim v As Variant 
    v = MSComm1.Input 
    For i = 0 To MSComm1.InBufferCount - 1 
     Debug.Print v(i) 
    Next 
    发 送 ： 
    Dim v(10) As Byte 
    ...... 
    MSComm1.Output = CVar(v) 
<END>