comunit.~pas

利用apo控件编写串口的一个源码程序

unit COMunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OoMisc,AdPort, StdCtrls, OoMisc;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ComPort: TApdComPort;
    procedure ComPortInit;
    procedure FormShow(Sender: TObject);
    procedure ComPortTriggerAvail(CP: TObject; Count: Word);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComPortInit;
begin
  try
    ComPort.Open:=false;
    sleep(50);
    ComPort.ComNumber:=2;
    ComPort.Baud:=4800;
    ComPort.StopBits:=1;
    ComPort.Databits:=8;
    ComPort.Open:=true;
  except
    showmessage('串口不存在或被占用。');
  end;
end;



procedure TForm1.FormShow(Sender: TObject);
begin
  ComPortInit;
end;

procedure TForm1.ComPortTriggerAvail(CP: TObject; Count: Word);
var
  I:word;
  C:char;
  S:String;
  testdate:Tdate;
begin
  S:='';
  for I:=1 to count do
  begin
    C:=ComPort.GetChar;
    S:=S+C;
  end;
  if S='password' then
    ComPort.PutChar(char($ee));
  S:='';
  ComPort.FlushInBuffer;
  REPEAT
  UNTIL ComPort.InBuffUsed=6;
  for I:=1 to 3 do
  begin
    C:=ComPort.GetChar;
    S:=S+C;
    C:=ComPort.GetChar;
    S:=S+C;
    if I<3 then
      S:=S+'-';
  end;
  Edit1.Text:=S;
  testdate:=strtodate(s);
  //ShowMessage('得到的时间是：'+S);


end;

end.