二进制文件通过串口发送的问题

Question

怎样将二进制文件通过mscomm控件发送，要分成数据包的形式吗？如有多个数据包，不只一屏又怎么办呢？谢谢

Answer 1

Dim FileNumber As Integer
Dim ByteLong As Long
Dim nBuf() As Byte, SendBuf() As ByteFileNumber = FreeFile
Open "f:\aaa.txt" For Binary As FileNumber
ByteLong = LOF(FileNumber) - 1
ReDim nBuf(ByteLong)
Get FileNumber, , nBuf'将文件付到字节数组nBuf中.
Close FileNumber'发送的时候一次最好不要超过1024
MSComm1.Output nBuf'发果这个数组太长,可分次发送
'接收:
'设定 InputMode 读取二进制数据
MSComm1.InputMode = comInputModeBinary
dim tempByte() as Byte
tempByte=MSComm1.Input 

Answer 2

将二进制文件按字节读取存放在一数组中，再用mscomm控件发送。发送的时候一次最好不要超过你所设置的mscomm.outbuffersize。默认是1024，但是可以改大的。