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

　　本文要講述的就是“如何使用LAZARUS開發(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è)可重用的類，文件名為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）

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

　　// 參數(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）; // 打開COM

　　if （hComm = INVALID_HANDLE_VALUE） then begin // 如果COM 未打開

　　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;

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

　　// 語法格式：Send（str:String）

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

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

　　// 返回值：無

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

　　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;

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

　　//語法格式： Receive（）

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

　　//參數(shù)： 無

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

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

　　Function TCE_Series.Receive（）：String;

　　var

　　inbuff： array［0..2047］ 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;

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

　　//語法格式： ClosePort（）

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

　　//參數(shù)： 無

　　//返回值： 無

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

　　procedure TCE_Series.ClosePort（）;

　　begin

　　SetCommMask（hcomm，$0）;

　　CloseHandle（hComm）;

　　end;

　　end.

　　二、寫調(diào)用程序演示如何使用這個(gè)類，請(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.