根据C200的编程手册,与上位机可多帧读地址,以下是读一帧,请问若再读第二帧应该如何写这段代码呢?请各位高手帮帮忙,急!!!!!
procedure TForm1.Timer4Timer(Sender: TObject);
var
st:string[5];
sb:array[1..3]of string[1];
s1,s2:string;
outt:ARRAY[1..200]OF char;
N,I,FCS,FCSH,FCSL:INTEGER;
NACTUALWRITE:INTEGER;
begin
s1:='@00RR04900028';
fcs:=$40;
for i:=2 to LENGTH(S1) do
begin
fcs:=fcs xor integer(s1[i]);
end;
fcsl:=fcs and $0f;
fcsh:=(fcs and $f0) shr 4;
st[1]:=#42;
st[2]:=#13;
sb[1]:=format('%x',[fcsl]);
sb[2]:=format('%x',[fcsh]);
s2:=s1+sb[2]+sb[1]+st[1]+st[2];
for n:=1 to length(s2) do
outt[n]:=s2[n];
writefile(hcomm,outT,LENGTH(S2),nactualwrite,lpol);
setevent(post_event);
end;
|