如何获取内置传感器的名称,制造商和序列号

时间:2013-12-26 10:15:14

标签: android delphi firemonkey android-sensors delphi-xe5

如何获取Android设备的内置传感器的名称,制造商和SerialNo?

我尝试过在文档和教程中找到的两种方法......

  TSensorManager.Current.Active := true;
  NumberofSensors := TSensorManager.Current.Count;
  MemoSensors.Lines.Clear;
  if NumberOfSensors = 0 then
    MemoSensors.Lines.Add('No Sensors Found')
  else
    for i := 0 to NumberOfSensors-1 do
    begin
      MemoSensors.Lines.Add( IntToStr(i) + '  Category:  ' + GetEnumName(System.TypeInfo(TSensorCategory), Ord(TSensorManager.Current.Sensors[i].Category)));
      if(TSensorManager.Current.Sensors[i].Category = TSensorCategory.Motion) then
      begin
        mSensorArray := TSensorManager.Current.GetSensorsByCategory(TSensorCategory.Motion);
        mMoSens := mSensorArray[0] as TCustomMotionSensor;
        if Assigned(mMoSens) then
        begin
            mMoSens.Start;
            MemoSensors.Lines.Add('      Name: ' + mMoSens.Name + ' Manufacturer: ' + mMoSens.Manufacturer + ' Model: ' + TSensorManager.Current.Sensors[i].Model + ' Serial Nr: '  + mMoSens.SerialNo);
            mMoSensorType :=  mMoSens.SensorType;
            MemoSensors.Lines.Add('      Type: ' + GetEnumName(System.TypeInfo(TMotionSensorType), Ord(mMoSens.SensorType))  + '  Category:  ' + GetEnumName(System.TypeInfo(TSensorCategory), Ord(mMoSens.Category)));
            mMoSens.Stop;
        end;
      end;
      //MemoSensors.Lines.Add(  '    Manufacturer: ' + TSensorManager.Current.Sensors[i].Manufacturer + ' Model: ' + TSensorManager.Current.Sensors[i].Model + ' Serial Nr: '  + TSensorManager.Current.Sensors[i].SerialNo);
    end;
  TSensorManager.Current.Active := false;

正如您所看到的,我尝试从以下位置读取它: mMoSens变量和直接形式数组传感器[i] ......

这两种方法都允许读取传感器的类别和类型,但看不到名称,供应商等....我还安装了GPlay软件,它读取了设备传感器的名称和制造商。

2 个答案:

答案 0 :(得分:1)

据我所知,Android上的FM平台目前不支持此功能。

答案 1 :(得分:0)

源代码中有过程的定义:

function TCustomSensor.GetSensorProperty(Prop: TProperty): string;
begin
  Result := '';
end;

...所以没有实现所有传感器属性。