龚建伟评论：本文对在Delphi中使用ActiveX控件，使用行间汇编，用Delphi调用可执行应用程序三种方法实现串口通信进行了阐述。不过在Delphi中进行串口编程并不象作者所说的那样令人头疼，我就知道几个很好用的串口程序是用Delphi编写的（我不太会用Delphi）。

　　Delphi 是新一代可视化开发工具，它具有功能强大、简便易用和代码执行速度快等特点，Delphi系列开发工具在国际各媒体上曾获得过三十多项大奖，是全球公认的快速应用开发工具技术的先驱者，他越来越在构架企业信息系统方面发挥着重要作用。
　　它的功能很强大，但在对串口通信的控制上Delphi的帮助文档和其他书籍中很少提及，可这是在开发应用系统时会经常遇到却又令人头痛的事情。下面介绍三种解决方案，以实现接收和发送数据的功能。

一、 使用ActiveX控件
由于Delphi中没有串口控件可用，所以首先需要把ActiveX控件MSCOMM加到元件选项板上。这是一个非常好的控件它不仅能对串口进行操作，而且还可以对Modem进行控制。下面结合一个具体的实例来说明如何用MSCOMM控件开发出串口通信程序。
创建一个Communication.dpr工程，把窗体的Name属性变为CommForm，将标题改为The Communication Test，选择File/Save As将新的窗体存储为CommFrm.pas，接下来将控件添加到主窗体中。
　　通过设置页可选定进行数据传输的通信端口和端口的波特率、奇偶校验、数据位和停止位，通信时每传输一个字符都将触发响应事件，在通信页“传输显示”位置可看到当前正在进行传输的数据。同时当出现回车换行符时将整行内容显示在memDisplay新的一行中，而全部接收的内容还将存在一个文件中。部分源代码如下：
变量说明
var
CommForm: TCommForm;
ss :string;
savef,readf :file of char;
i,j :longint;

初始化
procedure TCommForm.FormCreate(Sender: TObject);
begin
mscomm.commport:=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;
mscomm.commport:=strtoint(edtCommport.text);
mscomm.settings:=edtCommsetting.Text;
end;

传输事件
procedure TCommForm.MSCommComm(Sender: TObject);
var
filenrc :char;
buffer :variant;
s1:string;
c :char;
begin
case mscomm.commEvent of
comEvSend:
begin
while not(eof(readf)) do
begin
read(readf,filenrc);
mscomm.output:=filenrc;

[本文共有 3 页，当前是第 1 页] <<上一页 下一页>>