spcomm数据位8，停止位1，波特率是4800，或者是1200，的，校验位是无校验，接受数据是乱码，

Question

数据位8，停止位1，波特率是4800，或者是1200，的，校验位是无校验，
发送数据过来，接受的都是乱码，
但是用计算机自带的超级终端接受有可以接受到数据，请教了。

Answer 1

你可以参考一下 下面的代码
function HexStrToStr(const S:string):string;
var
  t:Integer;
  ts:string;
  M,Code:Integer;
begin
  t:=1;
  Result:='';
  while t<=Length(S) do
  begin
    while (t<=Length(S)) and (not (S[t] in ['0'..'9','A'..'F','a'..'f'])) do
      inc(t);
    if (t+1>Length(S))or(not (S[t+1] in ['0'..'9','A'..'F','a'..'f'])) then
      ts:='$'+S[t]
    else
      ts:='$'+S[t]+S[t+1];
    Val(ts,M,Code);
    if Code=0 then
      Result:=Result+Chr(M);
    inc(t,2);
  end;
end;procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
   i,k:integer;
   s, str1:string ;
begin
  SetLength(Str1,BufferLength);
  move(buffer^,pchar(Str1)^,bufferlength);  if length(trim(Str1)) <= 0 then Exit;
  for i := 1 to length(Str1) do
    s := s + inttohex(ord(Str1[i]), 2);  ReturnStr:=HexStrToStr(s);
 
  Memo1.Lines.Add('收到'+s);
END;     

Answer 2

