RSS订阅 | 匿名投稿
您的位置:网站首页 > 串口 > 正文

Delphi使用spcomm实现串口通信 基础知识

作者:admin 来源: 日期:2019/4/13 9:41:58 人气: 标签:

如果你已经会使用SPCOMM且出现10个以上的串口问题

请改一下串口名

COM1.CommName='\\.\com18';

就这样 加'\\.\'就行了我也不知道什么回事.......

以下为抄录不知道是谁的

Delphi 是新一代可视化开发工具,它具有功能强大、简便易用和代码执行速度快等特点,是全球公认的快速应用开发工具技术的先驱者,它越来越在构架企业信息系统方面发挥着重要作用。由于Delphi 这些显著特点,许多程序员选择Delphi作为开发工具编制各种应用程序。但是,令人惋惜的是Delphi没有自带串口通讯的控件,在它的帮助文档里也没有提及串口通讯,这就给编制通讯程序的开发人员带来众多麻烦,影响了开发进度,下面就这一技术进行讨论。  用Delphi 实现串口通讯,常用的几种方法为:使用控件如MSCOMM和SPCOMM,使用API函数或者在Delphi 中调用其它串口通讯程序。利用API编写串口通信程序较为复杂,需要掌握大量通信知识,其优点是可实现的功能更强大,应用面更广泛,更适合于编写较为复杂的低层次通信程序。相比较而言,利用SPComm控件则相对较简单,该控件具有丰富的与串口通信密切相关的属性及事件,提供了对串口的各种操作。  使用控件这一方法容易掌握,而SPCOMM支持多线程,所以SPCOMM控件的应用更加广泛。结合实例详细介绍SPCOMM的使用。一.SPCOMM控件的安装

1.选择下拉菜单Component的第二项Install Component 。

在Unit file name 处填写控件SPCOMM控件所在路径,其它可用默认值,点击OK按纽。

2.安装成功后,system控件面板中将出现一个红色控件COMM。现在使用COMM控件可以象Delphi自带控件一样使用.。

二.SPCOMM的主要属性,方法和事件

1.属性CommName:填写COM1,COM2…等串口的名字,在打开串口前,必须填写好此值。

 BaudRate:设定波特率9600,4800等,根据实际需要来定,在串口打开后也可更改波特率,实际波特率随之更改。

ParityCheck:奇偶校验。

ByteSize:字节长度_5,_6,_7,_8等,根据实际情况设定。

Parity:奇偶校验位StopBits:停止位SendDataEmpty:这是一个布尔属性,为true时表示发送缓存为空,或者发送队列里没有信息;为False时表示表示发送缓存不为空,或者发送队列里有信息。

2.方法   Startcomm过程用于打开串口,当打开失败时通常会报错,错误主要有7种:

⑴串口已经打开 ;

⑵打开串口错误 ;

⑶文件句柄不是通讯句柄;

⑷不能够安装通讯缓存;

⑸不能产生事件 ;

⑹不能产生读进程;

⑺不能产生写进程;  

StopComm过程用于关闭串口,没有返回值。  

函数WriteCommData(pDataToWrite: PChar;dwSizeofDataToWrite:Word ): boolean 用于发送一个字符串到写线程,发送成功返回true,发送失败返回false, 执行此函数将立即得到返回值,发送操作随后执行。函数有两个参数,其中 pdatatowrite是要发送的字符串,dwsizeofdatatowrite 是发送的长度。

3.事件OnReceiveData : procedure (Sender: TObject;Buffer: Pointer;BufferLength: Word) of object   

当输入缓存有数据时将触发该事件,在这里可以对从串口收到的数据进行处理。Buffer中是收到的数据,bufferlength是收到的数据长度。

OnReceiveError : procedure(Sender: TObject; EventMask : DWORD)   

当接受数据时出现错误将触发该事件。

三.SPCOMM的使用  下面,我们结合一个串口通讯的例子来说明SPCOMM的使用。  

为了实现PC与单片机8051之间的通讯,首先要调通它们之间的握手信号,假定它们之间的通讯协议是,

PC到8051一帧数据6个字节,8051到PC一帧数据也为6个字节,当PC发出(F0,01,FF,FF,01,F0)后能收到这样一帧(F0,01,FF,FF,01,F0),表示数据通信握手成功,两者之间就可以按照协议相互传输数据。在PC方要发送及接受数据需要以下步骤:1.创建一个新的工程COMM.DPR,把窗体的NAME属性改为FCOMM,把窗体的标题改为测试通讯,添加控件。  对COMM1(黑色矩形围住的控件)进行属性设计,设波特率4800,校验位无,字节长度_8,停止位_1,串口选择COM1。Memo1中将显示发送和接受的数据。选择File/Save As将新的窗体存储为Comm.pas。

