spcomm 电子秤 老问题
ln521 2009-09-01 03:17:56 通信协议 RS232
控件: spcomm +delphi
参数: StopBits = _1 ByteSize = _8 Parity = None
procedure ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
s,sTmp:String;
i,j,nSensor,nFrameLen:Integer;
s1:array [1..800] of char;
rbuf:Array[1..300] Of Byte;
bufflen:integer;
begin
mmoTest.text := '';
if chbHex.Checked then
begin
bufflen := 160;
If (bufferlength >= bufflen) Then
exit;
sTmp := '';
move(buffer^,rbuf,bufferlength);
For i := 1 To bufferlength Do
sTmp := sTmp + inttohex(rbuf[i],2)+'';
mmoTest.Lines.Add(HexStrToStr(sTmp));
end
else
begin
Move( Buffer^,s1, bufferlength );
mmoTest.Lines.Add(copy(s1,1,bufferlength));
end;
end;
抛出来的 数据 如何转成 重量 ??? 没有搞过这玩意, 希望大虾们赐教!!!