|
#2
luperfect2005-05-01 22:54
|
向高手请教:
我在Delphi中使用了微软的MSCOMM.oxc控件进行访问串口通讯.在定义的字节数组后,不知如何向mscomm.output赋值.我是这样做的,
iniCOM;
buf[0:=byte($16);
buf[1]:=inttobcd(strtoint(copy(meterId,11,2)));
buf[2]:=inttobcd(strtoint(copy(meterID,9,2)));
buf[3]:=inttobcd(strtoint(copy(meterId,7,2)));
buf[4]:=inttobcd(strtoint(copy(meterID,5,2)));
buf[5]:=inttobcd(strtoint(copy(meterId,3,2)));
buf[6]:=inttobcd(strtoint(copy(meterID,1,2)));
buf[7]:=byte($68);
buf[8]:=byte($04);
buf[9]:=byte($13);
buf[10]:=byte($D4);
buf[11]:=byte($33);
buf[12]:=byte($33);
buf[13]:=byte($33);
buf[14]:=byte($33);
buf[15]:=arrsellcount[0];
buf[16]:=arrsellcount[1];
buf[17]:=arrsellcount[2];
buf[18]:=arrsellcount[3];
buf[19]:=arrsellcount[4];
buf[20]:=byte(selltimes);
buf[21]:=byte(selltimes div $100);
buf[23]:=byte($16);
Sum_CS:=0;
for h:=0 to 21 do sum_Cs:= sum_Cs + Buf[h];
buf[22]:=byte(Sum_CS);
S:='';
for h:=0 to 23 do S:=S + chr(Buf[h]);
mscomm1.Output :=S ;
sleep(10);
closecom;
对于串口参数设置\字节数组的取值和校验都正确,不知发送处错在何处!
请教高手!谢谢!