怎样用spcomm读数据？？

Question

在OnReceiveData事件中其Buffer为数据内容，BufferLength为接收长度

Answer 1

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
        i:integer;
        viewstring:string;
begin
move(buffer^,pchar(@rbuf)^,bufferlength);//把接收到的数据存到rbuf
//rbuf :array[1..70] of byte 
for i:=1 to bufferlength do
viewstring:=viewstring+inttohex(rbuf[i],2)+'';
viewstring:='接收'+viewstring;
memo1.lines.add(viewstring);
memo1.lines.add('');
end;