フォーラム


ゲスト  

ようこそ ゲスト さん。このフォーラムに投稿するには 登録が必要です。

ページ: [1]
トピック: 利用可能なすべてのセンサーを列挙するコード
DEKO
管理者
投稿数: 2655
利用可能なすべてのセンサーを列挙するコード
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;
Nov
メンバー
投稿数: 14
Re: 利用可能なすべてのセンサーを列挙するコード
on: 2013/04/11 19:57 Thu

試そうと思ったら、XE2にはないんですね…しくしく。

ちょっと遊んでみようと思っただけで、特に必要に迫られているわけではないので放置してください。

DEKO
管理者
投稿数: 2655
Re: 利用可能なすべてのセンサーを列挙するコード
on: 2013/04/11 20:34 Thu

引用 Nov on 2013/04/11 19:57 Thu
試そうと思ったら、XE2にはないんですね…しくしく。

 
XE2 またはそれ以前だと 「助けて!ブラザー!!」しないとやたら面倒ですね。

[COM と Delphi]
http://ht-deko.minim.ne.jp/ft1106.html#110623_01

ページ: [1]
WP Forum Server by ForumPress | LucidCrew
バージョン: 1.7.5 ; ページロード: 0.023 sec.