读取com口接收byte数据的处理
摘要:1 procedure Tfrm_CheckCloth.cnrs232ReceiveData(Sender: TObject; Buffer: Pointer; 2 BufferLength: Word); 3 var 4 MyRcvData:Array[0..8] of byte; 5 ChkStr:string; 6 tmp : Integer; 7 begin 8 move(buffer^,pchar(@MyRcvData)^,8); 9 // ChkStr := inttostr(MyRcvData[3]*256 +MyRcvDa...
阅读全文
posted @ 2014-01-08 12:05