Lazarus实战开发之串口通信(WINCE-WIN32)

Lazarus实战开发之串口通信(WINCE/WIN32)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;interfaceusesWindows，Classes， SysUtils， LResources， StdCtrls，ExtCtrls;typeTCE_Series = class（TObject）privatehComm： THandle;publicFunction 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;varcc:TCOMMCONFIG;beginresult：=‘’;hComm：=CreateFile（port， GENERIC_READ or GENERIC_WRITE，0， nil， OPEN_EXISTING， 0， 0）; // 打开COMif （hComm = INVALID_HANDLE_VALUE） then begin // 如果COM 未打开result：=‘CreateFile Error！’;exit;end;GetCommState（hComm，cc.dcb）; // 得知目前COM 的状态cc.dcb.BaudRate：=BaudRate; // 设置波特率为BaudRatecc.dcb.ByteSize：=ByteSize; // 字节为 ByteSize（8 bit）cc.dcb.Parity：=Parity; // Parity 为 Nonecc.dcb.StopBits：=StopBits; // 1 个Stop bitif 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）;varlrc:LongWord;beginif （hComm=0） then exit; //检查Handle值WriteFile（hComm，str，Length（str）， lrc， nil）; // 送出数据end;//=====================================================================//语法格式： Receive（）//实现功能：接收串口数据//参数：无//返回值：收到的字符串//=====================================================================Function TCE_Series.Receive（）：String;varinbuff： array［0..2047］ of Char;nBytesRead， dwError:LongWORD ;cs:TCOMSTAT;beginClearCommError（hComm，dwError，@CS）; //取得状态// 数据是否大于我们所准备的Bufferif cs.cbInQue 》 sizeof（inbuff） then beginPurgeComm（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（）;beginSetCommMask（hcomm，$0）;CloseHandle（hComm）;end;end.二、写调用程序演示如何使用这个类，请自行加入控件，所用的控件不多：unit Unit1;{$mode objfpc}{$H+}interfaceusesWindows，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;varForm1： TForm1;myseries:TCE_Series;implementation{ TForm1 }procedure TForm1.btn_OpenPortClick（Sender： TObject）;beginmyseries：=TCE_Series.Create;myseries.OpenPort（‘COM1：’，CBR_9600，8，NOPARITY，ONESTOPBIT）; Timer1.Enabled：=true;end;procedure TForm1.btn_SendClick（Sender： TObject）;beginmyseries.Send（edt_Send.Text）;end;procedure TForm1.Timer1Timer（Sender： TObject）; //用Timer定时接收数据varreceive:string;beginreceive：=myseries.Receive（）;if receive《》‘’ thenbeginedt_Receive.Lines.Add（receive）; // 将数据显示于edt_Receive 上end;end;procedure TForm1.btn_ClosePortClick（Sender： TObject）;beginTimer1.Enabled：=false;myseries.ClosePort（）;close;end;initialization{$I unit1.lrs}end.。