Lazarus實戰開發之串口通訊(WINCE/WIN32)

本文來自 http://blog.csdn.net/hellogv/ ，轉載必須註明出處！
以下代碼可到：http://download.csdn.net/source/611385 下載
    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：

1. unit CE_Series;
2. interface
3. uses
4.   Windows,Classes, SysUtils, LResources, StdCtrls,ExtCtrls;
5.   
7. type
8.   TCE_Series = class(TObject)
9.   
10.   private
11.     hComm: THandle;
12.   public
13.     Function OpenPort(Port:LPCWSTR;BaudRate,ByteSize,Parity,StopBits:integer):String;
14.     procedure Send(str:String);
15.     Function Receive():String;
16.     procedure ClosePort();
17.   end;
20. implementation
23. //===============================================================================================
24. // 文法格式：OpenPort(Port:LPCWSTR;BaudRate,ByteSize,Parity,StopBits:integer)
25. // 實現功能：開啟串口
26. // 參數：port,串口號；例如wince下為從COM1:,COM2:.....win32下為COM1,COM2....... ;其他略,顧名思義哈
27. // 傳回值：錯誤資訊
28. //===============================================================================================
29. function TCE_Series.OpenPort(Port:LPCWSTR;BaudRate,ByteSize,Parity,StopBits:integer):String;
30. var
31.   cc:TCOMMCONFIG;
32. begin
33.   result:='';
34.   hComm:=CreateFile(port, GENERIC_READ or GENERIC_WRITE,
35.        0, nil, OPEN_EXISTING, 0, 0); // 開啟COM
36.   if (hComm = INVALID_HANDLE_VALUE) then begin  // 如果COM 未開啟
37.     result:='CreateFile Error!';
38.     exit;
39.   end;
41.   GetCommState(hComm,cc.dcb); // 得知目前COM 的狀態
42.   cc.dcb.BaudRate:=BaudRate; // 設定傳輸速率為BaudRate
43.   cc.dcb.ByteSize:=ByteSize;  // 位元組為 ByteSize(8 bit)
44.   cc.dcb.Parity:=Parity; // Parity 為 None
45.   cc.dcb.StopBits:=StopBits; // 1 個Stop bit
46.   
47.   if not SetCommState(hComm, cc.dcb) then begin// 設定COM 的狀態
48.     result:='SetCommState Error!';
49.     CloseHandle(hComm);
50.     exit;
51.   end;
52. end;
54. //===============================================================================================
55. // 文法格式：Send(str:String)
56. // 實現功能：發送資料
57. // 參數：str,資料
58. // 傳回值：無
59. //===============================================================================================
60. procedure TCE_Series.Send(str:String);
61. var
62.   lrc:LongWord;
63. begin
64.   if (hComm=0) then exit; //檢查Handle值
65.   WriteFile(hComm,str,Length(str), lrc, nil); // 送出資料
66. end;
69. //=====================================================================
70. //文法格式： Receive()
71. //實現功能： 接收串口資料
72. //參數：     無
73. //傳回值：   收到的字串
74. //=====================================================================
75. Function TCE_Series.Receive():String;
76. var
77.   inbuff: array[0..2047] of Char;
78.   nBytesRead, dwError:LongWORD ;
79.   cs:TCOMSTAT;
80. begin
81.    ClearCommError(hComm,dwError,@CS);  //取得狀態
82.        // 資料是否大於我們所準備的Buffer
83.    if cs.cbInQue > sizeof(inbuff) then begin
84.      PurgeComm(hComm, PURGE_RXCLEAR);  // 清除COM 資料
85.      exit;
86.    end;
87.    ReadFile(hComm, inbuff,cs.cbInQue,nBytesRead,nil); // 接收COM 的資料
88.    //轉移資料到變數中
89.    result:=Copy(inbuff,1,cs.cbInQue);//返回資料
90. end;                             
93. //=====================================================================
94. //文法格式： ClosePort()
95. //實現功能：關閉串口
96. //參數：  無
97. //傳回值：  無
98. //=====================================================================
99. procedure TCE_Series.ClosePort();
100. begin
101.    SetCommMask(hcomm,$0);
102.    CloseHandle(hComm);
103. end;
106. end.

二、寫調用程式示範如何使用這個類，請自行加入控制項，所用的控制項不多：

1. unit Unit1; 
3. {$mode objfpc}{$H+}
5. interface
7. uses
8.   Windows,Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,ExtCtrls
9.   ,CE_Series;
11. type
13.   { TForm1 }
15.   TForm1 = class(TForm)
16.     btn_OpenPort: TButton;
17.     btn_ClosePort: TButton;
18.     btn_Send: TButton;
19.     edt_Receive: TMemo;
20.     GroupBox1: TGroupBox;
21.     edt_Send: TMemo;
22.     GroupBox2: TGroupBox;
23.     Timer1: TTimer;
24.     procedure btn_ClosePortClick(Sender: TObject);
25.     procedure btn_OpenPortClick(Sender: TObject);
26.     procedure btn_SendClick(Sender: TObject);
27.     procedure Timer1Timer(Sender: TObject);
28.   private
29.     { private declarations }
30.   public
31.     { public declarations }
32.   end; 
34. var
35.   Form1: TForm1; 
36.   myseries:TCE_Series;
37.   
38. implementation
40. { TForm1 }
42. procedure TForm1.btn_OpenPortClick(Sender: TObject);
43. begin
44.   myseries:=TCE_Series.Create;
45.   myseries.OpenPort('COM1:',CBR_9600,8,NOPARITY,ONESTOPBIT);
46.   Timer1.Enabled:=true;
47. end;
49. procedure TForm1.btn_SendClick(Sender: TObject);
50. begin
51.   myseries.Send(edt_Send.Text);
52. end;
54. procedure TForm1.Timer1Timer(Sender: TObject); //用Timer定時接收資料
55. var
56.   receive:string;
57. begin
58.    receive:=myseries.Receive();
59.    if receive<>'' then
60.    begin
61.       edt_Receive.Lines.Add(receive);   // 將資料顯示於edt_Receive 上
62.    end;
63. end;
65. procedure TForm1.btn_ClosePortClick(Sender: TObject);
66. begin
67.    Timer1.Enabled:=false;
68.    myseries.ClosePort();
69.    close;
70. end;
72. initialization
73.   {$I unit1.lrs}
75. end.