procedure TMainForm.CommReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);
var
   huiche,len,konghang:integer;
   inputData,Cash,cashtemp:String;
   pstr:PChar;
   FStream:   TIniFile;
   filename:string;
   s:string;
   intbegin,intend:Integer;// 数组的长度。
   label outer;begin
      
      // 保存右边列表中的书签位置，//以便接收完数据刷新后回到原来的位置，不影响操作员的录入
    savePlace:=BasicForm.listADOQuery.GetBook;    pstr:=Buffer; //取得接收的 数据
    inputData:=pstr;    //取得接收的数据                                                                                                                                 
    Cash:=inputData;    //缓存到一个变量,提供操作
    ShowMessage('cash'+cash);  //在这里提示，就是乱码了，下面的操作都是无意义的啦*******
    
          len:=length(cash);
         
           if pos('N',inputData)>pos(#10,inputData)  then    ///如果不是老机子()
           begin
                 
               while len>1  do    //判断取得的arry的长度，和buf的长度是否一样。                                    //
               begin
                      len:=length(cash);     //数据长度
                      huiche:=pos(#10,cash); //换行的位置  第一行换行的位置 ,是第几个字符串
                      intbegin:=pos(#02,Cash);  //begin 's position
                      intend:=pos(#03,Cash);  //end 's position
                      cashtemp:=MidStr(Cash,intbegin,intend);
                      insertdata(cashtemp );//数据处理
                      cash := MidStr(Cash,pos(#03,Cash)+2,(len-length(cashtemp)));
                     if pos(#02,cash)=0 then
                     begin
                            len:=0;
                     end ;
                end;
           end
           else
           begin
                              len:=length(inputData);     //数据长度
                huiche:=pos(#10,inputData); //换行的位置  第一行换行的位置 ,是第几个字符串
                                                                                                                              
                 while len>1  do    //判断取得的arry的长度，和buf的长度是否一样。
                 begin
                     len:=length(cash);     //数据长度
                     huiche:=pos(#10,cash); //换行的位置  第一行换行的位置 ,是第几个字符串
                     intbegin:=pos(#02,Cash);  //begin 's position
                     intend:=pos(#03,Cash);  //end 's position                     cashtemp:=MidStr(Cash,intbegin,intend);                     insertdata(cashtemp );//数据处理                     cash := MidStr(Cash,pos(#03,Cash)+2,(len-length(cashtemp)));
                   
                     if pos(#02,cash)=0 then
                     begin
                            len:=0;
                     end ;
                 end;
           end;    BasicForm.listADOQuery.GotoBook(savePlace);  //回到刷新前的位置    BasicForm.listADOQuery.FreeBook(savePlace);  //释放标签
   
end;

Answer 3

其实我对接收的数据都没有做任何处理，直接接受，我就做个showmessage了，提示是乱码了，下面做什么都没有什么意思了。

Answer 4

你都不转换一下直接就showmessage能不乱码么？

Answer 5

你直接Show那肯定是乱码啊
得处理一下
你可以参考一下2楼的代码

Answer 6

我做了转换了，但是仍然是乱码      SetLength(Str1,BufferLength);
    move(buffer^,pchar(Str1)^,bufferlength);
    Cash:=Str1;
    ShowMessage('cash'+cash);一堆乱码

Answer 7

是啊，但是客户非要用
数据位8，停止位1，波特率是4800，或者是1200，的，校验位是无校验，
来接受数据，但是接受就是乱码，而且他用超级终端来接受就是可以正常的了，老说是我的软件问题，问题是我用CommReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word); 
来接受，一接受就显示，就是乱码，我也无语了
但是
数据位8，停止位2，波特率是4800，或者是1200，的，校验位是无校验， 就可以接受数据，正常 
请教了

Answer 8

把你的spcomm组件属性按照下面的内容改一下试试：
 
DtrControl = DtrDisable
    DsrSensitivity = False
    TxContinueOnXoff = False
    Outx_XonXoffFlow = False
    Inx_XonXoffFlow = False
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsDisable

Answer 9

我的用户超级终端的协议是 数据位8，停止位1，波特率是4800，的，校验位是无校验，数据控制流：无； 我也按照高手说的，把下面修改了
DtrControl = DtrDisable 
    DsrSensitivity = False 
    TxContinueOnXoff = False 
    Outx_XonXoffFlow = False 
    Inx_XonXoffFlow = False 
    ReplaceWhenParityError = False 
    IgnoreNullChar = False 
    RtsControl = RtsDisable
然后还是错误哦啊晕倒了，是不是我的设置的问题啊，为什么超级终端可以接受列？

Answer 10

用数据位8，停止位2，波特率是4800，或者是1200，的，校验位是无校验
你接收的数据长度是多少？
考虑一下
  comm1.ReadTotalTimeoutConstant

Answer 11

参考一下ReadIntervalTimeout：　以毫秒为单位指定通信线上两个字符到达之间的最大时间。在ReadFile操作其间，收到第一个字符时开始计算时间。若任意两个字符到达之间的间隔超过这个最大值，ReadFile操作完成，返回缓冲数据。0值表示不用间隔限时。若该成员为MAXDWORD，且ReadTotalTimeoutconstant和ReadTotalTimeoutMultiplier成员为零，则指出读操作要立即返回已接收到的字符，即使未收到字符，读操作也要返回。　　ReadTotalTimeoutMultiplier：以毫秒为单位指定一个乘数，该乘数用来计算读操作的总限时时间。每个读操作的总限时时间等于读操作所需的字节数与该值的乘积。　　ReadTotalTimeoutConstant：以毫秒为单位指定一个常数，用于计算读操作的总限时时间。每个操作的总限时时间等于ReadTotalTimeoutMultiplier成员乘以读操作所需字节数再加上该值的和。ReadTotalTimeoutMultiplier和ReadTotalTimeoutConstant成员的值为0表示读操作不使用限时时间。

Answer 12

SetLength(Str1,BufferLength); 
    move(buffer^,pchar(Str1)^,bufferlength); 
    Cash:=chr(Str1); 
    ShowMessage('cash'+cash); 

Answer 13

SetLength(Str1,BufferLength); 
    move(buffer^,pchar(Str1)^,bufferlength);
for i:=0 to  bufferlength-1 do
    Str:=Str+chr(Str1[i]); 
    ShowMessage(Str); 

Answer 14

1.用数据位8，停止位2，波特率是4800，或者是1200，的，校验位是无校验 
你接收的数据长度是多少？ 
考虑一下 
  comm1.ReadTotalTimeoutConstant这个问题，不存在啊，我才发送一个检验结果，256个字符这样，就是乱码，comm1.ReadTotalTimeoutConstant=1002.
SetLength(Str1,BufferLength); 
    move(buffer^,pchar(Str1)^,bufferlength); 
for i:=0 to  bufferlength-1 do 
    Str:=Str+chr(Str1[i]); 
    ShowMessage(Str); 
这个我实验看

Answer 15

2. 
SetLength(Str1,BufferLength); 
    move(buffer^,pchar(Str1)^,bufferlength); 
for i:=0 to  bufferlength-1 do 
    Str:=Str+chr(Str1[i]); 
    ShowMessage(Str); 
这段代码有问题吧，Str:=Str+chr(Str1[i]);  这里执行不了啊

Answer 16

各位老大，请指教啊，还是不能解决问题啊，难道我要还mscomm控件？

Answer 17

看看这样收到了什么数据procedure Tfrmmain.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; 
  BufferLength: Word); 
var 
  rbuf:array of byte; 
  i:  integer; 
  str: string; 
begin 
  setLength(rbuf, BufferLength); 
  move(Buffer^, PChar(rbuf)^, BufferLength); 
  str:=''; 
  for i:=0 to bufferlength-1 do 
  begin 
    str:=str+inttostr(rbuf[i]); 
  end; 
  memo1.lines.add(str); 
end;