procedure TFrmSwitchCheck.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word);
var
i:Integer;
recvstr,Codestr:String; //串口接收到的字符串
recvbuf:array[1..65536] of Char; //Com信息缓存
begin
recvstr:='';
move(buffer^,pchar(@recvbuf)^,bufferlength);
for i:=1 to bufferlength do
Case recvbuf[i] of
#10,#13,#32..#127:recvstr:=recvstr+recvbuf[i];
end;
recvstr:=Trim(recvstr);
end;