delphi xe10 传感器操作

本文整理自网络，侵删。

 
delphi xe10 传感器操作

MotionSensor1: TMotionSensor; 加速传感器
MotionSensor1.Sensor(AngleAccelX、AngleAccelY、AngleAccelZ)加速度

procedure TAccelerometerForm.Timer1Timer(Sender: TObject);
var
  LProp: TCustomMotionSensor.TProperty;
begin 
  for LProp in MotionSensor1.Sensor.AvailableProperties do
  begin
    { get the data from the sensor }
    case LProp of
      TCustomMotionSensor.TProperty.AccelerationX:
      begin
        lbAccelerationX.Visible := True;
        lbAccelerationX.Text := Format('Acceleration X: %6.2f', [MotionSensor1.Sensor.AccelerationX]);
      end;
   end;
end;


OrientationSensor1: TOrientationSensor;方位传感器
OrientationSensor1.Sensor（TiltX,TiltY,TiltZ）

procedure TOrientationSensorForm.Timer1Timer(Sender: TObject);
begin
  { get the data from the sensor }
  lbTiltX.Text := Format('Tilt X: %f', [OrientationSensor1.Sensor.TiltX]);
  lbTiltY.Text := Format('Tilt Y: %f', [OrientationSensor1.Sensor.TiltY]);
  lbTiltZ.Text := Format('Tilt Z: %f', [OrientationSensor1.Sensor.TiltZ]);
  lbHeadingX.Text := Format('Heading X: %f', [OrientationSensor1.Sensor.HeadingX]);
  lbHeadingY.Text := Format('Heading Y: %f', [OrientationSensor1.Sensor.HeadingY]);
  lbHeadingZ.Text := Format('Heading Z: %f', [OrientationSensor1.Sensor.HeadingZ]);
end;
TSensorManager传感器管理器（包含上述两种传感器，Samples\Object Pascal\Mobile Samples\Device Sensors and Services\SensorInfo）
TSensorCategory = (Location, Environmental, Motion, Orientation, Mechanical, Electrical, Biometric, Light, Scanner);
位置传感器，环境传感器，运动传感器，方向传感器，机械传感器，电传感器，生物传感器，光繁传感器，扫描仪传感器
复制代码
更新日期：2019.07.05

博客园 滔Roy https://www.cnblogs.com/guorongtao
 

相关阅读 >>

Delphi研究之驱动开发篇（五）--使用后备列表

Delphi保存读取utf-8的文本文件

Delphi 开发中遇到的dll问题思考及解决方法

Delphi判断字符串中是否包含汉字，并返回汉字位置

Delphi 编写服务程序的几点总结

Delphi tstopwatch 计时

webbrower常见问题及解决方法

Delphi sysutils.wraptext - 换行

Delphi 设计一个有渐变色的标签

Delphi: ttreeview 中禁止双击事件展开或关闭节点

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi xe10 传感器操作