Lazarus实战开发之串口通信(WINCE/WIN32)资源-CSDN文库

148 浏览量 2020-10-25 03:35:53 上传评论收藏 52KB PDF 举报

资源推荐

资源详情

资源评论

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 未打开

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余4页未读，立即下载

内容反馈

weixin_38673548

粉丝: 3
资源: 948

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈

feedback-tip