如何发送:
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
lrc:dword;
outbyte: array of byte;
begin
setlength(outbyte,1);
outbyte[0]:=$80;
i:=low(outbyte);
j:=high(outbyte);
while i<=j do
begin
writefile(h_comm,outbyte,1,lrc,nil); //h_comm 为串口句柄
i:=i+1;
end;
end;
