利用delphi开发的android程序,包括和单片机的通讯协议,android串口控件的收发使用等等。
部分代码:
procedure TTabbedForm.sendCmd(dx,dy,dz,rx, ry, rz:integer);
var
buf,tmp:string;
arr:Tbytes;
I: Integer;
sum:byte;
begin
setlength(arr,14);
arr[0]:=$fa;
arr[1]:=$af;
arr[2]:=11;
arr[3]:=$aa;
arr[4]:=dx;
arr[5]:=dy;
arr[6]:=dz;
arr[7]:=hi(rx);
arr[8]:=byte(rx);
arr[9]:=hi(ry);
arr[10]:=byte(ry);
arr[11]:=hi(rz);
arr[12]:=byte(rz);
sum:=0;
for I := 0 to 12 do
begin
buf:=buf+chr(arr[i]);
sum:=sum+arr[i];
end;
arr[13]:=not(sum)+1;
acomport1.Write(arr);
tmp:='';
for I := 1 to 14 do
tmp:=tmp+intTohex(ord(arr[i-1]),2)+' ';
memo1.Lines.Add(tmp);
end;
1