Lazarus开发串口通信

Lazarus开发串口通信
文章出处：sujic2006 发布时间： 2011/08/26 | 1206 次阅读 | 1次推荐 | 0条留言
每天新产品 时刻新体验 相信品牌的力量 专业PCB打样工厂，24小时加急出货     Lazarus的设计目标是应用Free Pascal，所以所有凡是Free Pascal能运行的平台，Lazarus都可以运行。最新版本能运行于Linux，Win32和FreeBSD。整个界面的外观和操作和Delphi IDE一样，因此，如果你会使用Delphi的话，用起Lazarus IDE来就一定能得心应手了。
    引集成开发环境
    Lazarus是一个用于FreePascal的快速应用开发（RAD）的面向对象的Pascal集成开发环境（IDE）。Lazarus 对于窗口管理来说是中性的。可以工作在KDE（1.13版本）下，也可以工作在GNOME（1.23版本）或其他窗口管理器（MVM、WindowMaker）。Lazarus的设计目标是应用Free Pascal，所以所有凡是Free Pascal能运行的平台，Lazarus也可以运行。最新版本能运行于Linux，Win9x/2000/xp/win7和FreeBSD。目前，已提供32位和64位版本支持。Lazarus的工作界面、外观和操作和Borland 的Delphi IDE非常相似，所不同的是Lazarus 是完全的自由软件。Lazarus 可以直接移植Delphi的代码。Lazarus的编程语言是以Pascal为基础的。Pascal语言具有可读性好、编写容易的特点，这使得它很适合作为基础的开发语言。同时，使用编译器创建的应用程序只生成单个可执行文件（。EXE，但生成的可执行文件体积相对Delphi的来说有点大，只包含一个空窗体的工程生成的可执行文件就达到了10多M。这里，可以通过编译选项来减小可执行文件的大小，可以减为1M多点，然后通过UPX压缩，可以减为600多K。）。正是这种结合，使得Pascal成为Lazarus这种先进开发环境的编程语言。
    Lazarus最吸引人的地方就是她的开发方式类似Delphi，支持超好用的RAD开发方式，并且最厉害的地方是她还支持多个平台，多个CPU，例如ARM9的WINCE。
    本文要讲述的就是“如何使用LAZARUS开发Wince上的串口程序”，并且，本文的串口程序同时支持WINCE和WINXP系统，当然编译时要选择平台啦。WINCE与WINXP在本文中的代码区别只是OpenPort（‘COM1：’，CBR_9600，8，NOPARITY，ONESTOPBIT）；//wince用COM1：表示串口1;WINXP用COM1表示串口1.
    一、建立一个可重用的类，文件名为CE_Series.pas：
    unit CE_Series;
    interface
    uses
    Windows，Classes， SysUtils， LResources， StdCtrls，ExtCtrls;
    type
    TCE_Series = class（TObject）
    private
    hComm： THandle;
    public
    Function OpenPort（Port:LPCWSTR;BaudRate，ByteSize，Parity，StopBits:integer）：String;
    procedure Send（str:String）；
    Function Receive（）：String;
    procedure ClosePort（）；
    end;
    implementation
    //===============================================================================================
    // 语法格式：OpenPort（Port:LPCWSTR;BaudRate，ByteSize，Parity，StopBits:integer）
    // 实现功能：打开串口
    // 参数：port，串口号；例如wince下为从COM1：，COM2：……。win32下为COM1，COM2.…… ;其他略，顾名思义哈
    // 返回值：错误信息
    //===============================================================================================
    function TCE_Series.OpenPort（Port:LPCWSTR;BaudRate，ByteSize，Parity，StopBits:integer）：String;
    var
    cc:TCOMMCONFIG;
    begin
    result：=‘’；
    hComm：=CreateFile（port， GENERIC_READ or GENERIC_WRITE，0， nil， OPEN_EXISTING， 0， 0）； // 打开COM
    if （hComm = INVALID_HANDLE_VALUE） then begin // 如果COM 未打开
    result：=‘CreateFile Error！’；
    exit;
    end;
    GetCommState（hComm，cc.dcb）； // 得知目前COM 的状态
    cc.dcb.ByteSize：=ByteSize; // 字节为 ByteSize（8 bit）
    cc.dcb.Parity：=Parity; // Parity 为 None
    cc.dcb.StopBits：=StopBits; // 1 个Stop bit
    if not SetCommState（hComm， cc.dcb） then begin// 设置COM 的状态
    result：=‘SetCommState Error！’；
    CloseHandle（hComm）；
    exit;
    end;
    end;


    //===============================================================================================
    // 语法格式：Send（str:String）
    // 实现功能：发送数据
    // 参数：str，数据
    // 返回值：无
    //===============================================================================================


    procedure TCE_Series.Send（str:String）；
    var
    lrc:LongWord;
    begin
    if （hComm=0） then exit; //检查Handle值
    WriteFile（hComm，str，Length（str）， lrc， nil）； // 送出数据
    end;
    //=====================================================================
    //语法格式： Receive（）
    //实现功能： 接收串口数据
    //参数： 无
    //返回值： 收到的字符串
    //=====================================================================
    Function TCE_Series.Receive（）：String;
    var
    inbuff： array［02047］ of Char;
    nBytesRead， dwError:LongWORD ;
    cs:TCOMSTAT;
    begin
    ClearCommError（hComm，dwError，@CS）； //取得状态
    // 数据是否大于我们所准备的Buffer
    if cs.cbInQue 》 sizeof（inbuff） then begin
    PurgeComm（hComm， PURGE_RXCLEAR）； // 清除COM 数据
    exit;
    end;
    ReadFile（hComm， inbuff，cs.cbInQue，nBytesRead，nil）； // 接收COM 的数据
    //转移数据到变量中
    result：=Copy（inbuff，1，cs.cbInQue）；//返回数据
    end;
    //=====================================================================
    //语法格式： ClosePort（）
    //实现功能：关闭串口
    //参数： 无
    //返回值： 无
    //=====================================================================
    procedure TCE_Series.ClosePort（）；
    begin
    SetCommMask（hcomm，$0）；
    CloseHandle（hComm）；
    end;
    end.
    二、写调用程序演示如何使用这个类，请自行加入控件，所用的控件不多：
    unit Unit1;
    {$mode objfpc}{$H+}
    interface
    uses
    Windows，Classes， SysUtils， LResources， Forms， Controls， Graphics， Dialogs， StdCtrls，ExtCtrls ，CE_Series;
    type
    { TForm1 }
    TForm1 = class（TForm）
    btn_OpenPort： TButton;
    btn_ClosePort： TButton;
    btn_Send： TButton;
    edt_Receive： TMemo;
    GroupBox1： TGroupBox;
    edt_Send： TMemo;
    GroupBox2： TGroupBox;
    Timer1： TTimer;
    procedure btn_ClosePortClick（Sender： TObject）；
    procedure btn_OpenPortClick（Sender： TObject）；
    procedure btn_SendClick（Sender： TObject）；
    procedure Timer1Timer（Sender： TObject）；
    private
    { private declarations }
    public
{ public declarations }
    end;
    var
    Form1： TForm1;
    myseries:TCE_Series;
    implementation
    { TForm1 }
    procedure TForm1.btn_OpenPortClick（Sender： TObject）；
    begin
    myseries：=TCE_Series.Create;
    myseries.OpenPort（‘COM1：’，CBR_9600，8，NOPARITY，ONESTOPBIT）；
    Timer1.Enabled：=true;
    end;
    procedure TForm1.btn_SendClick（Sender： TObject）；
    begin
    myseries.Send（edt_Send.Text）；
    end;
    procedure TForm1.Timer1Timer（Sender： TObject）； //用Timer定时接收数据
    var
    receive:string;
    begin
    receive：=myseries.Receive（）；
    if receive《》‘’ then
    begin
    edt_Receive.Lines.Add（receive）； // 将数据显示于edt_Receive 上
    end;
    end;
    procedure TForm1.btn_ClosePortClick（Sender： TObject）；
    begin
    Timer1.Enabled：=false;
    myseries.ClosePort（）；
    close;
    end;
    initialization
    {$I unit1.lrs}
    end.