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. unitCE_Series;
2. interface
3. uses
4. Windows,Classes,SysUtils,LResources,StdCtrls,ExtCtrls;
7. type
8. TCE_Series=class(TObject)
10. private
11. hComm:THandle;
12. public
13. FunctionOpenPort(Port:LPCWSTR;BaudRate,ByteSize,Parity,StopBits:integer):String;
14. procedureSend(str:String);
15. FunctionReceive():String;
16. procedureClosePort();
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. functionTCE_Series.OpenPort(Port:LPCWSTR;BaudRate,ByteSize,Parity,StopBits:integer):String;
30. var
31. cc:TCOMMCONFIG;
32. begin
33. result:='';
34. hComm:=CreateFile(port,GENERIC_READorGENERIC_WRITE,
35. 0,nil,OPEN_EXISTING,0,0);//打开COM
36. if(hComm=INVALID_HANDLE_VALUE)thenbegin//如果COM未打开
37. result:='CreateFileError!';
38. exit;
39. end;
41. GetCommState(hComm,cc.dcb);//得知目前COM的状态
42. cc.dcb.BaudRate:=BaudRate;//设置波特率为BaudRate
43. cc.dcb.ByteSize:=ByteSize;//字节为ByteSize(8bit)
44. cc.dcb.Parity:=Parity;//Parity为None
45. cc.dcb.StopBits:=StopBits;//1个Stopbit
47. ifnotSetCommState(hComm,cc.dcb)thenbegin//设置COM的状态
48. result:='SetCommStateError!';
49. CloseHandle(hComm);
50. exit;
51. end;
52. end;
54. //===============================================================================================
55. //语法格式：Send(str:String)
56. //实现功能：发送数据
57. //参数：str,数据
58. //返回值：无
59. //===============================================================================================
60. procedureTCE_Series.Send(str:String);
61. var
62. lrc:LongWord;
63. begin
64. if(hComm=0)thenexit;//检查Handle值
65. WriteFile(hComm,str,Length(str),lrc,nil);//送出数据
66. end;
69. //=====================================================================
70. //语法格式：Receive()
71. //实现功能：接收串口数据
72. //参数：无
73. //返回值：收到的字符串
74. //=====================================================================
75. FunctionTCE_Series.Receive():String;
76. var
77. inbuff:array[0..2047]ofChar;
78. nBytesRead,dwError:LongWORD;
79. cs:TCOMSTAT;
80. begin
81. ClearCommError(hComm,dwError,@CS);//取得状态
82. //数据是否大于我们所准备的Buffer
83. ifcs.cbInQue>sizeof(inbuff)thenbegin
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. procedureTCE_Series.ClosePort();
100. begin
101. SetCommMask(hcomm,$0);
102. CloseHandle(hComm);
103. end;
106. end.

二、写调用程序演示如何使用这个类，请自行加入控件，所用的控件不多：

1. unitUnit1;
3. {$modeobjfpc}{$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. procedurebtn_ClosePortClick(Sender:TObject);
25. procedurebtn_OpenPortClick(Sender:TObject);
26. procedurebtn_SendClick(Sender:TObject);
27. procedureTimer1Timer(Sender:TObject);
28. private
29. {privatedeclarations}
30. public
31. {publicdeclarations}
32. end;
34. var
35. Form1:TForm1;
36. myseries:TCE_Series;
38. implementation
40. {TForm1}
42. procedureTForm1.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. procedureTForm1.btn_SendClick(Sender:TObject);
50. begin
51. myseries.Send(edt_Send.Text);
52. end;
54. procedureTForm1.Timer1Timer(Sender:TObject);//用Timer定时接收数据
55. var
56. receive:string;
57. begin
58. receive:=myseries.Receive();
59. ifreceive<>''then
60. begin
61. edt_Receive.Lines.Add(receive);//将数据显示于edt_Receive上
62. end;
63. end;
65. procedureTForm1.btn_ClosePortClick(Sender:TObject);
66. begin
67. Timer1.Enabled:=false;
68. myseries.ClosePort();
69. close;
70. end;
72. initialization
73. {$Iunit1.lrs}
75. end.