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;
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;
我改了后发传真可以了...