关于MSCOMM控件的问题

[csl1027]

各位大哥，我是刚开始学做串口的，下面这段代码为什么不能把 'abcdefghijklmnopqrstuvwxyz' 输出到MEMO1中去啊。
是哪里漏了什么么？谢谢了。

procedure TForm1.FormCreate(Sender: TObject);
begin
if MSComm1.PortOpen then MSComm1.PortOpen := false;//关闭端口
MSComm1.CommPort := 1;//设置端口1
MSComm1.InBufferSize := 512;//设置接收缓冲区为512个字节
MSComm1.OutBufferSize := 512;//设置发送缓冲区为512个字节
MSComm1.Settings := '9600,n,8,1';//9600波特率，无校验，8位数据位，1位停止位
MSComm1.InputLen := 0;//读取缓冲区全部内容(26个字节)
MSComm1.InBufferCount := 0;// 清除接收缓冲区
MSComm1.OutBufferCount:=0;// 清除发送缓冲区
MSComm1.RThreshold := 26;//设置接收26个字节产生OnComm 事件
MSComm1.InputMode := comInputModeText;//文本方式
// MSComm1.InputMode := comInputModeBinary;//二进制方式
MSComm1.PortOpen := true;//打开端口
mscomm1.RTSEnable:=true;
mscomm1.DTREnable:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
mscomm1.Output:='abcdefghijklmnopqrstuvwxyz';
end;

procedure TForm1.MSComm1Comm(Sender: TObject);
begin
case mscomm1.CommEvent of
2:memo1.Text:=memo1.Text+mscomm1.Input;
end;
end;

[csl1027]

谢谢了，哪位能给我解答一下么？谢谢

[csl1027]

高手呢？帮帮小弟啊，急啊。

[csl1027]

高手呢？帮帮小弟啊，谢谢了。

[hhbbyy2000]

只需设置 端口，MSComm1.RThreshold :=1；MSComm1.Settings := '9600,n,8,1'就可以了，其他默认，试试看

[kugoo_2006]

错误代码贴出来看看

[chain0509]

使用MScomm控件不要设置那么多的啊
还有下面的代码看着不怎么对劲 把错误代码贴下
因为我正好在做短信包

[chain0509]

var
inbuff:array of Byte;
i:integer;
tempstr:string;
begin
If MScomm1.CommEvent=2 Then
Begin
sleep(100);
Setlength(inbuff,MScomm1.InBufferCount);//设置接收数组的长度
Inbuff:=MScomm1.Input;//将串口接收的数据置入动态数组
Tempstr:='';
For i:=0 To length(inbuff)-1 do
Tempstr:=Tempstr+inttostr(inbuff[i])+'';
memo2.Lines.Add(Tempstr);
End;
end;




也许会对你有帮助 自己看

[csl1027]

谢谢大家了，好了。

[gaohongtao_2005]

楼主能否把代码发给我看看？[e-mail]
不胜感激了。