delphi串口通讯编归类.pdfVIP

delphi 串口通讯编程 龚建伟评论：本文对在 Delphi 中使用 ActiveX 控件，使用行间汇编，用 Delphi 调用可执行 应用程序三种方法实现串口通信进行了阐述。不过在 Delphi 中进行串口编程并不象作者所 说的那样令人头疼，我就知道几个很好用的串口程序是用 Delphi 编写的（我不太会用 Delp hi ）。 Delphi 是新一代可视化开发工具，它具有功能强大、简便易用和代码执行速度快等特点， D elphi 系列开发工具在国际各媒体上曾获得过三十多项大奖，是全球公认的快速应用开发工 具技术的先驱者，他越来越在构架企业信息系统方面发挥着重要作用。 它的功能很强大，但在对串口通信的控制上 Delphi 的帮助文档和其他书籍中很少提及，可 这是在开发应用系统时会经常遇到却又令人头痛的事情。 下面介绍三种解决方案， 以实现接 收和发送数据的功能。 一、 使用 ActiveX 控件 由于 Delphi 中没有串口控件可用， 所以首先需要把 ActiveX 控件 MSCOMM 加到元件选项板 上。这是一个非常好的控件它不仅能对串口进行操作，而且还可以对 Modem 进行控制。下 面结合一个具体的实例来说明如何用 MSCOMM 控件开发出串口通信程序。 创建一个 Communication.dpr 工程，把窗体的 Name 属性变为 CommForm ，将标题改为 T he Communication Test ，选择 File/Save As 将新的窗体存储为 CommFrm.pas ，接下来参照 图 1 和图 2 将控件添加到主窗体中。 图 1 图 2 由图 1 和图 2 我们可以看出，通过设置页可选定进行数据传输的通信端口和端口的波特率、 奇偶校验、数据位和停止位，通信时每传输一个字符都将触发响应事件，在通信页 传输显“ 示 ”位置可看到当前正在进行传输的数据。同时当出现回车换行符时将整行内容显示在 me mDisplay 新的一行中，而全部接收的内容还将存在一个文件中。部分源代码如下： 变量说明 var CommForm: TCommForm; ss :string; savef,readf :file of char; i,j :longint; 初始化 procedure TCommForm.FormCreate(Sender: TObject); begin mport:=1; mscomm.settings:=9600,n,8,1; mscomm.inputlen:=1; mscomm.inbuffercount:=0; mscomm.portopen:=true; ss:=; i:=0; j:=0; assignfile(savef,save1); rewrite(savef); assignfile(readf,read1); reset(readf); end; 设置确定 procedure TCommForm.btnConfirmClick(Sender: TObject); begin if mscomm.portopen then mscomm.portopen:=false; mport:=strtoint(edtCommport.text); mscomm.settings:=edtCommsetting.Text; end; 传输事件 procedure TCommForm.MSCommComm(Sender: TObject); var filenrc :char; buffer :variant; s1:string; c :char; begin case mEvent of comEvSend: begin while not(eof(readf)) do begin