zoukankan      html  css  js  c++  java
  • [转]xe6 android 使用距离传感器(Proximiry)

    The first step it's a run sample from RAD Studio that named SensorInfo on your device. On the tab Biometric you can see HumanProximity. If it's true you can get access to this sensor using RTL.

    Add unit System.Sensors into uses list and drop TTimer

    type
      TForm1 = class(TForm)
        Label1: TLabel;
        Timer1: TTimer;
        procedure FormCreate(Sender: TObject);
        procedure Timer1Timer(Sender: TObject);
      private
        FHumanProximity: TCustomBiometricSensor; // Declare it
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      Form1: TForm1;
     
    implementation
     
    {$R *.fmx}
     
    procedure TForm1.FormCreate(Sender: TObject);
    var
      LSensorArray : TSensorArray;
      LSensor : TCustomSensor;
    begin // Get the sensor list and find that we want
      TSensorManager.Current.Activate();
      LSensorArray := TSensorManager.Current.GetSensorsByCategory(TSensorCategory.Biometric);
      for LSensor in LSensorArray do
        if TCustomBiometricSensor(LSensor).SensorType = TBiometricSensorType.HumanProximity then
          FHumanProximity := TCustomBiometricSensor(LSensor);
    end;
     
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin // just poll it
      if FHumanProximity <> nil then
        Label1.Text := FHumanProximity.HumanProximity.ToString;
    end;
     
    end.
  • 相关阅读:
    酒店预定系统
    毕业论文管理系统 ——总体设计
    毕业论文管理系统
    毕业管理系统——面向对象方法 项目前期
    项目前期
    5/23用户故事和backlog
    5/18
    4.8
    4.3
    第四章 需求分析
  • 原文地址:https://www.cnblogs.com/qiufeng2014/p/3759093.html
Copyright © 2011-2022 走看看