使用SPCOMM发送数据,怎么老是提示发送失败?

Question

大家好:
我用SPCOMM写一个发送数据的程序,在属性栏里用默认设置COM1口,在发送按钮里发送命令.代码如下
procedure Tformsr.BitBtn1Click(Sender: TObject);
var
  I: Integer;
  viewstring:string;
  commflag:boolean;
begin
  viewstring := '';
  commflag := true;
  comm1.StartComm;  sbuf[1] := byte($AA);
  SBUF[2] := byte($01);
  SBuf[3] := byte($FF);
  sbuf[4] := byte($AA);
  sbuf[5] := byte($FA);
  for I := 1 to 5 do    // Iterate
  begin
    if not Comm1.WriteCommData(@sbuf[i],1) then
    begin
      commflag := false;
      break;
    end;
    sleep(2);
    viewstring := viewstring+inttohex(sbuf[i],2)+'  ';
  end;    // for
  viewstring := '发送'+viewstring;
  Memo1.Lines.Add(viewstring);
  if not commflag then messagedlg('发送失败',mterror,[mbyes],0);end;
怎么老提示发送失败?谢谢

Answer 1

晕，没看出来哪里的问题。    if not Comm1.WriteCommData(@sbuf[i],1) then
    begin
      commflag := false;
      break;
    end;
在这里面设置断点，看看。

Answer 2

if not Comm1.WriteCommData(@sbuf[1],5) then
你一次发送5个字节不行吗？

Answer 3

把  if not Comm1.WriteCommData(@sbuf[i],1) then
    begin
      commflag := false;
      break;
    end;中
commflag := false;
去掉
就可以了。