Lazarus的設(shè)計(jì)目標(biāo)是應(yīng)用Free Pascal，所以所有凡是Free Pascal能運(yùn)行的平臺(tái)，Lazarus都可以運(yùn)行。版本能運(yùn)行于Linux，Win32和FreeBSD。整個(gè)界面的外觀和操作和Delphi IDE一樣，因此，如果你會(huì)使用Delphi的話，用起Lazarus IDE來(lái)就一定能得心應(yīng)手了。

    引集成開(kāi)發(fā)環(huán)境

    Lazarus是一個(gè)用于FreePascal的快速應(yīng)用開(kāi)發(fā)（RAD）的面向?qū)ο蟮腜ascal集成開(kāi)發(fā)環(huán)境（IDE）。Lazarus 對(duì)于窗口管理來(lái)說(shuō)是中性的。可以工作在KDE（1.13版本）下，也可以工作在GNOME（1.23版本）或其他窗口管理器（MVM、WindowMaker）。Lazarus的設(shè)計(jì)目標(biāo)是應(yīng)用Free Pascal，所以所有凡是Free Pascal能運(yùn)行的平臺(tái)，Lazarus也可以運(yùn)行。版本能運(yùn)行于Linux，Win9x/2000/xp/win7和FreeBSD。目前，已提供32位和64位版本支持。Lazarus的工作界面、外觀和操作和Borland 的Delphi IDE非常相似，所不同的是Lazarus 是完全的自由軟件。Lazarus 可以直接移植Delphi的代碼。Lazarus的編程語(yǔ)言是以Pascal為基礎(chǔ)的。Pascal語(yǔ)言具有可讀性好、編寫(xiě)容易的特點(diǎn)，這使得它很適合作為基礎(chǔ)的開(kāi)發(fā)語(yǔ)言。同時(shí)，使用編譯器創(chuàng)建的應(yīng)用程序只生成單個(gè)可執(zhí)行文件（。EXE，但生成的可執(zhí)行文件體積相對(duì)Delphi的來(lái)說(shuō)有點(diǎn)大，只包含一個(gè)空窗體的工程生成的可執(zhí)行文件就達(dá)到了10多M。這里，可以通過(guò)編譯選項(xiàng)來(lái)減小可執(zhí)行文件的大小，可以減為1M多點(diǎn)，然后通過(guò)UPX壓縮，可以減為600多K。）。正是這種結(jié)合，使得Pascal成為L(zhǎng)azarus這種先進(jìn)開(kāi)發(fā)環(huán)境的編程語(yǔ)言。

    Lazarus吸引人的地方就是她的開(kāi)發(fā)方式類(lèi)似Delphi，支持超好用的RAD開(kāi)發(fā)方式，并且厲害的地方是她還支持多個(gè)平臺(tái)，多個(gè)CPU，例如ARM9的WINCE。

    本文要講述的就是“如何使用LAZARUS開(kāi)發(fā)Wince上的串口程序”，并且，本文的串口程序同時(shí)支持WINCE和WINXP系統(tǒng)，當(dāng)然編譯時(shí)要選擇平臺(tái)啦。WINCE與WINXP在本文中的代碼區(qū)別只是OpenPort（‘COM1：’，CBR_9600，8，NOPARITY，ONESTOPBIT）；//wince用COM1：表示串口1;WINXP用COM1表示串口1.

    一、建立一個(gè)可重用的類(lèi)，文件名為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

    //===============================================================================================

    // 語(yǔ)法格式：OpenPort（Port:LPCWSTR;BaudRate，ByteSize，Parity，StopBits:integer）

    // 實(shí)現(xiàn)功能：打開(kāi)串口

    // 參數(shù)：port，串口號(hào)；例如wince下為從COM1：，COM2：……。win32下為COM1，COM2.…… ;其他略，顧名思義哈

    // 返回值：錯(cuò)誤信息

    //===============================================================================================

    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）； // 打開(kāi)COM

    if （hComm = INVALID_HANDLE_VALUE） then begin // 如果COM 未打開(kāi)

    result：=‘CreateFile Error！’；

    exit;

    end;

    GetCommState（hComm，cc.dcb）； // 得知目前COM 的狀態(tài)

    cc.dcb.BaudRate：=BaudRate; // 設(shè)置波特率為BaudRate

    cc.dcb.ByteSize：=ByteSize; // 字節(jié)為 ByteSize（8 bit）

    cc.dcb.Parity：=Parity; // Parity 為 None

    cc.dcb.StopBits：=StopBits; // 1 個(gè)Stop bit

    if not SetCommState（hComm， cc.dcb） then begin// 設(shè)置COM 的狀態(tài)

    result：=‘SetCommState Error！’；

    CloseHandle（hComm）；

    exit;

    end;

    end;

    //===============================================================================================

    // 語(yǔ)法格式：Send（str:String）

    // 實(shí)現(xiàn)功能：發(fā)送數(shù)據(jù)

    // 參數(shù)：str，數(shù)據(jù)

    // 返回值：無(wú)

    //===============================================================================================

    procedure TCE_Series.Send（str:String）；

    var

    lrc:LongWord;

    begin

    if （hComm=0） then exit; //檢查Handle值

    WriteFile（hComm，str，Length（str）， lrc， nil）； // 送出數(shù)據(jù)

    end;

    //=====================================================================

    //語(yǔ)法格式： Receive（）

    //實(shí)現(xiàn)功能： 接收串口數(shù)據(jù)

    //參數(shù)： 無(wú)

    //返回值： 收到的字符串

    //=====================================================================

    Function TCE_Series.Receive（）：String;

    var

    inbuff： array［02047］ of Char;

    nBytesRead， dwError:LongWORD ;

    cs:TCOMSTAT;

    begin

    ClearCommError（hComm，dwError，@CS）； //取得狀態(tài)

    // 數(shù)據(jù)是否大于我們所準(zhǔn)備的Buffer

    if cs.cbInQue 》 sizeof（inbuff） then begin

    PurgeComm（hComm， PURGE_RXCLEAR）； // 清除COM 數(shù)據(jù)

    exit;

    end;

    ReadFile（hComm， inbuff，cs.cbInQue，nBytesRead，nil）； // 接收COM 的數(shù)據(jù)

    //轉(zhuǎn)移數(shù)據(jù)到變量中

    result：=Copy（inbuff，1，cs.cbInQue）；//返回?cái)?shù)據(jù)

    end;

    //=====================================================================

    //語(yǔ)法格式： ClosePort（）

    //實(shí)現(xiàn)功能：關(guān)閉串口

    //參數(shù)： 無(wú)

    //返回值： 無(wú)

    //=====================================================================

    procedure TCE_Series.ClosePort（）；

    begin

    SetCommMask（hcomm，$0）；

    CloseHandle（hComm）；

    end;

    end.

    二、寫(xiě)調(diào)用程序演示如何使用這個(gè)類(lèi)，請(qǐng)自行加入控件，所用的控件不多：

    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定時(shí)接收數(shù)據(jù)

    var

    receive:string;

    begin

    receive：=myseries.Receive（）；

    if receive《》‘’ then

    begin

    edt_Receive.Lines.Add（receive）； // 將數(shù)據(jù)顯示于edt_Receive 上

    end;

    end;

    procedure TForm1.btn_ClosePortClick（Sender： TObject）；

    begin

    Timer1.Enabled：=false;

    myseries.ClosePort（）；

    close;

    end;

    initialization

    {$I unit1.lrs}

    end.