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

谭力源

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; ...... ......