查看: 1853|回复: 0
打印 上一主题 下一主题

老菜鸟请教Delphi里MSComm收发十六进制数据

[复制链接]
跳转到指定楼层
沙发
发表于 2016-4-10 20:17:25 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Delphi开始入门,用MSComm收发十六进制数据,遇到难题:不能收发 十六进制数。附上程序,请各位先贤指教,能写一段更好。
  能否成功都先谢谢。
......
......
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var //PP1:AnsiString;//string;
     PP1:string;
begin                                          
  MSComm1.InputMode:= comInputModeBinary;//二进制模式
  MSCOmm1.Output:='AA';
  MSCOmm1.Output:=inttostr(123);
  MSCOmm1.Output:=inttostr($31);    //希望发49
  MSCOmm1.Output:='BB';
  MSCOmm1.Output:=inttostr($32);    //希望发50
  MSCOmm1.Output:='CC';
  MSCOmm1.Output:=inttostr($33);    //希望发51
  MSCOmm1.Output:='DD';              //希望 发02 47(C语言的0x02 0x47)
  MSCOmm1.Output:=inttostr(ord($F7));//这里发的是 $32 $34 $37 (十进制的2、4和7) $F7->247
  //MSCOmm1.Output:=inttostr($C9);
  PP1:= (inttohex(201,2));  //把201变成 C9
  WINDOWS.Beep(1000,10);
  MSCOmm1.Output:=((PP1));//这里 发了一个 C(43) 一个 9(39) //希望发C9 (C语言的0xC9)
   //MSCOmm1.Output:=(pchar(201));
   //串口助手收到的:41 41 31 32 33 34 39 42 42 35 30 43 43 35 31 44 44 32 34 37 43 39
   //应该怎么办?
  Memo1.Lines.Add(PP1);
  Memo1.Lines.Add(inttostr(123));

end;
......
......

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 加入中科因仑

本版积分规则

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