T
testmens
Unregistered / Unconfirmed
GUEST, unregistred user!
...................
RecvInfo :='';
for WData := 1 to Datado
begin
cChar := h_main.apdcomport.GetChar;
RecvInfo := RecvInfo+inttohex(Byte(cChar),2);
//16进制接收
inc(DataLen);
//计传输数据字节数
end;
.......................
RecvInfo :='';
for WData := 1 to Datado
begin
cChar := h_main.apdcomport.GetChar;
RecvInfo := RecvInfo+inttohex(Byte(cChar),2);
//16进制接收
inc(DataLen);
//计传输数据字节数
end;
.......................