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.

更多相关文章

随机推荐