磅称串口读取 --另加200分 ( 积分: 100 )

各位大侠,小弟初涉串口,近日对其读取,总不得其法,望各位大侠多多指点,
小弟用的是mscomm控件,串口设备是上海耀华 xk3190-D2+ 磅称,,RS232信号, 波特率:可设置300/600/900/1200/2400/4800, 数据位:为ASCLL码,每组数据由10位组成,第一位为起始位,第10位为停止位,中间8位为数据位. 数据每帧共有8组 (包括小数点).传送先低位后高位,每帧数据间有一组分隔符”=”,如:重量为70.15,则连续发送51.0700=51.0700=…….
望各位大侠, 多多帮忙,小弟不胜感激.

各位大侠,小弟初涉串口,近日对其读取,总不得其法,望各位大侠多多指点,
小弟用的是mscomm控件,串口设备是上海耀华 xk3190-D2+ 磅称,,RS232信号, 波特率:可设置300/600/900/1200/2400/4800, 数据位:为ASCLL码,每组数据由10位组成,第一位为起始位,第10位为停止位,中间8位为数据位. 数据每帧共有8组 (包括小数点).传送先低位后高位,每帧数据间有一组分隔符”=”,如:重量为70.15,则连续发送51.0700=51.0700=…….
望各位大侠, 多多帮忙,小弟不胜感激.

我有成熟的地磅管理软件，接口类型丰富，你需要吗？我们可以合作，
我在上海耀华的地磅仪表方面有些了解，
如有需求，
可与我联系。
13355089969 李先生，
liguigao@163.com

读地磅时就总是乱码，得不到正确的数据。

我有这方面的软件，
很成熟的，
是商品软件，
你感兴趣吗?

读出十六进制。你再看看。或者能找到规律

谢谢whbchy,能否具体点,给出代吗实例呢

?

fushu:=copy(scurstr,Nposition1[1,1],Nposition1[1,2]);//数据符号：+，-
// mao:=copy(scurstr,4,1);
scurstr:=trim(copy(scurstr,Nposition1[2,1],Nposition1[2,2])); //数据
ss:='';
for i:=Nposition1[2,2] downto 1 do ss:=ss+copy(scurstr,i,1);
scurstr:=trim(ss);

j:=length(scurstr);
for i:=j to 1 do //删除不合法的字符
if ((copy(scurstr,i,1)<'0') or(copy(scurstr,i,1)>'9'))and (copy(scurstr,i,1)<>'.') then delete(scurstr,i,1);
fuhao:=chr(32);
if fushu='-' then
begin
scurstr:=fuhao+scurstr;
fuhao:=chr(45);
end;

if not check_ZL(scurstr)then
begin
comworking:=false;
exit; //无效数据则丢弃
end;

// if (danwei='kg')OR(danwei='KG') then
// begin
chengzhong[wen_count]:=TRUNC(strtofloat(scurstr))/1000; //接受的重量存入最后；
// end
// else
// begin
// chengzhong[wen_count]:=strtofloat(scurstr); //接受吨，不用除
// end;

for i:=1 to wen_count-1 do
begin
chengzhong:=chengzhong[i+1]; //数据区上移；
end;
if mao='GS' then maozhong:=true else maozhong:=false;
// END;

谢谢pjin
可惜不能对cpjin大侠打分了