一、 使用ActiveX控件 由于Delphi中没有串口控件可用,所以首先需要把ActiveX控件MSCOMM加到元件选项板上。这是一个非常好的控件它不仅能对串口进行操作,而且还可以对Modem进行控制。下面结合一个具体的实例来说明如何用MSCOMM控件开发出串口通信程序。 创建一个Communication.dpr工程,把窗体的Name属性变为CommForm,将标题改为The Communication Test,选择File/Save As将新的窗体存储为CommFrm.pas,接下来参照图1和图2将控件添加到主窗体中。图1 图2 由图1和图2我们可以看出,通过设置页可选定进行数据传输的通信端口和端口的波特率、奇偶校验、数据位和停止位,通信时每传输一个字符都将触发响应事件,在通信页“传输显示”位置可看到当前正在进行传输的数据。同时当出现回车换行符时将整行内容显示在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; j:=j+1; lblDisplay.caption:=inttostr(j); if mscomm.outbuffercount>=2 then break; end; end; comEvReceive: begin buffer:=mscomm.Input; s1:=buffer; c:=s1[1]; ss:=ss+c; i:=i+1; lblDisplay.caption:=c+inttostr(i); write(savef,c); if (c=chr(10))or(c=chr(13)) then begin lblDisplay.caption:='cr'+inttostr(i); memDisplay.lines.add(ss); ss:=''; end; end; end; end;当然还有许多串口控制的ActiveX控件,有控件用是方便,但是是否说没有控件就不能用Delphi本身解决问题呢。那么就请来看一下下面的解决方案:二、使用行间汇编 对于硬件的控制,汇编语言是最方便的了,而Delphi中又允许使用行间汇编那么来看一下怎样使用行间汇编接收下位机传来的数据,在下面的例子中我们简化了问题,比如我们通过COM2接收400个传来的字符并将这些内容保存在AAA.DAT文件中当接收完毕后显示‘Receive end’。但是为什么说我们简化了问题呢,因为实际情况中双方通信可能是约定传送字符的个数,也可能约定的是规定好的起始字符和结束字符,或是多种条件同时约定待各种条件全部满足时才表示完成一次成功的接收否则如有一个条件未满足都表示接收失败需要重新传送。这些约定在使用了行间汇编的Delphi程序中都可实现。下面的程序就是按一个按钮进入的一个简化的串口接收程序。 procedure TForm1.Button1Click(Sender: TObject); var ca:array[1..400]of char; c:char; i,j:integer; f1:file of char; label loop1; begin i:=1; asm mov dx,0001 mov ax,005eh int 14h end; for j:=1 to 400 do begin asm loop1: mov dx,0001 mov ah,02 int 14h test ah,80h jnz loop1 mov c,al end; ca[i]:=c; i:=i+1; end; assignfile(f1,'aaa.dat'); rewrite(f1); for j:=1 to i-1 do write(f1,ca[j]); closefile(f1); label1.caption:='receive end'; end;三、用Delphi调用可执行应用程序 采用其它编程技术编制的串口通信程序在完成数据传输后将数据保存到磁盘上,然后用Delphi对数据内容进行处理。通过在Delphi中与其他编程技术协同工作也不失为一种解决问题的好方法
用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;
由于Delphi中没有串口控件可用,所以首先需要把ActiveX控件MSCOMM加到元件选项板上。这是一个非常好的控件它不仅能对串口进行操作,而且还可以对Modem进行控制。下面结合一个具体的实例来说明如何用MSCOMM控件开发出串口通信程序。
创建一个Communication.dpr工程,把窗体的Name属性变为CommForm,将标题改为The Communication Test,选择File/Save As将新的窗体存储为CommFrm.pas,接下来参照图1和图2将控件添加到主窗体中。图1 图2
由图1和图2我们可以看出,通过设置页可选定进行数据传输的通信端口和端口的波特率、奇偶校验、数据位和停止位,通信时每传输一个字符都将触发响应事件,在通信页“传输显示”位置可看到当前正在进行传输的数据。同时当出现回车换行符时将整行内容显示在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;
j:=j+1;
lblDisplay.caption:=inttostr(j);
if mscomm.outbuffercount>=2 then
break;
end;
end;
comEvReceive:
begin
buffer:=mscomm.Input;
s1:=buffer;
c:=s1[1];
ss:=ss+c;
i:=i+1;
lblDisplay.caption:=c+inttostr(i);
write(savef,c);
if (c=chr(10))or(c=chr(13)) then
begin
lblDisplay.caption:='cr'+inttostr(i);
memDisplay.lines.add(ss);
ss:='';
end;
end;
end;
end;当然还有许多串口控制的ActiveX控件,有控件用是方便,但是是否说没有控件就不能用Delphi本身解决问题呢。那么就请来看一下下面的解决方案:二、使用行间汇编
对于硬件的控制,汇编语言是最方便的了,而Delphi中又允许使用行间汇编那么来看一下怎样使用行间汇编接收下位机传来的数据,在下面的例子中我们简化了问题,比如我们通过COM2接收400个传来的字符并将这些内容保存在AAA.DAT文件中当接收完毕后显示‘Receive end’。但是为什么说我们简化了问题呢,因为实际情况中双方通信可能是约定传送字符的个数,也可能约定的是规定好的起始字符和结束字符,或是多种条件同时约定待各种条件全部满足时才表示完成一次成功的接收否则如有一个条件未满足都表示接收失败需要重新传送。这些约定在使用了行间汇编的Delphi程序中都可实现。下面的程序就是按一个按钮进入的一个简化的串口接收程序。
procedure TForm1.Button1Click(Sender: TObject);
var ca:array[1..400]of char;
c:char;
i,j:integer;
f1:file of char;
label loop1;
begin
i:=1;
asm
mov dx,0001
mov ax,005eh
int 14h
end;
for j:=1 to 400 do
begin
asm
loop1: mov dx,0001
mov ah,02
int 14h
test ah,80h
jnz loop1
mov c,al
end;
ca[i]:=c;
i:=i+1;
end;
assignfile(f1,'aaa.dat');
rewrite(f1);
for j:=1 to i-1 do
write(f1,ca[j]);
closefile(f1);
label1.caption:='receive end';
end;三、用Delphi调用可执行应用程序
采用其它编程技术编制的串口通信程序在完成数据传输后将数据保存到磁盘上,然后用Delphi对数据内容进行处理。通过在Delphi中与其他编程技术协同工作也不失为一种解决问题的好方法
这里有很讲串口的例子,楼主可以去看看,有益无害!!!
用GOOGLE可以找到.
stephenland74(程序员)
-------------------------
可以发给我吗,谢谢
[email protected]有好的学习网站介绍一下吗?
可以给我也发一个么?谢谢了
My Email:[email protected]
我有一个加了校验、加密的串口通信的程序,如果你想要就给EMAIL我
[email protected]
谢谢
[email protected] 谢谢!
我想要一份你的程序,谢谢。
[email protected]
[email protected]
-----------------------
谢谢