Help !!!!!!!! 关于 APRO TApdComPort 发送 数值 0 的问题 (100分)

  • 主题发起人 主题发起人 yueing
  • 开始时间 开始时间
Y

yueing

Unregistered / Unconfirmed
GUEST, unregistred user!

在使用 APRO TApdComPort 作串口通讯时遇到 不能发送数值 0
如 向串口发送 00 01 02 03 04 05 00 (是十六进制数) 00 无法发送出去,其他正常
同时接收时 也无法接收到 00
请教!!!
1、 如何设置TApdComPort 使之能发送和接收 00 数据??
2、 TApdComPort 是否不能处理 00 数据 ??

程序片断:
var
bh:byte;
c:char;
........
发送:
bh:=$0;
c:=chr(bh);
ApdComPort1.PutChar(c)
bh:=$1;
c:=chr(bh);
ApdComPort1.PutChar(c)
.....

接收:
while ApdComPort1.CharReady do
begin
C := ApdComPort1.GetChar;
strtp:=strtp+' '+ inttohex(ord(C);2);
end;{if}

 
知道了什么回事了
 
版主!
我如何结束该问题? 或删除呢?
 
发送应该没错,试试下面的代码,可以接收任何类型的数据。
procedure TFCOMM.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
p:Pbyte;
c:Char;
begin
ApdComPort1.GetBlock(p,1);
move(p^,c,1);
 
接受答案了.
 
后退
顶部