spcomm发送不了数据 ( 积分: 20 )

发送数据的代码如下
procedure TForm1.senddata;
var
i:integer;
commflg:boolean;
view:string;
begin
view:='';
commflg:=true;
for i:=1 to sendlength do
begin
if not comm1.WriteCommData(@sbuf,1) then
begin
commflg:=false;
break;
end;
sleep(2); //发送时字节间的延时
view:=view+inttohex(sbuf,2)+' ';
end;//转换成16进制
memo2.lines.add(view);
memo2.lines.add('');
if not commflg then messagedlg('发送失败 !' ,mterror,[mbyes],0);
end;
前几天还能发送的，昨天改了spcomm的源代码后，发现居然不行了，后来重新装了没有改动的spcomm控件，还是不能发送数据，而且测试过串口线是好的，究竟是什么原因？

发送数据的代码如下
procedure TForm1.senddata;
var
i:integer;
commflg:boolean;
view:string;
begin
view:='';
commflg:=true;
for i:=1 to sendlength do
begin
if not comm1.WriteCommData(@sbuf,1) then
begin
commflg:=false;
break;
end;
sleep(2); //发送时字节间的延时
view:=view+inttohex(sbuf,2)+' ';
end;//转换成16进制
memo2.lines.add(view);
memo2.lines.add('');
if not commflg then messagedlg('发送失败 !' ,mterror,[mbyes],0);
end;
前几天还能发送的，昨天改了spcomm的源代码后，发现居然不行了，后来重新装了没有改动的spcomm控件，还是不能发送数据，而且测试过串口线是好的，究竟是什么原因？

问题已经解决了，是控件的问题，不好意思。麻烦大家了。^_^