《電子技術應用》
您所在的位置:首頁 > 模擬設計 > 設計應用 > Lazarus實戰開發之串口通信(WINCE/WIN32)
Lazarus實戰開發之串口通信(WINCE/WIN32)
摘要: Lazarus最吸引人的地方就是她的開發方式類似Delphi,支持超好用的RAD開發方式,并且最厲害的地方是她還支持多個平臺,多個CPU,例如ARM9的WINCE。本文要講述的就是“如何使用LAZARUS開發Wince上的串口程序”...
Abstract:
Key words :

  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

  if (hComm = INVALID_HANDLE_VALUE) then begin // 如果COM 未打開

  result:=‘CreateFile Error!’;

  exit;

  end;

  GetCommState(hComm,cc.dcb); // 得知目前COM 的狀態

  cc.dcb.BaudRate:=BaudRate; // 設置波特率為BaudRate

  cc.dcb.ByteSize:=ByteSize; // 字節為 ByteSize(8 bit)

  cc.dcb.Parity:=Parity; // Parity 為 None

  cc.dcb.StopBits:=StopBits; // 1 個Stop bit

  if not SetCommState(hComm, cc.dcb) then begin// 設置COM 的狀態

  result:=‘SetCommState Error!’;

  CloseHandle(hComm);

  exit;

  end;

  end;

  //===============================================================================================

  // 語法格式:Send(str:String)

  // 實現功能:發送數據

  // 參數:str,數據

  // 返回值:無

  //===============================================================================================

  procedure TCE_Series.Send(str:String);

  var

  lrc:LongWord;

  begin

  if (hComm=0) then exit; //檢查Handle值

  WriteFile(hComm,str,Length(str), lrc, nil); // 送出數據

  end;

  //=====================================================================

  //語法格式: Receive()

  //實現功能: 接收串口數據

  //參數: 無

  //返回值: 收到的字符串

  //=====================================================================

  Function TCE_Series.Receive():String;

  var

  inbuff: array[0..2047] of Char;

  nBytesRead, dwError:LongWORD ;

  cs:TCOMSTAT;

  begin

  ClearCommError(hComm,dwError,@CS); //取得狀態

  // 數據是否大于我們所準備的Buffer

  if cs.cbInQue 》 sizeof(inbuff) then begin

  PurgeComm(hComm, PURGE_RXCLEAR); // 清除COM 數據

  exit;

  end;

  ReadFile(hComm, inbuff,cs.cbInQue,nBytesRead,nil); // 接收COM 的數據

  //轉移數據到變量中

  result:=Copy(inbuff,1,cs.cbInQue);//返回數據

  end;

  //=====================================================================

  //語法格式: ClosePort()

  //實現功能:關閉串口

  //參數: 無

  //返回值: 無

  //=====================================================================

  procedure TCE_Series.ClosePort();

  begin

  SetCommMask(hcomm,$0);

  CloseHandle(hComm);

  end;

  end.

  二、寫調用程序演示如何使用這個類,請自行加入控件,所用的控件不多:

  unit Unit1;

  {$mode objfpc}{$H+}

  interface

  uses

  Windows,Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,ExtCtrls

  ,CE_Series;

  type

  { TForm1 }

  TForm1 = class(TForm)

  btn_OpenPort: TButton;

  btn_ClosePort: TButton;

  btn_Send: TButton;

  edt_Receive: TMemo;

  GroupBox1: TGroupBox;

  edt_Send: TMemo;

  GroupBox2: TGroupBox;

  Timer1: TTimer;

  procedure btn_ClosePortClick(Sender: TObject);

  procedure btn_OpenPortClick(Sender: TObject);

  procedure btn_SendClick(Sender: TObject);

  procedure Timer1Timer(Sender: TObject);

  private

  { private declarations }

  public

  { public declarations }

  end;

  var

  Form1: TForm1;

  myseries:TCE_Series;

  implementation

  { TForm1 }

  procedure TForm1.btn_OpenPortClick(Sender: TObject);

  begin

  myseries:=TCE_Series.Create;

  myseries.OpenPort(‘COM1:’,CBR_9600,8,NOPARITY,ONESTOPBIT);

  Timer1.Enabled:=true;

  end;

  procedure TForm1.btn_SendClick(Sender: TObject);

  begin

  myseries.Send(edt_Send.Text);

  end;

  procedure TForm1.Timer1Timer(Sender: TObject); //用Timer定時接收數據

  var

  receive:string;

  begin

  receive:=myseries.Receive();

  if receive《》‘’ then

  begin

  edt_Receive.Lines.Add(receive); // 將數據顯示于edt_Receive 上

  end;

  end;

  procedure TForm1.btn_ClosePortClick(Sender: TObject);

  begin

  Timer1.Enabled:=false;

  myseries.ClosePort();

  close;

  end;

  initialization

  {$I unit1.lrs}

  end.

 

此內容為AET網站原創,未經授權禁止轉載。
主站蜘蛛池模板: www.激情小说.com| 亚洲国产成人综合| 一区二区免费电影| 熟女性饥渴一区二区三区| 国产调教视频在线观看| 亚洲V欧美V国产V在线观看| 精品久久久久久久久午夜福利| 在线观看不卡视频| 九九热视频精品在线| 翁房中春意浓王易婉艳| 在线视频一二三区2021不卡| 亚洲一级毛片免观看| 蜜桃臀av高潮无码| 天天操综合视频| 亚洲av无码专区在线厂| 男女免费观看在线爽爽爽视频| 国产精品入口麻豆免费观看| 久久久亚洲欧洲日产国码农村| 私人玩物无圣光| 国产精品吹潮香蕉在线观看| 一区二区三区91| 日本免费人成视频在线观看| 免费大片黄国产在线观看| 12至16末成年毛片| 无限资源日本免费2018| 人妻少妇精品视频一区二区三区| 日本片免费观看一区二区| 成人午夜电影在线| 久久青青草原精品影院| 精品国产一区二区三区av片| 国产精品综合一区二区三区| 久久99精品久久| 毛片免费观看网址| 午夜神器成在线人成在线人免费| 2021天天操| 日日噜噜噜夜夜爽爽狠狠视频| 亚洲五月丁香综合视频| 美国亚洲成年毛片| 国产精品手机视频一区二区 | 成人h在线播放| 亚洲最大中文字幕|