×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载英语培训机构初中英语如何学随时随地聆听大师开讲/课堂
酷素材!视频教程打包下手绘教程抠图教程路径专辑photoshop cs3视频教程
查看: 3110|回复: 5

[vb,vc,delphi] 串口通信 如何收发图片

[复制链接]
发表于 2010-12-5 10:37:04 | 显示全部楼层 |阅读模式
一下这个程序运行就出错,做不到在串口通信过程中 进行收发图片,到底是哪里有问题??请高手赐教!!!谢谢
Private Sub Form_Load()
  MSComm1.CommPort = 1                      '设置通信端口号为COM1
  MSComm1.Settings = "9600,n,8,1"           '设置串口参数
  MSComm1.InputMode = 1                     '接收字节型数据
  MSComm1.RThreshold = 1          '接收缓冲区每收到一个字节都会使 MSComm 控件触发OnComm 事件
  MSComm1.InBufferSize = 10240              '将输入缓冲区设置为10KB
  MSComm1.OutBufferSize = 10240             '将输出缓冲区设置为10KB
  MSComm1.PortOpen = True                   '打开通信端口1
  Timer1.Enabled = False                    '关闭时钟
End Sub


Private Sub PicReceive_Click()
  Dim Pic2() As Variant
  Dim PBag2 As New PropertyBag
  Label3.Caption = "显示接收图片区"        '显示接收图像
  Picture2.Picture = Pic2
End Sub

Private Sub Picsend_Click()
  Dim Pic1() As Byte
  Dim PBag1 As New PropertyBag
  PBag1.WriteProperty "Picture", Picture1.Picture
  Pic1 = PBag1.Contents
  MSComm1.Output = Pic1
End Sub


Private Sub MSComm1_OnComm()
  Select Case MSComm1.CommEvent
     '通过取代每一个 case 表达式来处理每个事件与错误
     Case comEvReceive
        Label3.Caption = "loading"         '接收到数据,等待发送完成
        'Timer1.Interval = 10000            '设置时钟等待时间为10秒
        'Timer1.Enabled = True              '开启时钟
  End Select
End Sub

  
Private Sub Cmdquit_Click()
   MSComm1.PortOpen = False
   Unload Me
End
End Sub



Private Sub Timer1_Timer()
  Dim Pic2() As Byte
  Dim PBag2 As New PropertyBag
  Pic2 = MSComm1.Input                        '将缓冲区内的数据读入Pic2变量中
  If Len(Pic2) <> 0 Then                      '判断缓冲区内是否存在数据
      Label3.Caption = "显示接收图片区"        '显示接收图像
      PBag2.Contents = Pic2
      Set Picture2.Picture = PBag2.ReadProperty("Picture")
  End If
' Timer1.Enabled = False
End Sub
本帖的地址:http://bbs.jcwcn.com/forum.php?mod=viewthread&tid=338359
跟着教程做一遍,做完的图要到这里评论交作业,教程有看不懂的地方,可以在贴子下面评论
发表于 2018-6-13 15:50:08 | 显示全部楼层
酷素材
楼主是超人
回复 支持 反对

使用道具 举报

发表于 2018-6-13 15:44:01 | 显示全部楼层
顶顶多好
回复 支持 反对

使用道具 举报

发表于 2018-6-13 15:49:21 | 显示全部楼层
真心顶。。。。
回复 支持 反对

使用道具 举报

发表于 2018-6-13 16:12:02 | 显示全部楼层
酷素材
LZ真是人才
回复 支持 反对

使用道具 举报

发表于 2018-6-13 15:53:15 | 显示全部楼层
酷素材
好帖子要收藏
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [立即注册]

本版积分规则

2345