使用MSCOMM控件.发送一个050180过去.如果接收回来的信息.(50分)

  • 主题发起人 主题发起人 Jj1985
  • 开始时间 开始时间
J

Jj1985

Unregistered / Unconfirmed
GUEST, unregistred user!
串口通信不是很懂.
所以请懂的大虾们帮帮忙..谢谢了.!
 
对你的问题非常的不懂
所以请懂的大虾们帮帮忙..解释一下
谢谢了
 
这问题我以前用Spcomm弄过,挺简单的.
 
有需要的话,留下邮箱.
 
zjd621@163.com
楼上的,给我传一份,谢谢
 
类似通讯程序的编写一般分三步:
1、初始化串口
2、发送协议数据
3、接收协议数据(关键点,待讨论)
可参考代码:
1、初始化串口
try
if Mscomm1.PortOpen then
begin
Mscomm1.PortOpen := False;
//关闭串口
end;
InitCom;
Mscomm1.CommPort := seCOM.Value;
Mscomm1.PortOpen := True;
// 打开串口
Log('成功打开 COM 口:' + inttostr(Mscomm1.CommPort));
except on E: Exceptiondo
begin
Log(Format('打开 COM%d 口发生错误:%s', [mscomm1.CommPort, E.Message]));
Log('故障可能原因1:COM口已经被其他程序打开');
Log('故障可能原因2:此COM口不存在');
Log('故障可能原因3:COM口波特率等属性设置有误');
Log('故障可能原因4:COM口已经损坏');
end;
end;

procedure InitCom;
begin
//先初始化,再打开com
Mscomm1.InBufferCount := 0;
// 0 清空接收缓冲区,否则返回当前接受缓冲区中等待的字符数
mscomm1.OutBufferCount := 0;
// 0 清除传输缓冲区,否则返回在传输缓冲区中等待的字符数
Mscomm1.InputLen := 1;
// 1 每次读取 1 个字符,0 读取整个缓冲区内容。多用于读取定长数据
Mscomm1.RThreshold := 1;
// 每次接收到1个字符即产生OnComm事件
Mscomm1.SThreshold := 0;
// =0,不产生OnComm事件. Sthreshold=1,当传输缓冲区完全空时,产生此ComEvSend事件
Mscomm1.InputMode := 0;
// ComInputModeText 0数据通过Input属性以文本形式取回(默认),ComInputModeBinary 1 以二进制形式取回
Mscomm1.Settings := Trim(setting.Text);
// 设置波特率等
end;

2、发送协议数据:

MSComm1.output := trim(atcmd.text) + #13;
3、接收协议数据
procedure TFrmMain.MSComm1Comm(Sender: TObject);
var
recstr: Olevariant;
s: string;
c: char;
begin
case Mscomm1.CommEvent of
// 正常事件
comEvReceive: // 接收数据
begin
recstr := Mscomm1.Input;
// 一次处理一个字符
s := recstr;
c := s[1];
// 组装协议
// 判断协议是否合法
// 处理协议数据
end
end;

第3步的协议解析比较有看点。
我遇到的协议根据起始终止符来看有两种结构(含校验位):
A结构、1个起始符+中间数据+1个结束符
B结构、多个起始符+中间数据+多个结束符
其实第3步协议解析与 mscomm32 没有关系,关键是对协议的处理。
A结构、B结构处理方式类似但是复杂度差别挺大,不知道各位都是如何处理的?希望探讨一下这些协议的处理方式。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部