MSCOMM串口通讯问题(300分奉送)(300分)

  • 主题发起人 主题发起人 junye--li
  • 开始时间 开始时间
串口API不是太多,发送比较简单,但在打开串口后的启动监视线程那里有点麻烦.
 
建议访问http://zhaokaien.17757.com
站中有关于串口通信的详细资料
 
在主界面发加速时间与减速时间命令,只有加速好用,减速不好用!

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if not mscommain.PortOpen then
mscommain.PortOpen:=true;
mscommain.InBufferCount:=0;
mscommain.InputLen:=0;
mscommain.RThreshold:=1;
 mscommmain.output:=chr(5)+'008710230C5';//加速21秒
 sleep(300);
mscommmain.output:=chr(5)+'008810230C6';//减速21秒
 sleep(300);
.........
end;

  主窗体弹出运行时间子窗体,当运行时间达到设定时间减速停止,没成功!在运行时,按控制面板STOP/RESET键会减速停止! 我给的是复位信号,协议上没有停止信号,只能写复位信号!可能是这的问题吗? 
 
procedure form2.edit1Change(Sender: TObject);
begin
second:=second+1;
if second=60 then
begin
second:=0;
minute:=minute+1;
end;
text:=inttostr(minute)+':'+inttostr(second);//也可以在主窗体直接设置运行时间

if minute*60+second=temp then // 当达到运行时间,变频器应该减速21秒停止,但实际3秒左右停止!
begin
second:=0;
minute:=0;
close;//关闭此子窗体
Mainform.mscommain.DTREnable:=false;
Mainform.mscommain.RTSEnable:=false;
Mainform.mscommain.Output:=chr(5)+'00FD19696F9';//发复位信号
sleep(300);
Mainform.MSCommain.PortOpen:=false;
end;
end;

 各位兄弟再帮帮忙,帮忙出下主意,先谢过了!
 
你说说具体症状,不好用是怎么不好用啊,有延迟??还是根本不管用
 
正常是应该减速21秒停止,而实际没有减速过程,大概3秒就停!
 
怎麽没有回音了?现在有三个重要问题,还得请大家发表高见!
1.用串口调试工具,发信号chr(5)+'00FD19696F9'怎麽写?主要是chr(5)怎麽写?
2.procedure TForm1.MSCommainComm(Sender: TObject),反馈如何设定?
3.在主界面发加速时间与减速时间命令,只有加速好用,减速不好用,为什麽?
 
Chr($5))+'00FD19696F9'就可以了
 
好!谢谢!解决一个问题!
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
633
import
I
后退
顶部