unit1.pas

Lazarus编写的WINCE上读写串口的程序例子

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.