Delphi SPComm 自发自收出现乱码，求助。。。

Question

我这里设置了一个memo，一个edit，edit输入的可以认作是ASCII也可以认作是16进制，接收到的数据可以直接在memo里以ASCII显示，可以认为是16进制数，转换成相应的字符，再在memo里显示。但是，目前仅就ASCII发ASCII收，就碰到了很大的问题，[是直接把RXD和TXD连起来的。
收发如下：SPComm的各项设置如下：收发procedure如下：
串口接收到数据的处理进程procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
    rbuf:array[1..256] of char;
    rcvstring:string;
    i,j:integer;
begin
    SetLength(rcvstring,BufferLength);
    move (buffer^,rbuf,Bufferlength);
    if memochar.Checked then
    for i:=1 to BufferLength do
            begin
            rcvstring[i]:=rbuf[i];
            end;
    if memo16.Checked then
      begin
        rcvstring:='';
        for j:=1 to BufferLength do
            begin
            rcvstring:=rcvstring+inttohex(integer(rbuf[j]),2);
            end;
      end;
   memo.Lines.Add('Receive: '+rcvstring);
end;
串口发数据的procedure
procedure TForm1.sendClick(Sender: TObject);
var
    sbuf:array[1..128] of integer;
    command,sendtext:string;
    flag:boolean;
    i,j:integer;
begin
if  portopen then
begin
    command:='';
    command:=edit.Text;
    if edit16.Checked then
        begin
        for i:=1 to Length(edit.Text) div 2 do
            begin
            try
            sbuf[i]:= StrToInt('$'+command[2*i-1]+command[2*i]);
            except
            on Exception : EConvertError do
                begin
                ShowMessage(Exception.Message);
                exit;
                end;
            end;
            end;
        command:='';
        for j:=1 to Length(edit.Text) div 2 do
            command:=command+Char(sbuf[j] mod 256);
        end;    sendtext:=command;
    if autoreturn.Checked then
        sendtext:=sendtext+#13#10;    flag:=Comm1.WriteCommData(@sendtext,Length(sendtext));
    if flag=false then
        begin
        showmessage('Êý¾Ý·¢ËÍʧ°Ü');
        exit;
        end;
    memo.Lines.Add('Send: '+command);
end
else
showmessage('Çë´ò¿ª´®¿Ú');
end;
问题出在哪里，为什么会乱码。

Answer 1

乱码的图贴不出来，形容一下吧，
就是比如我发送helloworld，然后就会收到乱七八糟，我都不认识的中文字符
但是发相同内容，收到的乱码也是相同的

Answer 2

flag:=Comm1.WriteCommData(@sendtext,Length(sendtext));
    if flag=false then
        begin
        showmessage('Êý¾Ý·¢ËÍʧ°Ü');
        exit;
        end;
    memo.Lines.Add('Send: '+command);
end
else
showmessage('Çë´ò¿ª´®¿Ú');
end;
你都乱码了

Answer 3

我使用spcomm正常啊
建议还是使用一些串口工具 测试下

Answer 4

回复3楼 ffwin ： 用串口调试工具调试过的。硬件一切正常回复5楼 woodyou005 ： 这里的乱码是因为我加了一些中文报错提示的显示。中文编码和网页的中文编码不一致吧有人能介绍下SPComm的各项设置都是什么作用吗？

Answer 5

今天用交叉串口线，开了串口调试助手和我自己写的小程序，然后发现不是我接收procedure的问题，问题出在send的procedure里，把
   flag：=comm1.WriteCommData(@sendtext,Length(sendtext));
换成
   for i:=1 to Length(sendtext) do
    if not comm1.WriteCommData(@sendtext[i],1) then
        begin
        flag:=false;
        break;
        end;就好了，原理，尚未知……