Lazarus实战开发之串口通信实战开发之串口通信(WINCE/WIN32)
Lazarus最吸引人的地方就是她的开发方式类似Delphi，支持超好用的RAD开发方式，并且最厉害的地方是她还支
持多个平台，多个CPU，例如ARM9的WINCE。本文要讲述的就是“如何使用LAZARUS开发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;
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）
// 实现功能：打开串口
// 参数：port，串口号；例如wince下为从COM1：，COM2：。..。.
// 返回值：错误信息
//===============================================================================================
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 未打开
资源评论
