MSCOMM 收到btye型数据后不会显示

Question

如下：收到的是8个byte类型 的数据，不知怎么显示在Memo上，高人指点一下。
procedure TFrmMain.MSCommComm(Sender: TObject);
var
  vTmp:variant;
  CodeSize:Integer;
  i:integer;
begin
  CodeSize:=0;
  if MsComm.CommEvent=2 then  // 收到数据的事件
  begin
    CodeSize:=MsComm.InBufferCount;
    if CodeSize>0 then
    begin
      vTmp:=VarArrayCreate([0,CodeSize-1],varByte);
      vTmp:=MsComm.Input;
      //
    end;
  end;
end;

Answer 1

var
  vTmp:variant;
  ovTmp:olevariant;
  CodeSize, i:Integer;
  S :String;
begin
  if Mscomm.Commevent = 2 then
    begin
      Sleep(20);     //稍做等待！！
      CodeSize:=MsComm.InBufferCount;
      ovTmp := MsComm.Input;
      vTmp:=VarArrayCreate([0,CodeSize-1],varByte);
      vtmp := ovtmp;
      S := '';
      for i :=0 to CodeSize -1 do
        S := S + IntToHex(vtmp[i]);
      Memo1.lines.add(S);
    end;
end;

Answer 2

buffer:=mscomm.Input;
s1:=buffer;
c:=s1[1];
ss:=ss+c;
i:=i+1;
lblDisplay.caption:=c+inttostr(i);

Answer 3

如果你是这样发送的话：
sendData[0]:=$02;
sendData[1]:=$03;
sendData[2]:=$00;
sendData[3]:=$00;
sendData[4]:=$00;
sendData[5]:=$01;
sendData[6]:=$84;
sendData[7]:=$39;
那就不对了。
发送正好与我上文写的接收相反，
  vTmp:variant;
  ovTmp:olevariant;
  CodeSize, i:Integer;
begin
  vTmp:=VarArrayCreate([0,8],varByte);
  for i := 0 to 7 do
    vTmp[i] := sendData[i];
  ovTmp := vTmp;
  MScomm.output := ovTmp ;  //请注意！ property Output: OleVariant ... TMscomm的输出类型是OleVariant  !!!
end;  另外  楼主要显示的MEMO上 上述代码已经给你写清楚了，你的另外一篇帖子中提到十六进制转字符串  我已经给你详细的答复了。不知楼主明白没有...

Answer 4

多谢 suuare(督察) ，还有点问题，再帮忙看看。收到数据后，如果用
for i :=0 to CodeSize -1 do
        S := S + IntToHex(vtmp[i]);// 这句话总是报错，说是variant is not an array 
我改这个样还是这句报错，
for i :=0 to CodeSize -1 do
        vtmp[i]；        // 这句话总是报错，说是variant is not an array 
编译能通过，当收到数据后就报错。
----------------------------------------------------------------------------发送数据:
var
   vTmp:variant;
begin
  vTmp:=VarArrayCreate([0,7],varByte);
  vTmp[0]:=$02;
  vTmp[1]:=$03;
  vTmp[2]:=$00;
  vTmp[3]:=$00;
  vTmp[4]:=$00;
  vTmp[5]:=$01;
  vTmp[6]:=$84;
  vTmp[7]:=$39;
  MsComm.Output:=vTmp;
end;
接收：
procedure TFrmMain.MSCommComm(Sender: TObject);
var
  vTmp:variant;
  ovTmp:olevariant;
  CodeSize:Integer;
  Code:Byte;
  str:string;
  i:integer;
begin
  if MsComm.CommEvent=2 then
  begin
    sleep(20);
    CodeSize:=MsComm.InBufferCount;
    ovTmp := MsComm.Input;
    vTmp:=VarArrayCreate([0,CodeSize-1],varByte);
    vtmp := ovtmp;
    str:='';
    for i :=0 to CodeSize -1 do
       str:=str + IntToHex(vtmp[i],2);
      Memo1.lines.add(str);end;
    showmessage(IntToStr(CodeSize));
end;实在不解!!!!

Answer 5

>>for i :=0 to CodeSize -1 do
---> for i :=low(vtpm) to high(vtpm) do

Answer 6

问题解决了，忘了把 inputmode 设为 comInputModeBinary 了，结果就出现了这种情况，心里爽了一大截呀。
感谢 大家的帮忙。

Answer 7

先定义一个字节 然后再往里填
procedure TFrmMain.MSCommComm(Sender: TObject);
var
  vTmp:variant;
  ovTmp:olevariant;
  CodeSize:Integer;
  Code:Byte;
  str:string;
  i:integer;
begin
  if MsComm.CommEvent=2 then
  begin
    sleep(20);
    CodeSize:=MsComm.InBufferCount;
    ovTmp := MsComm.Input;
    vTmp:=VarArrayCreate([0,CodeSize-1],varByte);
    vtmp := ovtmp;
    str:='';
    for i :=0 to CodeSize -1 do
      begin
        Code := vtmp[i];
        str:=str + IntToHex(Code,2);
      end;
       
      Memo1.lines.add(str);end;
    showmessage(IntToStr(CodeSize));
end;