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