向高手请教: 我在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; 对于串口参数设置\字节数组的取值和校验都正确,不知发送处错在何处! 请教高手!谢谢!

我已找到原因了,是因为MSCOMM控件的BUG,改用Delphi的Tcomm就可以了

你的问题很简单,因为你先打开串口而后对MSCOMM进行设置的,正确的方法是先设置,后打开串口.

if not mscomm1.PortOpen then mscomm1.PortOpen:=true; 放到最后,就OＫ了，试一试．