串口通信问题,编程用!!

在串口通信时,我用writefile()发送指令给我的仪器(万用电表),仪器能作出正确反应并显示结果。仪器说明书上说,已经将结果输出到输出缓冲器了。
我想用readfile()取出结果,ReadFile(hCom,&buff,300,&dReadNum,NULL)返回值为真,但dReadNum为0.

加了个waitcommevent(EV_RXCHAR|EV_TXEMPTY),直接返回EV_TXEMPTY,是不是表明文件为空?
我又查看了下仪器说明书:(在输入完最后条指令":MEAS:VOLT:DC?"后,)立即进行测量,并将测量结果发送到输出缓冲器(不是缓冲区),而您必须将读数数据发送到总线控制器上。
是不是我还应该输入新的指令,大概是什么指令呢?(说明书上没有提到。)
但VB和VC里怎么用“.enter”就可以取出数据呢?
注:是scpi指令兼容的仪器-34401A数字万用表,采用Rs_232接口;
   用C++ Builder5.0编程。
09-11-21  匿名提问 发布
4个回答
时间
投票
  • 0

    q20096

    用Delphi开发串口通信软件一般有两种方法:一是利用Windows的通信API函数,另一种是采用Microsoft的MSComm控件。利用 API编写串口通信程序较为复杂,需要掌握大量通信知识,其优点是可实现的功能更强大,应用面更广泛,更适合于编写较为复杂的低层次通信程序。而利用 MSComm控件则相对较简单,该控件具有丰富的与串口通信密切相关的属性及事件,提供了对串口的各种操作。  
      一、MSComm控件的主要属性及事件  
      (1)CommPort:设置或返回串行端口号,缺省为1。  
      (2)Setting:设置或返回串口通信参数,格式为“波特率,奇偶校验位,数据位,停止位”。例如:MSComm1.Setting:='9600,n,8,1'  
      (3)PortOpen:打开或关闭串行端口,格式为:MSComm1.PortOpen:={True|False}  
      (4)InBufferSize:设置或返回接收缓冲区的大小,缺省值为1024字节。  
      (5)InBufferCount:返回接收缓冲区内等待读取的字节数,可通过设置该属性为0来清空接收缓冲区。  
      (6)RThreshold:该属性为一阀值,它确定当接收缓冲区内的字节个数达到或超过该值后就产生代码为ComEvReceive的OnComm事件。  
      (7)SThreshold:该属性为一阀值,它确定当发送缓冲区内的字节个数少于该值后就产生代码为ComEvSend的OnComm事件。  
      (8)InputLen:设置或返回接收缓冲区内用Input读入的字节数,设置该属性为0表示Input读取整个缓冲区的内容。  
      (9)Input:从接收缓冲区读取一串字符。  
      (10)OutBufferSize:设置或返回发送缓冲区的大小,缺省值为512字节。  
      (11)OutBufferCount:返回发送缓冲区内等待发送的字节数,可通过设置该属性为0来清空缓冲区。  
      (12)OutPut:向发送缓冲区传送一串字符。  
      如果在通信过程中发生错误或事件,就会引发OnComm事件,并由CommEvent属性代码反映错误类型,在通信程序的设计中可根据该属性值来执行不同的操作。CommEvent属性值及其含义如下:  
      (1)ComEvSend:值为1,发送缓冲区的内容少于SThreshold指定的值。  
      (2)ComEvReceive:值为2,接收缓冲区内字符数达到RThreshold指定的值。  
      (3)ComEvFrame:值为1004,硬件检测到帧错误。  
      (4)ComEvRxOver:值为1008,接收缓冲区溢出。  
      (5)ComEvTxFull:值为1010,发送缓冲区溢出。  
      (6)ComEvRxParity:值为1009,奇偶校验错误。  
      (7)ComEvEOF:值为7,接收数据中出现文件尾(ASCII码为26)字符。  
      二、程序样例  
      在Delphi3.0中无法使用MSComm控件,笔者使用的是Delphi5.0。MSComm控件是VB中的OCX控件,首先需要将其添加到 Delphi中,选择菜单“Component”→“Import   ActiveX   Control”,在“Import   ActiveX”页内选择“Microsoft   Comm   Control”,点击“Install”安装,安装后在“ActiveX”组件板中出现MSComm图标,即可被使用。有一点要注意,在Object   Inspector中MSComm控件的Input和Output属性是不可见的,但它们仍然存在,这两个属性的类型是OleVariant(Ole万能变量)。  
      下面是一接收程序的样例(主要部分),大家可根据实际需要进行完善。  
      在Form中放置一Memo控件用于显示接收的数据,Combobox1选择通信参数(Setting属性值),Combobox2选择串口(CommPort属性值),按Button1开始接收数据,按Button2停止接收。  
      procedure   TForm1.FormCreate(Sender:   TObject);  
      begin  
      Mscomm1.InBufferCount   :=0;   //   清空接收缓冲区  
      Mscomm1.InputLen   :=0;   //   Input读取整个缓冲区内容  
      Mscomm1.RThreshold   :=1;   //   每次接收到字符即产生OnComm事件  
      end;  
      procedure   TForm1.Button1Click(Sender:   TObject);  
      begin  
      Mscomm1.Settings   :=ComboBox1.Text;  
      if   ComboBox2.Text   ='com1'   then   //   假设只考虑com1和com2两种情况  
        Mscomm1.CommPort   :=1  
      else  
        Mscomm1.CommPort   :=2;  
      Mscomm1.PortOpen   :=true;   //   打开串口  
      Mscomm1.DTREnable   :=true;   //   数据终端准备好  
      Mscomm1.RTSEnable   :=true;   //   请求发送  
      end;  
      procedure   TForm1.Button2Click(Sender:   TObject);  
      begin  
      Mscomm1.PortOpen   :=false;   //   关闭串口  
         Mscomm1.DTREnable   :=false;  
      Mscomm1.RTSEnable   :=false;  
      end;  
      procedure   TForm1.MSComm1Comm(Sender:   TObject);  
      var  
      recstr:Olevariant;  
      begin  
       if   Mscomm1.CommEvent   =   2   then  
        begin  
      recstr   :=   Mscomm1.Input   ;  
      Memo1.text   :=   Memo1.Text   +   recstr;  
      end;  
      end;

    09-11-21 | 添加评论 | 打赏

    评论读取中....

  • 0

    pex344

    Delphi6.0中二进制串口通信编程方法--《微计算机信息》2003年12期
    Delphi6.0中二进制串口通信编程方法 吕国芳,王鑫国 本文介绍了Delphi6.0中如何使用MSComm通信控件实现二进制串口通信的方法,并结合应用实际给出了串口传输整数数组的通信程序。 【作者单位】:河海大学电气工程学院自动化系 247信箱210098江苏...
    a href="ki/Article/CJFDTotal-WJSJ200"ki/Article/CJFDTotal-WJSJ200/a ... 48K 2008-2-17 -

    09-11-21 | 添加评论 | 打赏

    评论读取中....

精华知识
更多  
意见反馈 帮助