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.
  • 相关阅读:
    牛客网 CSL的英语考试
    SDNU 1016.矩形合并
    SDNU 1412.Huffuman树(优先队列)
    HDU
    HDU
    HDU
    SDNU 1504.B.Fibonacci
    Find them, Catch them(种类并查集)
    golang中的net/rpc包
    gRPC
  • 原文地址:https://www.cnblogs.com/qiufeng2014/p/3759093.html
Copyright © 2011-2022 走看看