Witam, Chciałbym uruchomić Light Sensor w Androidzie ale nie mam pojecia jak to zrobic, próbowałem wyciągnąć dane z dołączonego do Delphi demo SensorInfo ale nie wychodzi mi to :(, czy któryś z Kolegów mógł by mi pomóc w tym?
"mój" kod wyglada tak:
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, system.sensors,
FMX.Layouts, FMX.ListBox;
type
TForm1 = class(TForm)
Layout1: TLayout;
Label1: TLabel;
Layout2: TLayout;
Button1: TButton;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
FShowInfo : Boolean ;
FActiveSensor : TCustomSensor;
LuxSensor : TCustomLightSensor;
function GetInfoAboutLight(ASensor: TCustomSensor): string;
function GetFullInfo(AAvailibleProperties: string): string;
function ToFormStr(AProp : string; AVal : Single): string;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
const
AllCat : TSensorCategories = [TSensorCategory.Light];
tForm = ' %s =' + sLineBreak + '%30s %3.5f ' + sLineBreak;
function TForm1.GetInfoAboutLight(ASensor: TCustomSensor): string;
var
ls : TCustomLightSensor;
LValues : string;
LProp : TCustomLightSensor.TProperty;
begin
LValues := '';
ls := TCustomLightSensor(ASensor);
for LProp in ls.AvailableProperties do
begin
case LProp of
TCustomLightSensor.TProperty.Lux:
LValues := LValues + ToFormStr('Lux',ls.Lux);
// label1.Text := LValues ;
// TCustomLightSensor.TProperty.Temperature:
// LValues := LValues + ToFormStr('Temperature', ls.Temperature);
// TCustomLightSensor.TProperty.Chromacity:
// LValues := LValues + ToFormStr('Chromacity', ls.Chromacity);
end;
end;
Result := GetFullInfo(LValues) ;
end;
function TForm1.ToFormStr(AProp: string; AVal: Single): string;
begin
Result := Format(tForm,[AProp,'', AVal]);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
Var
ResultText : string;
LStep : Single;
begin
if Assigned(FActiveSensor) then
begin
case FActiveSensor.Category of
TSensorCategory.Light: ResultText := GetInfoAboutLight(FActiveSensor);
end;
Label1.Text := ResultText;
end;
end;
function TForm1.GetFullInfo(AAvailibleProperties: string): string;
begin
Result := AAvailibleProperties;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
LSensorCat : TSensorCategory ;
begin
TSensorManager.Current.Activate();
end;
end.
Nie mam pojecia jak wyciagnac informacje z sensora światła. Chociaż wydaje mi sie że powinienem aktywować ten sensor swiatla aby się do niego połączyć, tylko nie wiem jak :(.
dodanie znacznika <code class="delphi"> - furious programming
<code=delphi>kod</code>