» Delphi » 計測機器・制御・センサー » 利用可能なすべてのセンサーを列挙するコードDelphi Forum | Borland / Inprise / CodeGear / Embarcadero Delphi や C++Builder に関する情報交換の場です。ハンドル名で投稿できます。

ゲスト
ようこそゲストさん。このフォーラムに投稿するには登録が必要です。ユーザ名: パスワード: ログイン情報を保存

Forum » Delphi » 計測機器・制御・センサー » 利用可能なすべてのセンサーを列挙するコード

ページ: [1]

	トピック: 利用可能なすべてのセンサーを列挙するコード

DEKO

管理者
投稿数: 2691

利用可能なすべてのセンサーを列挙するコード
on: 2013/04/07 11:54 Sun

VCL でも FMX でもコードは同じです。

uses
  ..., System.TypInfo, System.Sensors;

procedure TForm1.Button1Click(Sender: TObject);
var
  Manager: TSensorManager;
  Sensor: TCustomSensor;
  i: Integer;
begin
  Memo1.Lines.Clear;
  Manager := TSensorManager.Current;
  Manager.Active := True;
  // すべてのセンサーを列挙する
  for i:=0 to Manager.Count-1 do
    begin
      Sensor := Manager.Sensors[i];
      Memo1.Lines.Add(Sensor.Name + 
      　Format('(Category: %s)', [GetEnumName(System.TypeInfo(TSensorCategory), Ord(Sensor.Category))]));
    end;
  Manager.Active := False;
end;