A
anson
Unregistered / Unconfirmed
GUEST, unregistred user!
最近我做过的地磅系统连接方法如下(XK1390-D2+,):
电脑9pin 地磅15pin
2(rxd)_________7(txd)
3(txd)_________6(rxd)
5(gnd)_________8(gnd)
用控件spcomm就可以得到数据了。在spcomm的事件
ReceiveData中写如下代码就可取得:
var
s: string;
begin
SetLength(S, BufferLength); //接收RS232的数据并显示edit1上。
Move(Buffer^, PChar(S)^, BufferLength);
edit1.text := s;
end;
但系统超过100吨时不能正常读数(百吨位没有读出)
例:
读出:=0581000=0581000=0581000=0481000=0481000=0481000=0481000=0481000=
0481000=0581000=0581000=0581000=0481000=0281000
实际:101580T
电脑9pin 地磅15pin
2(rxd)_________7(txd)
3(txd)_________6(rxd)
5(gnd)_________8(gnd)
用控件spcomm就可以得到数据了。在spcomm的事件
ReceiveData中写如下代码就可取得:
var
s: string;
begin
SetLength(S, BufferLength); //接收RS232的数据并显示edit1上。
Move(Buffer^, PChar(S)^, BufferLength);
edit1.text := s;
end;
但系统超过100吨时不能正常读数(百吨位没有读出)
例:
读出:=0581000=0581000=0581000=0481000=0481000=0481000=0481000=0481000=
0481000=0581000=0581000=0581000=0481000=0281000
实际:101580T