串口编程简单DEMO

变量说明     
    
    
  var     
  fcomm:   TFCOMM;     
  viewstring:string;     
  rbuf,sbuf:array[1..8]   of   byte;     
    
  //打开串口     
    
  procedure   TFCOMM.FormShow(Sender:   TObject);     
  begin     
  comm1.StartComm;     
  end;     
  //关闭串口     
  procedure   TFCOMM.FormClose(Sender:   TObject;   var   Action:   TCloseAction);     
  begin     
  comm1.StopComm;     
  end;     
    
  //接收过程     
  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;