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：

2. unit CE_Series;
3. interface
4. uses
5. 　　 Windows,Classes, SysUtils, LResources, StdCtrls,ExtCtrls;
6. 　　
8. type
9. 　　 TCE_Series = class(TObject)
10. 　　
11. 　　 private
12. 　　　　 hComm: THandle;
13. 　　 public
14. 　　　　 Function OpenPort(Port:LPCWSTR;BaudRate,ByteSize,Parity,StopBits:integer):String;
15. 　　　　 procedure Send(str:String);
16. 　　　　 Function Receive():String;
17. 　　　　 procedure ClosePort();
18. 　　 end;
21. implementation
24. //===============================================================================================
25. // 语法格式：OpenPort(Port:LPCWSTR;BaudRate,ByteSize,Parity,StopBits:integer)
26. // 实现功能：打开串口
27. // 参数：port,串口号；例如wince下为从COM1:,COM2:.....win32下为COM1,COM2....... ;其他略,顾名思义哈
28. // 返回值：错误信息
29. //===============================================================================================
30. function TCE_Series.OpenPort(Port:LPCWSTR;BaudRate,ByteSize,Parity,StopBits:integer):String;
31. var
32. 　　 cc:TCOMMCONFIG;
33. begin
34. 　　 result:='';
35. 　　 hComm:=CreateFile(port, GENERIC_READ or GENERIC_WRITE,
36. 　　　　　　　 0, nil, OPEN_EXISTING, 0, 0); // 打开COM
37. 　　 if (hComm = INVALID_HANDLE_VALUE) then begin　 // 如果COM 未打开
38. 　　　　 result:='CreateFile Error!';
39. 　　　　 exit;
40. 　　 end;
42. 　　 GetCommState(hComm,cc.dcb); // 得知目前COM 的状态
43. 　　 cc.dcb.BaudRate:=BaudRate; // 设置波特率为BaudRate
44. 　　 cc.dcb.ByteSize:=ByteSize;　 // 字节为 ByteSize(8 bit)
45. 　　 cc.dcb.Parity:=Parity; // Parity 为 None
46. 　　 cc.dcb.StopBits:=StopBits; // 1 个Stop bit
47. 　　
48. 　　 if not SetCommState(hComm, cc.dcb) then begin// 设置COM 的状态
49. 　　　　 result:='SetCommState Error!';
50. 　　　　 CloseHandle(hComm);
51. 　　　　 exit;
52. 　　 end;
53. end;
55. //===============================================================================================
56. // 语法格式：Send(str:String)
57. // 实现功能：发送数据
58. // 参数：str,数据
59. // 返回值：无
60. //===============================================================================================
61. procedure TCE_Series.Send(str:String);
62. var
63. 　　 lrc:LongWord;
64. begin
65. 　　 if (hComm=0) then exit; //检查Handle值
66. 　　 WriteFile(hComm,str,Length(str), lrc, nil); // 送出数据
67. end;
70. //=====================================================================
71. //语法格式： Receive()
72. //实现功能： 接收串口数据
73. //参数：　　　　 无
74. //返回值：　　 收到的字符串
75. //=====================================================================
76. Function TCE_Series.Receive():String;
77. var
78. 　　 inbuff: array[0..2047] of Char;
79. 　　 nBytesRead, dwError:LongWORD ;
80. 　　 cs:TCOMSTAT;
81. begin
82. 　　　 ClearCommError(hComm,dwError,@CS);　 //取得状态
83. 　　　　　　　 // 数据是否大于我们所准备的Buffer
84. 　　　 if cs.cbInQue > sizeof(inbuff) then begin
85. 　　　　　 PurgeComm(hComm, PURGE_RXCLEAR);　 // 清除COM 数据
86. 　　　　　 exit;
87. 　　　 end;
88. 　　　 ReadFile(hComm, inbuff,cs.cbInQue,nBytesRead,nil); // 接收COM 的数据
89. 　　　 //转移数据到变量中
90. 　　　 result:=Copy(inbuff,1,cs.cbInQue);//返回数据
91. end;　　　　　　　　　　　　　　　　　　　　　　　　　　　　
94. //=====================================================================
95. //语法格式： ClosePort()
96. //实现功能：关闭串口
97. //参数：　 无
98. //返回值：　 无
99. //=====================================================================
100. procedure TCE_Series.ClosePort();
101. begin
102. 　　　 SetCommMask(hcomm,$0);
103. 　　　 CloseHandle(hComm);
104. end;
107. end.

复制代码

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

2. unit Unit1;
4. {$mode objfpc}{$H+}
6. interface
8. uses
9. 　　 Windows,Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,ExtCtrls
10. 　　 ,CE_Series;
12. type
14. 　　 { TForm1 }
16. 　　 TForm1 = class(TForm)
17. 　　　　 btn_OpenPort: TButton;
18. 　　　　 btn_ClosePort: TButton;
19. 　　　　 btn_Send: TButton;
20. 　　　　 edt_Receive: TMemo;
21. 　　　　 GroupBox1: TGroupBox;
22. 　　　　 edt_Send: TMemo;
23. 　　　　 GroupBox2: TGroupBox;
24. 　　　　 Timer1: TTimer;
25. 　　　　 procedure btn_ClosePortClick(Sender: TObject);
26. 　　　　 procedure btn_OpenPortClick(Sender: TObject);
27. 　　　　 procedure btn_SendClick(Sender: TObject);
28. 　　　　 procedure Timer1Timer(Sender: TObject);
29. 　　 private
30. 　　　　 { private declarations }
31. 　　 public
32. 　　　　 { public declarations }
33. 　　 end;
35. var
36. 　　 Form1: TForm1;
37. 　　 myseries:TCE_Series;
38. 　　
39. implementation
41. { TForm1 }
43. procedure TForm1.btn_OpenPortClick(Sender: TObject);
44. begin
45. 　　 myseries:=TCE_Series.Create;
46. 　　 myseries.OpenPort('COM1:',CBR_9600,8,NOPARITY,ONESTOPBIT);
47. 　　 Timer1.Enabled:=true;
48. end;
50. procedure TForm1.btn_SendClick(Sender: TObject);
51. begin
52. 　　 myseries.Send(edt_Send.Text);
53. end;
55. procedure TForm1.Timer1Timer(Sender: TObject); //用Timer定时接收数据
56. var
57. 　　 receive:string;
58. begin
59. 　　　 receive:=myseries.Receive();
60. 　　　 if receive<>'' then
61. 　　　 begin
62. 　　　　　　 edt_Receive.Lines.Add(receive);　　 // 将数据显示于edt_Receive 上
63. 　　　 end;
64. end;
66. procedure TForm1.btn_ClosePortClick(Sender: TObject);
67. begin
68. 　　　 Timer1.Enabled:=false;
69. 　　　 myseries.ClosePort();
70. 　　　 close;
71. end;
73. initialization
74. 　　 {$I unit1.lrs}
76. end.

复制代码

xusonglie

楼主辛苦！如果能把源码打包下载就更好了