在delphi7中利用mscomm控件编程

原作者:kuku 添加时间:2007-06-11 原文发表:2007-06-11 人气:50 来源：互联网

本文章共1642字，分2页，当前第1页，快速翻页：

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《在delphi7中利用mscomm控件编程》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

-----------------------------------------------------------------------------------------------------------------------------------------------

Mscomm是微软一个强大的串口通讯的控件，其强大，简单的特点今我们不舍，在delphi中我们也可以使用它。下面这些代码是针对发送和接收为16进制处理的。
var
senddata:array[1..10] of char;
reData:array of Variant;
sendstr:string;
restr:string;
i:longint;
begin
mscomm1.CommPort := 1;                    //指定端口
mscomm1.Settings := '9600,N,8,1';        //其它参数
mscomm1.InBufferSize := 1024;             //接收缓冲区
mscomm1.OutBufferSize := 1024;            //发送缓冲区
mscomm1.InputMode := comInputModeBinary; //接收模式
mscomm1.InputLen := 0;                    //一次读取所有数据
mscomm1.SThreshold := 0;                  //一次发送所有数据
mscomm1.InBufferCount := 0;               //清空读取缓冲区
mscomm1.OutBufferCount := 0;              //清空发送缓冲区
mscomm1.PortOpen:=true;                     //打开端口
MSComm1.RThreshold := 16;               //设置接收多少字节开产生oncomm事件
senddata[1]:=chr($06);                          //要发送的数据
senddata[2]:=chr($03);
senddata[3]:=chr($00);
senddata[4]:=chr($03);
senddata[5]:=chr($10);
sendstr:='';
for i:=1 to 5 do
sendstr:=sendstr + senddata[i];
mscomm1.output:=sendstr;                       //发送数据
i:=0;
bzw:=false;

repeat
     sleep(10);
    Application.ProcessMessages;
    i := i + 1;
    If i > 30000 Then
      begin
        showmessage('发送超时!');
        break;
      end;
Until bzw = true;
redata:=mscomm1.Input;       接收数据
restr:='';
for i:=0 to vararrayhighbound(redata,1) do
      restr:=restr + inttohex(redata[i],2)+' ';
mscomm1.PortOpen:=false;
flatmemo1.Text:=restr;
end;
//oncomm事件

本文章更多内容：1 - 2 - 下一页>>

本页地址