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.
  • 相关阅读:
    Servlet中文件上传
    Servlet 返回Json数据格式
    Java通用oracle和mysql数据库连接
    JAVA JDBC
    Thread suspend()挂起resume()恢复
    Thread 线程池
    阿里巴巴开源框架java诊断工具--Arthas
    B Tree
    MySQL--高性能MySQL笔记二
    MySQL--高性能MySQL笔记一
  • 原文地址:https://www.cnblogs.com/qiufeng2014/p/3759093.html
Copyright © 2011-2022 走看看