Lazarus实战开发之串口通信(WINCE-WIN32)

Lazarus实战开发之串口通信(WINCE-WIN32).doc

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:

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:。..。.win32下为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

Word文档免费下载Word文档免费下载:Lazarus实战开发之串口通信(WINCE-WIN32) (共4页,当前第1页)

Lazarus实战开发之串口通信(WINCE WIN32)相关文档

最新文档

返回顶部