实例一:

{
  @功能:用Spcomm控制串口收发数据。
  @作者:小涛(beeone)
  @时间:2010-08-12
  @EMail :Beeone@163.com
}
  
unit Unit1;
  
interface
  
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SPComm;
  
type
  TForm1 = class(TForm)
    Com1: TComm;
    Edit1: TEdit;
    Button4: TButton;
    Memo1: TMemo;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Com1ReceiveData(Sender: TObject; Buffer: Pointer;
      BufferLength: Word);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  
var
  Form1: TForm1;
  
  
implementation
  
{$R *.dfm}
//打开串口
procedure TForm1.Button1Click(Sender: TObject);
begin

   Com1.StopComm;
   Com1.StartComm;
   Button1.Enabled :=False;
   Button2.Enabled :=True;
  
end;
//关闭串口
procedure TForm1.Button2Click(Sender: TObject);
begin
  Com1.StopComm;
  Button2.Enabled := False;
  Button1.Enabled := True;
  
end;
  
procedure TForm1.Button4Click(Sender: TObject);
begin
  com1.WriteCommData(PChar(Edit1.text),length(Edit1.Text));
  
end;
  
procedure TForm1.Com1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
  pStr : PChar;
  
begin
  pStr := Buffer;
  Memo1.Lines.Add(pStr);
  
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;
  
end.
 

 

实例二:     

//*********************************************************
//                 Kaersoft    卡尔软件
//         *************************************
//          Email:Sdwhxyr@YEAH.NET
//          QQ:54076683
//          Delphi 7.0   PASS
//          调测人:JPYC
//**********************************************************
//                      程序功能
//            演示SPCOMM收发数据的例子
//**********************************************************
//实现思路:打开窗体时自动打开串口1,关闭是自动关闭串口
//**********************************************************
//          2010-08-12   被 Beeone完善
//**********************************************************
unit Unit1;
  
interface
  
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SPComm;
  
type
  TForm1 = class(TForm)
    Comm1: TComm;
    Memo1: TMemo;
    Memo2: TMemo;
    Button3: TButton;
    Button4: TButton;
    Check1: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
      BufferLength: Word);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SendHex(S: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  
var
  Form1: TForm1;
  
implementation
  
{$R *.dfm}
  
procedure TForm1.Button4Click(Sender: TObject);
begin
  close;
end;
  
procedure TForm1.SendHex(S: String);
var
  s2:string;
  buf1:array[0..50000] of char;
  i:integer;
begin
  s2:='';
  for i:=1 to  length(s) do
  begin
    if ((copy(s,i,1)>='0') and (copy(s,i,1)<='9'))or((copy(s,i,1)>='a') and (copy(s,i,1)<='f'))
        or((copy(s,i,1)>='A') and (copy(s,i,1)<='F')) then
    begin
        s2:=s2+copy(s,i,1);
    end;
  end;
  for i:=0 to (length(s2) div 2-1) do
    buf1[i]:=char(strtoint('$'+copy(s2,i*2+1,2)));
  Comm1.WriteCommData(buf1,(length(s2) div 2));
end;
  
//发送数据
procedure TForm1.Button3Click(Sender: TObject);
var
  p:pchar;
  x:integer;
begin
  if Check1.Checked then
    SendHex(Memo1.Lines.Text)   //发送十六进制
  else begin
    x:=Length(Memo1.Lines.Text);    //发送字符
    p:=Pchar(Memo1.Lines.Text);
    Comm1.WriteCommData(p,x);       //spcomm发送数据的函数
  end;
end;
  
//接受数据
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
 tmpArray    : array[0..4096] of Byte;
 ArraySize,i : DWORD;
 Count       : DWORD;
 tmpStr      : string;
 pStr        : PChar;
begin
  //如果“十六进制/字符”被选中
  if Check1.Checked  then
  begin
   pStr := Buffer;
   tmpStr := string(pStr);
   Dec(PStr);
   for i:=0 to Length(tmpStr)-1 do
    begin
     inc(pStr);
     tmpArray[i] := Byte(pStr^);
     Memo2.Lines.Add(IntToHEX(Ord(tmpArray[i]),2));
    end;
   exit;
  end;
//------------------------------------------------------------------------------
  
  pStr := Buffer;
  memo2.Lines.Add(pStr);
end;
  
//打开串口
procedure TForm1.FormCreate(Sender: TObject);
begin

  Comm1.StopComm;
  Comm1.StartComm;
end;
  
//关闭串口
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Comm1.StopComm;
end;
  
end.

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: