Delphi6.0中二进制串口通信编程方法

详细讲解串口通信在Delphi6.0中的应用

Delphi6.0 中二进制串口通信编程方法

The programming method of binary serial communication with Delphi6.0

吕国芳 王鑫国

Lv,Guofang Wang,Xinguo

摘要:本文介绍了Delphi6.0中如何使用MSComm通信控件实现二进制串口通信的方法,并结合应用实际给出了串口传输整数数组的通信程序。

关键词 :MSComm Delphi6.0 二进制串口通信

Abstract: This paper introduces the programming method of how to realize binary serial communication using Delphi6.0. And then give the application example and the complete program of this binary serial communication.

Keywords: MScomm; Delphi6.0; Binary serial communication

1 前言:

在工程实践中经常需要实现上下位机间的串口通信,为了编程的方便性我们通常采用字符方式进行数据传输,由于需要数据转换以及转换后的数据长度增加,数据传输速度不够理想,为了提高系统实时性在某些特殊场合更需要直接采用二进制进行数据传输。Delphi6.0是一种面向对象的可视化的快速应用开发(RAD)工具,它既具有C++语言的强大功能,同时又有VB的易用性,Delphi6.0的伸缩性强,既可用于开发小项目,也可用于开发大项目,尤其适用于快速应用的开发,其大量优点使它迅速成为一种非常流行的编程语言。Delphi6.0中串口通信的实现方法很多,可以使用嵌入式汇编语言、API函数以及VB的MSComm控件来实现。其中使用MSComm控件来实现串口通信最方便,但有关Delphi如何实现二进制通信的资料很少,大部分参考书都只介绍了VB中MSComm控件的字符通信方式。由于Delphi中数组跟Variant变量不兼容,即在Delphi中字节数组不能直接赋值给MSComm控件的output属性,这跟VB有中很大的不同(VB中可以直接赋值),本人通过摸索总结出两种实现Delphi二进制通信的方法,即动态数组法和可变数组(Variant Array)法,并给出了应用实例。在应用实例中我们使用Delphi的absolute关键字来定义两个同地址的动态数组,类型分别为字节型数组和短整型数组,使用字节动态数组接收数据后,可以直接使用短整型动态数组获得短整型数据,省却了数据转换的麻烦。

2 二进制串口通信方法:

1)动态数组法:

var

outdata: array[0..MAX] of byte; // 定义二进制数组

outbuff: array of byte; // 定义动态数组

procedure TForm1.btOUTClick (Sender: TObject);

var i:integer;