串口通信发送图片等二进制文件---急急急

Question

大家好,能不能给个通过串口发送图片等二进制文件的发送和接收程序给我,很着急,高分求助啊,非常感谢,我的MAIL:[email protected]

Answer 1

接收： 
    Dim v As Variant 
    v = MSComm1.Input 
    '用2进制方式写入文件
    open yourfilename for binary as #1
    put #1,,v
    close #1 
    发送： 
    Dim v() As Byte     
    dim i as long
    dim filename as string
    filename="你的文件路径"
    i=filelen(filename)
    redim v(i-1)
    open filename for binary as #1
    get #1,,v
    close #1
    MSComm1.Output = CVar(v) 

Answer 2

对了，mscomm控件的缓冲区要设置为足够大

Answer 3

TO:rainstormmaster
请你将你的能成功运行的源程序发给我好吗,非常感谢,我在线等!

Answer 4

rainstormmaster提供的只是基本MSCom控件的编程思路，如果你真的要传图片等比较大的程序的话，第一要自己定义一种协议，保证传输过程中数据不会出错；第二，单单利用串口自身的缓冲是远不够的，需要自己分包发送、接受，然后在拼接。