《電子技術應用》
您所在的位置:首頁 > 模擬設計 > 設計應用 > 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網站原創,未經授權禁止轉載。
主站蜘蛛池模板: 国产真**女人特级毛片| 探花视频在线看视频| 免费国内精品久久久久影院| 久久香蕉国产线看精品| 天海翼一区二区三区四区| 久久国产精品-国产精品| 欧美精品18videosex性欧美| 啊灬啊灬啊灬快灬深一| 麻豆麻豆必出精品入口| 大乳女人做受视频免费观看| 中文字幕视频网站| 最近2019中文字幕大全第二页| 亚洲网站在线看| 美女被暴羞羞免费视频| 国产福利第一页| 99久久精品免费看国产免费| 成人影院久久久久久影院| 久久精品亚洲一区二区三区浴池| 欧美激情另欧美做真爱| 免费的a级毛片| 色久悠悠色久在线观看| 国产成人女人视频在线观看| 69堂国产成人精品视频不卡| 性导航app精品视频| 久久久久女人精品毛片九一| 欧美军同性videosbest| 亚洲高清日韩精品第一区| 经典欧美gifxxoo动态图暗网| 国产口爆吞精在线视频| 手机在线观看精品国产片| 在线观看亚洲av每日更新| 一区二区三区高清视频在线观看 | 一本色道久久88亚洲综合| 日本国产在线视频| 亚洲av永久精品爱情岛论坛| 欧美黑人性暴力猛交喷水| 免费观看一级成人毛片| 老汉色av影院| 国产内射999视频一区| 久久综合久综合久久鬼色| 国产精品无码久久久久|