unit comm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  SPComm, StdCtrls, ExtCtrls;

type
  TFcomm = class(TForm)
    Comm1: TComm;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    Memo2: TMemo;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Btn_send: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Btn_sendClick(Sender: TObject);
    procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
      BufferLength: Word);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var

FCOMM: TFCOMM;

Viewstring:string;

i:integer;

rbuf,sbuf:array[1..10] of byte;

implementation

{$R *.DFM}

//發(fā)送過(guò)程
procedure senddata;
var
  i:integer;
  commflg:boolean;
begin
  viewstring :='';
  commflg:=true;
  for i:=1 to 10 do
  begin
    if not fcomm.comm1.writecommdata(@sbuf[i],1) then
    begin
      commflg:=false;
      break;
    end;
    sleep(2); {發(fā)送時(shí)字節(jié)間的延時(shí)}
    viewstring:=viewstring+inttohex(sbuf[i],2)+' ';
  end;
  viewstring:='發(fā)送'+viewstring;
  fcomm.memo2.lines.add(viewstring);
  fcomm.memo2.lines.add('');
  if not commflg then messagedlg('發(fā)送失敗!',mterror,[mbyes],0);

end;

///////////////////////////////////////////////////
procedure TFcomm.Button1Click(Sender: TObject);
begin
  comm1.StartComm;
end;

procedure TFcomm.Button2Click(Sender: TObject);
begin
  comm1.StopComm;
end;
///////////////////////////////////////////////////

procedure TFcomm.Btn_sendClick(Sender: TObject);
begin


 sbuf[1]:=byte($01); {幀頭}

  sbuf[2]:=byte($0F); {命令號(hào)}

  sbuf[3]:=byte($00);
                              //01 0F 00 00 00 02 01 01 1F 57
  sbuf[4]:=byte($00);

  sbuf[5]:=byte($00);

  sbuf[6]:=byte($02);

  sbuf[7]:=byte($01);

  sbuf[8]:=byte($01);

  sbuf[9]:=byte($1F);

  sbuf[10]:=byte($57); {幀尾}

 senddata;{調(diào)用發(fā)送函數(shù)}

 // sbuf[1]:=byte($f0); {幀頭}

//  sbuf[2]:=byte($01); {命令號(hào)}

//  sbuf[3]:=byte($ff);

//  sbuf[4]:=byte($ff);

//  sbuf[5]:=byte($01);

//  sbuf[6]:=byte($0f); {幀尾}

 // senddata;{調(diào)用發(fā)送函數(shù)}
end;

//接收過(guò)程
procedure TFcomm.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
  i:integer;
begin
  viewstring:='';

  move(buffer^,pchar(@rbuf)^,bufferlength);

  for i:=1 to bufferlength do

    viewstring:=viewstring+inttohex(rbuf[i],2)+' ';

  viewstring:='接收'+viewstring;

  memo1.lines.add(viewstring);

  memo1.lines.add('');

end;

end.