unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, TComm1;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    txtInput: TEdit;
    mReceive: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Comm1: TComm;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Procedure TimeDelay(DT:DWORD);//延遲函數(shù)
implementation

{$R *.DFM}


procedure TForm1.BitBtn1Click(Sender: TObject);
var
  //傳送及接收要用的數(shù)組聲明
  ByteSend:array[0..0] of Byte;
  ByteReceive:array[0..0] of Byte;
  Count:DWORD;
  PT:PByte;  //字節(jié)指針
begin
  //指定欲傳送的字節(jié)
  ByteSend[0]:=StrToInt(txtInput.Text);
  Comm1.OutputByte(ByteSend);//傳送出去
  TimeDelay(100); //延遲100毫秒
  //接收字節(jié)數(shù)據(jù)，包括數(shù)目及地址
  Count:=Comm1.ReadInputByte(PT);
  //接收的數(shù)據(jù)指定給接收數(shù)組
  ByteReceive[0]:=PT^;
  //結(jié)果顯示在Memo組件中(Append方式)
  mReceive.Text:=mReceive.Text + IntToStr(ByteReceive[0]) + Chr(13) + Chr(10);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //打開(kāi)通信端口
  Comm1.PortOpen:=True;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  //結(jié)束程序
  Close;
end;

//以下是延遲函數(shù)，單位毫秒
Procedure TimeDelay(DT:DWORD);
var
 TT:DWORD;
begin
  //取得現(xiàn)在的Tick值
  TT:=GetTickCount();
  //計(jì)算Tick差值是否超過(guò)設(shè)置值
  while GetTickCount()-TT<DT do
   Application.ProcessMessages; //釋放控制權(quán)
end;

end.