• 首 页
• 编程技巧
• 维护技术
• 开发技术
• 西门子案例
• 三菱案例
• 松下案例
• 应用案例
• 下载区
• 参考书籍

Delphi中串口通信的实现

返回文章列表

作者：老耿 时间：01-27 来源：大测控  字体:【大 中 小】

第1页第2页

SPCOMM的使用
下面是一个利用 SPCOMM控件的串口通信的例子。
以实现 PC机与单片机 8051之间的通信为例，首先要调通它们之间的握手信号。假定它们之间的通信协议是： PC到 8051一帧数据 6个字节， 8051到 PC一帧数据也为 6个字节。当 PC发出（ F0,01,FF,FF,01,F0）后 8051能收到一帧（ F0,01,FF,FF,01,F0），表示数据通信握手成功，两者之间就可以按照协议相互传输数据。
创建一个新的工程 COMM.DPR，把窗体的 NAME属性定为 FCOMM，把窗体的标题定义为测试通信，按照图 2添加控件 (图 2中黑色矩形围住的控件即为 COMM1)。

1.设定 COMM1属性：
●波特率： 4800；
●奇偶校验位：无；
●字节长度： 8；
●停止位： 1；
●串口： COM1。
Memo1中将显示发送和接收的数据。将新的窗体存储为 Comm.pas。
2.编写源代码
//变量说明
var
fcomm: TFCOMM;
viewstring:string;
i:integer;
rbuf,sbuf:array[16] of byte;
//打开串口
procedure TFCOMM.FormShow(Sender: TObject);
begin
comm1.StartComm;
end;
//关闭串口
procedure TFCOMM.FormClose(Sender: TObject; var Action: TCloseAction);
begin
comm1.StopComm;
end;
//自定义发送数据过程
procedure senddata;
var
i:integer;
commflg:boolean;
begin
viewstring:=‘’ ;
commflg:=true;
for i:=1 to 6 do
begin
if not fcomm.comm1.writecommdata(@sbuf[i],1) then
begin
commflg:=false;
break;
end;
//发送时字节间的延时
sleep(2);
viewstring:=viewstring＋ inttohex(sbuf[i],2)＋‘’ ; end;
viewstring:=‘发送’＋ viewstring;
fcomm.memo1.lines.add(viewstring);
fcomm.memo1.lines.add(‘’ );
if not commflg then messagedlg(‘发送失败 !’ ,mterror,[mbyes],0);
end;
//发送按钮的点击事件
procedure TFCOMM.Btn_sendClick(Sender: TObject);
begin
sbuf[1]:=byte(＄ f0); //帧头
sbuf[2]:=byte(＄ 01); //命令号
sbuf[3]:=byte(＄ ff);
sbuf[4]:=byte(＄ ff);
sbuf[5]:=byte(＄ 01);
sbuf[6]:=byte(＄ f0); //帧尾
senddata;//调用发送函数
end;
//接收过程
procedure TFCOMM.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);
var
i:integer;
begin
viewstring:=‘’ ;
move(buffer^,pchar(@rbuf^),bufferlength);
for i:=1 to bufferlength do
viewstring:=viewstring＋ inttohex(rbuf[i],2)＋‘’ ;
viewstring:=‘接收’＋ viewstring;
memo1.lines.add(viewstring);
memo1.lines.add(‘’ );
end;
如果 memo1上显示发送 F0 01 FF FF 01 F0和接收到 F0 01 FF FF 01 F0，这表示串口已正确地发送出数据并正确地接收到数据，则串口通信成功。

上一页 1 2

返回文章列表      【我要投稿】 【我要评论】 【会员收藏】 【发现错误】 【打印文档】

---

上一篇：基于OPC技术的上位机与PLC之间的通信
下一篇：运用VC#编程通过OPC方式实现PC机与西门子PLC通讯--同步篇

文章相关

• 基于VB的台达PLC与监控计算机的串行通信实现(二)  (2007-02-03 19:27:25)
• 基于VB的台达PLC与监控计算机的串行通信实现(一)  (2007-02-03 19:24:13)
• 基于GSM公网的PLC远程通信的设计与实现  (2007-02-01 20:19:24)
• 网络通信技术在笔架山水厂普通快滤池的应用  (2007-02-01 20:10:59)
• 多系统通信技术研究-------OPTO 22 SNAP I/O 与各种PLC之间同时通讯的应用  (2007-01-29 19:01:45)
• VC环境下三菱PLC与微机的串行通信  (2007-01-29 17:14:26)
• 西门子S7-200PLC的RS485通信口易损坏的原因分析和解决办法  (2007-01-28 10:50:13)
• 串口通讯-网络通信的数据包(帧)  (2007-01-27 20:28:48)
• 基于VB的分布式监控系统通信设计  (2007-01-27 20:28:08)
• 串口通信基本接线方法  (2007-01-27 19:30:01)

现有0条评论 | 更多评论..

---

我要发表看法

  如果您还不是本站会员欢迎加入。

• ※ 评论注意事项：
• 不是会员或未登陆发表评论，评论人名字显示为匿名。
• 尊重网上道德，遵守中华人民共和国的各项有关法律法规。
• 承担一切因您的行为而直接或间接导致的民事或刑事法律责任。
• 本站管理人员有权保留或删除评论中的任意内容。
• 参与本评论即表明您已经阅读并接受上述条款。