搜索
bottom↓
回复: 2

新人学D串口通讯问题(SPCOMM控件)

[复制链接]

出0入0汤圆

发表于 2010-12-5 15:01:39 | 显示全部楼层 |阅读模式
新人学习delphi的不解的地方,望得到大家的帮助
有关串口通讯的问题,控件是SPCOMM,部分代码:
//向端口发送数据
procedure TForm1.BtnSendClick(Sender: TObject);
Var
  Str:Pchar;
  Count:integer;
begin
  Str:=Pchar(EdtSendText.Text );
  Count:=Length(Str);
  if Comm.WriteCommData(Str,Count) then
    MmoComm.Lines.Add('已发送'+IntToStr(Count)+'字符')
  else
    raise Exception.Create('发送错误');
end;
//从端口接收数据
procedure TForm1.CommReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
Var
  StrRecv:String;
begin
  SetLength(StrRecv,BufferLength);
  Move(Buffer^,pchar(StrRecv)^,BufferLength);
  MmoComm.Lines.Add('已收到:'+IntToStr(BufferLength)+'字节的数据');
  MmoComm.Lines.Add(StrRecv);
  MmoComm.Invalidate;
end;
以上代码在两个串口间能相互接收和发送,但是发送的是字符,我现在想发送的是16进制的一串命令如
例1:从机地址为12 (转换为十六进制为:0CH);

要求:控制电机停止  
     
主机发送:[开始]  [从机地址]  [功能代码]  [起始寄存器地址高8位]  [低8位]  [写单寄存器数高8位]  [低8位]  [LRC校验码]  [CR] [LF]
        
   :0C 06 00 64 00 A2 E8
该如何实现呢?????????

阿莫论坛20周年了!感谢大家的支持与爱护!!

一只鸟敢站在脆弱的枝条上歇脚,它依仗的不是枝条不会断,而是自己有翅膀,会飞。

出0入0汤圆

 楼主| 发表于 2010-12-9 13:17:09 | 显示全部楼层
回复【楼主位】dts0707  
-----------------------------------------------------------------------

没人肯帮忙呀!

出0入0汤圆

发表于 2010-12-9 13:53:04 | 显示全部楼层
“字符”只是数据的一种表现方式而已,字符的代码可以用16进制表示啊,同样00~FF共256个字符其中有字母、数字、符号和不可打印字符(比如控制字符)。比如我要发送0x61,0x61代表的字符是“a”,发送“a”即可。
回帖提示: 反政府言论将被立即封锁ID 在按“提交”前,请自问一下:我这样表达会给举报吗,会给自己惹麻烦吗? 另外:尽量不要使用Mark、顶等没有意义的回复。不得大量使用大字体和彩色字。【本论坛不允许直接上传手机拍摄图片,浪费大家下载带宽和论坛服务器空间,请压缩后(图片小于1兆)才上传。压缩方法可以在微信里面发给自己(不要勾选“原图),然后下载,就能得到压缩后的图片】。另外,手机版只能上传图片,要上传附件需要切换到电脑版(不需要使用电脑,手机上切换到电脑版就行,页面底部)。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|Archiver|amobbs.com 阿莫电子技术论坛 ( 粤ICP备2022115958号, 版权所有:东莞阿莫电子贸易商行 创办于2004年 (公安交互式论坛备案:44190002001997 ) )

GMT+8, 2024-6-16 05:38

© Since 2004 www.amobbs.com, 原www.ourdev.cn, 原www.ouravr.com

快速回复 返回顶部 返回列表