盒子论坛 v2.1

我用SPComm编了个串口通讯程序，可在MEMO控件里显示出来的是乱码，我是按网上的例子做的：
procedure TForm1.Comm2ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
   var StrReceive:string;

begin
        SetLength(StrReceive,BufferLength);
        Move(Buffer^,Pchar(StrReceive)^,BufferLength);
        memo1.Lines.Add(StrReceive);
end;
请问是什么原因导致乱码出现？该如何解决呢？谢谢！

----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/16 14:17:52

1楼：

var
    p:pchar;
    //RevP : array [1..4096] of byte;
    i : integer;
    s : byte;
    CommRevStr : String;
begin
     p:=buffer;
     //Move(IArr(buffer)^,Revp,bufferLength);
    CommrevStr:=';
   For i:=1 to BufferLength do
    begin
     s:=ord(p^);
     CommrevStr:=CommrevStr+inttostr(s)+' ';
     inc(p);
    end;
  Memo2.Lines.Add(CommrevStr);
  StatusBar1.Panels[2].Text := '串口2正在接收数据';
----------------------------------------------

作者：

bjdribllec ( )	★☆☆☆☆	-
	盒子活跃会员

2004/2/16 14:20:46

1楼：

Memo显示的只是文本，那么如果您从COMM里接收到Ascii值在[#0..#31，#128..#160]在显示时一定是读不懂的东西。
如果您能确定接收到的是纯文本，那样定代码没问题！
如若不是，就需要变换一个（如 #23 => 17H ）格式；不然也成，只要...(你知我不知)
----------------------------------------------
-

作者：

zzacomp (zzacomp)	★☆☆☆☆	-
	普通会员

2004/2/17 9:06:56

2楼：

我用bios贴出的那段程序，发现如果单片机发送的数据值小于0x80，则显示的数据
会在原值得基础上加0x80,即如果单片及发送0x1f,在memo里显示为159（即0x9f），
如果单片机发送的数据在0x80-0xff之间，则显示正常，请问这其中的原因是什么？
如何解决呢？

----------------------------------------------
-

信息

登陆以后才能回复